home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / b / krtdat.mac < prev    next >
Text File  |  2020-01-01  |  10KB  |  204 lines
  1.     .title    KRTDAT    Global read/write data
  2.     .ident    "V03.63"
  3.  
  4. ; /63/    27-Sep-97  Billy Youdelman  V03.63
  5. ;
  6. ;    add rem.ack
  7. ;    dpmumber conformed to its current 16-bit max value
  8. ;    add spare0 buffer, for small stuff..
  9.  
  10. ; /62/    27-Jul-93  Billy Youdelman  V03.62
  11. ;
  12. ;    use erbfsiz to size errtxt buffer
  13. ;    add pkrate buffer
  14.  
  15. ; /BBS/     1-Dec-91  Billy Youdelman  V03.61
  16. ;
  17. ;    added a general use buffer, some flags and variables
  18. ;    SL editor insert mode default is set on here in edists
  19.  
  20.     .include "IN:KRTMAC.MAC"
  21.     .iif ndf  KRTINC  .error    <; .include for IN:KRTMAC.MAC failed>
  22.  
  23.  
  24.     .sbttl    Global read/write data
  25.     .psect    $rwdata    ,rw,d,lcl,rel,con
  26.  
  27. RWDATA    == .            ; top of this list
  28. $image:: .blkw    1        ; for temp mods to image flag
  29. albuff:: .blkw    1        ; /51/ malloc start of free memory pointter
  30. answer:: .blkw    1        ; /62/ for SET PHONE [NO]ANSWER
  31. argbuf:: .blkw    1        ; /53/ pointer to argument bufferin hi memory
  32. argpnt:: .blkw    1        ; pointer used with argument buffer
  33. at$len:: .blkw    1        ; current file length in blocks
  34. at$sys:: .blkw    1        ; machine and os type from rec'd attributes
  35. b4speed::.blkw    1        ; /BBS/ speed before fallback
  36. blind::     .blkw    1        ; /54/ SET PHONE BLIND
  37. blip::     .blkw    1        ; display stats every "blip" number of packets
  38. break::     .blkw    2        ; /BBS/ break duration (for .mrkt)
  39. cc$max:: .blkw    1        ; /BBS/ number of ^Cs needed to abort
  40. cccnt::     .blkw    1        ; number of ^Cs typed so far
  41. charin:: .blkw    2        ; /43/ total data bytes in
  42. charou:: .blkw    2        ; /43/ total data bytes out
  43. chksiz:: .blkw    1        ; current checksum size (length in bytes)
  44. chktyp:: .blkw    1        ; current checksum type
  45. cl.pri:: .blkw    1        ; /BBS/ run TSX handler at this priority
  46. clkflg:: .blkw    1        ; /BBS/ store the clock rate here
  47. cmdadr:: .blkw    1        ; saved address of command routine
  48. cmdbuf:: .blkw    1        ; /53/ pointer to command line input buffer
  49. cmdlun:: .blkw    1        ; current command file lun
  50. cmdnum:: .blkw    1        ; index into the current command list
  51. con8bi:: .blkw    1        ; if <> we pass eight bits to console
  52. conesc:: .blkw    1        ; escape character for CONNECT
  53. conmsg:: .blkw    1        ; /BBS/ flag to hold CONNECT sign-on
  54. conpar:: .blkb    20        ; other Kermit's sinit parameters
  55. csi.fak::.blkw    1        ; /62/ if <> use fake CSI comma parser
  56. ctlflgs::.blkb    <1.+32.+1.+32.>    ; /63/ DEL&200 ,NUL..US ,DEL ,<NUL..US>&200
  57. datauk:: .blkw    1        ; /62/ data unknown loop counter
  58. defpri:: .blkw    1        ; /BBS/ TSX priority when Kermit was started
  59. diatmo:: .blkw    1        ; /46/ SET DIAL TIME-OUT
  60. do8bit:: .blkw    1        ; if <> doing 8-bit prefixing
  61. doattr:: .blkw    1        ; if 0 don't send attribute packets
  62. doauto:: .blkw    1        ; if <> check list for binary file type match
  63. dolong:: .blkw    1        ; /42/ if <> do long packets
  64. dorpt::     .blkw    1        ; if <> do repeat counts
  65. ;doslid::.blkw    1        ; /42/ if <> do sliding windows
  66. dowild:: .blkw    1        ; /63/ if 0 wildcarding must be explicit
  67. dpnumb:: .blkw    1        ; /63/ serial number of data packet
  68. duplex:: .blkw    1        ; if 0, full (default), else half
  69. ebquot:: .blkw    1        ; 8-bit prefixing quote char
  70. edilen:: .blkw    1        ; SL current command line length
  71. edipos:: .blkw    1        ; SL current cursor position
  72. errtxt:: .blkb    erbfsiz+2    ; /62/ buffer for syserr(errnum,errtxt)
  73. exieof:: .blkw    1        ; /45/ SET EOF [NO]EXIT
  74. exstal:: .blkw    1        ; /41/ take file current line number pointer
  75. filein:: .blkw    2        ; /43/ file data bytes in
  76. fileou:: .blkw    2        ; /43/ file data bytes out
  77. filpro:: .blkw    1        ; if <> don't overwrite files
  78. getcro:: .blkw    1        ; alternate address for get char routine
  79. handch:: .blkw    1        ; handshake char (for IBM systems)
  80. image::     .blkw    1        ; if <> in image mode
  81. incfile::.blkw    1        ; /BBS/ set <> to keep incomplete file
  82. incpar:: .blkw    1        ; /56/ parity was found in rec'd SOH char
  83. index::     .blkw    1        ; index into directory, for wildcarded lookups
  84. infoms:: .blkw    1        ; /41/ if <> display information messages
  85. initry:: .blkw    1        ; /BBS/ number of retries for init packet only
  86. inopn::     .blkw    1        ; did sensw ever open anything?
  87. inprog:: .blkw    1        ; /BBS/ packets in progress flag
  88. inserv:: .blkw    1        ; currently we are a server
  89. jobtyp:: .blkw    1        ; /45/ 0 for interactive, <> for batch
  90. lastcmd::.blkw    1        ; /BBS/ last command's dispatch address
  91. lastli:: .blkw    ln$cnt+1    ; /BBS/ SL previous commands pointers
  92. linkst:: .blkw    1        ; if <> the link device is active
  93. locase:: .blkw    1        ; /BBS/ if <> pass lower case file name
  94. logini:: .blkw    1        ; if <> cursor is not on a newline at column 1
  95. maxtry:: .blkw    1        ; maximum number of retries for data packets
  96. mcrcmd:: .blkw    1        ; if <> it's a MCR/CCL command line
  97. milnet:: .blkw    1        ; /BBS/ if <> send XONs when first CONNECTing
  98. modem::     .blkb    40        ; /37/ ascii modem name
  99. modtype::.blkw    1        ; /BBS/ address of modem data structure
  100. mready:: .blkw    1        ; /BBS/ if <> modem is initialized to dial out
  101. msgtim:: .blkw    1        ; /43/ warning message already done flag
  102. nakrec:: .blkw    1        ; /BBS/ anti-resonating NAK shift register
  103. nextone::.blkw    1        ; /62/ pointer to the next filespec in argbuf
  104. numtry:: .blkw    1        ; number of retries currently attempted
  105. outlun:: .blkw    1        ; zero for TT, else lun.ou
  106. outopn:: .blkw    1        ; did recsw ever create anything?
  107. paknum:: .blkw    1        ; current packet serial number mod 64
  108. parity:: .blkw    1        ; save parity setting here
  109. pauset:: .blkw    1        ; wait before sending each packet
  110. pcnt.n:: .blkw    2        ; /43/ NAKs received count
  111. pcnt.r:: .blkw    2*34        ; rpack packet counts by type
  112. pcnt.s:: .blkw    2*34        ; spack packet counts by type
  113. pcnt.t:: .blkw    2        ; /44/ time-out count
  114. pf2$ok:: .blkw    1        ; /BBS/ if <> off PF2 can't overlay HELP
  115. phnum::     .blkw    1        ; /40/ last phone number dialed
  116. pkrate:: .blkw    4        ; /62/ last packet start & duration
  117. pnhead:: .blkw    1        ; /45/ listhead for SET PHONE numbers
  118. ports::     .blkb    ln$max        ; /BBS/ store TSX ports to try here
  119. prexon:: .blkw    1        ; /53/ if <> prefix packets with an XON
  120. pulse::     .blkw    1        ; /54/ SET PHONE PULSE/TONE
  121. qedtst:: .blkw    1        ; /63/ # .gtim loops to find clock ticking
  122. qu.ini:: .blkw    1        ; /BBS/ store SET TT [NO]QUIET here
  123. ranerr:: .blkw    1        ; if <> generate random checksum errors
  124. rawfil:: .blkw    1        ; /54/ SET FILE NAMING
  125. rdrate:: .blkw    3        ; /56/ exec I/O stats /62/ 3 words
  126. recbit:: .blkw    1        ; /43/ find out if parity was on
  127. reclng:: .blkw    1        ; /42/ max size I can read
  128. recsop:: .blkw    1        ; SET RECEIVE START-OF-PACKET
  129. rectim:: .blkw    1        ; /62/ SET RECEIVE TIME-OUT
  130. rem.ack::.blkw    1        ; /63/ if <> ACK rec'd for REMOTE command
  131. remote:: .blkw    1        ; if <> we are remote
  132. restof:: .blkw    1        ; /BBS/ pointer to rest of args in argbuf
  133. rptcou:: .blkw    1        ; number of repeated chars in a string
  134. rptini:: .blkw    1        ; repeat init, meaning first time through proc
  135. rptlas:: .blkw    1        ; the last char when checking repeats
  136. rptquo:: .blkw    1        ; prefix char for repeat quoting
  137. rptsav:: .blkw    1        ; save failed char in repeat encoding
  138. rtvol::     .blkw    1        ; if <> do dir disk volume id test
  139. seed::     .blkw    1        ; to generate random errors for debugging
  140. senlen:: .blkw    1        ; /62/ save SET SEND p.spsiz
  141. senlng:: .blkw    1        ; /42/ max size I am allowed to send
  142. sendly:: .blkw    1        ; wait before sending sinit
  143. senpar:: .blkb    20        ; our sinit parameters vector
  144. sensop:: .blkw    1        ; SET SEND START-OF-PACKET
  145. sentim:: .blkw    1        ; /62/ SET SEND TIME-OUT
  146. senwin:: .blkw    1        ; /42/ sliding windows not yet here..
  147. sertim:: .blkw    1        ; time-out waiting for server command
  148. serwai:: .blkw    1        ; SET SERVER TIME-OUT
  149. set8bi:: .blkw    1        ; if <> set bit seven on char
  150. setchk:: .blkw    1        ; /62/ save SET BLO here
  151. setrpt:: .blkw    1        ; used to set repeat encoding on/off
  152. settle:: .blkw    1        ; /BBS/ modem settle ticks on reset
  153. signon:: .blkw    1        ; /BBS/ if <> sign-on text has been displayed
  154. size::     .blkw    1        ; size of last call to buffer_fill
  155. skipfil::.blkw    1        ; /BBS/ copy of inc-file-disp to file closer
  156. skipfl:: .blkw    1        ; should we send a eof$discard packet?
  157. sl.ked:: .blkw    1        ; /BBS/ make <> for SL's KED mode
  158. sl.on::     .blkw    1        ; /BBS/ make <> to turn on SL
  159. snd8bi:: .blkw    1        ; local do 8-bit prefixing flag
  160. spare0:: .blkb    32.        ; /63/ temp buffer, for small stuff..
  161.  SP0SIZ     ==    <.-spare0>    ; /63/ size of above spare0 buffer
  162. spare1:: .blkb    256.        ; /BBS/ temp buffer, max SVID filespec
  163.  SP1SIZ     ==    <.-spare1>    ; /63/ size of above spare1 buffer
  164. sparsz:: .blkw    1        ; size of our sinit packet
  165. state::     .blkw    1        ; current recsw or sensw state
  166. summary::.blkw    1        ; /BBS/ if <> do dir summary only
  167. sy.ini:: .blkw    1        ; init file is executing flag
  168. tgetad:: .blkw    1        ; get text address for textsrc macro
  169. times::     .blkw    10        ; /43/ time stamp stats
  170. tk.err:: .blkw    1        ; /BBS/ format init file error message display
  171. trace::     .blkw    1        ; file and packet logging status word
  172. tsxcl::     .blkw    1        ; if <> it's TSX and CL
  173. tt$io::     .blkw    1        ; /62/ if <> do I/O through TT
  174. ttname:: .blkb    16        ; our current link device ascii name
  175. ttpar2:: .blkw    1        ; /BBS/ $tcfig saved here
  176. ttparm:: .blkw    1        ; /BBS/ jsw stored here
  177. undchr:: .blkb    2        ; /BBS/ SL undel char buffer
  178. undlin:: .blkb    ln$max+2    ; /BBS/ SL undel word/line buffer
  179. units::     .blkb    16.        ; /BBS/ store CL unit numbers to try here
  180. vttype:: .blkw    1        ; the terminal type
  181. warn8d:: .blkw    1        ; /BBS/ 8-bit quote warning has been done flag
  182. wasmore::.blkw    1        ; /62/ flag for multiple arguments display
  183. wasnul:: .blkw    1        ; /45/ for "?" processing in the command line
  184. xgottn:: .blkw    1        ; server got an "X" packet
  185. xmode::     .blkw    1        ; if <> doing text output to TT
  186. xredial::.blkw    1        ; /BBS/ if <> redial (retry) a failed call
  187. xresult::.blkb    4        ; /BBS/ SET PHONE XMODE
  188. RWSIZE     == <.-rwdata>        ; end of r/w data zero'd by start-up init
  189.  
  190.  
  191.     .sbttl    Data to be preserved at start-up
  192.  
  193. edicmd::.word    -1        ; SL hasn't saved anything yet
  194. edists::.word    1        ; /BBS/ SL insert mode is init'd on here
  195. xprint::.word    0        ; /62/ if <> dump TT to LP, here for safety..
  196. prompt::.asciz    "KRT> "        ; /63/ say this is a special version
  197.     .even            ; /62/ prompt buffer = 32. bytes total
  198.     .blkb    26.        ; /62/ if stack overflows, make it obvious!
  199. stklim::.blkw    400+<$allsiz/2>    ; /62/ the stack, allowing for max long packet
  200. stack::    .word    0        ; stack starts here..
  201. STKSIZ    == <.-stklim>        ; /62/ for debugger display
  202.  
  203.     .end
  204.