INBUFF	.db	127	;length of input buffer.
	.db	0	;current length of contents.
	.db	"Copyright"
	.db	" 1979 (c) by Digital"
	.db	" Research      "
	.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
INPOINT	.dw	INBUFF+2;input line pointer
NAMEPNT	.dw	0	;input line pointer used for error message. Points to
;			;start of name in error.


IOBYTE	.db	0
TDRIVE	.db	0


;
;   Batch (or SUBMIT) processing information storage.
;
BATCH	.db	0	;batch mode flag (0=not active).
BATCHFCB:.db	0,"$$$     SUB",0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0
;
;   File control block setup by the CCP.
;
FCB	.db	0,"           ",0,0,0
	.db	0,0,"           ",0,0,0,0,0
RTNCODE	.db	0	;status returned from bdos call.
CDRIVE	.db	0	;currently active drive.
CHGDRV	.db	0	;change in drives flag (0=no change).
NBYTES	.dw	0	;byte counter used by TYPE.
;
;   Room for expansion?
;
	.db	0,0,0,0,0,0,0,0,0,0,0,0,0

;
;   Bdos error table.
;

BADSCTR	.dw	ERROR1	;bad sector on read or write.
BADSLCT	.dw	ERROR2	;bad disk select.
RODISK	.dw	ERROR3	;disk is read only.
ROFILE	.dw	ERROR4	;file is read only.

;
OUTFLAG	.db	0	;output flag (non zero means no output).
STARTING:.db	2	;starting position for cursor.
CURPOS	.db	0	;cursor position (0=start of line).
PRTFLAG	.db	0	;printer flag (control-p toggle). List if non zero.
CHARBUF	.db	0	;single input character buffer.
;
;   Stack area for BDOS calls.
;
USRSTACK:.dw	0	;save users stack pointer here.
;
	.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
STKAREA	.equ	$	;end of stack area.
;
USERNO	.db	0	;current user number.
ACTIVE	.db	0	;currently active drive.
PARAMS	.dw	0	;save (DE) parameters here on entry.
STATUS	.dw	0	;status returned from bdos function.

;
;**************************************************************
;*
;*     BDOS data storage pool.
;*
;**************************************************************
;
EMPTYFCB:.db	0E5H	;empty directory segment indicator.
WRTPRT	.dw	0	;write protect status for all 16 drives.
LOGIN	.dw	0	;drive active word (1 bit per drive).
USERDMA	.dw	080H	;user"s dma address (defaults to 80h).
;
;   Scratch areas from parameter block.
;
SCRATCH1:.dw	0	;relative position within dir segment for file (0-3).
SCRATCH2:.dw	0	;last selected track number.
SCRATCH3:.dw	0	;last selected sector number.
;
;   Disk storage areas from parameter block.
;
DIRBUF	.dw	0	;address of directory buffer to use.
DISKPB	.dw	0	;contains address of disk parameter block.
CHKVECT	.dw	0	;address of check vector.
ALOCVECT:.dw	0	;address of allocation vector (bit map).
;
;   Parameter block returned from the bios.
;
SECTORS	.dw	0	;sectors per track from bios.
BLKSHFT	.db	0	;block shift.
BLKMASK	.db	0	;block mask.
EXTMASK	.db	0	;extent mask.
DSKSIZE	.dw	0	;disk size from bios (number of blocks-1).
DIRSIZE	.dw	0	;directory size.
ALLOC0	.dw	0	;storage for first bytes of bit map (dir space used).
ALLOC1	.dw	0
OFFSET	.dw	0	;first usable track number.
XLATE	.dw	0	;sector translation table address.
;
;
CLOSEFLG:.db	0	;close flag (=0ffh is extent written ok).
RDWRTFLG:.db	0	;read/write flag (0ffh=read, 0=write).
FNDSTAT	.db	0	;filename found status (0=found first entry).
MODE	.db	0	;I/o mode select (0=random, 1=s.equential, 2=special random).
EPARAM	.db	0	;storage for register (E) on entry to bdos.
RELBLOCK:.db	0	;relative position within fcb of block number written.
COUNTER	.db	0	;byte counter for directory name searches.
SAVEFCB	.dw	0,0	;save space for address of fcb (for directory searches).
BIGDISK	.db	0	;if =0 then disk is > 256 blocks long.
AUTO	.db	0	;if non-zero, then auto select activated.
OLDDRV	.db	0	;on auto select, storage for previous drive.
AUTOFLAG:.db	0	;if non-zero, then auto select changed drives.
SAVNXT	.db	0	;storage for next record number to access.
SAVEXT	.db	0	;storage for extent number of file.
SAVNREC	.dw	0	;storage for number of records in file.
BLKNMBR	.dw	0	;block number (physical sector) used within a file or logical sector.
LOGSECT	.dw	0	;starting logical (128 byte) sector of block (physical sector).
FCBPOS	.db	0	;relative position within buffer for fcb of file of interest.
FILEPOS	.dw	0	;files position within directory (0 to max entries -1).
;
;   Disk directory buffer checksum bytes. One for each of the
; 16 possible drives.
;
CKSUMTBL:.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
;
;   Extra space ?
;
	.db	0,0,0,0