$TITLE(' DATA BLOCK - FLICKINGER - 05 JAN 81 01:03 ')
;
	PUBLIC	DRCODE			;DISK FILE CONTROL BLOCK (36)
	PUBLIC	KBBUF			;KEYBOARD BUFFER BLOCK (40H + ID)
	PUBLIC	DMABUF			;DISK DATA BUFFER (80H)
	PUBLIC	STACK			;STACK AREA (80H)
;
	DSEG
;
;CMDOS DISK FILE CONTROL BLOCK
;
DRCODE:	DB	0			;DRIVE CODE (DR)
FNAME:	DB	0,0,0,0,0,0,0,0		;FILE NAME (F1-F8)
FTYPE:	DB	0,0,0			;FILE TYPE (T1-T3)
EXTENT:	DB	0			;CURRENT EXTENT
	DB	0			;SYSTEM USE
	DB	0			;0 FOR CREATE AND OPEN
RECCNT:	DB	0			;RECORD COUNT
FILE2:	DB	0,0,0,0,0,0,0,0		;2ND FILENAME DEFAULT
	DB	0,0,0,0,0,0,0,0
CURREC:	DB	0			;CURRENT RECORD
R1R2R3:	DB	0,0,0			;RANDOM RECORD BLOCK
;
;BUFFERS
;
KBBUF:	DB	40H			;KEYBOARD BUFFER LENGTH
	DB	00H			;CHARACTER COUNT
	DS	40H			;BUFFER CHARACTERS
;
DMABUF:	DS	80H			;DISK BUFFER
;
STACK	EQU	$
;
	END