.NLIST .ENABL LC .NLIST BIN,LOC .LIST ; 0001 MODULE KERGLB (IDENT = '2.0.000' ; 0002 ) = ; 0003 BEGIN ; 0004 ; 0005 SWITCHES LANGUAGE (COMMON); ; 0006 ; 0007 ! ; 0008 ; 0009 !++ ; 0010 ! FACILITY: ; 0011 ! ; 0012 ! KERMIT common message processing global storage. ; 0013 ! ; 0014 ! ABSTRACT: ; 0015 ! ; 0016 ! This module contains all of the global storage locations used ; 0017 ! by KERMSG. These are in a separate module to make it possible ; 0018 ! to load the global storage into a common under P/OS. ; 0019 ! ; 0020 ! ENVIRONMENT: ; 0021 ! ; 0022 ! TOPS-10, P/OS, VAX/VMS ; 0023 ! ; 0024 ! AUTHOR: Nick Bush, CREATION DATE: 21-December-1983 ; 0025 !-- ; 0026 ; 0027 ; 0028 %SBTTL 'Table of Contents' ; 0029 ! ; 0030 ! TABLE OF CONTENTS: ; 0031 ! ; 0032 ; 0033 %SBTTL 'Revision History' ; 0034 ; 0035 !++ ; 0036 ! ; 0037 ! 2.0.000 Extract this module from KERMSG.BLI. ; 0038 ! ; 0039 !-- ; 0040 ; 0041 ; 0042 %SBTTL 'Library files' ; 0043 ! ; 0044 ! INCLUDE FILES: ; 0045 ! ; 0046 ! ; 0047 ! KERMIT common definitions ; 0048 ! ; 0049 ; 0050 REQUIRE 'KERCOM'; ; 0250 ; 0251 ; 0252 %SBTTL 'Global storage for KERMSG' ; 0253 ; 0254 GLOBAL ; 0255 ! ; 0256 ! Receive parameters ; 0257 ! ; 0258 RCV_PKT_SIZE, ! Receive packet size ; 0259 RCV_NPAD, ! Padding length ; 0260 RCV_PADCHAR, ! Padding character ; 0261 RCV_TIMEOUT, ! Time out ; 0262 RCV_EOL, ! EOL character ; 0263 RCV_QUOTE_CHR, ! Quote character ; 0264 RCV_SOH, ! Start of header character ; 0265 RCV_8QUOTE_CHR, ! 8-bit quoting character ; 0266 ! ; 0267 ! Miscellaneous parameters ; 0268 ! ; 0269 SET_REPT_CHR, ! Repeat character ; 0270 ! ; 0271 ! Send parameters ; 0272 ! ; 0273 SND_PKT_SIZE, ! Send packet size ; 0274 SND_NPAD, ! Padding length ; 0275 SND_PADCHAR, ! Padding character ; 0276 SND_TIMEOUT, ! Time out ; 0277 SND_EOL, ! EOL character ; 0278 SND_QUOTE_CHR, ! Quote character ; 0279 SND_SOH, ! Start of header character ; 0280 ! ; 0281 ! Statistics ; 0282 ! ; 0283 SND_TOTAL_CHARS, ! Total characters sent ; 0284 RCV_TOTAL_CHARS, ! Total characters received ; 0285 SND_DATA_CHARS, ! Total number of data characters sent ; 0286 RCV_DATA_CHARS, ! Total number of data characters received ; 0287 SND_NAKS, ! Total NAKs sent ; 0288 RCV_NAKS, ! Total NAKs received ; 0289 SND_COUNT, ! Count of total number of packets ; 0290 RCV_COUNT, ! Count of total number packets received ; 0291 SMSG_COUNT, ! Total number of packets sent ; 0292 RMSG_COUNT, ! Total number of packets received ; 0293 SMSG_TOTAL_CHARS, ! Total chars sent this file xfer ; 0294 RMSG_TOTAL_CHARS, ! Total chars rcvd this file xfer ; 0295 SMSG_DATA_CHARS, ! Total data chars this file xfer ; 0296 RMSG_DATA_CHARS, ! Total data chars this file xfer ; 0297 SMSG_NAKS, ! Total number of NAKs this file xfer ; 0298 RMSG_NAKS, ! Total number of NAKs received ; 0299 XFR_TIME, ! Amount of time last xfr took ; 0300 TOTAL_TIME, ! Total time of all xfrs ; 0301 ! this file xfer ; 0302 LAST_ERROR : VECTOR [CH$ALLOCATION (MAX_MSG + 1)], ! Last error message ; 0303 ! ; 0304 ! Misc constants. ; 0305 ! ; 0306 FILE_NAME : VECTOR [CH$ALLOCATION (MAX_FILE_NAME)], ; 0307 FILE_SIZE, ; 0308 SI_RETRIES, ! Send init retries to attempt ; 0309 PKT_RETRIES, ! Number of retries to try for a message ; 0310 DELAY, ! Amount of time to delay ; 0311 DUPLEX, ! Type of connection (half or full) ; 0312 PARITY_TYPE, ! Type of parity to use ; 0313 DEV_PARITY_FLAG, ! True if output device does ; 0314 ! parity, false if we do it ; 0315 CHKTYPE, ! Type of block check desired ; 0316 ABT_FLAG, ! True if aborted file should be discarded ; 0317 DEBUG_FLAG, ! Debugging mode on/off ; 0318 WARN_FLAG, ! File warning flag ; 0319 IBM_FLAG, ! Talking to an IBM system ; 0320 IBM_CHAR, ! Turnaround character for IBM mode ; 0321 ECHO_FLAG, ! Local echo flag ; 0322 CONNECT_FLAG, ! Connected flag; True if ; 0323 ! terminal and SET LINE are ; 0324 ! the same ; 0325 ABT_CUR_FILE, ! Abort current file ; 0326 ABT_ALL_FILE, ! Abort all files in stream ; 0327 TYP_STS_FLAG, ! Type status next message ; 0328 TY_FIL, ! Type file specs ; 0329 TY_PKT, ! Type packet info ; 0330 FIL_NORMAL_FORM, ! Use normal form file names ; 0331 GEN_1DATA : VECTOR [CH$ALLOCATION (MAX_MSG)],! Data for generic command ; 0332 GEN_1SIZE, ! Size of data in GEN_1DATA ; 0333 GEN_2DATA : VECTOR [CH$ALLOCATION (MAX_MSG)],! Second argument for generic command ; 0334 GEN_2SIZE, ! Size of data in GEN_2DATA ; 0335 GEN_3DATA : VECTOR [CH$ALLOCATION (MAX_MSG)],! Third arg for generic command ; 0336 GEN_3SIZE; ! Size of data in GEN_3DATA ; 0337 ; 0338 %SBTTL 'End of KERGLB' ; 0339 END ! End of module ; 0340 ; 0341 ELUDOM .NLIST .LIST BIN,LOC .LIST .TITLE KERGLB .IDENT /2.0.00/ .PSECT $GLOB$, D RCV.PKT.SIZE:: .BLKW 1 RCV.NPAD:: .BLKW 1 RCV.PADCHAR:: .BLKW 1 RCV.TIMEOUT:: .BLKW 1 RCV.EOL:: .BLKW 1 RCV.QUOTE.CHR:: .BLKW 1 RCV.SOH:: .BLKW 1 RCV.8QUOTE.CHR:: .BLKW 1 SET.REPT.CHR:: .BLKW 1 SND.PKT.SIZE:: .BLKW 1 SND.NPAD:: .BLKW 1 SND.PADCHAR:: .BLKW 1 SND.TIMEOUT:: .BLKW 1 SND.EOL:: .BLKW 1 SND.QUOTE.CHR:: .BLKW 1 SND.SOH:: .BLKW 1 SEND.TIMEOUT:: .BLKW 1 SND.TOTAL.CHARS:: .BLKW 1 RCV.TOTAL.CHARS:: .BLKW 1 SND.DATA.CHARS:: .BLKW 1 RCV.DATA.CHARS:: .BLKW 1 SND.NAKS:: .BLKW 1 RCV.NAKS:: .BLKW 1 SND.COUNT:: .BLKW 1 RCV.COUNT:: .BLKW 1 SMSG.COUNT:: .BLKW 1 RMSG.COUNT:: .BLKW 1 SMSG.TOTAL.CHARS:: .BLKW 1 RMSG.TOTAL.CHARS:: .BLKW 1 SMSG.DATA.CHARS:: .BLKW 1 RMSG.DATA.CHARS:: .BLKW 1 SMSG.NAKS:: .BLKW 1 RMSG.NAKS:: .BLKW 1 XFR.TIME:: .BLKW 1 TOTAL.TIME:: .BLKW 1 LAST.ERROR:: .BLKW 61 FILE.NAME:: .BLKW 102 FILE.SIZE:: .BLKW 1 SI.RETRIES:: .BLKW 1 PKT.RETRIES:: .BLKW 1 DELAY:: .BLKW 1 DUPLEX::.BLKW 1 PARITY.TYPE:: .BLKW 1 DEV.PARITY.FLAG:: .BLKW 1 CHKTYPE:: .BLKW 1 ABT.FLAG:: .BLKW 1 DEBUG.FLAG:: .BLKW 1 WARN.FLAG:: .BLKW 1 IBM.FLAG:: .BLKW 1 IBM.CHAR:: .BLKW 1 ECHO.FLAG:: .BLKW 1 CONNECT.FLAG:: .BLKW 1 ABT.CUR.FILE:: .BLKW 1 ABT.ALL.FILE:: .BLKW 1 TYP.STS.FLAG:: .BLKW 1 TY.FIL::.BLKW 1 TY.PKT::.BLKW 1 FIL.NORMAL.FORM:: .BLKW 1 GEN.1DATA:: .BLKW 60 GEN.1SIZE:: .BLKW 1 GEN.2DATA:: .BLKW 60 GEN.2SIZE:: .BLKW 1 GEN.3DATA:: .BLKW 60 GEN.3SIZE:: .BLKW 1 FNM.NORMAL== 1 FNM.FULL== 2 FNM.UNTRAN== 4 PR.MIN== 0 PR.NONE== 0 PR.MARK== 1 PR.EVEN== 2 PR.ODD== 3 PR.SPACE== 4 PR.MAX== 4 GC.MIN== 1 GC.EXIT== 1 GC.DIRECTORY== 2 GC.DISK.USAGE== 3 GC.DELETE== 4 GC.TYPE== 5 GC.HELP== 6 GC.LOGOUT== 7 GC.LGN== 10 GC.CONNECT== 11 GC.RENAME== 12 GC.COPY== 13 GC.WHO== 14 GC.SEND.MSG== 15 GC.STATUS== 16 GC.COMMAND== 17 GC.MAX== 17 DP.FULL== 0 DP.HALF== 1 CHK.1CHAR== 61 CHK.2CHAR== 62 CHK.CRC== 63 MAX.MSG== 140 ; PSECT SUMMARY ; ; Psect Name Words ; Attributes ; $GLOB$ 317 ; RW , D , LCL, REL, CON ; Compilation Complete .END