home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
k10mit-135.tar.gz
/
k10mit-135.tar
/
k10mit-135
/
k10glb.mac
< prev
next >
Wrap
Text File
|
2001-06-19
|
9KB
|
327 lines
; 0001 0 MODULE KERGLB (IDENT = '2.0.003'
; 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 ! 2.0.003 By: David Stevens On: 29-July-1985
; 0044 1 ! Remove IBM%FLAG, it is no longer needed
; 0045 1 !--
; 0046 1
; 0047 1 %SBTTL 'Library files'
; 0048 1 !
; 0049 1 ! INCLUDE FILES:
; 0050 1 !
; 0051 1 !
; 0052 1 ! KERMIT common definitions
; 0053 1 !
; 0054 1
; 0055 1 REQUIRE 'KERCOM';
; 0262 1
; 0263 1 %SBTTL 'Global storage for KERMSG'
; 0264 1
; 0265 1 GLOBAL
; 0266 1 !
; 0267 1 ! Receive parameters
; 0268 1 !
; 0269 1 RCV%PKT%SIZE, ! Receive packet size
; 0270 1 RCV%NPAD, ! Padding length
; 0271 1 RCV%PADCHAR, ! Padding character
; 0272 1 RCV%TIMEOUT, ! Time out
; 0273 1 RCV%EOL, ! EOL character
; 0274 1 RCV%QUOTE%CHR, ! Quote character
; 0275 1 RCV%SOH, ! Start of header character
; 0276 1 RCV%8QUOTE%CHR, ! 8-bit quoting character
; 0277 1 !
; 0278 1 ! Miscellaneous parameters
; 0279 1 !
; 0280 1 SET%REPT%CHR, ! Repeat character
; 0281 1 !
; 0282 1 ! Send parameters
; 0283 1 !
; 0284 1 SND%PKT%SIZE, ! Send packet size
; 0285 1 SND%NPAD, ! Padding length
; 0286 1 SND%PADCHAR, ! Padding character
; 0287 1 SND%TIMEOUT, ! Time out
; 0288 1 SND%EOL, ! EOL character
; 0289 1 SND%QUOTE%CHR, ! Quote character
; 0290 1 SND%SOH, ! Start of header character
; 0291 1 SEND%TIMEOUT, ! Time out
; 0292 1 !
; 0293 1 ! Server parameters
; 0294 1 !
; 0295 1 SRV%TIMEOUT, ! Amount of time between NAK's in server
; 0296 1 !
; 0297 1 ! Statistics
; 0298 1 !
; 0299 1 SND%TOTAL%CHARS, ! Total characters sent
; 0300 1 RCV%TOTAL%CHARS, ! Total characters received
; 0301 1 SND%DATA%CHARS, ! Total number of data characters sent
; 0302 1 RCV%DATA%CHARS, ! Total number of data characters received
; 0303 1 SND%NAKS, ! Total NAKs sent
; 0304 1 RCV%NAKS, ! Total NAKs received
; 0305 1 SND%COUNT, ! Count of total number of packets
; 0306 1 RCV%COUNT, ! Count of total number packets received
; 0307 1 SMSG%COUNT, ! Total number of packets sent
; 0308 1 RMSG%COUNT, ! Total number of packets received
; 0309 1 SMSG%TOTAL%CHARS, ! Total chars sent this file xfer
; 0310 1 RMSG%TOTAL%CHARS, ! Total chars rcvd this file xfer
; 0311 1 SMSG%DATA%CHARS, ! Total data chars this file xfer
; 0312 1 RMSG%DATA%CHARS, ! Total data chars this file xfer
; 0313 1 SMSG%NAKS, ! Total number of NAKs this file xfer
; 0314 1 RMSG%NAKS, ! Total number of NAKs received
; 0315 1 XFR%TIME, ! Amount of time last xfr took
; 0316 1 TOTAL%TIME, ! Total time of all xfrs
; 0317 1 ! this file xfer
; 0318 1 LAST%ERROR : VECTOR [CH$ALLOCATION (MAX%MSG + 1)], ! Last error message
; 0319 1 !
; 0320 1 ! Misc constants.
; 0321 1 !
; 0322 1 FILE%NAME : VECTOR [CH$ALLOCATION (MAX%FILE%NAME)],
; 0323 1 FILE%SIZE,
; 0324 1 SI%RETRIES, ! Send init retries to attempt
; 0325 1 PKT%RETRIES, ! Number of retries to try for a message
; 0326 1 DELAY, ! Amount of time to delay
; 0327 1 DUPLEX, ! Type of connection (half or full)
; 0328 1 PARITY%TYPE, ! Type of parity to use
; 0329 1 DEV%PARITY%FLAG, ! True if output device does
; 0330 1 ! parity, false if we do it
; 0331 1 CHKTYPE, ! Type of block check desired
; 0332 1 ABT%FLAG, ! True if aborted file should be discarded
; 0333 1 DEBUG%FLAG, ! Debugging mode on/off
; 0334 1 WARN%FLAG, ! File warning flag
; 0335 1 !![2.0.003] IBM%FLAG, ! Talking to an IBM system
; 0336 1 IBM%CHAR, ! Turnaround character for IBM mode
; 0337 1 ECHO%FLAG, ! Local echo flag
; 0338 1 CONNECT%FLAG, ! Connected flag; True if
; 0339 1 ! terminal and SET LINE are
; 0340 1 ! the same
; 0341 1 ABT%CUR%FILE, ! Abort current file
; 0342 1 ABT%ALL%FILE, ! Abort all files in stream
; 0343 1 TYP%STS%FLAG, ! Type status next message
; 0344 1 TY%FIL, ! Type file specs
; 0345 1 TY%PKT, ! Type packet info
; 0346 1 FIL%NORMAL%FORM, ! Use normal form file names
; 0347 1 GEN%1DATA : VECTOR [CH$ALLOCATION (MAX%MSG)],! Data for generic command
; 0348 1 GEN%1SIZE, ! Size of data in GEN%1DATA
; 0349 1 GEN%2DATA : VECTOR [CH$ALLOCATION (MAX%MSG)],! Second argument for generic command
; 0350 1 GEN%2SIZE, ! Size of data in GEN%2DATA
; 0351 1 GEN%3DATA : VECTOR [CH$ALLOCATION (MAX%MSG)],! Third arg for generic command
; 0352 1 GEN%3SIZE; ! Size of data in GEN%3DATA
; 0353 1 %SBTTL 'End of KERGLB'
; 0354 1 END ! End of module
; 0355 1
; 0356 0 ELUDOM
TITLE KERGLB
TWOSEG
.REQUEST REL:B361LB.REL
RELOC 0
RCV%PKT%SIZE::
BLOCK 1
RCV%NPAD::
BLOCK 1
RCV%PADCHAR::
BLOCK 1
RCV%TIMEOUT::
BLOCK 1
RCV%EOL::
BLOCK 1
RCV%QUOTE%CHR::
BLOCK 1
RCV%SOH::
BLOCK 1
RCV%8QUOTE%CHR::
BLOCK 1
SET%REPT%CHR::
BLOCK 1
SND%PKT%SIZE::
BLOCK 1
SND%NPAD::
BLOCK 1
SND%PADCHAR::
BLOCK 1
SND%TIMEOUT::
BLOCK 1
SND%EOL::
BLOCK 1
SND%QUOTE%CHR::
BLOCK 1
SND%SOH::
BLOCK 1
SEND%TIMEOUT::
BLOCK 1
SRV%TIMEOUT::
BLOCK 1
SND%TOTAL%CHARS::
BLOCK 1
RCV%TOTAL%CHARS::
BLOCK 1
SND%DATA%CHARS::
BLOCK 1
RCV%DATA%CHARS::
BLOCK 1
SND%NAKS::
BLOCK 1
RCV%NAKS::
BLOCK 1
SND%COUNT::
BLOCK 1
RCV%COUNT::
BLOCK 1
SMSG%COUNT::
BLOCK 1
RMSG%COUNT::
BLOCK 1
SMSG%TOTAL%CHARS::
BLOCK 1
RMSG%TOTAL%CHARS::
BLOCK 1
SMSG%DATA%CHARS::
BLOCK 1
RMSG%DATA%CHARS::
BLOCK 1
SMSG%NAKS::
BLOCK 1
RMSG%NAKS::
BLOCK 1
XFR%TIME::
BLOCK 1
TOTAL%TIME::
BLOCK 1
LAST%ERROR::
BLOCK 311
FILE%NAME::
BLOCK 33
FILE%SIZE::
BLOCK 1
SI%RETRIES::
BLOCK 1
PKT%RETRIES::
BLOCK 1
DELAY:: BLOCK 1
DUPLEX::BLOCK 1
PARITY%TYPE::
BLOCK 1
DEV%PARITY%FLAG::
BLOCK 1
CHKTYPE::
BLOCK 1
ABT%FLAG::
BLOCK 1
DEBUG%FLAG::
BLOCK 1
WARN%FLAG::
BLOCK 1
IBM%CHAR::
BLOCK 1
ECHO%FLAG::
BLOCK 1
CONNECT%FLAG::
BLOCK 1
ABT%CUR%FILE::
BLOCK 1
ABT%ALL%FILE::
BLOCK 1
TYP%STS%FLAG::
BLOCK 1
TY%FIL::BLOCK 1
TY%PKT::BLOCK 1
FIL%NORMAL%FORM::
BLOCK 1
GEN%1DATA::
BLOCK 311
GEN%1SIZE::
BLOCK 1
GEN%2DATA::
BLOCK 311
GEN%2SIZE::
BLOCK 1
GEN%3DATA::
BLOCK 311
GEN%3SIZE::
BLOCK 1
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==: 10
GC%CONNECT==: 11
GC%RENAME==: 12
GC%COPY==: 13
GC%WHO==: 14
GC%SEND%MSG==: 15
GC%STATUS==: 16
GC%COMMAND==: 17
GC%KERMIT==: 20
GC%JOURNAL==: 21
GC%VARIABLE==: 22
GC%PROGRAM==: 23
GC%MAX==: 23
DP%FULL==: 0
DP%HALF==: 1
CHK%1CHAR==: 61
CHK%2CHAR==: 62
CHK%CRC==: 63
MAX%MSG==: 1752
; Low segment length: 890 words
; High segment length: 0 words
; Compilation Complete
END