Subversion Repositories MB01 Project

;; cbm-fs

VIECMAX		.EQU	$1000

mxfils		.EQU	5	; max # filenames in cmd string

cmdlen		.EQU	96	; length of command buffer (+ terminator #0)

fntlen		.EQU	97	; length of canonical file name table

nbsiz		.EQU	27	; nambuf text size

dirlen		.EQU	24	; directory length used

maxfd		.EQU	8	; max # file descriptors

intfd		.EQU	maxfd+2	; internal # file descriptors

mxchnls		.EQU	15	; max # data channels

irdfd		.EQU	maxfd	; internal fd for read file

iwrfd		.EQU	maxfd+1	; internal fd for write file

bindx		.EQU	16	; bam offset index

bamsiz		.EQU	6	; # bytes/track in bam

numsec		.EQU	40	; number of logical sectors (blocks)

phisec		.EQU	10	; number of phisycal sectors / track

dirtrk		.EQU	40	; system logical track

dirst		.EQU	3	; starting directory sector

maxtrk		.EQU	81	; max. logical track + 1

startrk		.EQU	1	; logical starting track

; max. available blocks's #

maxblks		.EQU	(numsec*(maxtrk-1)-numsec)

dskvern		.EQU	$44	; disk version number

dosvern		.EQU	$33	; dos version number

subvern		.EQU	$8D	; disk sub-version number header ofs. 29 & 30

iobyte		.EQU	$C0	; default bam i/o byte

MAXDOSDRV	.EQU	4	; dos drives are 0..3

;deltyp		.EQU	0	; deleted type

seqtyp		.EQU	1	; sequential type

prgtyp		.EQU	2	; program type

usrtyp		.EQU	3	; user type

reltyp		.EQU	4	; relative type

partyp		.EQU	5	; partition type

exetyp		.EQU	6	; new executable type

typmsk		.EQU	7	; mask for type bits

; internal use: open function's

rdmode		.EQU	0	; open read mode

wtmode		.EQU	1	; open write mode

apmode		.EQU	2	; open append mode

mdmode		.EQU	3	; open modify mode

lddir		.EQU	3	; load directory

seqdir		.EQU	4	; open dir as seq. file

damode		.EQU	5	; open direct access type

; error codes

rdtrk		.EQU	20	; track read error

badfmt		.EQU	21	; bad disk format (or unformatted disk)

wrtrk		.EQU	22	; track write error

rdsec		.EQU	24	; read error

wrsec		.EQU	25	; write error

wpon		.EQU	26	; write protect on

badid		.EQU	29	; disk id mismatch

badsyn		.EQU	30	; general syntax

badcmd		.EQU	31	; invalid command

longln		.EQU	32	; long line

badfn		.EQU	33	; invalid filname

nofile		.EQU	34	; no file given

baddrv		.EQU	35	; illegal drive number

badchn		.EQU	36	; illegal channel number

nullln		.EQU	37	; empty command string

notsam		.EQU	39	; cannot rename across drives

flock		.EQU	40	; locked file

fsplt		.EQU	41	; write file not closed

bnotm		.EQU	42	; unmatch blocks count

invlnk		.EQU	43	; invalid file link

badlst		.EQU	44	; wrong index in last block

filopn		.EQU	60	; file open

filnop		.EQU	61	; file not open

flntfd		.EQU	62	; file not found

flexst		.EQU	63	; file exists

mistyp		.EQU	64	; file type mismatch

badts		.EQU	66	; illegal track or sector

systs		.EQU	67	; illegal system t or s

wrfil		.EQU	68	; write only file

rdfil		.EQU	69	; read only file

nochnl		.EQU	70	; no channel available

direrr		.EQU	71	; directory error

dskful		.EQU	72	; disk full

cbmv2		.EQU	73	; cbm emulator version

nodriv		.EQU	74	; drive not ready

opnchn		.EQU	75	; channel is open

nolinx		.EQU	76	; no logical index available

fmter		.EQU	77	; format error

ibmfmt		.EQU	78	; ibm-formatted disk

syterr		.EQU	79	; system track read error

dirlnk		.EQU	80	; corrupted directory link

bamcnt		.EQU	81	; corrupted bam

badcat		.EQU	82	; recursive concat

badtlk		.EQU	83	; invalid talk command

badlsn		.EQU	84	; invalid listen command

; sezione COMMON -- questo permette di includere il file in piu' file

DPCBMFS: .SECTION page0, ref_only, common

	.ABSOLUTE		;; inizia sempre da $00

	.ORG	0x00

zpstart		.EQU	$

delsec		.DS	2	; sector of 1st avail entry

delind		.DS	2	; index of 1st avail entry

dirsec		.DS	2	; directory sector of last not empty entry

index		.DS	2	; index of last not empty entry

track		.DB		; current track

sector		.DB		; current sector

dirp		LP		; long pointer to directory entry

nxtsec		.DB		; next sector in dir link

type		.DB		; active file type

mode		.DB		; active file mode

typflg		.DB		; match by type flag

patflg		.DB		; pattern presence flag

f1cnt		.DB		; file stream 1 count

f2cnt		.DB		; file stream total count

f1ptr		.DB		; file stream 1 pointer

f2ptr		.DB		; file stream 2 pointer

entfnd		.DB		; dir-entry found flag ($FF = not found)

found		.DB		; flag found in file stream

tgflg		.DB		; drive toggle flag

				; <7>: search both drives

				; <6>: drvnum was toggled

drvnum		.DB		; current drive

filtbl		.DS	mxfils	; filename pointer

tmpxxx		.DB		; extra byte for filtbl/tmp byte

filtrk		.DS	mxfils	; 1st link/track

filsec		.DS	mxfils	;    /sector

entsec		.DS	mxfils	; sector of directory entry

entind		.DS	mxfils	; index of directory entry

fildrv		.DS	mxfils	; default flag, drive #

pattyp		.DS	mxfils	; pattern,replace,closed-flags,type

dpsave		.EQU	$ - zpstart

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

tlp		LP		; tmp long pointer

cmdsiz		.DB		; cmd string size

char		.DB		; tmp store char

image		.DB		; file stream image

qfmt		.EQU	cmdsiz	; quick format flag

idch1		.EQU	char	; ID format char 1

idch2		.EQU	image	; ID format char 2

opntm		.EQU	char	; <7>: open type in parameter

				; <6>: open mode in parameter

; virtual iec -----------------------------------------

sa		.DB		; persistent second addr. virtual iec

viecbuf		.DB		; virtual iec buffered data

viecsiz		.DW

viecndx		.DW

vieclp		LP

viecfg		.DB		; virtual iec flag

				; <7>: active talk/listen

				; <6>: talk (listen if 0)

vcmdix		.DB		; index to command string

vbufnum		.DB		; viec buffer #

vcmdsiz		.DB		; size of virtuasl iec buffer (channel 15)

veof		.DB		; eof flag

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

chnl		.DB		; channel param

cmdnum		.DB		; command #

bchn		.DB		; block-op channel

subcmd		.DB		; blk subcommand # or open type cmd

lsterr		.DB		; last error

lindx		.DB		; logical index (internal file descriptor)

linuse		.DB		; lindx use flags (1=free, 0=busy)

lintab		.DS	mxchnls	; lindx table ($FF = free)

				; <7>: write type fd

				; <6>: direct access type fd

				; <5>: directory load type fd

				; <3>: drive

				; <2:0> = logical index

drvfg		.DS	2	; drive flag

				; <7>: cbm formatted disk

				; <6>: valid format in bit 1,0

				; <5>: flag verify in bam iobyte

				; <4>: flag write protect on

				; <3>: flag new version

				;

				; <1:0>	00 DD ibm format

				;	01 DD cbm format

				;	10 HD ibm format

				;	11 HD cbm format (not used)

ndbf		.DW		; # of disk blocks free drive 0

		.DW		; # of disk blocks free drive 1

sysbuf		.DS	2	; DMA buffer # of system track cache

trkbuf		.DS	2	; DMA buffer # of data track cache

wrtbuf		.DS	2	; DMA buffer # of write buffer cache

dirofs		.DS	2	; directory cache buffer high pointer (dma)

dirbnk		.DS	2	; directory cache buffer bank (dma)

trkofs		.DS	2	; track cache buffer high pointer (dma)

trkbnk		.DS	2	; track cache buffer bank (dma)

wrtofs		.DS	2	; write cache pointer

wrtbnk		.DS	2

tcache		.DS	2	; current track in cache (0 invalidate cache)

wcache		.DS	2	; current track in write cache (0 inv. cache)

wbam		.DS	2	; dirty bam flag

bsize		.DW		; size of buffer while read/write op

btrf		.DW		; count of transf. bytes

ntot		.EQU	bsize	; free block's counter while check file system

bcnt		.EQU	btrf	; block's count while chech file system

bufp		LP		; long pointer to read data buffer (cache)

bmpnt		LP		; bam long pointer

wbuf		LP		; long pointer to write data buffer

tmp0		.DB		; temp. byte

wtmp		.DW		; tmp word

fdst		.DS	maxfd	; fd status

				; <7>: ready

				; <6>: eof flag

				; <0>: drive

dsec		.DS	maxfd	; sector of dir entry

dind		.DS	maxfd	; index of dir entry

ftrk		.DS	maxfd	; current file track (hi dir ptr for dir list)

fsec		.DS	maxfd	; current file sector (rdlst for dir list)

fdptr		.DS	maxfd	; file buffer pointer

fdblk		.DS	maxfd	; current file block # count

		.DS	maxfd	; dir. ptr for dir list

fdlst		.DS	maxfd	; local buffer last byte ptr

fdix		.DS	maxfd	; local buffer pointer

wrop		.DB		; flag write-op

data		.DB		; buffered byte

rddrv		.DB		; drive # to read (buffered operation)

rdidx		.DB		; pointer to read buffer (buffered operation)

rdlst		.DB		; pointer to last byte (buffered operation)

rdeof		.DB		; eof condition (buffered operation)

wrdrv		.DB		; drive # to write (buffered operation)

wridx		.DB		; pointer to write buffer (buffered operation)

wsec		.DB		; last dirty sector in write cache

wfirst		.DB		; first dirty sector in write cache

wcnt		.DW		; block's # of write file (buffered operation)

pdrv		.DB		; used by disk access routines: drive #

pside		.DB		; side #

psec		.DB		; start sector #

pcnt		.DB		; sector(s) count #

pbuf		.DB		; dma buffer #

dblfd		.DB		; double index lindx

trap		.DB		; flag error trap

cmdtrap		.DB		; no error if command string is empty

	.RELATIVE

	.ENDS

; CBM FS work area

CBMFSW:	.SECTION common, ref_only

	.ABSOLUTE

	.ORG	CBMFSW_START

cmdbuf		.DS	cmdlen	; command buffer

		.DB		; for terminator '0'

fntab		.DS	fntlen	; room for one dos filename (80) + one cbm...

				; filename (17) or for 5 cbm file names (85)

nambuf		.DS	nbsiz	; directory buffer

nambuf2		.DS	19	; buffer for store quoted file name

dskser		.LWORD		; serial in new version

		.LWORD

tos		.DW		; saved stack pointer

etrk		.DB		; save track & sector for fmterr function

esec		.DB

dskid1		.DS	2	; disk id 1

dskid2		.DS	2	; disk id 2

	.RELATIVE

	.ENDS

CBMVIEC: .SECTION common, ref_only

	.ABSOLUTE

	.ORG	CBMVIEC_START

vixtab		.DS	16

vsiztab		.DS	16

vftab		.DS	16

vopnsa		.DB		; SA for open command

		.DB

vieccmd		.DS	cmdlen

		.DB

	.RELATIVE

	.ENDS