;
;		FINISH.A86
;
;Parameters and buffers for MODEM9.xx.
;
COMPLIST	DB	 6, 'S', 'R', 'T', 'E', 'H', 'L'
;
NFILFLG	DB	FALSE	;NORMALLY SET TO FALSE. ALLOWS WRITE TO..
;			;..MEMORY IN TERMINAL MODE.
OPTION	DB	0
;
OPTBL	EQU	$
;
QFLG		DB	'Q'
RSEEFLG		DB	'R'
SSEEFLG		DB	'S'
VSEEFLG		DB	'V'
TERMFLG		DB	'T'
LOCCHFLG	DB	'L'
BATCHFLG	DB	'B'	;SET TO 'B' BY MENU. DOES NOT ALLOW MULTIFILE
				;XFER WHEN PROGRAM INITIALLY CALLED.
OPTBE	EQU	$

RESTROPT	DB	'Q','R','S','V','T','L','B'
			;MUST BE IN SAME ORDER AS TABLE ABOVE
;
;THE NEXT 12 BYTES EQUAL THE NUMBER OF BYTES BETWEEN SECTNOB AND SECTNOE
;
RESTSN:
	DB	0,0,0,0,0
	DW	DBUF
	DB	0,0,0,0,0
;
SECTNOB	EQU	$	;START OF TABLE MARKER
RCVSNO	DB	0	;\
SECTNO	DW	0	; \
ERRCT	DB	0	;  \
EOFLG	DB	0	;   \
SECPTR	DW	DBUF	;    12 BYTES BETWEEN TABLE MARKERS
SECINBF	DB	0	;   /
MAXEXT	DB	0	;  /
RCNT	DW	0 	; /
DATAFLG	DB	0	;/
SECTNOE	EQU	$	;END OF TABLE MARKER
;
MODCTLB	DB	07FH
SAVEFLG	DB	FALSE
LASTBYT1 DB	0
LASTBYT2 DB	0
EXACFLG	DB	0
ECHOFLG	DB	FALSE
LOCFLG	DB	FALSE
CKSUMFLG DB	TRUE
LISTFLG	DB	FALSE
LISTMOR	DB	FALSE
FSTFLG	DB	TRUE
FIRSTME	DB	TRUE	;FIRST SOH RECEIVED SWITCH (ZERO AFTER 1ST SOH)
MFFLG1	DB	0	;1ST TIME SW FOR MFACESS
HLSAVE	DW	BOTTRAM
HLSAVE1	DW	BOTTRAM
HLSAVE2	DW	BOTTRAM
STRSAVE	DW	STRINGS
CMDBUF	DB	80H,0
	RB	80H
DISKNO	RB	1
DISKSAV	RB	1
SAVUSR	RB	1
SAVEOUT	RB	1
MECHDLY	RB	1
SENDFLG	RB	1
NBSAVE	RW	1
BGNMS	RW	1
FILECT	RB	2
SNAMECT RB	1
FTYCNT	RB	1
	RB	100
FCB3	RB	33
FCB4	RB	33
FCBBUF	RB	15

;Multi-file access work area

MFREQ	RB	12	;REQ NAME
MFCUR	RB	12	;CURR NAME

;Unitialized storage for DIRLST

SRCHFCB	RB	33
NAMEGD	RB	1
NAMECT	RB	1
BMAX	RW	1	;HIGHEST BLOCK NUMBER ON DRIVE
BMASK	RB	1	;(RECORDS/BLOCK)-1
BSHIFTF RB	1	;NUMBER OF SHIFTS TO MULTIPLY BY REC/BLOCK
;
STACK	RW	200H
STACKTOP EQU	Offset $
SAVESS	DW	0
SAVESP	DW	0
;
DBUF	RB	DBUFSIZ*1024
NAMEBUF	RB	64*12
;
BOTTRAM	EQU	(OFFSET $) + 0FFH AND 0FF00H
	RB	CAPTURE*1024
XAST	EQU	(OFFSET $) + 0FFH AND 0FF00H
;
;
	  END