home *** CD-ROM | disk | FTP | other *** search
- ;
- 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 $
- ─¬