; 0001 0 MODULE KERGLB (IDENT = '2.0.002' ; 0002 0 ) = ; 0003 1 BEGIN ; 0004 1 ; 0005 1 SWITCHES LANGUAGE (COMMON); ; 0006 1 ; 0007 1 ! ; 0008 1 ; 0009 1 !++ ; 0010 1 ! FACILITY: ; 0011 1 ! ; 0012 1 ! KERMIT common message processing global storage. ; 0013 1 ! ; 0014 1 ! ABSTRACT: ; 0015 1 ! ; 0016 1 ! This module contains all of the global storage locations used ; 0017 1 ! by KERMSG. These are in a separate module to make it possible ; 0018 1 ! to load the global storage into a common under P/OS. ; 0019 1 ! ; 0020 1 ! ENVIRONMENT: ; 0021 1 ! ; 0022 1 ! TOPS-10, P/OS, VAX/VMS ; 0023 1 ! ; 0024 1 ! AUTHOR: Nick Bush, CREATION DATE: 21-December-1983 ; 0025 1 !-- ; 0026 1 ; 0027 1 %SBTTL 'Table of Contents' ; 0028 1 ! ; 0029 1 ! TABLE OF CONTENTS: ; 0030 1 ! ; 0031 1 %SBTTL 'Revision History' ; 0032 1 ; 0033 1 !++ ; 0034 1 ! ; 0035 1 ! 2.0.000 Extract this module from KERMSG.BLI. ; 0036 1 ! ; 0037 1 ! 2.0.001 By: Robert C. McQueen On: 16-Feb-1984 ; 0038 1 ! Move SEND_TIMEOUT from KERMSG to this module. ; 0039 1 ! ; 0040 1 ! 2.0.002 By: Nick Bush On: 2-April-1984 ; 0041 1 ! Add SRV_TIMEOUT from time between NAK's. ; 0042 1 !-- ; 0043 1 ; 0044 1 %SBTTL 'Library files' ; 0045 1 ! ; 0046 1 ! INCLUDE FILES: ; 0047 1 ! ; 0048 1 ! ; 0049 1 ! KERMIT common definitions ; 0050 1 ! ; 0051 1 ; 0052 1 REQUIRE 'KERCOM'; ; 0260 1 ; 0261 1 %SBTTL 'Global storage for KERMSG' ; 0262 1 ; 0263 1 GLOBAL ; 0264 1 ! ; 0265 1 ! Receive parameters ; 0266 1 ! ; 0267 1 RCV_PKT_SIZE, ! Receive packet size ; 0268 1 RCV_NPAD, ! Padding length ; 0269 1 RCV_PADCHAR, ! Padding character ; 0270 1 RCV_TIMEOUT, ! Time out ; 0271 1 RCV_EOL, ! EOL character ; 0272 1 RCV_QUOTE_CHR, ! Quote character ; 0273 1 RCV_SOH, ! Start of header character ; 0274 1 RCV_8QUOTE_CHR, ! 8-bit quoting character ; 0275 1 ! ; 0276 1 ! Miscellaneous parameters ; 0277 1 ! ; 0278 1 SET_REPT_CHR, ! Repeat character ; 0279 1 ! ; 0280 1 ! Send parameters ; 0281 1 ! ; 0282 1 SND_PKT_SIZE, ! Send packet size ; 0283 1 SND_NPAD, ! Padding length ; 0284 1 SND_PADCHAR, ! Padding character ; 0285 1 SND_TIMEOUT, ! Time out ; 0286 1 SND_EOL, ! EOL character ; 0287 1 SND_QUOTE_CHR, ! Quote character ; 0288 1 SND_SOH, ! Start of header character ; 0289 1 SEND_TIMEOUT, ! Time out ; 0290 1 ! ; 0291 1 ! Server parameters ; 0292 1 ! ; 0293 1 SRV_TIMEOUT, ! Amount of time between NAK's in server ; 0294 1 ! ; 0295 1 ! Statistics ; 0296 1 ! ; 0297 1 SND_TOTAL_CHARS, ! Total characters sent ; 0298 1 RCV_TOTAL_CHARS, ! Total characters received ; 0299 1 SND_DATA_CHARS, ! Total number of data characters sent ; 0300 1 RCV_DATA_CHARS, ! Total number of data characters received ; 0301 1 SND_NAKS, ! Total NAKs sent ; 0302 1 RCV_NAKS, ! Total NAKs received ; 0303 1 SND_COUNT, ! Count of total number of packets ; 0304 1 RCV_COUNT, ! Count of total number packets received ; 0305 1 SMSG_COUNT, ! Total number of packets sent ; 0306 1 RMSG_COUNT, ! Total number of packets received ; 0307 1 SMSG_TOTAL_CHARS, ! Total chars sent this file xfer ; 0308 1 RMSG_TOTAL_CHARS, ! Total chars rcvd this file xfer ; 0309 1 SMSG_DATA_CHARS, ! Total data chars this file xfer ; 0310 1 RMSG_DATA_CHARS, ! Total data chars this file xfer ; 0311 1 SMSG_NAKS, ! Total number of NAKs this file xfer ; 0312 1 RMSG_NAKS, ! Total number of NAKs received ; 0313 1 XFR_TIME, ! Amount of time last xfr took ; 0314 1 TOTAL_TIME, ! Total time of all xfrs ; 0315 1 ! this file xfer ; 0316 1 LAST_ERROR : VECTOR [CH$ALLOCATION (MAX_MSG + 1)], ! Last error message ; 0317 1 ! ; 0318 1 ! Misc constants. ; 0319 1 ! ; 0320 1 FILE_NAME : VECTOR [CH$ALLOCATION (MAX_FILE_NAME)], ; 0321 1 FILE_SIZE, ; 0322 1 SI_RETRIES, ! Send init retries to attempt ; 0323 1 PKT_RETRIES, ! Number of retries to try for a message ; 0324 1 DELAY, ! Amount of time to delay ; 0325 1 DUPLEX, ! Type of connection (half or full) ; 0326 1 PARITY_TYPE, ! Type of parity to use ; 0327 1 DEV_PARITY_FLAG, ! True if output device does ; 0328 1 ! parity, false if we do it ; 0329 1 CHKTYPE, ! Type of block check desired ; 0330 1 ABT_FLAG, ! True if aborted file should be discarded ; 0331 1 DEBUG_FLAG, ! Debugging mode on/off ; 0332 1 WARN_FLAG, ! File warning flag ; 0333 1 IBM_FLAG, ! Talking to an IBM system ; 0334 1 IBM_CHAR, ! Turnaround character for IBM mode ; 0335 1 ECHO_FLAG, ! Local echo flag ; 0336 1 CONNECT_FLAG, ! Connected flag; True if ; 0337 1 ! terminal and SET LINE are ; 0338 1 ! the same ; 0339 1 ABT_CUR_FILE, ! Abort current file ; 0340 1 ABT_ALL_FILE, ! Abort all files in stream ; 0341 1 TYP_STS_FLAG, ! Type status next message ; 0342 1 TY_FIL, ! Type file specs ; 0343 1 TY_PKT, ! Type packet info ; 0344 1 FIL_NORMAL_FORM, ! Use normal form file names ; 0345 1 GEN_1DATA : VECTOR [CH$ALLOCATION (MAX_MSG)],! Data for generic command ; 0346 1 GEN_1SIZE, ! Size of data in GEN_1DATA ; 0347 1 GEN_2DATA : VECTOR [CH$ALLOCATION (MAX_MSG)],! Second argument for generic command ; 0348 1 GEN_2SIZE, ! Size of data in GEN_2DATA ; 0349 1 GEN_3DATA : VECTOR [CH$ALLOCATION (MAX_MSG)],! Third arg for generic command ; 0350 1 GEN_3SIZE; ! Size of data in GEN_3DATA ; 0351 1 %SBTTL 'End of KERGLB' ; 0352 1 END ! End of module ; 0353 1 ; 0354 0 ELUDOM .TITLE KERGLB .IDENT \2.0.002\ .PSECT $GLOBAL$,NOEXE,2 RCV_PKT_SIZE:: .BLKB 4 RCV_NPAD:: .BLKB 4 RCV_PADCHAR:: .BLKB 4 RCV_TIMEOUT:: .BLKB 4 RCV_EOL:: .BLKB 4 RCV_QUOTE_CHR:: .BLKB 4 RCV_SOH:: .BLKB 4 RCV_8QUOTE_CHR:: .BLKB 4 SET_REPT_CHR:: .BLKB 4 SND_PKT_SIZE:: .BLKB 4 SND_NPAD:: .BLKB 4 SND_PADCHAR:: .BLKB 4 SND_TIMEOUT:: .BLKB 4 SND_EOL:: .BLKB 4 SND_QUOTE_CHR:: .BLKB 4 SND_SOH:: .BLKB 4 SEND_TIMEOUT:: .BLKB 4 SRV_TIMEOUT:: .BLKB 4 SND_TOTAL_CHARS:: .BLKB 4 RCV_TOTAL_CHARS:: .BLKB 4 SND_DATA_CHARS:: .BLKB 4 RCV_DATA_CHARS:: .BLKB 4 SND_NAKS:: .BLKB 4 RCV_NAKS:: .BLKB 4 SND_COUNT:: .BLKB 4 RCV_COUNT:: .BLKB 4 SMSG_COUNT:: .BLKB 4 RMSG_COUNT:: .BLKB 4 SMSG_TOTAL_CHARS:: .BLKB 4 RMSG_TOTAL_CHARS:: .BLKB 4 SMSG_DATA_CHARS:: .BLKB 4 RMSG_DATA_CHARS:: .BLKB 4 SMSG_NAKS:: .BLKB 4 RMSG_NAKS:: .BLKB 4 XFR_TIME:: .BLKB 4 TOTAL_TIME:: .BLKB 4 LAST_ERROR:: .BLKB 100 FILE_NAME:: .BLKB 132 FILE_SIZE:: .BLKB 4 SI_RETRIES:: .BLKB 4 PKT_RETRIES:: .BLKB 4 DELAY:: .BLKB 4 DUPLEX::.BLKB 4 PARITY_TYPE:: .BLKB 4 DEV_PARITY_FLAG:: .BLKB 4 CHKTYPE:: .BLKB 4 ABT_FLAG:: .BLKB 4 DEBUG_FLAG:: .BLKB 4 WARN_FLAG:: .BLKB 4 IBM_FLAG:: .BLKB 4 IBM_CHAR:: .BLKB 4 ECHO_FLAG:: .BLKB 4 CONNECT_FLAG:: .BLKB 4 ABT_CUR_FILE:: .BLKB 4 ABT_ALL_FILE:: .BLKB 4 TYP_STS_FLAG:: .BLKB 4 TY_FIL::.BLKB 4 TY_PKT::.BLKB 4 FIL_NORMAL_FORM:: .BLKB 4 GEN_1DATA:: .BLKB 96 GEN_1SIZE:: .BLKB 4 GEN_2DATA:: .BLKB 96 GEN_2SIZE:: .BLKB 4 GEN_3DATA:: .BLKB 96 GEN_3SIZE:: .BLKB 4 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== 8 GC_CONNECT== 9 GC_RENAME== 10 GC_COPY== 11 GC_WHO== 12 GC_SEND_MSG== 13 GC_STATUS== 14 GC_COMMAND== 15 GC_KERMIT== 16 GC_JOURNAL== 17 GC_VARIABLE== 18 GC_PROGRAM== 19 GC_MAX== 19 DP_FULL== 0 DP_HALF== 1 CHK_1CHAR== 49 CHK_2CHAR== 50 CHK_CRC== 51 MAX_MSG== 96 ; PSECT SUMMARY ; ; Name Bytes Attributes ; ; $GLOBAL$ 760 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; . ABS . 0 NOVEC,NOWRT,NORD ,NOEXE,NOSHR, LCL, ABS, CON,NOPIC,ALIGN(0) ; COMMAND QUALIFIERS ; BLISS KERGLB/LIST=KERGLB.MAR/MACHINE_CODE=(ASSEM,NOBINARY,UNIQUE)/NOOBJECT/SOURCE=NOHEADER ; Compilation Complete .END