home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / d / k10glb.mac < prev    next >
Text File  |  2020-01-01  |  9KB  |  338 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. ;   0260  1    
  57. ;   0261  1    %SBTTL 'Global storage for KERMSG'
  58. ;   0262  1    
  59. ;   0263  1    GLOBAL
  60. ;   0264  1    !
  61. ;   0265  1    ! Receive parameters
  62. ;   0266  1    !
  63. ;   0267  1        RCV%PKT%SIZE,                ! Receive packet size
  64. ;   0268  1        RCV%NPAD,                    ! Padding length
  65. ;   0269  1        RCV%PADCHAR,                ! Padding character
  66. ;   0270  1        RCV%TIMEOUT,                ! Time out
  67. ;   0271  1        RCV%EOL,                    ! EOL character
  68. ;   0272  1        RCV%QUOTE%CHR,                ! Quote character
  69. ;   0273  1        RCV%SOH,                    ! Start of header character
  70. ;   0274  1        RCV%8QUOTE%CHR,                ! 8-bit quoting character
  71. ;   0275  1    !
  72. ;   0276  1    ! Miscellaneous parameters
  73. ;   0277  1    !
  74. ;   0278  1        SET%REPT%CHR,                ! Repeat character
  75. ;   0279  1    !
  76. ;   0280  1    ! Send parameters
  77. ;   0281  1    !
  78. ;   0282  1        SND%PKT%SIZE,                ! Send packet size
  79. ;   0283  1        SND%NPAD,                    ! Padding length
  80. ;   0284  1        SND%PADCHAR,                ! Padding character
  81. ;   0285  1        SND%TIMEOUT,                ! Time out
  82. ;   0286  1        SND%EOL,                    ! EOL character
  83. ;   0287  1        SND%QUOTE%CHR,                ! Quote character
  84. ;   0288  1        SND%SOH,                    ! Start of header character
  85. ;   0289  1        SEND%TIMEOUT,                ! Time out
  86. ;   0290  1    !
  87. ;   0291  1    ! Server parameters
  88. ;   0292  1    !
  89. ;   0293  1        SRV%TIMEOUT,                ! Amount of time between NAK's in server
  90. ;   0294  1    !
  91. ;   0295  1    ! Statistics
  92. ;   0296  1    !
  93. ;   0297  1        SND%TOTAL%CHARS,                ! Total characters sent
  94. ;   0298  1        RCV%TOTAL%CHARS,                ! Total characters received
  95. ;   0299  1        SND%DATA%CHARS,                ! Total number of data characters sent
  96. ;   0300  1        RCV%DATA%CHARS,                ! Total number of data characters received
  97. ;   0301  1        SND%NAKS,                    ! Total NAKs sent
  98. ;   0302  1        RCV%NAKS,                    ! Total NAKs received
  99. ;   0303  1        SND%COUNT,                    ! Count of total number of packets
  100. ;   0304  1        RCV%COUNT,                    ! Count of total number packets received
  101. ;   0305  1        SMSG%COUNT,                    ! Total number of packets sent
  102. ;   0306  1        RMSG%COUNT,                    ! Total number of packets received
  103. ;   0307  1        SMSG%TOTAL%CHARS,                ! Total chars sent this file xfer
  104. ;   0308  1        RMSG%TOTAL%CHARS,                ! Total chars rcvd this file xfer
  105. ;   0309  1        SMSG%DATA%CHARS,                ! Total data chars this file xfer
  106. ;   0310  1        RMSG%DATA%CHARS,                ! Total data chars this file xfer
  107. ;   0311  1        SMSG%NAKS,                    ! Total number of NAKs this file xfer
  108. ;   0312  1        RMSG%NAKS,                    ! Total number of NAKs received
  109. ;   0313  1        XFR%TIME,                    ! Amount of time last xfr took
  110. ;   0314  1        TOTAL%TIME,                    ! Total time of all xfrs
  111. ;   0315  1                                !  this file xfer
  112. ;   0316  1        LAST%ERROR : VECTOR [CH$ALLOCATION (MAX%MSG + 1)],    ! Last error message
  113. ;   0317  1    !
  114. ;   0318  1    ! Misc constants.
  115. ;   0319  1    !
  116. ;   0320  1        FILE%NAME : VECTOR [CH$ALLOCATION (MAX%FILE%NAME)],
  117. ;   0321  1        FILE%SIZE,
  118. ;   0322  1        SI%RETRIES,                    ! Send init retries to attempt
  119. ;   0323  1        PKT%RETRIES,                ! Number of retries to try for a message
  120. ;   0324  1        DELAY,                    ! Amount of time to delay
  121. ;   0325  1        DUPLEX,                    ! Type of connection (half or full)
  122. ;   0326  1        PARITY%TYPE,                ! Type of parity to use
  123. ;   0327  1        DEV%PARITY%FLAG,                ! True if output device does
  124. ;   0328  1                                !  parity, false if we do it
  125. ;   0329  1        CHKTYPE,                    ! Type of block check desired
  126. ;   0330  1        ABT%FLAG,                    ! True if aborted file should be discarded
  127. ;   0331  1        DEBUG%FLAG,                    ! Debugging mode on/off
  128. ;   0332  1        WARN%FLAG,                    ! File warning flag
  129. ;   0333  1    !![2.0.003]    IBM%FLAG,            ! Talking to an IBM system
  130. ;   0334  1        IBM%CHAR,                    ! Turnaround character for IBM mode
  131. ;   0335  1        ECHO%FLAG,                    ! Local echo flag
  132. ;   0336  1        CONNECT%FLAG,                ! Connected flag; True if
  133. ;   0337  1                                !  terminal and SET LINE are
  134. ;   0338  1                                !  the same
  135. ;   0339  1        ABT%CUR%FILE,                ! Abort current file
  136. ;   0340  1        ABT%ALL%FILE,                ! Abort all files in stream
  137. ;   0341  1        TYP%STS%FLAG,                ! Type status next message
  138. ;   0342  1        TY%FIL,                    ! Type file specs
  139. ;   0343  1        TY%PKT,                    ! Type packet info
  140. ;   0344  1        FIL%NORMAL%FORM,                ! Use normal form file names
  141. ;   0345  1        GEN%1DATA : VECTOR [CH$ALLOCATION (MAX%MSG)],! Data for generic command
  142. ;   0346  1        GEN%1SIZE,                    ! Size of data in GEN%1DATA
  143. ;   0347  1        GEN%2DATA : VECTOR [CH$ALLOCATION (MAX%MSG)],! Second argument for generic command
  144. ;   0348  1        GEN%2SIZE,                    ! Size of data in GEN%2DATA
  145. ;   0349  1        GEN%3DATA : VECTOR [CH$ALLOCATION (MAX%MSG)],! Third arg for generic command
  146. ;   0350  1        GEN%3SIZE;                    ! Size of data in GEN%3DATA
  147. ;   0351  1    %SBTTL 'End of KERGLB'
  148. ;   0352  1    END                        ! End of module
  149. ;   0353  1    
  150. ;   0354  0    ELUDOM
  151.  
  152.  
  153.     TITLE    KERGLB
  154.     TWOSEG
  155.  
  156.  
  157.     .REQUEST  SYS:B361LB.REL
  158.  
  159.  
  160.     RELOC    0
  161. RCV%PKT%SIZE::
  162.     BLOCK    1
  163. RCV%NPAD::
  164.     BLOCK    1
  165. RCV%PADCHAR::
  166.     BLOCK    1
  167. RCV%TIMEOUT::
  168.     BLOCK    1
  169. RCV%EOL::
  170.     BLOCK    1
  171. RCV%QUOTE%CHR::
  172.     BLOCK    1
  173. RCV%SOH::
  174.     BLOCK    1
  175. RCV%8QUOTE%CHR::
  176.     BLOCK    1
  177. SET%REPT%CHR::
  178.     BLOCK    1
  179. SND%PKT%SIZE::
  180.     BLOCK    1
  181. SND%NPAD::
  182.     BLOCK    1
  183. SND%PADCHAR::
  184.     BLOCK    1
  185. SND%TIMEOUT::
  186.     BLOCK    1
  187. SND%EOL::
  188.     BLOCK    1
  189. SND%QUOTE%CHR::
  190.     BLOCK    1
  191. SND%SOH::
  192.     BLOCK    1
  193. SEND%TIMEOUT::
  194.     BLOCK    1
  195. SRV%TIMEOUT::
  196.     BLOCK    1
  197. SND%TOTAL%CHARS::
  198.     BLOCK    1
  199. RCV%TOTAL%CHARS::
  200.     BLOCK    1
  201. SND%DATA%CHARS::
  202.     BLOCK    1
  203. RCV%DATA%CHARS::
  204.     BLOCK    1
  205. SND%NAKS::
  206.     BLOCK    1
  207. RCV%NAKS::
  208.     BLOCK    1
  209. SND%COUNT::
  210.     BLOCK    1
  211. RCV%COUNT::
  212.     BLOCK    1
  213. SMSG%COUNT::
  214.     BLOCK    1
  215. RMSG%COUNT::
  216.     BLOCK    1
  217. SMSG%TOTAL%CHARS::
  218.     BLOCK    1
  219. RMSG%TOTAL%CHARS::
  220.     BLOCK    1
  221. SMSG%DATA%CHARS::
  222.     BLOCK    1
  223. RMSG%DATA%CHARS::
  224.     BLOCK    1
  225. SMSG%NAKS::
  226.     BLOCK    1
  227. RMSG%NAKS::
  228.     BLOCK    1
  229. XFR%TIME::
  230.     BLOCK    1
  231. TOTAL%TIME::
  232.     BLOCK    1
  233. LAST%ERROR::
  234.     BLOCK    311
  235. FILE%NAME::
  236.     BLOCK    33
  237. FILE%SIZE::
  238.     BLOCK    1
  239. SI%RETRIES::
  240.     BLOCK    1
  241. PKT%RETRIES::
  242.     BLOCK    1
  243. DELAY:: BLOCK    1
  244. DUPLEX::BLOCK    1
  245. PARITY%TYPE::
  246.     BLOCK    1
  247. DEV%PARITY%FLAG::
  248.     BLOCK    1
  249. CHKTYPE::
  250.     BLOCK    1
  251. ABT%FLAG::
  252.     BLOCK    1
  253. DEBUG%FLAG::
  254.     BLOCK    1
  255. WARN%FLAG::
  256.     BLOCK    1
  257. IBM%CHAR::
  258.     BLOCK    1
  259. ECHO%FLAG::
  260.     BLOCK    1
  261. CONNECT%FLAG::
  262.     BLOCK    1
  263. ABT%CUR%FILE::
  264.     BLOCK    1
  265. ABT%ALL%FILE::
  266.     BLOCK    1
  267. TYP%STS%FLAG::
  268.     BLOCK    1
  269. TY%FIL::BLOCK    1
  270. TY%PKT::BLOCK    1
  271. FIL%NORMAL%FORM::
  272.     BLOCK    1
  273. GEN%1DATA::
  274.     BLOCK    311
  275. GEN%1SIZE::
  276.     BLOCK    1
  277. GEN%2DATA::
  278.     BLOCK    311
  279. GEN%2SIZE::
  280.     BLOCK    1
  281. GEN%3DATA::
  282.     BLOCK    311
  283. GEN%3SIZE::
  284.     BLOCK    1
  285.  
  286.  
  287. FNM%NORMAL==:        1
  288. FNM%FULL==:        2
  289. FNM%UNTRAN==:        4
  290. PR%MIN==:        0
  291. PR%NONE==:        0
  292. PR%MARK==:        1
  293. PR%EVEN==:        2
  294. PR%ODD==:        3
  295. PR%SPACE==:        4
  296. PR%MAX==:        4
  297. GC%MIN==:        1
  298. GC%EXIT==:        1
  299. GC%DIRECTORY==:     2
  300. GC%DISK%USAGE==:    3
  301. GC%DELETE==:        4
  302. GC%TYPE==:        5
  303. GC%HELP==:        6
  304. GC%LOGOUT==:        7
  305. GC%LGN==:        10
  306. GC%CONNECT==:        11
  307. GC%RENAME==:        12
  308. GC%COPY==:        13
  309. GC%WHO==:        14
  310. GC%SEND%MSG==:        15
  311. GC%STATUS==:        16
  312. GC%COMMAND==:        17
  313. GC%KERMIT==:        20
  314. GC%JOURNAL==:        21
  315. GC%VARIABLE==:        22
  316. GC%PROGRAM==:        23
  317. GC%MAX==:        23
  318. DP%FULL==:        0
  319. DP%HALF==:        1
  320. CHK%1CHAR==:        61
  321. CHK%2CHAR==:        62
  322. CHK%CRC==:        63
  323. MAX%MSG==:        1752
  324.  
  325.  
  326.  
  327.  
  328. ; Low  segment length:     890 words
  329. ; High segment length:       0 words
  330.  
  331.  
  332.  
  333.  
  334.  
  335. ; Compilation Complete
  336.  
  337.     END