;
;************************************
;*	CP/M disk work space.       *
;************************************
   if  (@LDR = 0)
	ORG	REUSE	;Space recovered at cold boot
   endif
	ALIGN	2
ALV:	DS	ALVS
CSV:	DS	CSVS
	PAGE
;	Disk access information.
;	This area is organized into the following groups
;		sector number
;		track number
;		disk drive
;		drive type
;	Each of these groups has three cells for the
;	current disk request, ACTual disk transfer,
;	and active host disk.
	ALIGN	2
SEKSEC:	DS	1		;Current request
SEKTRK:	DS	2		;Current request
SEKDSK:	DS	1		;Current request
SEKTYP:	DS	1		;Current disk's type

ACTSEC:	DS	1		;Actual transfer operation
ACTTRK:	DS	2		;Actual transfer operation
ACTDSK:	DS	1		;Actual transfer operation
ACTTYP:	DS	1		;Actual disk's type

HSTSEC:	DS	1		;Active host disk
HSTTRK:	DS	2		;Active host disk
HSTDSK:	DS	1		;Active host disk
HSTTYP:	DS	1		;Active disk's type
	SPACE	4,10
;	Disk transfer flags and counters.

RDFLAG:	DS	1		;Read flag
ERFLAG:	DS	1		;Error reporting
WRTYPE:	DS	1		;Write operation type

SAVSEC:	DS	1		;Save sector
CIOPL:	EQU	9
CIOPB:	DS	CIOPL		;Disk command buffer
TEMPBF:	DS	8		;Result status cells

	IF	DISK3
D3IOPB:	DS	16		;DISK3 command block
	ENDIF
	if	DISK2
HDBAD	DS	7 * 12	;Up to 12 entries in bad table
	ENDIF
	ALIGN	16
DIRBUF:	DS	128		;Directory buffer
STACKP:
HSTBUF:	DS	HSTSIZ		;Host buffer

	ALIGN	16
BIOLWA:
SYSEND:	EQU	(BIOLWA shr 4)+BIOSEG
	MSG	'Bios Length = $',BIOLWA-BIOS,'h'
	MSG	'System Paragraph = $',BIOSEG,'h'
	MSG	'End of System = $',SYSEND,'0h'
;