romtbl

.PAGE 'ROMTBL'
	*=ROM
;
; FORMAT CODE FOR CONTROLLER
;   RESIDES HERE
CODE	*=*+$2A0
;
;*****ROM*****
;
DCHKSM	.BYTE 0
;   COMMAND SEARCH TABLE
CMDTBL	.BYT 'IVDMBUPCRSN'
; INIT-DRIVE VERIFY-DIR DUPLICATE
; MEMORY-OP BLOCK-OP USER
; POSITION DSKCPY RENAME SCRATCH NEW
NCMDS	=*-CMDTBL
;  JUMP TABLE LOW
CJUMPL	.BYT <INTDRV,<VERDIR,<DUPLCT
	.BYT <MEM,<BLOCK,<USER
	.BYT <RECORD
	.BYT <DSKCPY,<RENAME,<SCRTCH,<NEW
	*=CJUMPL+NCMDS
;  JUMP TABLE HIGH
CJUMPH	.BYT >INTDRV,>VERDIR,>DUPLCT
	.BYT >MEM,>BLOCK,>USER
	.BYT >RECORD
	.BYT >DSKCPY,>RENAME,>SCRTCH,>NEW
	*=CJUMPH+NCMDS
VAL=1 ;VALIDATE (VERIFY) CMD #
.SKIP
; STRUCTURE IMAGES FOR CMDS
PCMD	=8
	.BYT %01010001  ; DSKCPY
STRUCT	=*-PCMD         ; CMDS NOT PARSED
	.BYT %11011101  ; RENAME
	.BYT %00011100  ; SCRATCH
	.BYT %10011110  ; NEW
LDCMD	=*-STRUCT       ; LOAD CMD IMAGE
	.BYT %00011100  ; LOAD
;            --- ---
;            PGDRPGDR
;            FS1 FS2
.SKIP
;   BIT REPS:  NOT PATTERN
;              NOT GREATER THAN ONE FILE 
;              NOT DEFAULT DRIVE(S) 
;              REQUIRED FILENAME
.SKIP
TRKTBL	.BYT 17,24,30,35 ;TRK/GROUP TABLE
MODLST	.BYT 'RWAM'     ; MODE TABLE
NMODES	=*-MODLST
;FILE TYPE TABLE
TPLST	.BYT 'DSPUL'
TYPLST	.BYT 'DSPUR'    ;DEL, SEQ, PROG, USER, RELATIVE
NTYPES	=*-TYPLST
TP1LST	.BYT 'EERSE'
TP2LST	.BYT 'LQGRL'
;
; ERROR FLAG VARS FOR BIT
;
ER00	.BYT 0
ER0	.BYT $3F
ER1	.BYT $7F
ER2	.BYT $BF
ER3	.BYT $FF
;
IPBM	.BYTE $41,$42
SECTRK	.BYTE 17,18,19,21,9,2,FM2040
	.BYTE 14,15,16,18,28,30,FM2030
;(4) SECTORS/TRACK,HEADER GAP
;TAIL GAP (FORMAT),FORMAT TYPE
	*=SECTRK+CTBSIZ+CTBSIZ
ROM1	= *
.SKIP
.END