home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / b / vmsglb.mar < prev    next >
Text File  |  2020-01-01  |  11KB  |  342 lines
  1. ;   0001  0    MODULE KERGLB (IDENT = '2.0.002'
  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    
  44. ;   0044  1     %SBTTL 'Library files'
  45. ;   0045  1    !
  46. ;   0046  1    ! INCLUDE FILES:
  47. ;   0047  1    !
  48. ;   0048  1    !
  49. ;   0049  1    ! KERMIT common definitions
  50. ;   0050  1    !
  51. ;   0051  1    
  52. ;   0052  1    REQUIRE 'KERCOM';
  53. ;   0261  1    
  54. ;   0262  1     %SBTTL 'Global storage for KERMSG'
  55. ;   0263  1    
  56. ;   0264  1    GLOBAL
  57. ;   0265  1    !
  58. ;   0266  1    ! Receive parameters
  59. ;   0267  1    !
  60. ;   0268  1        RCV_PKT_SIZE,                ! Receive packet size
  61. ;   0269  1        RCV_NPAD,                    ! Padding length
  62. ;   0270  1        RCV_PADCHAR,                ! Padding character
  63. ;   0271  1        RCV_TIMEOUT,                ! Time out
  64. ;   0272  1        RCV_EOL,                    ! EOL character
  65. ;   0273  1        RCV_QUOTE_CHR,                ! Quote character
  66. ;   0274  1        RCV_SOH,                    ! Start of header character
  67. ;   0275  1        RCV_8QUOTE_CHR,                ! 8-bit quoting character
  68. ;   0276  1    !
  69. ;   0277  1    ! Miscellaneous parameters
  70. ;   0278  1    !
  71. ;   0279  1        SET_REPT_CHR,                ! Repeat character
  72. ;   0280  1    !
  73. ;   0281  1    ! Send parameters
  74. ;   0282  1    !
  75. ;   0283  1        SND_PKT_SIZE,                ! Send packet size
  76. ;   0284  1        SND_NPAD,                    ! Padding length
  77. ;   0285  1        SND_PADCHAR,                ! Padding character
  78. ;   0286  1        SND_TIMEOUT,                ! Time out
  79. ;   0287  1        SND_EOL,                    ! EOL character
  80. ;   0288  1        SND_QUOTE_CHR,                ! Quote character
  81. ;   0289  1        SND_SOH,                    ! Start of header character
  82. ;   0290  1        SEND_TIMEOUT,                ! Time out
  83. ;   0291  1    !
  84. ;   0292  1    ! Server parameters
  85. ;   0293  1    !
  86. ;   0294  1        SRV_TIMEOUT,                ! Amount of time between NAK's in server
  87. ;   0295  1    !
  88. ;   0296  1    ! Statistics
  89. ;   0297  1    !
  90. ;   0298  1        SND_TOTAL_CHARS,                ! Total characters sent
  91. ;   0299  1        RCV_TOTAL_CHARS,                ! Total characters received
  92. ;   0300  1        SND_DATA_CHARS,                ! Total number of data characters sent
  93. ;   0301  1        RCV_DATA_CHARS,                ! Total number of data characters received
  94. ;   0302  1        SND_NAKS,                    ! Total NAKs sent
  95. ;   0303  1        RCV_NAKS,                    ! Total NAKs received
  96. ;   0304  1        SND_COUNT,                    ! Count of total number of packets
  97. ;   0305  1        RCV_COUNT,                    ! Count of total number packets received
  98. ;   0306  1        SMSG_COUNT,                    ! Total number of packets sent
  99. ;   0307  1        RMSG_COUNT,                    ! Total number of packets received
  100. ;   0308  1        SMSG_TOTAL_CHARS,                ! Total chars sent this file xfer
  101. ;   0309  1        RMSG_TOTAL_CHARS,                ! Total chars rcvd this file xfer
  102. ;   0310  1        SMSG_DATA_CHARS,                ! Total data chars this file xfer
  103. ;   0311  1        RMSG_DATA_CHARS,                ! Total data chars this file xfer
  104. ;   0312  1        SMSG_NAKS,                    ! Total number of NAKs this file xfer
  105. ;   0313  1        RMSG_NAKS,                    ! Total number of NAKs received
  106. ;   0314  1        XFR_TIME,                    ! Amount of time last xfr took
  107. ;   0315  1        TOTAL_TIME,                    ! Total time of all xfrs
  108. ;   0316  1                                !  this file xfer
  109. ;   0317  1        LAST_ERROR : VECTOR [CH$ALLOCATION (MAX_MSG + 1)],    ! Last error message
  110. ;   0318  1    !
  111. ;   0319  1    ! Misc constants.
  112. ;   0320  1    !
  113. ;   0321  1        FILE_NAME : VECTOR [CH$ALLOCATION (MAX_FILE_NAME)],
  114. ;   0322  1        FILE_SIZE,
  115. ;   0323  1        SI_RETRIES,                    ! Send init retries to attempt
  116. ;   0324  1        PKT_RETRIES,                ! Number of retries to try for a message
  117. ;   0325  1        DELAY,                    ! Amount of time to delay
  118. ;   0326  1        DUPLEX,                    ! Type of connection (half or full)
  119. ;   0327  1        PARITY_TYPE,                ! Type of parity to use
  120. ;   0328  1        DEV_PARITY_FLAG,                ! True if output device does
  121. ;   0329  1                                !  parity, false if we do it
  122. ;   0330  1        CHKTYPE,                    ! Type of block check desired
  123. ;   0331  1        ABT_FLAG,                    ! True if aborted file should be discarded
  124. ;   0332  1        DEBUG_FLAG,                    ! Debugging mode on/off
  125. ;   0333  1        WARN_FLAG,                    ! File warning flag
  126. ;   0334  1        IBM_FLAG,                    ! Talking to an IBM system
  127. ;   0335  1        IBM_CHAR,                    ! Turnaround character for IBM mode
  128. ;   0336  1        ECHO_FLAG,                    ! Local echo flag
  129. ;   0337  1        CONNECT_FLAG,                ! Connected flag; True if
  130. ;   0338  1                                !  terminal and SET LINE are
  131. ;   0339  1                                !  the same
  132. ;   0340  1        ABT_CUR_FILE,                ! Abort current file
  133. ;   0341  1        ABT_ALL_FILE,                ! Abort all files in stream
  134. ;   0342  1        TYP_STS_FLAG,                ! Type status next message
  135. ;   0343  1        TY_FIL,                    ! Type file specs
  136. ;   0344  1        TY_PKT,                    ! Type packet info
  137. ;   0345  1        FIL_NORMAL_FORM,                ! Use normal form file names
  138. ;   0346  1        GEN_1DATA : VECTOR [CH$ALLOCATION (MAX_MSG)],! Data for generic command
  139. ;   0347  1        GEN_1SIZE,                    ! Size of data in GEN_1DATA
  140. ;   0348  1        GEN_2DATA : VECTOR [CH$ALLOCATION (MAX_MSG)],! Second argument for generic command
  141. ;   0349  1        GEN_2SIZE,                    ! Size of data in GEN_2DATA
  142. ;   0350  1        GEN_3DATA : VECTOR [CH$ALLOCATION (MAX_MSG)],! Third arg for generic command
  143. ;   0351  1        GEN_3SIZE;                    ! Size of data in GEN_3DATA
  144. ;   0352  1     %SBTTL 'End of KERGLB'
  145. ;   0353  1    END                        ! End of module
  146. ;   0354  1    
  147. ;   0355  0    ELUDOM
  148.  
  149.  
  150.     .TITLE  KERGLB
  151.     .IDENT  \2.0.002\
  152.  
  153.     .PSECT  $GLOBAL$,NOEXE,2
  154.  
  155. RCV_PKT_SIZE::
  156.     .BLKB   4                                       ;                      00000
  157. RCV_NPAD::
  158.     .BLKB   4                                       ;                      00004
  159. RCV_PADCHAR::
  160.     .BLKB   4                                       ;                      00008
  161. RCV_TIMEOUT::
  162.     .BLKB   4                                       ;                      0000C
  163. RCV_EOL::
  164.     .BLKB   4                                       ;                      00010
  165. RCV_QUOTE_CHR::
  166.     .BLKB   4                                       ;                      00014
  167. RCV_SOH::
  168.     .BLKB   4                                       ;                      00018
  169. RCV_8QUOTE_CHR::
  170.     .BLKB   4                                       ;                      0001C
  171. SET_REPT_CHR::
  172.     .BLKB   4                                       ;                      00020
  173. SND_PKT_SIZE::
  174.     .BLKB   4                                       ;                      00024
  175. SND_NPAD::
  176.     .BLKB   4                                       ;                      00028
  177. SND_PADCHAR::
  178.     .BLKB   4                                       ;                      0002C
  179. SND_TIMEOUT::
  180.     .BLKB   4                                       ;                      00030
  181. SND_EOL::
  182.     .BLKB   4                                       ;                      00034
  183. SND_QUOTE_CHR::
  184.     .BLKB   4                                       ;                      00038
  185. SND_SOH::
  186.     .BLKB   4                                       ;                      0003C
  187. SEND_TIMEOUT::
  188.     .BLKB   4                                       ;                      00040
  189. SRV_TIMEOUT::
  190.     .BLKB   4                                       ;                      00044
  191. SND_TOTAL_CHARS::
  192.     .BLKB   4                                       ;                      00048
  193. RCV_TOTAL_CHARS::
  194.     .BLKB   4                                       ;                      0004C
  195. SND_DATA_CHARS::
  196.     .BLKB   4                                       ;                      00050
  197. RCV_DATA_CHARS::
  198.     .BLKB   4                                       ;                      00054
  199. SND_NAKS::
  200.     .BLKB   4                                       ;                      00058
  201. RCV_NAKS::
  202.     .BLKB   4                                       ;                      0005C
  203. SND_COUNT::
  204.     .BLKB   4                                       ;                      00060
  205. RCV_COUNT::
  206.     .BLKB   4                                       ;                      00064
  207. SMSG_COUNT::
  208.     .BLKB   4                                       ;                      00068
  209. RMSG_COUNT::
  210.     .BLKB   4                                       ;                      0006C
  211. SMSG_TOTAL_CHARS::
  212.     .BLKB   4                                       ;                      00070
  213. RMSG_TOTAL_CHARS::
  214.     .BLKB   4                                       ;                      00074
  215. SMSG_DATA_CHARS::
  216.     .BLKB   4                                       ;                      00078
  217. RMSG_DATA_CHARS::
  218.     .BLKB   4                                       ;                      0007C
  219. SMSG_NAKS::
  220.     .BLKB   4                                       ;                      00080
  221. RMSG_NAKS::
  222.     .BLKB   4                                       ;                      00084
  223. XFR_TIME::
  224.     .BLKB   4                                       ;                      00088
  225. TOTAL_TIME::
  226.     .BLKB   4                                       ;                      0008C
  227. LAST_ERROR::
  228.     .BLKB   1004                                       ;                      00090
  229. FILE_NAME::
  230.     .BLKB   132                                       ;                      0047C
  231. FILE_SIZE::
  232.     .BLKB   4                                       ;                      00500
  233. SI_RETRIES::
  234.     .BLKB   4                                       ;                      00504
  235. PKT_RETRIES::
  236.     .BLKB   4                                       ;                      00508
  237. DELAY:: .BLKB   4                                       ;                      0050C
  238. DUPLEX::.BLKB   4                                       ;                      00510
  239. PARITY_TYPE::
  240.     .BLKB   4                                       ;                      00514
  241. DEV_PARITY_FLAG::
  242.     .BLKB   4                                       ;                      00518
  243. CHKTYPE::
  244.     .BLKB   4                                       ;                      0051C
  245. ABT_FLAG::
  246.     .BLKB   4                                       ;                      00520
  247. DEBUG_FLAG::
  248.     .BLKB   4                                       ;                      00524
  249. WARN_FLAG::
  250.     .BLKB   4                                       ;                      00528
  251. IBM_FLAG::
  252.     .BLKB   4                                       ;                      0052C
  253. IBM_CHAR::
  254.     .BLKB   4                                       ;                      00530
  255. ECHO_FLAG::
  256.     .BLKB   4                                       ;                      00534
  257. CONNECT_FLAG::
  258.     .BLKB   4                                       ;                      00538
  259. ABT_CUR_FILE::
  260.     .BLKB   4                                       ;                      0053C
  261. ABT_ALL_FILE::
  262.     .BLKB   4                                       ;                      00540
  263. TYP_STS_FLAG::
  264.     .BLKB   4                                       ;                      00544
  265. TY_FIL::.BLKB   4                                       ;                      00548
  266. TY_PKT::.BLKB   4                                       ;                      0054C
  267. FIL_NORMAL_FORM::
  268.     .BLKB   4                                       ;                      00550
  269. GEN_1DATA::
  270.     .BLKB   1004                                       ;                      00554
  271. GEN_1SIZE::
  272.     .BLKB   4                                       ;                      00940
  273. GEN_2DATA::
  274.     .BLKB   1004                                       ;                      00944
  275. GEN_2SIZE::
  276.     .BLKB   4                                       ;                      00D30
  277. GEN_3DATA::
  278.     .BLKB   1004                                       ;                      00D34
  279. GEN_3SIZE::
  280.     .BLKB   4                                       ;                      01120
  281.  
  282. FNM_NORMAL==        1
  283. FNM_FULL==        2
  284. FNM_UNTRAN==        4
  285. PR_MIN==        0
  286. PR_NONE==        0
  287. PR_MARK==        1
  288. PR_EVEN==        2
  289. PR_ODD==        3
  290. PR_SPACE==        4
  291. PR_MAX==        4
  292. GC_MIN==        1
  293. GC_EXIT==        1
  294. GC_DIRECTORY==        2
  295. GC_DISK_USAGE==     3
  296. GC_DELETE==        4
  297. GC_TYPE==        5
  298. GC_HELP==        6
  299. GC_LOGOUT==        7
  300. GC_LGN==        8
  301. GC_CONNECT==        9
  302. GC_RENAME==        10
  303. GC_COPY==        11
  304. GC_WHO==        12
  305. GC_SEND_MSG==        13
  306. GC_STATUS==        14
  307. GC_COMMAND==        15
  308. GC_KERMIT==        16
  309. GC_JOURNAL==        17
  310. GC_VARIABLE==        18
  311. GC_PROGRAM==        19
  312. GC_MAX==        19
  313. DP_FULL==        0
  314. DP_HALF==        1
  315. CHK_1CHAR==        49
  316. CHK_2CHAR==        50
  317. CHK_CRC==        51
  318. MAX_MSG==        1002
  319.  
  320.  
  321.  
  322. ;                       PSECT SUMMARY
  323. ;
  324. ;    Name             Bytes                   Attributes
  325. ;
  326. ;  $GLOBAL$                 4388  NOVEC,  WRT,  RD ,NOEXE,NOSHR,  LCL,  REL,  CON,NOPIC,ALIGN(2)
  327. ;  .  ABS  .                    0  NOVEC,NOWRT,NORD ,NOEXE,NOSHR,  LCL,  ABS,  CON,NOPIC,ALIGN(0)
  328.  
  329.  
  330.  
  331.  
  332.  
  333.  
  334.  
  335. ;                    COMMAND QUALIFIERS
  336.  
  337. ;    BLI/LIS/MAC=(ASSEM,UNIQ)/SOUR:NOHEAD VMSGLB
  338.  
  339. ; Compilation Complete
  340.  
  341.     .END
  342.