home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Oakland CPM Archive
/
oakcpm.iso
/
cpm
/
22rsx
/
rxmd.ark
/
RXMDATA.MAC
< prev
next >
Wrap
Text File
|
1985-12-15
|
3KB
|
81 lines
;
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 $
─¬