Columbia Kermit/kermit.zip/decpro300/proglb.bli

Text File | 2020-01-01 | 4KB | 153 lines

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