MODULE KERGLB (IDENT = '2.0.003' ) = BEGIN SWITCHES LANGUAGE (COMMON); ! !++ ! FACILITY: ! ! KERMIT common message processing global storage. ! ! ABSTRACT: ! ! This module contains all of the global storage locations used ! by KERMSG. These are in a separate module to make it possible ! to load the global storage into a common under P/OS. ! ! ENVIRONMENT: ! ! TOPS-10, P/OS, VAX/VMS ! ! AUTHOR: Nick Bush, CREATION DATE: 21-December-1983 !-- %SBTTL 'Table of Contents' ! ! TABLE OF CONTENTS: ! %SBTTL 'Revision History' !++ ! ! 2.0.000 Extract this module from KERMSG.BLI. ! ! 2.0.001 By: Robert C. McQueen On: 16-Feb-1984 ! Move SEND_TIMEOUT from KERMSG to this module. ! ! 2.0.002 By: Nick Bush On: 2-April-1984 ! Add SRV_TIMEOUT from time between NAK's. ! ! 2.0.003 By: David Stevens On: 29-July-1985 ! Remove IBM_FLAG, it is no longer needed !-- %SBTTL 'Library files' ! ! INCLUDE FILES: ! ! ! KERMIT common definitions ! REQUIRE 'KERCOM'; %SBTTL 'Global storage for KERMSG' GLOBAL ! ! Receive parameters ! RCV_PKT_SIZE, ! Receive packet size RCV_NPAD, ! Padding length RCV_PADCHAR, ! Padding character RCV_TIMEOUT, ! Time out RCV_EOL, ! EOL character RCV_QUOTE_CHR, ! Quote character RCV_SOH, ! Start of header character RCV_8QUOTE_CHR, ! 8-bit quoting character ! ! Miscellaneous parameters ! SET_REPT_CHR, ! Repeat character ! ! Send parameters ! SND_PKT_SIZE, ! Send packet size SND_NPAD, ! Padding length SND_PADCHAR, ! Padding character SND_TIMEOUT, ! Time out SND_EOL, ! EOL character SND_QUOTE_CHR, ! Quote character SND_SOH, ! Start of header character SEND_TIMEOUT, ! Time out ! ! Server parameters ! SRV_TIMEOUT, ! Amount of time between NAK's in server ! ! Statistics ! SND_TOTAL_CHARS, ! Total characters sent RCV_TOTAL_CHARS, ! Total characters received SND_DATA_CHARS, ! Total number of data characters sent RCV_DATA_CHARS, ! Total number of data characters received SND_NAKS, ! Total NAKs sent RCV_NAKS, ! Total NAKs received SND_COUNT, ! Count of total number of packets RCV_COUNT, ! Count of total number packets received SMSG_COUNT, ! Total number of packets sent RMSG_COUNT, ! Total number of packets received SMSG_TOTAL_CHARS, ! Total chars sent this file xfer RMSG_TOTAL_CHARS, ! Total chars rcvd this file xfer SMSG_DATA_CHARS, ! Total data chars this file xfer RMSG_DATA_CHARS, ! Total data chars this file xfer SMSG_NAKS, ! Total number of NAKs this file xfer RMSG_NAKS, ! Total number of NAKs received XFR_TIME, ! Amount of time last xfr took TOTAL_TIME, ! Total time of all xfrs ! this file xfer LAST_ERROR : VECTOR [CH$ALLOCATION (MAX_MSG + 1)], ! Last error message ! ! Misc constants. ! FILE_NAME : VECTOR [CH$ALLOCATION (MAX_FILE_NAME)], FILE_SIZE, SI_RETRIES, ! Send init retries to attempt PKT_RETRIES, ! Number of retries to try for a message DELAY, ! Amount of time to delay DUPLEX, ! Type of connection (half or full) PARITY_TYPE, ! Type of parity to use DEV_PARITY_FLAG, ! True if output device does ! parity, false if we do it CHKTYPE, ! Type of block check desired ABT_FLAG, ! True if aborted file should be discarded DEBUG_FLAG, ! Debugging mode on/off WARN_FLAG, ! File warning flag !![2.0.003] IBM_FLAG, ! Talking to an IBM system IBM_CHAR, ! Turnaround character for IBM mode ECHO_FLAG, ! Local echo flag CONNECT_FLAG, ! Connected flag; True if ! terminal and SET LINE are ! the same ABT_CUR_FILE, ! Abort current file ABT_ALL_FILE, ! Abort all files in stream TYP_STS_FLAG, ! Type status next message TY_FIL, ! Type file specs TY_PKT, ! Type packet info FIL_NORMAL_FORM, ! Use normal form file names GEN_1DATA : VECTOR [CH$ALLOCATION (MAX_MSG)],! Data for generic command GEN_1SIZE, ! Size of data in GEN_1DATA GEN_2DATA : VECTOR [CH$ALLOCATION (MAX_MSG)],! Second argument for generic command GEN_2SIZE, ! Size of data in GEN_2DATA GEN_3DATA : VECTOR [CH$ALLOCATION (MAX_MSG)],! Third arg for generic command GEN_3SIZE; ! Size of data in GEN_3DATA %SBTTL 'End of KERGLB' END ! End of module ELUDOM