WebSVN – MB01 Project – /trunk/sources/INC/SYS_FS.INC

;;
;; Copyright (c) 2016 Marco Granati <mg@unet.bz>
;;
;; Permission to use, copy, modify, and distribute this software for any
;; purpose with or without fee is hereby granted, provided that the above
;; copyright notice and this permission notice appear in all copies.
;;
;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
;;

;; name: sys_fs.inc     
;; rev.: 2016/02/09
;; o.s. 65C816 version v1.0

.LIST on

;---------------------------------------------------------------------------

WKB     .EQU    ^FATSOFS        ; working bank

HPLMAX  .EQU    32      ; Max. subdirectory level

XBSTART .EQU    $0B40           ; first x-mem buffer
XBLST   .EQU    $0FFF           ; last x-mem buffer
XBCNT   .EQU    XBLST+1-XBSTART ; x-mem buffer's count
;BS     .EQU    XBCNT*2         ; word array size
;BCBCNT .EQU    XBCNT / 16
BCBCNT  .EQU    $200
BCBXBNK .EQU    $0C00
;XBUFH  .EQU    XMEMBUF

HASHMAX         .EQU    1024
HCBSTART        .EQU    $0008
HCBBNK          .EQU    4

FAT0X   .EQU    $E0
FAT1X   .EQU    $F0
DMACNT  .EQU    64

;---------------------------------------------------------------------------
; Logical Drive Table (LDT) -- page 0 offset's
;---------------------------------------------------------------------------

 STRUCT         LDT
ldt_fg1         .DB             ; logical volume flag's
                                ; <7>: device ready (fdc drive or ata device)
                                ; <6>: if=1->HD/CF else->FD
                                ; <0>: phisycal device number

ldt_fg2         .DB             ; <7>: valid volume (fat volume or cbm disk)
                                ; <6>: if=1->FAT else->CBM (FD only)
                                ; <5>: disk format checked
                                ; <1:0>: disk format (fdc only)

ldt_fp          LP              ; fat table buffer long pointer
ldt_fbuf        .DB             ; fat table: x-mem base bank/dma buffer 

ldt_root        .DW             ; lba of root dir
ldt_fat1        .DW             ; lba of fat1 table
ldt_fat2        .DW             ; lba of fat2 table
ldt_cls         .DW             ; lba of first data cluster
ldt_max         .DW             ; max usable cluster + 1
ldt_csiz        .DB             ; cluster size (1,2,4,8,16,32,64)
ldt_cshf        .DB             ; cluster shift (0,1,2,3,4,5,6)
ldt_fsiz        .DB             ; fat table size (if 0 -> 256)
ldt_rsiz        .DB             ; root dir. size (sector's)
ldt_rent        .DW             ; root dir. max. entries
ldt_cent        .DW             ; max. entries in dir. cluster
ldt_eoc         .DW             ; end of cluster chain marker
ldt_mcls        .DB             ; mask for clust. module: 00,01,03,07,0F,1F,3F
ldt_fmt         .DB             ; floppy disk format (0,1,2,FF if ata device)
ldt_cdlp        .DW             ; current working dir list pointer
ldt_cdcls       .DW             ; current working dir start cluster
ldt_free        .DW             ; count of free cluster's
ldt_nxt         .DW             ; next free cluster
ldt_cdlvl       .DB             ; current working dir level count
ldt_pbr         LP              ; long pointer to PBR cache buffer
 ESTRUCT        LDT

;---------------------------------------------------------------------------
; Hierarchical Path List (HPL) -- 16 bit offset's
;---------------------------------------------------------------------------

 LSTRUCT        HPL
hpl_cls         .DW             ; parent cluster
hpl_ix          .DW             ; entry index in parent cluster
hpl_fcb         .DS     11      ; fcb name
hpl_lst         .DB             ; unused
 ESTRUCT        HPL

;--------------------------------------------------------------------------- 
; Buffer Control Block (BCB) -- 16 bit offset's
;---------------------------------------------------------------------------

 LSTRUCT        BCB
bcb_next        .DW             ; next logical linked BCB 
bcb_drv         .DB             ; logical drive
bcb_sec         .DB             ; sector offset
bcb_cls         .DW             ; cluster
bcb_lba         .DW             ; sector lba address
bcb_lbah        .DW             ; lba high
bcb_head        .EQU    bcb_lbah        ; floppy head
bcb_buf         .DW             ; x-mem buffer number
bcb_trk         .EQU    bcb_buf ; floppy track(low) & sector(hi)
bcb_ptr         .DW             ; buffer pointer
bcb_xbnk        .DW             ; buffer pointer hi & x-mem bank
bcb_dma         .EQU    bcb_xbnk        ; buffer pointer hi & dma buffer
 ESTRUCT        BCB

;---------------------------------------------------------------------------  
; FAT Working Segment
;--------------------------------------------------------------------------- 

_FATS:  .SECTION ref_only, common, offset FATSOFS, range $010000 $01FFFF ;FAT Struct's
_FATS_START     .DS     0

; current working directory HPL  
cwdl0           .DS     (HPLSIZE*HPLMAX)
cwdl1           .DS     (HPLSIZE*HPLMAX)
cwdl2           .DS     (HPLSIZE*HPLMAX)
cwdl3           .DS     (HPLSIZE*HPLMAX)

; current building path HPL
cbpl            .DS     (HPLSIZE*HPLMAX)
HPL_CLS         .EQU    hpl_cls+cbpl
HPL_IX          .EQU    hpl_ix+cbpl
HPL_FCB         .EQU    hpl_fcb+cbpl

; BCB list's
bcbstart        .DS     (BCBCNT*BCBSIZE)
bcbend          .DS     0
dmastart        .DS     (DMACNT*BCBSIZE)
dmaend          .DS     0
dma0s           .DS     (17*BCBSIZE)
dma1s           .DS     (17*BCBSIZE)

_FATS_END       .DS     0
FATSSIZ         .EQU    (_FATS_END-_FATS_START)
.ENDS

;---------------------------------------------------------------------------

; segment for store HCB struct's (Hash Control Block)
_HCBS:  .SECTION ref_only, common, offset HCBSST, range HCBSST HCBSEND  ;HCB Struct's
hcb_next        .DW             ; pointer to next HCB
hcb_cls         .DW             ; cluster number
hcb_seq         .DW             ; sequence number + logical drive number
hcb_cnt         .DW             ; number of hashed entries
hcb_data        .DS     0        ; hash buffer data
.ENDS

;---------------------------------------------------------------------------
; direct page for LDT var's 
;---------------------------------------------------------------------------

DPLDT:  .SECTION page0, common, ref_only, offset 0      ;LDT D.P.

ldt0            .DS     LDTSIZE
ldt1            .DS     LDTSIZE
ldt2            .DS     LDTSIZE
ldt3            .DS     LDTSIZE

ldtp            .DS     4       ; pointer to LDT's in DPLDT page
sysbuf          .DS     2       ; floppy track 0 cache buffer
bpath           .DS     80

bpath1          .DS     0
.ENDS

;---------------------------------------------------------------------------
; direct page for FAT var's 
;---------------------------------------------------------------------------

DPFAT:  .SECTION page0, common, ref_only, offset 0      ;FAT D.P.

ostos           .DW             ; saved top of stack
ioerr           .DB             ; i/o error
ioerr2          .DB             ; extended i/o error
hcbroot         .DW             ; HCB struct's list
hcblst          .DW             ; the last one HCB
hsiz            .DB             ; how many sector's an HCB can hold
hlog2           .DB             ; shift count related to hsiz
bcbroot         .DW             ; BCB buffer's list
bcblst          .DW             ; the last one BCB
dmaroot         .DW             ; dma BCB buffer's list
dmalst          .DW             ; the last one dma BCB
dmabcb          .DW             ; BCB list for floppy root, cluster#2,#3&#4
fspt            .DB             ; sector per track (floppy)
pdrive          .DB             ; phisycal drive number
bplvl           .DB             ; subdir level while build path
defdrv          .DB             ; default drive

; the first block of ldt_ var's is copied from the LDT struct
ldtfg1          .DB             ; logical volume flag's
                                ; <7>: device ready (fdc drive or ata device)
                                ; <6>: if=1->HD/CF else->FD
                                ; <0>: phisycal device number

ldtfg2          .DB             ; <7>: valid volume (fat volume or cbm disk)
                                ; <6>: if=1->FAT else->CBM (FD only)
                                ; <5>: disk format checked
                                ; <1:0>: disk format (fdc only)

ldtfp           LP              ; fat table buffer long pointer
ldtfbuf         .DB             ; fat table: x-mem base bank/dma buffer

ldtroot         .DW             ; lba of root dir
ldtfat1         .DW             ; lba of fat1 table
ldtfat2         .DW             ; lba of fat2 table
ldtcls          .DW             ; lba of first data cluster
ldtmax          .DW             ; max usable cluster + 1
ldtcsiz         .DB             ; cluster size (1,2,4,8,16,32,64)
ldtcshf         .DB             ; cluster shift (0,1,2,3,4,5,6)
ldtfsiz         .DB             ; fat table size (if 0 -> 256)
ldtrsiz         .DB             ; root dir. size (sector's)
ldtrent         .DW             ; root dir. max. entries
ldtcent         .DW             ; max. entries in dir. cluster
ldteoc          .DW             ; end of cluster chain marker
ldtmcls         .DB             ; mask for clust. module: 00,01,03,07,0F,1F,3F
ldtfmt          .DB             ; floppy disk format (0,1,2, FF if ata device)
ldtcdlp         .DW             ; current working dir list pointer
ldtcdcls        .DW             ; current working dir start cluster
ldtfree         .DW             ; count of free cluster's
ldtnxt          .DW             ; next free cluster
ldtcdlvl        .DB             ; current working dir level count
ldtpbr          LP              ; long pointer to PBR cache buffer

chdcls          .DW             ; last accessed chained dir. cluster
clsofs          .DW             ; cluster's offset from start of chain

; not change order of the 2 following var's: will be accessed as 16 bit var
entofs          .DB             ; entry offset from start of sector
secofs          .DB             ; sector's offset from start of cluster

dircls          .DW             ; directory cluster 
dcnt            .DW             ; directory entry counter 
lba             .DW             ; lba sector address
lbah            .DW             ; lba is 24 bit's only
xbuf            .DW             ; x-mem buffer transfer number

fhead           .EQU    lbah    ; fd head
ftrack          .EQU    xbuf    ; fd track
fsec            .EQU    xbuf+1  ; fd sector

dfcbtyp         .DB             ; FCB type to search 
dfcbatt         .DB             ; attribute of found FCB

curdrv          .DB             ; current logical drive
fcbs            .DS     11      ; file control block name

;dcmask         .DW             ; mask to start of cluster
                                ; FFF0, FFE0, FFC0, FF80, FF00, FE00

fcbp            .DW             ; FCB buffer long pointer
                .DW             ; low=fcbp+2, high=x-mem bank or dma buffer
dmabuf          .EQU    fcbp+3  ; dma buffer #
xmbank          .EQU    fcbp+3  ; x-mem bank #

; temp area
hcbseq          .DB
hcbdrv          .DB
bcbcls          .DW
bcbdrv          .DB
bcbsec          .DB

thash           .DW
hcbrec  .EQU    thash
wtmp    .EQU    thash

hlast           .DW
hcbcls          .DW
hcbx            .DW
hcby            .DW
tmpp    .EQU    hlast   ; temp. long pointer
tmpx    .EQU    hcbx
wild    .EQU    hcbx+1
fsiz    .EQU    hcby
fptr    .EQU    hcby+1
ldrv    .EQU    hcbx
tmpldt  .EQU    hcbx+1

fhash           .DW
fcbofs          .DW
bcbload         .DB
xstart          .DB
xend            .DB
seccnt          .DB
maxseq          .DB
dsiz            .DB

haswld          .DB
strix           .DB
pathp           LP              ; long pointer to path string

; TEMP
quot            .DW
dvsor           .DW
troot           .DW
tlst            .DW
bdmask          .DW
bcmask          .DW

.ENDS

.LIST off
Subversion Repositories MB01 Project

(root)/trunk/sources/INC/SYS_FS.INC – Rev 1
