Subversion Repositories MB01 Project

;;
;; 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: tossys.inc     
;; rev.: 2016/02/09
;; o.s. 65C816 version v1.0

.LIST on

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

HPLMAX          .EQU    32              ; Max. subdirectory level

BCBCNT          .EQU    $200            ; BCB's struct's count #
BCBXBNK         .EQU    $0C00           ; starting BCB x-mem buffer #
DMACNT          .EQU    64

FAT0X           .EQU    $E0             ; x-mem bank for fat table of ata #0
FAT1X           .EQU    $F0             ; x-mem bank for fat table of ata #1

        .INCLUDE INC\LDT.INC
        
;---------------------------------------------------------------------------
; 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

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

 LSTRUCT        HCB
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
 ESTRUCT        HCB

;---------------------------------------------------------------------------  
; TOS Working Segment
;--------------------------------------------------------------------------- 

WKB             .EQU    .SEG.TOSSEG     ; TOS working bank

TS              .SET    TOSSEG
TE              .SET    TOSSEG + $FFFF
TO0             .SET    $018C00
TO1             .SET    TOSWKM

.comment @
_TOS0:  .SECTION ref_only, common, offset TO0, range TS TE ;FAT Struct's
_TOS0_START     .DS     0

_pbr0           .DS     512
_pbr1           .DS     512
_pbr2           .DS     512
_pbr3           .DS     512

_TOS0_END       .DS     0
TOS0SIZ         .EQU    (_TOS0_END - _TOS0_START)
.ENDS
@

_TOS1:  .SECTION ref_only, common, offset TO1, range TS TE ;FAT Struct's
_TOS1_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)

_TOS1_END       .DS     0
TOS1SIZ         .EQU    (_TOS1_END - _TOS1_START)
.ENDS

;---------------------------------------------------------------------------  
; HCB Segment
;--------------------------------------------------------------------------- 

HCBBNK          .EQU    .SEG.HCBSEG
HS              .SET    HCBSEG
HE              .SET    HCBSEG + $FFFF
HO              .SET    HCBSEG

_HCBS:  .SECTION ref_only, common, offset HO, range HS HE       ;HCB's List
hcb_bnk         .DS     8
hcbstart        .DS     0
.ENDS

;.comment @
;---------------------------------------------------------------------------
; direct page for LDT var's 
;---------------------------------------------------------------------------

; P0OS
DPOS:   .SECTION page0, common, ref_only, offset 0      ;OS Main D.P.

;sysbuf         .DS     2       ; floppy track 0 cache buffer
defhsec         .DB             ; default hidden sector's in fdisk
                .DB
cmdstk          .DW             ; saved stack on TOS command's
bpath           .DS     80

bpath1          .DS     0
.ENDS
;@

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

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

ldtp            .DS     6       ; pointer to LDT's in DPLDT page

sysbuf          .DS     4       ; floppy track 0 cache buffer

.ENDS

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

; P0FAT
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

hcbuse          .DB

.ENDS

.LIST off