home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / decpro300 / proglb.mac < prev    next >
Text File  |  2020-01-01  |  8KB  |  331 lines
  1.     .NLIST
  2.     .ENABL    LC
  3.     .NLIST    BIN,LOC
  4.     .LIST
  5. ;      0001    MODULE KERGLB (IDENT = '2.0.000'
  6. ;      0002            ) =
  7. ;      0003    BEGIN
  8. ;      0004    
  9. ;      0005    SWITCHES LANGUAGE (COMMON);
  10. ;      0006    
  11. ;      0007    !<BLF/WIDTH:100>
  12. ;      0008    
  13. ;      0009    !++
  14. ;      0010    ! FACILITY:
  15. ;      0011    !
  16. ;      0012    !    KERMIT common message processing global storage.
  17. ;      0013    !
  18. ;      0014    ! ABSTRACT:
  19. ;      0015    !
  20. ;      0016    !    This module contains all of the global storage locations used
  21. ;      0017    !    by KERMSG.  These are in a separate module to make it possible
  22. ;      0018    !    to load the global storage into a common under P/OS.
  23. ;      0019    !
  24. ;      0020    ! ENVIRONMENT:
  25. ;      0021    !
  26. ;      0022    !    TOPS-10, P/OS, VAX/VMS
  27. ;      0023    !
  28. ;      0024    ! AUTHOR: Nick Bush, CREATION DATE: 21-December-1983
  29. ;      0025    !--
  30. ;      0026    
  31. ;      0027    
  32. ;      0028    %SBTTL 'Table of Contents'
  33. ;      0029    !
  34. ;      0030    ! TABLE OF CONTENTS:
  35. ;      0031    !
  36. ;      0032    
  37. ;      0033    %SBTTL 'Revision History'
  38. ;      0034    
  39. ;      0035    !++
  40. ;      0036    !
  41. ;      0037    ! 2.0.000    Extract this module from KERMSG.BLI.
  42. ;      0038    !
  43. ;      0039    !--
  44. ;      0040    
  45. ;      0041    
  46. ;      0042    %SBTTL 'Library files'
  47. ;      0043    !
  48. ;      0044    ! INCLUDE FILES:
  49. ;      0045    !
  50. ;      0046    !
  51. ;      0047    ! KERMIT common definitions
  52. ;      0048    !
  53. ;      0049    
  54. ;      0050    REQUIRE 'KERCOM';
  55. ;      0250    
  56. ;      0251    
  57. ;      0252    %SBTTL 'Global storage for KERMSG'
  58. ;      0253    
  59. ;      0254    GLOBAL
  60. ;      0255    !
  61. ;      0256    ! Receive parameters
  62. ;      0257    !
  63. ;      0258        RCV_PKT_SIZE,                ! Receive packet size
  64. ;      0259        RCV_NPAD,                    ! Padding length
  65. ;      0260        RCV_PADCHAR,                ! Padding character
  66. ;      0261        RCV_TIMEOUT,                ! Time out
  67. ;      0262        RCV_EOL,                    ! EOL character
  68. ;      0263        RCV_QUOTE_CHR,                ! Quote character
  69. ;      0264        RCV_SOH,                    ! Start of header character
  70. ;      0265        RCV_8QUOTE_CHR,                ! 8-bit quoting character
  71. ;      0266    !
  72. ;      0267    ! Miscellaneous parameters
  73. ;      0268    !
  74. ;      0269        SET_REPT_CHR,                ! Repeat character
  75. ;      0270    !
  76. ;      0271    ! Send parameters
  77. ;      0272    !
  78. ;      0273        SND_PKT_SIZE,                ! Send packet size
  79. ;      0274        SND_NPAD,                    ! Padding length
  80. ;      0275        SND_PADCHAR,                ! Padding character
  81. ;      0276        SND_TIMEOUT,                ! Time out
  82. ;      0277        SND_EOL,                    ! EOL character
  83. ;      0278        SND_QUOTE_CHR,                ! Quote character
  84. ;      0279        SND_SOH,                    ! Start of header character
  85. ;      0280    !
  86. ;      0281    ! Statistics
  87. ;      0282    !
  88. ;      0283        SND_TOTAL_CHARS,                ! Total characters sent
  89. ;      0284        RCV_TOTAL_CHARS,                ! Total characters received
  90. ;      0285        SND_DATA_CHARS,                ! Total number of data characters sent
  91. ;      0286        RCV_DATA_CHARS,                ! Total number of data characters received
  92. ;      0287        SND_NAKS,                    ! Total NAKs sent
  93. ;      0288        RCV_NAKS,                    ! Total NAKs received
  94. ;      0289        SND_COUNT,                    ! Count of total number of packets
  95. ;      0290        RCV_COUNT,                    ! Count of total number packets received
  96. ;      0291        SMSG_COUNT,                    ! Total number of packets sent
  97. ;      0292        RMSG_COUNT,                    ! Total number of packets received
  98. ;      0293        SMSG_TOTAL_CHARS,                ! Total chars sent this file xfer
  99. ;      0294        RMSG_TOTAL_CHARS,                ! Total chars rcvd this file xfer
  100. ;      0295        SMSG_DATA_CHARS,                ! Total data chars this file xfer
  101. ;      0296        RMSG_DATA_CHARS,                ! Total data chars this file xfer
  102. ;      0297        SMSG_NAKS,                    ! Total number of NAKs this file xfer
  103. ;      0298        RMSG_NAKS,                    ! Total number of NAKs received
  104. ;      0299        XFR_TIME,                    ! Amount of time last xfr took
  105. ;      0300        TOTAL_TIME,                    ! Total time of all xfrs
  106. ;      0301                                !  this file xfer
  107. ;      0302        LAST_ERROR : VECTOR [CH$ALLOCATION (MAX_MSG + 1)],    ! Last error message
  108. ;      0303    !
  109. ;      0304    ! Misc constants.
  110. ;      0305    !
  111. ;      0306        FILE_NAME : VECTOR [CH$ALLOCATION (MAX_FILE_NAME)],
  112. ;      0307        FILE_SIZE,
  113. ;      0308        SI_RETRIES,                    ! Send init retries to attempt
  114. ;      0309        PKT_RETRIES,                ! Number of retries to try for a message
  115. ;      0310        DELAY,                    ! Amount of time to delay
  116. ;      0311        DUPLEX,                    ! Type of connection (half or full)
  117. ;      0312        PARITY_TYPE,                ! Type of parity to use
  118. ;      0313        DEV_PARITY_FLAG,                ! True if output device does
  119. ;      0314                                !  parity, false if we do it
  120. ;      0315        CHKTYPE,                    ! Type of block check desired
  121. ;      0316        ABT_FLAG,                    ! True if aborted file should be discarded
  122. ;      0317        DEBUG_FLAG,                    ! Debugging mode on/off
  123. ;      0318        WARN_FLAG,                    ! File warning flag
  124. ;      0319        IBM_FLAG,                    ! Talking to an IBM system
  125. ;      0320        IBM_CHAR,                    ! Turnaround character for IBM mode
  126. ;      0321        ECHO_FLAG,                    ! Local echo flag
  127. ;      0322        CONNECT_FLAG,                ! Connected flag; True if
  128. ;      0323                                !  terminal and SET LINE are
  129. ;      0324                                !  the same
  130. ;      0325        ABT_CUR_FILE,                ! Abort current file
  131. ;      0326        ABT_ALL_FILE,                ! Abort all files in stream
  132. ;      0327        TYP_STS_FLAG,                ! Type status next message
  133. ;      0328        TY_FIL,                    ! Type file specs
  134. ;      0329        TY_PKT,                    ! Type packet info
  135. ;      0330        FIL_NORMAL_FORM,                ! Use normal form file names
  136. ;      0331        GEN_1DATA : VECTOR [CH$ALLOCATION (MAX_MSG)],! Data for generic command
  137. ;      0332        GEN_1SIZE,                    ! Size of data in GEN_1DATA
  138. ;      0333        GEN_2DATA : VECTOR [CH$ALLOCATION (MAX_MSG)],! Second argument for generic command
  139. ;      0334        GEN_2SIZE,                    ! Size of data in GEN_2DATA
  140. ;      0335        GEN_3DATA : VECTOR [CH$ALLOCATION (MAX_MSG)],! Third arg for generic command
  141. ;      0336        GEN_3SIZE;                    ! Size of data in GEN_3DATA
  142. ;      0337    
  143. ;      0338    %SBTTL 'End of KERGLB'
  144. ;      0339    END                        ! End of module
  145. ;      0340    
  146. ;      0341    ELUDOM
  147.     .NLIST
  148.     .LIST    BIN,LOC
  149.     .LIST
  150.  
  151.     .TITLE    KERGLB
  152.     .IDENT    /2.0.00/
  153.  
  154.  
  155.     .PSECT    $GLOB$,  D  
  156. RCV.PKT.SIZE::
  157.     .BLKW    1
  158. RCV.NPAD::
  159.     .BLKW    1
  160. RCV.PADCHAR::
  161.     .BLKW    1
  162. RCV.TIMEOUT::
  163.     .BLKW    1
  164. RCV.EOL::
  165.     .BLKW    1
  166. RCV.QUOTE.CHR::
  167.     .BLKW    1
  168. RCV.SOH::
  169.     .BLKW    1
  170. RCV.8QUOTE.CHR::
  171.     .BLKW    1
  172. SET.REPT.CHR::
  173.     .BLKW    1
  174. SND.PKT.SIZE::
  175.     .BLKW    1
  176. SND.NPAD::
  177.     .BLKW    1
  178. SND.PADCHAR::
  179.     .BLKW    1
  180. SND.TIMEOUT::
  181.     .BLKW    1
  182. SND.EOL::
  183.     .BLKW    1
  184. SND.QUOTE.CHR::
  185.     .BLKW    1
  186. SND.SOH::
  187.     .BLKW    1
  188. SEND.TIMEOUT::
  189.     .BLKW    1
  190. SND.TOTAL.CHARS::
  191.     .BLKW    1
  192. RCV.TOTAL.CHARS::
  193.     .BLKW    1
  194. SND.DATA.CHARS::
  195.     .BLKW    1
  196. RCV.DATA.CHARS::
  197.     .BLKW    1
  198. SND.NAKS::
  199.     .BLKW    1
  200. RCV.NAKS::
  201.     .BLKW    1
  202. SND.COUNT::
  203.     .BLKW    1
  204. RCV.COUNT::
  205.     .BLKW    1
  206. SMSG.COUNT::
  207.     .BLKW    1
  208. RMSG.COUNT::
  209.     .BLKW    1
  210. SMSG.TOTAL.CHARS::
  211.     .BLKW    1
  212. RMSG.TOTAL.CHARS::
  213.     .BLKW    1
  214. SMSG.DATA.CHARS::
  215.     .BLKW    1
  216. RMSG.DATA.CHARS::
  217.     .BLKW    1
  218. SMSG.NAKS::
  219.     .BLKW    1
  220. RMSG.NAKS::
  221.     .BLKW    1
  222. XFR.TIME::
  223.     .BLKW    1
  224. TOTAL.TIME::
  225.     .BLKW    1
  226. LAST.ERROR::
  227.     .BLKW    61
  228. FILE.NAME::
  229.     .BLKW    102
  230. FILE.SIZE::
  231.     .BLKW    1
  232. SI.RETRIES::
  233.     .BLKW    1
  234. PKT.RETRIES::
  235.     .BLKW    1
  236. DELAY:: .BLKW    1
  237. DUPLEX::.BLKW    1
  238. PARITY.TYPE::
  239.     .BLKW    1
  240. DEV.PARITY.FLAG::
  241.     .BLKW    1
  242. CHKTYPE::
  243.     .BLKW    1
  244. ABT.FLAG::
  245.     .BLKW    1
  246. DEBUG.FLAG::
  247.     .BLKW    1
  248. WARN.FLAG::
  249.     .BLKW    1
  250. IBM.FLAG::
  251.     .BLKW    1
  252. IBM.CHAR::
  253.     .BLKW    1
  254. ECHO.FLAG::
  255.     .BLKW    1
  256. CONNECT.FLAG::
  257.     .BLKW    1
  258. ABT.CUR.FILE::
  259.     .BLKW    1
  260. ABT.ALL.FILE::
  261.     .BLKW    1
  262. TYP.STS.FLAG::
  263.     .BLKW    1
  264. TY.FIL::.BLKW    1
  265. TY.PKT::.BLKW    1
  266. FIL.NORMAL.FORM::
  267.     .BLKW    1
  268. GEN.1DATA::
  269.     .BLKW    60
  270. GEN.1SIZE::
  271.     .BLKW    1
  272. GEN.2DATA::
  273.     .BLKW    60
  274. GEN.2SIZE::
  275.     .BLKW    1
  276. GEN.3DATA::
  277.     .BLKW    60
  278. GEN.3SIZE::
  279.     .BLKW    1
  280.  
  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==        10
  301. GC.CONNECT==        11
  302. GC.RENAME==        12
  303. GC.COPY==        13
  304. GC.WHO==        14
  305. GC.SEND.MSG==        15
  306. GC.STATUS==        16
  307. GC.COMMAND==        17
  308. GC.MAX==        17
  309. DP.FULL==        0
  310. DP.HALF==        1
  311. CHK.1CHAR==        61
  312. CHK.2CHAR==        62
  313. CHK.CRC==        63
  314. MAX.MSG==        140
  315.  
  316.  
  317.  
  318. ;                    PSECT SUMMARY
  319. ;
  320. ;    Psect Name            Words    ; Attributes
  321. ;     $GLOB$                  317    ;   RW ,  D  ,  LCL,  REL,  CON
  322.  
  323.  
  324.  
  325.  
  326.  
  327. ; Compilation Complete
  328.  
  329.     .END
  330.  
  331.