MODULE KERGLB (IDENT = '2.0.002'
		) =
BEGIN

SWITCHES LANGUAGE (COMMON);

!<BLF/WIDTH:100>

!++
! 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.
!--


%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
    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