home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / old / misc / pdp10 / k10glb.mac < prev    next >
Text File  |  2020-01-01  |  9KB  |  327 lines
  1. ;   0001  0    MODULE KERGLB (IDENT = '2.0.003'
  2. ;   0002  0            ) =
  3. ;   0003  1    BEGIN
  4. ;   0004  1
  5. ;   0005  1    SWITCHES LANGUAGE (COMMON);
  6. ;   0006  1
  7. ;   0007  1    !<BLF/WIDTH:100>
  8. ;   0008  1
  9. ;   0009  1    !++
  10. ;   0010  1    ! FACILITY:
  11. ;   0011  1    !
  12. ;   0012  1    !    KERMIT common message processing global storage.
  13. ;   0013  1    !
  14. ;   0014  1    ! ABSTRACT:
  15. ;   0015  1    !
  16. ;   0016  1    !    This module contains all of the global storage locations used
  17. ;   0017  1    !    by KERMSG.  These are in a separate module to make it possible
  18. ;   0018  1    !    to load the global storage into a common under P/OS.
  19. ;   0019  1    !
  20. ;   0020  1    ! ENVIRONMENT:
  21. ;   0021  1    !
  22. ;   0022  1    !    TOPS-10, P/OS, VAX/VMS
  23. ;   0023  1    !
  24. ;   0024  1    ! AUTHOR: Nick Bush, CREATION DATE: 21-December-1983
  25. ;   0025  1    !--
  26. ;   0026  1
  27. ;   0027  1    %SBTTL 'Table of Contents'
  28. ;   0028  1    !
  29. ;   0029  1    ! TABLE OF CONTENTS:
  30. ;   0030  1    !
  31. ;   0031  1    %SBTTL 'Revision History'
  32. ;   0032  1
  33. ;   0033  1    !++
  34. ;   0034  1    !
  35. ;   0035  1    ! 2.0.000    Extract this module from KERMSG.BLI.
  36. ;   0036  1    !
  37. ;   0037  1    ! 2.0.001    By: Robert C. McQueen            On: 16-Feb-1984
  38. ;   0038  1    !        Move SEND%TIMEOUT from KERMSG to this module.
  39. ;   0039  1    !
  40. ;   0040  1    ! 2.0.002    By: Nick Bush                On: 2-April-1984
  41. ;   0041  1    !        Add SRV%TIMEOUT from time between NAK's.
  42. ;   0042  1    !
  43. ;   0043  1    ! 2.0.003    By: David Stevens            On: 29-July-1985
  44. ;   0044  1    !        Remove IBM%FLAG, it is no longer needed
  45. ;   0045  1    !--
  46. ;   0046  1
  47. ;   0047  1    %SBTTL 'Library files'
  48. ;   0048  1    !
  49. ;   0049  1    ! INCLUDE FILES:
  50. ;   0050  1    !
  51. ;   0051  1    !
  52. ;   0052  1    ! KERMIT common definitions
  53. ;   0053  1    !
  54. ;   0054  1
  55. ;   0055  1    REQUIRE 'KERCOM';
  56. ;   0262  1
  57. ;   0263  1    %SBTTL 'Global storage for KERMSG'
  58. ;   0264  1
  59. ;   0265  1    GLOBAL
  60. ;   0266  1    !
  61. ;   0267  1    ! Receive parameters
  62. ;   0268  1    !
  63. ;   0269  1        RCV%PKT%SIZE,                ! Receive packet size
  64. ;   0270  1        RCV%NPAD,                    ! Padding length
  65. ;   0271  1        RCV%PADCHAR,                ! Padding character
  66. ;   0272  1        RCV%TIMEOUT,                ! Time out
  67. ;   0273  1        RCV%EOL,                    ! EOL character
  68. ;   0274  1        RCV%QUOTE%CHR,                ! Quote character
  69. ;   0275  1        RCV%SOH,                    ! Start of header character
  70. ;   0276  1        RCV%8QUOTE%CHR,                ! 8-bit quoting character
  71. ;   0277  1    !
  72. ;   0278  1    ! Miscellaneous parameters
  73. ;   0279  1    !
  74. ;   0280  1        SET%REPT%CHR,                ! Repeat character
  75. ;   0281  1    !
  76. ;   0282  1    ! Send parameters
  77. ;   0283  1    !
  78. ;   0284  1        SND%PKT%SIZE,                ! Send packet size
  79. ;   0285  1        SND%NPAD,                    ! Padding length
  80. ;   0286  1        SND%PADCHAR,                ! Padding character
  81. ;   0287  1        SND%TIMEOUT,                ! Time out
  82. ;   0288  1        SND%EOL,                    ! EOL character
  83. ;   0289  1        SND%QUOTE%CHR,                ! Quote character
  84. ;   0290  1        SND%SOH,                    ! Start of header character
  85. ;   0291  1        SEND%TIMEOUT,                ! Time out
  86. ;   0292  1    !
  87. ;   0293  1    ! Server parameters
  88. ;   0294  1    !
  89. ;   0295  1        SRV%TIMEOUT,                ! Amount of time between NAK's in server
  90. ;   0296  1    !
  91. ;   0297  1    ! Statistics
  92. ;   0298  1    !
  93. ;   0299  1        SND%TOTAL%CHARS,                ! Total characters sent
  94. ;   0300  1        RCV%TOTAL%CHARS,                ! Total characters received
  95. ;   0301  1        SND%DATA%CHARS,                ! Total number of data characters sent
  96. ;   0302  1        RCV%DATA%CHARS,                ! Total number of data characters received
  97. ;   0303  1        SND%NAKS,                    ! Total NAKs sent
  98. ;   0304  1        RCV%NAKS,                    ! Total NAKs received
  99. ;   0305  1        SND%COUNT,                    ! Count of total number of packets
  100. ;   0306  1        RCV%COUNT,                    ! Count of total number packets received
  101. ;   0307  1        SMSG%COUNT,                    ! Total number of packets sent
  102. ;   0308  1        RMSG%COUNT,                    ! Total number of packets received
  103. ;   0309  1        SMSG%TOTAL%CHARS,                ! Total chars sent this file xfer
  104. ;   0310  1        RMSG%TOTAL%CHARS,                ! Total chars rcvd this file xfer
  105. ;   0311  1        SMSG%DATA%CHARS,                ! Total data chars this file xfer
  106. ;   0312  1        RMSG%DATA%CHARS,                ! Total data chars this file xfer
  107. ;   0313  1        SMSG%NAKS,                    ! Total number of NAKs this file xfer
  108. ;   0314  1        RMSG%NAKS,                    ! Total number of NAKs received
  109. ;   0315  1        XFR%TIME,                    ! Amount of time last xfr took
  110. ;   0316  1        TOTAL%TIME,                    ! Total time of all xfrs
  111. ;   0317  1                                !  this file xfer
  112. ;   0318  1        LAST%ERROR : VECTOR [CH$ALLOCATION (MAX%MSG + 1)],    ! Last error message
  113. ;   0319  1    !
  114. ;   0320  1    ! Misc constants.
  115. ;   0321  1    !
  116. ;   0322  1        FILE%NAME : VECTOR [CH$ALLOCATION (MAX%FILE%NAME)],
  117. ;   0323  1        FILE%SIZE,
  118. ;   0324  1        SI%RETRIES,                    ! Send init retries to attempt
  119. ;   0325  1        PKT%RETRIES,                ! Number of retries to try for a message
  120. ;   0326  1        DELAY,                    ! Amount of time to delay
  121. ;   0327  1        DUPLEX,                    ! Type of connection (half or full)
  122. ;   0328  1        PARITY%TYPE,                ! Type of parity to use
  123. ;   0329  1        DEV%PARITY%FLAG,                ! True if output device does
  124. ;   0330  1                                !  parity, false if we do it
  125. ;   0331  1        CHKTYPE,                    ! Type of block check desired
  126. ;   0332  1        ABT%FLAG,                    ! True if aborted file should be discarded
  127. ;   0333  1        DEBUG%FLAG,                    ! Debugging mode on/off
  128. ;   0334  1        WARN%FLAG,                    ! File warning flag
  129. ;   0335  1    !![2.0.003]    IBM%FLAG,            ! Talking to an IBM system
  130. ;   0336  1        IBM%CHAR,                    ! Turnaround character for IBM mode
  131. ;   0337  1        ECHO%FLAG,                    ! Local echo flag
  132. ;   0338  1        CONNECT%FLAG,                ! Connected flag; True if
  133. ;   0339  1                                !  terminal and SET LINE are
  134. ;   0340  1                                !  the same
  135. ;   0341  1        ABT%CUR%FILE,                ! Abort current file
  136. ;   0342  1        ABT%ALL%FILE,                ! Abort all files in stream
  137. ;   0343  1        TYP%STS%FLAG,                ! Type status next message
  138. ;   0344  1        TY%FIL,                    ! Type file specs
  139. ;   0345  1        TY%PKT,                    ! Type packet info
  140. ;   0346  1        FIL%NORMAL%FORM,                ! Use normal form file names
  141. ;   0347  1        GEN%1DATA : VECTOR [CH$ALLOCATION (MAX%MSG)],! Data for generic command
  142. ;   0348  1        GEN%1SIZE,                    ! Size of data in GEN%1DATA
  143. ;   0349  1        GEN%2DATA : VECTOR [CH$ALLOCATION (MAX%MSG)],! Second argument for generic command
  144. ;   0350  1        GEN%2SIZE,                    ! Size of data in GEN%2DATA
  145. ;   0351  1        GEN%3DATA : VECTOR [CH$ALLOCATION (MAX%MSG)],! Third arg for generic command
  146. ;   0352  1        GEN%3SIZE;                    ! Size of data in GEN%3DATA
  147. ;   0353  1    %SBTTL 'End of KERGLB'
  148. ;   0354  1    END                        ! End of module
  149. ;   0355  1
  150. ;   0356  0    ELUDOM
  151.  
  152.     TITLE    KERGLB
  153.     TWOSEG
  154.  
  155.     .REQUEST  REL:B361LB.REL
  156.  
  157.     RELOC    0
  158. RCV%PKT%SIZE::
  159.     BLOCK    1
  160. RCV%NPAD::
  161.     BLOCK    1
  162. RCV%PADCHAR::
  163.     BLOCK    1
  164. RCV%TIMEOUT::
  165.     BLOCK    1
  166. RCV%EOL::
  167.     BLOCK    1
  168. RCV%QUOTE%CHR::
  169.     BLOCK    1
  170. RCV%SOH::
  171.     BLOCK    1
  172. RCV%8QUOTE%CHR::
  173.     BLOCK    1
  174. SET%REPT%CHR::
  175.     BLOCK    1
  176. SND%PKT%SIZE::
  177.     BLOCK    1
  178. SND%NPAD::
  179.     BLOCK    1
  180. SND%PADCHAR::
  181.     BLOCK    1
  182. SND%TIMEOUT::
  183.     BLOCK    1
  184. SND%EOL::
  185.     BLOCK    1
  186. SND%QUOTE%CHR::
  187.     BLOCK    1
  188. SND%SOH::
  189.     BLOCK    1
  190. SEND%TIMEOUT::
  191.     BLOCK    1
  192. SRV%TIMEOUT::
  193.     BLOCK    1
  194. SND%TOTAL%CHARS::
  195.     BLOCK    1
  196. RCV%TOTAL%CHARS::
  197.     BLOCK    1
  198. SND%DATA%CHARS::
  199.     BLOCK    1
  200. RCV%DATA%CHARS::
  201.     BLOCK    1
  202. SND%NAKS::
  203.     BLOCK    1
  204. RCV%NAKS::
  205.     BLOCK    1
  206. SND%COUNT::
  207.     BLOCK    1
  208. RCV%COUNT::
  209.     BLOCK    1
  210. SMSG%COUNT::
  211.     BLOCK    1
  212. RMSG%COUNT::
  213.     BLOCK    1
  214. SMSG%TOTAL%CHARS::
  215.     BLOCK    1
  216. RMSG%TOTAL%CHARS::
  217.     BLOCK    1
  218. SMSG%DATA%CHARS::
  219.     BLOCK    1
  220. RMSG%DATA%CHARS::
  221.     BLOCK    1
  222. SMSG%NAKS::
  223.     BLOCK    1
  224. RMSG%NAKS::
  225.     BLOCK    1
  226. XFR%TIME::
  227.     BLOCK    1
  228. TOTAL%TIME::
  229.     BLOCK    1
  230. LAST%ERROR::
  231.     BLOCK    311
  232. FILE%NAME::
  233.     BLOCK    33
  234. FILE%SIZE::
  235.     BLOCK    1
  236. SI%RETRIES::
  237.     BLOCK    1
  238. PKT%RETRIES::
  239.     BLOCK    1
  240. DELAY:: BLOCK    1
  241. DUPLEX::BLOCK    1
  242. PARITY%TYPE::
  243.     BLOCK    1
  244. DEV%PARITY%FLAG::
  245.     BLOCK    1
  246. CHKTYPE::
  247.     BLOCK    1
  248. ABT%FLAG::
  249.     BLOCK    1
  250. DEBUG%FLAG::
  251.     BLOCK    1
  252. WARN%FLAG::
  253.     BLOCK    1
  254. IBM%CHAR::
  255.     BLOCK    1
  256. ECHO%FLAG::
  257.     BLOCK    1
  258. CONNECT%FLAG::
  259.     BLOCK    1
  260. ABT%CUR%FILE::
  261.     BLOCK    1
  262. ABT%ALL%FILE::
  263.     BLOCK    1
  264. TYP%STS%FLAG::
  265.     BLOCK    1
  266. TY%FIL::BLOCK    1
  267. TY%PKT::BLOCK    1
  268. FIL%NORMAL%FORM::
  269.     BLOCK    1
  270. GEN%1DATA::
  271.     BLOCK    311
  272. GEN%1SIZE::
  273.     BLOCK    1
  274. GEN%2DATA::
  275.     BLOCK    311
  276. GEN%2SIZE::
  277.     BLOCK    1
  278. GEN%3DATA::
  279.     BLOCK    311
  280. GEN%3SIZE::
  281.     BLOCK    1
  282.  
  283. FNM%NORMAL==:        1
  284. FNM%FULL==:        2
  285. FNM%UNTRAN==:        4
  286. PR%MIN==:        0
  287. PR%NONE==:        0
  288. PR%MARK==:        1
  289. PR%EVEN==:        2
  290. PR%ODD==:        3
  291. PR%SPACE==:        4
  292. PR%MAX==:        4
  293. GC%MIN==:        1
  294. GC%EXIT==:        1
  295. GC%DIRECTORY==:     2
  296. GC%DISK%USAGE==:    3
  297. GC%DELETE==:        4
  298. GC%TYPE==:        5
  299. GC%HELP==:        6
  300. GC%LOGOUT==:        7
  301. GC%LGN==:        10
  302. GC%CONNECT==:        11
  303. GC%RENAME==:        12
  304. GC%COPY==:        13
  305. GC%WHO==:        14
  306. GC%SEND%MSG==:        15
  307. GC%STATUS==:        16
  308. GC%COMMAND==:        17
  309. GC%KERMIT==:        20
  310. GC%JOURNAL==:        21
  311. GC%VARIABLE==:        22
  312. GC%PROGRAM==:        23
  313. GC%MAX==:        23
  314. DP%FULL==:        0
  315. DP%HALF==:        1
  316. CHK%1CHAR==:        61
  317. CHK%2CHAR==:        62
  318. CHK%CRC==:        63
  319. MAX%MSG==:        1752
  320.  
  321. ; Low  segment length:     890 words
  322. ; High segment length:       0 words
  323.  
  324. ; Compilation Complete
  325.  
  326.     END
  327.