.title k11dat .ident /8.0.01/ .psect $rwdat ,rw,d,gbl,rel,con rwdata == . kbiost::.blkw 2 ; for RSXM/M+ terminal io status 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 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 sendly::.blkw 1 ; wait before sending SINIT pauset::.blkw 1 ; wait before sending a packet defdir::.blkb 30 ; 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 120 ; original send filespec filnam::.blkb 120 ; 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 trace:: .blkw 1 ; for file and packet logging debug:: .blkw 1 ; console debugging sermod::.blkw 1 ; if we are currently a server ; 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 ; 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 imgsav::.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: errtxt::.blkb 102 ; a buffer for SYSERR(errnum,buffer) rwend == . rwsize == rwend-rwdata .blkw 1 stklim::.blkw 600 stack:: .blkw 1 .end