;
firstoclear:
;
; Batch stuff
bgnms:	ds	2;	Start address of filenames in TBUFF
blokk:	ds	2;	# of 2k blocks required by remote
bchflg:	ds	1;	Batch mode flag
fcbbuf:	ds	19;	Batch filename from command line nnD:FN.FT<b>
;			and allow for future user field. ???
filcnt:	ds	1;	# of files in batch mode
fntbuf:	ds	13;	to display file name transferred
;
fstflg:	ds	1;	Set to 1 when command line scan done
ftycnt:	ds	1
;
; mfnam variables
mfirst:	ds	1;	Non-zero when in midst of multi-file access
mfbase:	ds	12;	Base file name for mfnam (pattern)
mflast:	ds	12;	Last file name found by mfnam
;
namect:	ds	1;	# of names on command line
nbsave:	ds	2;	Start address in NAMBUF for next file
shocnt:	ds	1;	Counter to show files left
totrec:	ds	2;	Total records to be sent
memfcb:	ds	16;	Library name (16 bytes rqd) (was blkd)
blkshf:	ds	1;	CPM disk parameter
blkmax:	ds	2
;
dusave:	ds	4;	Buffer for drive/user
dud:	ds	1;	Specified disk
duu:	ds	1;	Specified user
actdrv:	ds	1;	Actual drive currently selected
actusr:	ds	1;	Actual user currently selected
;
; Library access
dirsiz:	ds	2;	Directory size
index:	ds	2;	Index into directory
;
; Saved program entry conditions
olddrv:	ds	1;	Save original drive number
oldusr:	ds	1;	Save original user number
oldbd:	ds	1;	Save original stops/parity/baud
wpmask:	ds	2;	Save original write protect vector
;
optsav:	ds	1;	Save option here for carrier loss
prvtfl:	ds	1;	Private user area option flag
rcvcnt:	ds	1;	Record number received
rcvdrv:	ds	1;	Requested drive number
rcvtry:	ds	1;	Keeps track of number of attempts
sndflg:	ds	1;	non-zero for receive, 0 for send
chkeot:	ds	1;	Prevents locking up after an EOT
crcflg:	ds	1;	For sending checksum rather than CRC
eoflg:	ds	1;	'EOF' flag (1=yes)
errct:	ds	1;	Error count
frstim:	ds	1;	Turned on after first 'SOH' received
gotone:	ds	1;	Prevents asking for a description
kflg:	ds	1;	For sending 1k blocks
;
remoff:	ds	1;	CTYPE local-console-only flag
;
accerr:	ds	2;	No 'ACK' error count for 1k ratio
crcval:	ds	2;	Current CRC value
rcnt:	ds	2;	Record count
recdno:	ds	2;	Current record number
rcdcnt:	ds	2;	Used in sending the record header
recptr:	ds	2;	initially dbuf
recnbf:	ds	2;	Number of records in the buffer
savehl:	ds	2;	Saves TBUF command line address
tlimit:	ds	1;	Storage for MXTIME and status
;
lastoclear:
	ds	60;	Min. area for stack
;
	org	($+127)/128*128
cmdbuf:	ds	128;		Save TBUF here in batch mode
stack	equ	cmdbuf-2;	holds CCP return adr.
nambuf:	ds	12*256;		Room for 256 batch filenames
dbuf:	ds	bufsiz*1024;	16k disk buffer
bufstr	equ	dbuf+126;	For file length in batch mode
lastmem	equ	$