.title	k11dat
	.ident	/8.0.01/

	.psect	$rwdat	,rw,d,gbl,rel,con

filsiz	==	128.
rwdata	==	.
prompt::.blkb	40
blip::	.blkw	1			; if zero, no blips, else mod for blips
kbiost::.blkw	2			; for RSXM/M+ terminal io status
altcon::.blkw	1			; for RSXM/M+ connect code type
notatt::.blkw	1			; if <>, server is running detached
vttype::.blkw	1			; the vttypeal type
tcdlu::	.blkw	1			; perhaps change setting of tc.dlu
chario::.blkw	1			; perhaps do rsx packet reads by char
proflg::.blkw	1			; if a pro/350 (?)
tsxflg::.blkw	1			; tsx
tsxcl::	.blkw	1			; tsx and cl:
logini::.blkw	1
consts::.blkw	2			; for the connect command for RSX
tists::	.blkw	2			; for the connect command for RSX
mcrcmd::.blkw	1			; if <>, then we got a mcr/ccl cmd line
filpro::.blkw	1			; if <>, then do not supercede files
binmod::.blkw	1			; for RSTS, something is open mode 1
sy.ini::.blkw	1			; for KERMIT.INI stuff
handch::.blkw	1			; for ibm systems ?
duplex::.blkw	1			; if eq, full (default), else half
sparsz::.blkw	1			; size of our sinit packet
chksiz::.blkw	1			; current checksum size in bytes
chktyp::.blkw	1			; the current checksum type
maxtry::.blkw	1			; maximum number of retries
conesc::.blkw	1			; escape character for connection
sertim::.blkw	1			; timeout waiting for server cmd
inserv::.blkw	1			; currently we are a server
ranerr::.blkw	1			; generate random checksum errors if ne
seed::
testc::	.blkw	1			; for debugging
skipfl::.blkw	1			; should we send a EOF DISCARD packet
parity::.blkw	1			; save parity setting for SHOW command
logfil::.blkb	40			; a log filename for the  SHOW command
cccnt::	.blkw	1			; number of control C's so far
doauto::.blkw	1			; if <>, then do auto binary (default)
sendat::.blkw	1			; if zero, NEVER send attribute packets
sendly::.blkw	1			; wait before sending SINIT
pauset::.blkw	1			; wait before sending a packet
oldpau::.blkw	1			; save the old time for pausing
defdir::.blkb	filsiz+2		; default directory for send and rec
ttparm::.blkb	50			; saved terminal settings
outlun::.blkw	1			; zero for TI else lun.ou
cmdlun::.blkw	1			; current command file lun
cmdadr::.blkw	1			; saved address of command routine
cmdnum::.blkw	1			; index into the current command list
hlpbuf::
cmdbuf::.blkb	120			; 80 byte buffer for reading commands
argbuf::.blkb	120			; also for reading args for commands
hlptop::
srcnam::.blkb	filsiz+2		; original send filespec
filnam::.blkb	filsiz+2		; output from directory lookup routine
index::	.word	0			; index into directory
recpkt::.blkb	210			; 128 byte buffer receive packet buffer
packet::.blkb	210			; a general packet
ttname::.blkb	20			; our current terminal link name
ttdial::.blkb	20			; save the remote name here
ttcons::.blkb	20			; our console name for virtual tty
consav::.blkb	20
trace::	.blkw	1			; for file and packet logging
debug::	.blkw	1			; console debugging
sermod::.blkw	1			; if we are currently a server
con8bi::.blkw	1			; if we pass eight bits to console

;	statistics

reccnt::.blkw	1			; total received count
sencnt::.blkw	1			; total sent count
totp.r::.blkw	34			; total rec  by packet type
totp.s::.blkw	34			; total sent by packet type
pcnt.r::.blkw	34			; packet count by type for RPACK
pcnt.s::.blkw	34			; packet count by type for SPACK
pcnt.n::.blkw	1

;	attribute data

atrctx::.blkw	1			; context for attribute packets

;	connection parameters

senpar::.blkb	20			; remotes connection parameters
conpar::
recpar::.blkb	20			; our connection parameters
setsen::.blkb	20			; we may override the default
setrec::.blkb	20			; save for receive parameters

image::	.blkw	1			; if in image mode
$image::.blkw	1			; save image flag for autobyte
numtry::.blkw	1			; number of retrys
oldtry::.blkw	1			; old value of numtry
paknum::.blkw	1			; current packet number mod 64
remote::.blkw	1			; if <> then we are remote
state::	.blkw	1			; current state
linkst::.blkw	1			; if <> then a link is active
outopn::.blkw	1			; did recsw ever create anything
inopn::	.blkw	1			; did sendsw ever open  anything
size::	.blkw	1			; size of last call to bufferfill
xgottn::.blkw	1			; got an xpacket in server
xmode::	.blkw	1			; if <> then doing text output to ti:
do8bit::.blkw	1			; if <> then doing 8 bit prefixing
snd8bi::.blkw	1
set8bi::.blkw	1			; if <> then set bit seven on character
ebquot::.blkw	1			; if doing 8 bit prefixing, this is it
dorpt::	.blkw	1			; if <>, then do repeat count crap
rptquo::.blkw	1			; the char to use for repeat ('~')
rptcou::.blkw	1
rptsav::.blkw	1
rptlas::.blkw	1
rptini::.blkw	1
setrpt::.blkw	1
errtxt::.blkb	102			; a buffer for SYSERR(errnum,buffer)
rtwork::.blkw	10			; for RT11 exec calls
rtflow::				; for PRO/RT11 XC: interface
conflo::.blkw	1			; for RT11 connect flow control
rtque::	.blkw	12*12			; allocate extra que elements for RT11



;	attributes

at$len::.blkw	1
at$typ::.blkw	1
at$cre::.blkw	1
at$id::	.blkw	1
at$bil::.blkw	1
at$are::.blkw	1
at$pas::.blkw	1
at$bsi::.blkw	1
at$acc::.blkw	1
at$enc::.blkw	1
at$dis::.blkw	1
at$pr0::.blkw	1
at$pr1::.blkw	1
at$sys::.blkw	2
at$for::.blkw	1
at$fab::.blkw	15
at$val::.blkw	1

binlsize ==	40*4
binset::.blkw	1
bintyp::.blkb	binlsize+4



rwend	==	.
rwsize	==	rwend-rwdata
	.blkw	1

stklim::.blkw	600
stack::
	.blkw	1

	.end