home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
vmskermit32.zip
/
vmsglb.mar
< prev
next >
Wrap
Text File
|
1992-02-19
|
11KB
|
342 lines
; 0001 0 MODULE KERGLB (IDENT = '2.0.002'
; 0002 0 ) =
; 0003 1 BEGIN
; 0004 1
; 0005 1 SWITCHES LANGUAGE (COMMON);
; 0006 1
; 0007 1 !<BLF/WIDTH:100>
; 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';
; 0261 1
; 0262 1 %SBTTL 'Global storage for KERMSG'
; 0263 1
; 0264 1 GLOBAL
; 0265 1 !
; 0266 1 ! Receive parameters
; 0267 1 !
; 0268 1 RCV_PKT_SIZE, ! Receive packet size
; 0269 1 RCV_NPAD, ! Padding length
; 0270 1 RCV_PADCHAR, ! Padding character
; 0271 1 RCV_TIMEOUT, ! Time out
; 0272 1 RCV_EOL, ! EOL character
; 0273 1 RCV_QUOTE_CHR, ! Quote character
; 0274 1 RCV_SOH, ! Start of header character
; 0275 1 RCV_8QUOTE_CHR, ! 8-bit quoting character
; 0276 1 !
; 0277 1 ! Miscellaneous parameters
; 0278 1 !
; 0279 1 SET_REPT_CHR, ! Repeat character
; 0280 1 !
; 0281 1 ! Send parameters
; 0282 1 !
; 0283 1 SND_PKT_SIZE, ! Send packet size
; 0284 1 SND_NPAD, ! Padding length
; 0285 1 SND_PADCHAR, ! Padding character
; 0286 1 SND_TIMEOUT, ! Time out
; 0287 1 SND_EOL, ! EOL character
; 0288 1 SND_QUOTE_CHR, ! Quote character
; 0289 1 SND_SOH, ! Start of header character
; 0290 1 SEND_TIMEOUT, ! Time out
; 0291 1 !
; 0292 1 ! Server parameters
; 0293 1 !
; 0294 1 SRV_TIMEOUT, ! Amount of time between NAK's in server
; 0295 1 !
; 0296 1 ! Statistics
; 0297 1 !
; 0298 1 SND_TOTAL_CHARS, ! Total characters sent
; 0299 1 RCV_TOTAL_CHARS, ! Total characters received
; 0300 1 SND_DATA_CHARS, ! Total number of data characters sent
; 0301 1 RCV_DATA_CHARS, ! Total number of data characters received
; 0302 1 SND_NAKS, ! Total NAKs sent
; 0303 1 RCV_NAKS, ! Total NAKs received
; 0304 1 SND_COUNT, ! Count of total number of packets
; 0305 1 RCV_COUNT, ! Count of total number packets received
; 0306 1 SMSG_COUNT, ! Total number of packets sent
; 0307 1 RMSG_COUNT, ! Total number of packets received
; 0308 1 SMSG_TOTAL_CHARS, ! Total chars sent this file xfer
; 0309 1 RMSG_TOTAL_CHARS, ! Total chars rcvd this file xfer
; 0310 1 SMSG_DATA_CHARS, ! Total data chars this file xfer
; 0311 1 RMSG_DATA_CHARS, ! Total data chars this file xfer
; 0312 1 SMSG_NAKS, ! Total number of NAKs this file xfer
; 0313 1 RMSG_NAKS, ! Total number of NAKs received
; 0314 1 XFR_TIME, ! Amount of time last xfr took
; 0315 1 TOTAL_TIME, ! Total time of all xfrs
; 0316 1 ! this file xfer
; 0317 1 LAST_ERROR : VECTOR [CH$ALLOCATION (MAX_MSG + 1)], ! Last error message
; 0318 1 !
; 0319 1 ! Misc constants.
; 0320 1 !
; 0321 1 FILE_NAME : VECTOR [CH$ALLOCATION (MAX_FILE_NAME)],
; 0322 1 FILE_SIZE,
; 0323 1 SI_RETRIES, ! Send init retries to attempt
; 0324 1 PKT_RETRIES, ! Number of retries to try for a message
; 0325 1 DELAY, ! Amount of time to delay
; 0326 1 DUPLEX, ! Type of connection (half or full)
; 0327 1 PARITY_TYPE, ! Type of parity to use
; 0328 1 DEV_PARITY_FLAG, ! True if output device does
; 0329 1 ! parity, false if we do it
; 0330 1 CHKTYPE, ! Type of block check desired
; 0331 1 ABT_FLAG, ! True if aborted file should be discarded
; 0332 1 DEBUG_FLAG, ! Debugging mode on/off
; 0333 1 WARN_FLAG, ! File warning flag
; 0334 1 IBM_FLAG, ! Talking to an IBM system
; 0335 1 IBM_CHAR, ! Turnaround character for IBM mode
; 0336 1 ECHO_FLAG, ! Local echo flag
; 0337 1 CONNECT_FLAG, ! Connected flag; True if
; 0338 1 ! terminal and SET LINE are
; 0339 1 ! the same
; 0340 1 ABT_CUR_FILE, ! Abort current file
; 0341 1 ABT_ALL_FILE, ! Abort all files in stream
; 0342 1 TYP_STS_FLAG, ! Type status next message
; 0343 1 TY_FIL, ! Type file specs
; 0344 1 TY_PKT, ! Type packet info
; 0345 1 FIL_NORMAL_FORM, ! Use normal form file names
; 0346 1 GEN_1DATA : VECTOR [CH$ALLOCATION (MAX_MSG)],! Data for generic command
; 0347 1 GEN_1SIZE, ! Size of data in GEN_1DATA
; 0348 1 GEN_2DATA : VECTOR [CH$ALLOCATION (MAX_MSG)],! Second argument for generic command
; 0349 1 GEN_2SIZE, ! Size of data in GEN_2DATA
; 0350 1 GEN_3DATA : VECTOR [CH$ALLOCATION (MAX_MSG)],! Third arg for generic command
; 0351 1 GEN_3SIZE; ! Size of data in GEN_3DATA
; 0352 1 %SBTTL 'End of KERGLB'
; 0353 1 END ! End of module
; 0354 1
; 0355 0 ELUDOM
.TITLE KERGLB
.IDENT \2.0.002\
.PSECT $GLOBAL$,NOEXE,2
RCV_PKT_SIZE::
.BLKB 4 ; 00000
RCV_NPAD::
.BLKB 4 ; 00004
RCV_PADCHAR::
.BLKB 4 ; 00008
RCV_TIMEOUT::
.BLKB 4 ; 0000C
RCV_EOL::
.BLKB 4 ; 00010
RCV_QUOTE_CHR::
.BLKB 4 ; 00014
RCV_SOH::
.BLKB 4 ; 00018
RCV_8QUOTE_CHR::
.BLKB 4 ; 0001C
SET_REPT_CHR::
.BLKB 4 ; 00020
SND_PKT_SIZE::
.BLKB 4 ; 00024
SND_NPAD::
.BLKB 4 ; 00028
SND_PADCHAR::
.BLKB 4 ; 0002C
SND_TIMEOUT::
.BLKB 4 ; 00030
SND_EOL::
.BLKB 4 ; 00034
SND_QUOTE_CHR::
.BLKB 4 ; 00038
SND_SOH::
.BLKB 4 ; 0003C
SEND_TIMEOUT::
.BLKB 4 ; 00040
SRV_TIMEOUT::
.BLKB 4 ; 00044
SND_TOTAL_CHARS::
.BLKB 4 ; 00048
RCV_TOTAL_CHARS::
.BLKB 4 ; 0004C
SND_DATA_CHARS::
.BLKB 4 ; 00050
RCV_DATA_CHARS::
.BLKB 4 ; 00054
SND_NAKS::
.BLKB 4 ; 00058
RCV_NAKS::
.BLKB 4 ; 0005C
SND_COUNT::
.BLKB 4 ; 00060
RCV_COUNT::
.BLKB 4 ; 00064
SMSG_COUNT::
.BLKB 4 ; 00068
RMSG_COUNT::
.BLKB 4 ; 0006C
SMSG_TOTAL_CHARS::
.BLKB 4 ; 00070
RMSG_TOTAL_CHARS::
.BLKB 4 ; 00074
SMSG_DATA_CHARS::
.BLKB 4 ; 00078
RMSG_DATA_CHARS::
.BLKB 4 ; 0007C
SMSG_NAKS::
.BLKB 4 ; 00080
RMSG_NAKS::
.BLKB 4 ; 00084
XFR_TIME::
.BLKB 4 ; 00088
TOTAL_TIME::
.BLKB 4 ; 0008C
LAST_ERROR::
.BLKB 1004 ; 00090
FILE_NAME::
.BLKB 132 ; 0047C
FILE_SIZE::
.BLKB 4 ; 00500
SI_RETRIES::
.BLKB 4 ; 00504
PKT_RETRIES::
.BLKB 4 ; 00508
DELAY:: .BLKB 4 ; 0050C
DUPLEX::.BLKB 4 ; 00510
PARITY_TYPE::
.BLKB 4 ; 00514
DEV_PARITY_FLAG::
.BLKB 4 ; 00518
CHKTYPE::
.BLKB 4 ; 0051C
ABT_FLAG::
.BLKB 4 ; 00520
DEBUG_FLAG::
.BLKB 4 ; 00524
WARN_FLAG::
.BLKB 4 ; 00528
IBM_FLAG::
.BLKB 4 ; 0052C
IBM_CHAR::
.BLKB 4 ; 00530
ECHO_FLAG::
.BLKB 4 ; 00534
CONNECT_FLAG::
.BLKB 4 ; 00538
ABT_CUR_FILE::
.BLKB 4 ; 0053C
ABT_ALL_FILE::
.BLKB 4 ; 00540
TYP_STS_FLAG::
.BLKB 4 ; 00544
TY_FIL::.BLKB 4 ; 00548
TY_PKT::.BLKB 4 ; 0054C
FIL_NORMAL_FORM::
.BLKB 4 ; 00550
GEN_1DATA::
.BLKB 1004 ; 00554
GEN_1SIZE::
.BLKB 4 ; 00940
GEN_2DATA::
.BLKB 1004 ; 00944
GEN_2SIZE::
.BLKB 4 ; 00D30
GEN_3DATA::
.BLKB 1004 ; 00D34
GEN_3SIZE::
.BLKB 4 ; 01120
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== 1002
; PSECT SUMMARY
;
; Name Bytes Attributes
;
; $GLOBAL$ 4388 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
; BLI/LIS/MAC=(ASSEM,UNIQ)/SOUR:NOHEAD VMSGLB
; Compilation Complete
.END