;MACRO'S TO DEFINE BUFFERED DISK CONTROL BLOCKS (6/13/82)
	LST	NPRT
;
	EXT	BKDSPC,BKDSET,BKDIO	; BUFF PROC ROUTINES
;
;  BKDCB - BUFFER DISK CONTROL BLOCK
;
	ORG	0
K.FLAG:	DS	1	; FLAG INFO
     	K.MOD:	EQU	80H	; BUFFER MODIFIED
K.SECF:	DS	1	; SECTOR FACTOR
K.UNIT:	DS	1	; UNIT  - CURRENT RESIDENT BUFFER 
K.SUR:	DS	1	;   SURFACE
K.TRK:	DS	2	;   TRACK
K.SEC:	DS	1	;   SECTOR (PHYSICAL)
K.USFT:	DS	2	; UNIT SECTOR FACTOR TABLE
K.BUFA:	DS	2	; BUFFER ADDRESS
K.NALLOC: DS	1	; # OF NEW ALLOC TABLE ENTRIES
K.NPTR:	DS	2	; ADDRESS OF NEW ALLOC TABLE
	DS	1	; SPARE
K.SPC:	DS	3	; JMP SPECIAL ROUTINE
K.DOIO:	DS	3	; JMP DOIO ROUTINE
;
; FORMAT OF NEW ALLOCATION TABLE ENTRIES - OFFSETS FROM @K.NPTR
;
	ORG	0
K.NSIZE: DS	1	; NEW ALLOC SIZE/NOT RESIDENT FLAG
	K.NRES:	EQU	80H	; NOT RESIDENT
K.NBLK:	DS	3	; NEW ALLOC LOGICAL BLOCK #
K.NUNIT: DS	1	; NEW ALLOC UNIT NUMBER
K.NATSZ:		; SIZE OF ENTRY
	ROG
;
;
;
;BUFFERED DISK CTL BLOCK
;
DEFBKD	MAC		; UNITS, SEC SIZE, SPC, IO
[	DB	0
	DS	6	; SECTOR INFO
	DW	U&0,B&0	; SECTOR FACTORS AND BUFFER
	DB	1	; # OF NEW ALLOC TABLE ENTRIES
	DW	N&0	; NEW ALLOC TABLE ADDRESS
	DS	1
	JMP	&3
	JMP	&4
;
N&0:
	DS	K.NATSZ
U&0:	DS	&1	; 4 UNITS
	RAM
B&0:	DS	2
	DS	&2	; PHYSICAL BUFFER
	ROG
]
;
; DEFINE THE SIZE OF A DISK
;	SECTOR FACTOR, CLUSTER SIZE, DUB, DIR START
;	DIR SIZE, DIR CLUSTERS
;
DEFSIZE	MAC
[	DB	&1,&2
	DW	&3,&4
	DB	&5,&6
]
;
	LST	PRT
