Trailing-Edge
-
PDP-10 Archives
-
TOPS-20_V6.1_DECnetSrc_7-23-85
-
mcb/utilities/lbrcom.lst
There is 1 other file named lbrcom.lst in the archive. Click here to see a list.
12-Apr-1985 07:09:40 TOPS-20 Bliss-36 4A(225) Page 1
30-Dec-1982 17:31:23 DNET61:<DECNET.UTILITIES>LBRCOM.REQ.1 (1)
; 0001 0 ! LBRCOM.BLI - LBR20 COMMON DEFINITIONS
; 0002 0 !
; 0003 0 ! COPYRIGHT (c) 1980, 1981, 1982
; 0004 0 ! DIGITAL EQUIPMENT CORPORATION
; 0005 0 ! Maynard, Massachusetts
; 0006 0 !
; 0007 0 ! This software is furnished under a license and may be used
; 0008 0 ! and copied only in accordance with the terms of such license
; 0009 0 ! and with the inclusion of the above copyright notice. This
; 0010 0 ! software or any other copies thereof may not be provided or
; 0011 0 ! otherwise made available to any other person. No title to
; 0012 0 ! and ownership of the software is hereby transferred.
; 0013 0 !
; 0014 0 ! The information in this software is subject to change
; 0015 0 ! without notice and should not be construed as a commitment
; 0016 0 ! by DIGITAL EQUIPMENT CORPORATION.
; 0017 0 !
; 0018 0 ! DIGITAL assumes no responsibility for the use or reliability
; 0019 0 ! of its software on equipment which is not supplied by
; 0020 0 ! DIGITAL.
; 0021 0 !
; 0022 0
; 0023 0 !++
; 0024 0 ! FACILITY: LBR20 - Librarian Utility
; 0025 0 !
; 0026 0 ! ABSTRACT:
; 0027 0 !
; 0028 0 !
; 0029 0 ! THIS FILE CONTAINS DEFINITIONS COMMON TO ALL THE MODULES OF THE
; 0030 0 ! Librarian
; 0031 0 !
; 0032 0 !
; 0033 0 ! ENVIRONMENT: ANY
; 0034 0 !
; 0035 0 ! AUTHOR: ALAN D. PECKHAM, CREATION DATE: 2-MAY-80
; 0036 0 !
; 0037 0 ! MODIFIED BY:
; 0038 0 !
; 0039 0 ! Alan D. Peckham, : VERSION 01
; 0040 0 ! 01 - Revise file handling interfaces.
; 0041 0 ! 02 - Data structure reformation (change from BLOCK_16 to BLOCK structure).
; 0042 0 ! Add COMPRESS function
; 0043 0 ! 03 - Add FAST switch.
; 0044 0 ! 04 - Add support for RG (replace globals) switch.
; 0045 0 !--
; 0046 0
; 0047 0 !
; 0048 0 ! INCLUDE FILES
; 0049 0 !
; 0050 0
; 0051 0 REQUIRE 'BLI:XPORT';
12-Apr-1985 07:09:40 TOPS-20 Bliss-36 4A(225) Page 2
2-Feb-1984 17:29:53 SNARK:<6.1.NML.BLISS>XPORT.REQ.1 (3)
; %PRINT: 1
; %PRINT: 2
; %PRINT: 3
; %PRINT: 4
; %PRINT: 5
; %PRINT: 6
; %PRINT: 7
; %PRINT: 8
; %PRINT: 9
; %PRINT: 10
; %PRINT: 11
; %PRINT: [0,0,18,0] (+%O'0')
; %PRINT: [0,18,9,0] (+%O'0')
; %PRINT: [0,27,9,0] (+%O'0')
; %PRINT: [1,0,36,0] (+%O'1')
; %PRINT: 2 fullwords
; %PRINT: 2 fullwords
; %PRINT: 2 fullwords
; %PRINT: [2,0,18,0] (+%O'2')
; %PRINT: [2,18,18,0] (+%O'2')
; %PRINT: 3 fullwords
; %PRINT: 3 fullwords
; %PRINT: 3 fullwords
; %PRINT: [0,0,18,0] (+%O'0')
; %PRINT: [0,18,9,0] (+%O'0')
; %PRINT: [0,27,9,0] (+%O'0')
; %PRINT: [1,0,36,0] (+%O'1')
; %PRINT: 2 fullwords
; %PRINT: 2 fullwords
; %PRINT: [2,0,18,0] (+%O'2')
; %PRINT: [2,18,18,0] (+%O'2')
; %PRINT: 3 fullwords
; %PRINT: 3 fullwords
; %PRINT: 3 fullwords
; %PRINT: [0,0,36,1] (+%O'0')
; %PRINT: [1,0,9,0] (+%O'1')
; %PRINT: [1,9,9,0] (+%O'1')
; %PRINT: [1,18,18,0] (+%O'1')
; %PRINT: [2,0,36,1] (+%O'2')
; %PRINT: [3,0,9,0] (+%O'3')
; %PRINT: [3,9,9,0] (+%O'3')
; %PRINT: [3,18,18,0] (+%O'3')
; %PRINT: 4 fullwords
; %PRINT: [0,0,18,1] (+%O'0')
; %PRINT: [0,18,9,1] (+%O'0')
; %PRINT: [0,27,9,1] (+%O'0')
; %PRINT: [1,0,18,0] (+%O'1')
; %PRINT: [1,18,18,0] (+%O'1')
; %PRINT: [2,0,18,0] (+%O'2')
; %PRINT: [3,0,0,0] (+%O'3')
; %PRINT: [6,0,0,0] (+%O'6')
; %PRINT: [8,0,18,0] (+%O'10')
12-Apr-1985 07:09:40 TOPS-20 Bliss-36 4A(225) Page 3
2-Feb-1984 17:29:53 SNARK:<6.1.NML.BLISS>XPORT.REQ.1 (9)
; %PRINT: [8,18,18,0] (+%O'10')
; %PRINT: [9,0,9,0] (+%O'11')
; %PRINT: 1
; %PRINT: 2
; %PRINT: 3
; %PRINT: 4
; %PRINT: 5
; %PRINT: 6
; %PRINT: 7
; %PRINT: [9,18,16,0] (+%O'11')
; %PRINT: [9,18,1,0] (+%O'11')
; %PRINT: [9,19,1,0] (+%O'11')
; %PRINT: [9,20,1,0] (+%O'11')
; %PRINT: [9,21,1,0] (+%O'11')
; %PRINT: [9,22,1,0] (+%O'11')
; %PRINT: [9,23,1,0] (+%O'11')
; %PRINT: [10,0,16,0] (+%O'12')
; %PRINT: [10,0,1,0] (+%O'12')
; %PRINT: [10,1,1,0] (+%O'12')
; %PRINT: [10,2,1,0] (+%O'12')
; %PRINT: [10,3,1,0] (+%O'12')
; %PRINT: [10,4,1,0] (+%O'12')
; %PRINT: [10,18,16,0] (+%O'12')
; %PRINT: [10,18,1,0] (+%O'12')
; %PRINT: [10,19,1,0] (+%O'12')
; %PRINT: [10,20,1,0] (+%O'12')
; %PRINT: [10,21,1,0] (+%O'12')
; %PRINT: [10,22,1,0] (+%O'12')
; %PRINT: [10,23,1,0] (+%O'12')
; %PRINT: [10,24,1,0] (+%O'12')
; %PRINT: [10,25,1,0] (+%O'12')
; %PRINT: [11,0,0,0] (+%O'13')
; %PRINT: [11,0,18,0] (+%O'13')
; %PRINT: [12,0,36,0] (+%O'14')
; %PRINT: [11,0,0,0] (+%O'13')
; %PRINT: [11,0,18,0] (+%O'13')
; %PRINT: [12,0,18,0] (+%O'14')
; %PRINT: [14,0,18,0] (+%O'16')
; %PRINT: [15,0,18,0] (+%O'17')
; %PRINT: [15,0,18,0] (+%O'17')
; %PRINT: [15,18,18,1] (+%O'17')
; %PRINT: [16,0,18,1] (+%O'20')
; %PRINT: [17,0,36,1] (+%O'21')
; %PRINT: [18,0,36,1] (+%O'22')
; %PRINT: [19,0,36,1] (+%O'23')
; %PRINT: [20,0,36,1] (+%O'24')
; %PRINT: [21,0,36,1] (+%O'25')
; %PRINT: [22,0,0,0] (+%O'26')
; %PRINT: [26,0,0,0] (+%O'32')
; %PRINT: [30,0,0,0] (+%O'36')
; %PRINT: [46,0,18,1] (+%O'56')
; %PRINT: [46,18,18,1] (+%O'56')
12-Apr-1985 07:09:40 TOPS-20 Bliss-36 4A(225) Page 4
2-Feb-1984 17:29:53 SNARK:<6.1.NML.BLISS>XPORT.REQ.1 (9)
; %PRINT: [47,0,18,1] (+%O'57')
; %PRINT: [47,18,18,1] (+%O'57')
; %PRINT: [48,0,36,1] (+%O'60')
; %PRINT: [49,0,36,1] (+%O'61')
; %PRINT: [50,0,36,1] (+%O'62')
; %PRINT: [51,0,36,1] (+%O'63')
; %PRINT: [52,0,36,1] (+%O'64')
; %PRINT: [53,0,36,1] (+%O'65')
; %PRINT: [54,0,36,1] (+%O'66')
; %PRINT: [55,0,36,1] (+%O'67')
; %PRINT: [56,0,18,0] (+%O'70')
; %PRINT: [56,0,18,0] (+%O'70')
; %PRINT: [56,18,18,0] (+%O'70')
; %PRINT: [56,0,18,0] (+%O'70')
; %PRINT: [56,0,18,0] (+%O'70')
; %PRINT: [57,0,18,1] (+%O'71')
; %PRINT: 58 fullwords
; %PRINT: [0,0,16,0] (+%O'0')
; %PRINT: [0,0,1,0] (+%O'0')
; %PRINT: [0,1,1,0] (+%O'0')
; %PRINT: [0,2,1,0] (+%O'0')
; %PRINT: [0,3,1,0] (+%O'0')
; %PRINT: [0,4,1,0] (+%O'0')
; %PRINT: [0,5,1,0] (+%O'0')
; %PRINT: [0,6,1,0] (+%O'0')
; %PRINT: [0,7,1,0] (+%O'0')
; %PRINT: [0,8,1,0] (+%O'0')
; %PRINT: [0,9,1,0] (+%O'0')
; %PRINT: [0,10,1,0] (+%O'0')
; %PRINT: [1,0,0,0] (+%O'1')
; %PRINT: [1,0,18,0] (+%O'1')
; %PRINT: [2,0,36,0] (+%O'2')
; %PRINT: [3,0,0,0] (+%O'3')
; %PRINT: [3,0,18,0] (+%O'3')
; %PRINT: [4,0,36,0] (+%O'4')
; %PRINT: [5,0,0,0] (+%O'5')
; %PRINT: [5,0,18,0] (+%O'5')
; %PRINT: [6,0,36,0] (+%O'6')
; %PRINT: [7,0,18,0] (+%O'7')
; %PRINT: [7,18,18,0] (+%O'7')
; %PRINT: [8,0,0,0] (+%O'10')
; %PRINT: [8,0,18,0] (+%O'10')
; %PRINT: [9,0,36,0] (+%O'11')
; %PRINT: [10,0,0,0] (+%O'12')
; %PRINT: [10,0,18,0] (+%O'12')
; %PRINT: [11,0,36,0] (+%O'13')
; %PRINT: [12,0,0,0] (+%O'14')
; %PRINT: [12,0,18,0] (+%O'14')
; %PRINT: [13,0,36,0] (+%O'15')
; %PRINT: [14,0,0,0] (+%O'16')
; %PRINT: [14,0,18,0] (+%O'16')
; %PRINT: [15,0,36,0] (+%O'17')
12-Apr-1985 07:09:40 TOPS-20 Bliss-36 4A(225) Page 5
2-Feb-1984 17:29:53 SNARK:<6.1.NML.BLISS>XPORT.REQ.1 (11)
; %PRINT: [16,0,0,0] (+%O'20')
; %PRINT: [16,0,18,0] (+%O'20')
; %PRINT: [17,0,36,0] (+%O'21')
; %PRINT: 18 fullwords
; %PRINT: [0,0,18,0] (+%O'0')
; %PRINT: [0,18,18,0] (+%O'0')
; %PRINT: 1 fullwords
; %PRINT: 1
; %PRINT: 2
; %PRINT: [0,0,16,0] (+%O'0')
; %PRINT: [0,0,8,0] (+%O'0')
; %PRINT: [0,8,8,0] (+%O'0')
; %PRINT: [0,0,8,0] (+%O'0')
; %PRINT: [0,0,1,0] (+%O'0')
; %PRINT: [0,1,1,0] (+%O'0')
; %PRINT: [0,2,1,0] (+%O'0')
; %PRINT: [0,8,1,0] (+%O'0')
; %PRINT: [0,9,1,0] (+%O'0')
; %PRINT: [0,10,1,0] (+%O'0')
; %PRINT: [0,11,1,0] (+%O'0')
; %PRINT: [0,12,1,0] (+%O'0')
; %PRINT: [0,13,1,0] (+%O'0')
; %PRINT: [0,14,1,0] (+%O'0')
; %PRINT: [0,8,1,0] (+%O'0')
; %PRINT: [0,9,1,0] (+%O'0')
; %PRINT: STR$M_LEFT_JUST = 1
; %PRINT: STR$M_RIGHT_JUS = 2
; %PRINT: STR$M_CENTER = 4
; %PRINT: STR$M_SIGNED = 256
; %PRINT: STR$M_UNSIGNED = 512
; %PRINT: STR$M_LEADING_Z = 1024
; %PRINT: STR$M_LEADING_B = 2048
; %PRINT: STR$M_UP_CASE = 4096
; %PRINT: STR$M_TRUNCATE = 8192
; %PRINT: STR$M_NO_FREE_T = 16384
; %PRINT: STR$M_REMAINDER = 256
; %PRINT: STR$M_TARGET = 512
; %PRINT: 1
; %PRINT: 2
; %PRINT: 3
; %PRINT: 4
; %PRINT: 5
; %PRINT: 6
; %PRINT: 7
; %PRINT: 1
; %PRINT: 2
; %PRINT: 3
; %PRINT: XPO$_NORMAL = 1 (%O'1')
; %PRINT: XPO$_CREATED = 9 (%O'11')
; %PRINT: XPO$_INCOMPLETE = 17 (%O'21')
; %PRINT: XPO$_NEW_FILE = 25 (%O'31')
; %PRINT: XPO$_NEW_PAGE = 33 (%O'41')
12-Apr-1985 07:09:40 TOPS-20 Bliss-36 4A(225) Page 6
2-Feb-1984 17:29:53 SNARK:<6.1.NML.BLISS>XPORT.REQ.1 (21)
; %PRINT: XPO$_END_FILE = 4096 (%O'10000')
; %PRINT: XPO$_BAD_ADDR = 8194 (%O'20002')
; %PRINT: XPO$_BAD_ALIGN = 8202 (%O'20012')
; %PRINT: XPO$_BAD_ARGS = 8210 (%O'20022')
; %PRINT: XPO$_BAD_CONCAT = 8218 (%O'20032')
; %PRINT: XPO$_BAD_DELIM = 8226 (%O'20042')
; %PRINT: XPO$_BAD_DESC = 8234 (%O'20052')
; %PRINT: XPO$_BAD_DEVICE = 8242 (%O'20062')
; %PRINT: XPO$_BAD_DFLT = 8250 (%O'20072')
; %PRINT: XPO$_BAD_DIRECT = 8258 (%O'20102')
; %PRINT: XPO$_BAD_DTYPE = 8266 (%O'20112')
; %PRINT: XPO$_BAD_FORMAT = 8274 (%O'20122')
; %PRINT: XPO$_BAD_IO_OPT = 8282 (%O'20132')
; %PRINT: XPO$_BAD_LENGTH = 8290 (%O'20142')
; %PRINT: XPO$_BAD_NAME = 8298 (%O'20152')
; %PRINT: XPO$_BAD_NEW = 8306 (%O'20162')
; %PRINT: XPO$_BAD_NODE = 8314 (%O'20172')
; %PRINT: XPO$_BAD_ORG = 8322 (%O'20202')
; %PRINT: XPO$_BAD_PROMPT = 8330 (%O'20212')
; %PRINT: XPO$_BAD_RECORD = 8338 (%O'20222')
; %PRINT: XPO$_BAD_REQ = 8346 (%O'20232')
; %PRINT: XPO$_BAD_RLTD = 8354 (%O'20242')
; %PRINT: XPO$_BAD_RSLT = 8362 (%O'20252')
; %PRINT: XPO$_BAD_SPEC = 8370 (%O'20262')
; %PRINT: XPO$_BAD_TYPE = 8378 (%O'20272')
; %PRINT: XPO$_BAD_VER = 8386 (%O'20302')
; %PRINT: XPO$_CHANNEL = 8394 (%O'20312')
; %PRINT: XPO$_CLOSED = 8402 (%O'20322')
; %PRINT: XPO$_CONFLICT = 8410 (%O'20332')
; %PRINT: XPO$_CORRUPTED = 8418 (%O'20342')
; %PRINT: XPO$_EXISTS = 8426 (%O'20352')
; %PRINT: XPO$_FILE_LOCK = 8434 (%O'20362')
; %PRINT: XPO$_FREE_MEM = 8442 (%O'20372')
; %PRINT: XPO$_GET_MEM = 8450 (%O'20402')
; %PRINT: XPO$_IN_USE = 8458 (%O'20412')
; %PRINT: XPO$_IO_BUFFER = 8466 (%O'20422')
; %PRINT: XPO$_IO_ERROR = 8474 (%O'20432')
; %PRINT: XPO$_MISSING = 8482 (%O'20442')
; %PRINT: XPO$_NETWORK = 8490 (%O'20452')
; %PRINT: XPO$_NO_ACCESS = 8498 (%O'20462')
; %PRINT: XPO$_NO_BACKUP = 8506 (%O'20472')
; %PRINT: XPO$_NO_CHANNEL = 8514 (%O'20502')
; %PRINT: XPO$_NO_CLOSE = 8522 (%O'20512')
; %PRINT: XPO$_NO_CONCAT = 8530 (%O'20522')
; %PRINT: XPO$_NO_CREATE = 8538 (%O'20532')
; %PRINT: XPO$_NO_DELETE = 8546 (%O'20542')
; %PRINT: XPO$_NO_DIRECT = 8554 (%O'20552')
; %PRINT: XPO$_NO_FILE = 8562 (%O'20562')
; %PRINT: XPO$_NO_MEMORY = 8570 (%O'20572')
; %PRINT: XPO$_NO_OPEN = 8578 (%O'20602')
; %PRINT: XPO$_NO_READ = 8586 (%O'20612')
; %PRINT: XPO$_NO_RENAME = 8594 (%O'20622')
12-Apr-1985 07:09:40 TOPS-20 Bliss-36 4A(225) Page 7
2-Feb-1984 17:29:53 SNARK:<6.1.NML.BLISS>XPORT.REQ.1 (21)
; %PRINT: XPO$_NO_SPACE = 8602 (%O'20632')
; %PRINT: XPO$_NO_SUBDIR = 8610 (%O'20642')
; %PRINT: XPO$_NO_SUPPORT = 8618 (%O'20652')
; %PRINT: XPO$_NO_WRITE = 8626 (%O'20662')
; %PRINT: XPO$_NOT_CLOSED = 8634 (%O'20672')
; %PRINT: XPO$_NOT_EXPIRE = 8642 (%O'20702')
; %PRINT: XPO$_NOT_INPUT = 8650 (%O'20712')
; %PRINT: XPO$_NOT_ONLINE = 8658 (%O'20722')
; %PRINT: XPO$_NOT_OPEN = 8666 (%O'20732')
; %PRINT: XPO$_NOT_OUTPUT = 8674 (%O'20742')
; %PRINT: XPO$_OPEN = 8682 (%O'20752')
; %PRINT: XPO$_PREV_ERROR = 8690 (%O'20762')
; %PRINT: XPO$_PRIVILEGED = 8698 (%O'20772')
; %PRINT: XPO$_PROTECTED = 8706 (%O'21002')
; %PRINT: XPO$_PUT_MSG = 8714 (%O'21012')
; %PRINT: XPO$_REC_LOCK = 8722 (%O'21022')
; %PRINT: XPO$_RENAME_NEW = 8730 (%O'21032')
; %PRINT: XPO$_RENAME_OLD = 8738 (%O'21042')
; %PRINT: XPO$_TRUNCATED = 8746 (%O'21052')
; %PRINT: XPO$_WILDCARD = 8754 (%O'21062')
; %PRINT: XPO$_BAD_ACCT = 8762 (%O'21072')
; %PRINT: XPO$_BAD_ATTR = 8770 (%O'21102')
; %PRINT: XPO$_BAD_DATA = 8778 (%O'21112')
; %PRINT: XPO$_BAD_MEDIA = 8786 (%O'21122')
; %PRINT: XPO$_BAD_MEMORY = 8794 (%O'21132')
; %PRINT: XPO$_BAD_PROT = 8802 (%O'21142')
; %PRINT: XPO$_BAD_PTR = 8810 (%O'21152')
; %PRINT: XPO$_BAD_RECNUM = 8818 (%O'21162')
; %PRINT: XPO$_BAD_SIZE = 8826 (%O'21172')
; %PRINT: XPO$_BAD_TEMP = 8834 (%O'21202')
; %PRINT: XPO$_CHAN_USED = 8842 (%O'21212')
; %PRINT: XPO$_HOST_ERROR = 8850 (%O'21222')
; %PRINT: XPO$_NO_NODE = 8858 (%O'21232')
; %PRINT: XPO$_NO_STACK = 8866 (%O'21242')
; %PRINT: XPO$_SYS_ERROR = 8874 (%O'21252')
; %PRINT: XPO$_BAD_CLASS = 8882 (%O'21262')
; %PRINT: XPO$_NO_TEMP = 8890 (%O'21272')
; %PRINT: XPO$_FOREGROUND = 8898 (%O'21302')
; %PRINT: XPO$_NO_APPEND = 8906 (%O'21312')
; %PRINT: XPO$_NO_SEQ = 8914 (%O'21322')
; %PRINT: XPO$_BAD_ORDER = 8922 (%O'21332')
; %PRINT: XPO$_BAD_SYNTAX = 8930 (%O'21342')
; %PRINT: XPO$_BAD_IOB = 16388 (%O'40004')
; %PRINT: XPO$_BAD_LOGIC = 16396 (%O'40014')
; %PRINT: XPO$_TERMINATE = 16404 (%O'40024')
; %PRINT: STR$_END_STRING = 2049 (%O'4001')
; %PRINT: STR$_TRUNCATED = 2057 (%O'4011')
; %PRINT: STR$_NOT_TEMP = 2065 (%O'4021')
; %PRINT: STR$_BAD_CHAR = 10242 (%O'24002')
; %PRINT: STR$_BAD_CLASS = 10250 (%O'24012')
; %PRINT: STR$_BAD_DESC = 10258 (%O'24022')
; %PRINT: STR$_BAD_DTYPE = 10266 (%O'24032')
12-Apr-1985 07:09:40 TOPS-20 Bliss-36 4A(225) Page 8
2-Feb-1984 17:29:53 SNARK:<6.1.NML.BLISS>XPORT.REQ.1 (21)
; %PRINT: STR$_BAD_LENGTH = 10274 (%O'24042')
; %PRINT: STR$_BAD_MAXLEN = 10282 (%O'24052')
; %PRINT: STR$_BAD_PATTRN = 10290 (%O'24062')
; %PRINT: STR$_BAD_PTR = 10298 (%O'24072')
; %PRINT: STR$_BAD_REQ = 10306 (%O'24102')
; %PRINT: STR$_BAD_SOURCE = 10314 (%O'24112')
; %PRINT: STR$_BAD_STRNG1 = 10322 (%O'24122')
; %PRINT: STR$_BAD_STRNG2 = 10330 (%O'24132')
; %PRINT: STR$_BAD_TARGET = 10338 (%O'24142')
; %PRINT: STR$_CONFLICT = 10346 (%O'24152')
; %PRINT: STR$_NO_SPACE = 10354 (%O'24162')
; %PRINT: STR$_NO_STRING = 10362 (%O'24172')
; %PRINT: STR$_NO_SUPPORT = 10370 (%O'24202')
; %PRINT: STR$_NO_TEMP = 10378 (%O'24212')
; %PRINT: STR$_NULL_STRNG = 10386 (%O'24222')
; %PRINT: STR$_OUT_RANGE = 10394 (%O'24232')
; %PRINT: STR$_TOO_LONG = 10402 (%O'24242')
; %PRINT: STR$_BAD_LOGIC = 18436 (%O'44004')
; %PRINT: 1
; %PRINT: 2
; %PRINT: 3
; %PRINT: 4
; %PRINT: 5
; %PRINT: 1
; %PRINT: 2
; %PRINT: 3
; %PRINT: 4
; %PRINT: 5
; %PRINT: 6
12-Apr-1985 07:09:40 TOPS-20 Bliss-36 4A(225) Page 9
30-Dec-1982 17:31:23 DNET61:<DECNET.UTILITIES>LBRCOM.REQ.1 (1)
; 3772 0
; 3773 0 !
; 3774 0 ! MACROS
; 3775 0 !
; 3776 0
; 3777 0 MACRO
; M 3778 0 XPO$PTR (addr, idx) =
; 3779 0 CH$PTR (addr, idx, $xpo$bits_byte) %;
; 3780 0
; 3781 0 MACRO
; M 3782 0 POINTR (adr, mask) =
; M 3783 0 adr <%NBITSU (mask AND - mask) - 1,
; 3784 0 %NBITSU (mask) - %NBITSU (mask AND - mask) + 1> %,
; M 3785 0 FLD (val, mask) =
; 3786 0 ((val)^(%NBITSU (mask AND - mask) - 1)) %;
; 3787 0
; 3788 0 !
; 3789 0 ! Convenient character string macros
; 3790 0 !
; 3791 0
; 3792 0 MACRO
; M 3793 0 CH$LEN (PTR) = !Get length of ASCIZ string.
; 3794 0 CH$DIFF(CH$FIND_CH(200,PTR,0),PTR) %,
; M 3795 0 CH$SEQUENCE (CHARS, CS) = !Allocate storage for string.
; 3796 0 VECTOR[CH$ALLOCATION(CHARS,CS)] %,
; M 3797 0 CH$ASCIC [] = !A pointer to an ASCIC string.
; 3798 0 CH$PTR(UPLIT(%STRING(%CHAR(%CHARCOUNT(%REMAINING)),%REMAINING)),1) %,
; M 3799 0 CH$ASCII [] = !A pointer to an ASCII string.
; 3800 0 CH$PTR(UPLIT(%ASCII %STRING(%REMAINING))) %,
; M 3801 0 CH$ASCIZ [] = !A pointer to an ASCIZ string.
; 3802 0 CH$PTR(UPLIT(%ASCIZ %STRING(%REMAINING))) %;
; 3803 0
; 3804 0 !
; 3805 0 ! Bit checking routines
; 3806 0 !
; 3807 0
; 3808 0 MACRO
; M 3809 0 BIT_SET (VALUE, BIT_TO_TEST) =
; 3810 0 (((VALUE) AND (BIT_TO_TEST)) NEQ 0) %,
; M 3811 0 BIT_CLEAR (VALUE, BIT_TO_TEST) =
; 3812 0 (((VALUE) AND (BIT_TO_TEST)) EQL 0) %;
; 3813 0
; 3814 0 MACRO
; M 3815 0 RAD50 (TEXT) =
; 3816 0 UPLIT( RAD50_CHARS( %EXPLODE(%STRING(TEXT)) ) ) %,
; M 3817 0 RAD50_WORD (TEXT) =
; 3818 0 RAD50_CHARS ( %EXPLODE(%STRING(TEXT))) %,
; M 3819 0 RAD50_CHARS [CHAR1, CHAR2, CHAR3] =
; 3820 0 ( RAD50_CHAR(CHAR1) *40+RAD50_CHAR(CHAR2))*40+RAD50_CHAR(CHAR3) %,
; M 3821 0 RAD50_CHAR (CHAR) =
; M 3822 0 %IF %NULL(CHAR) %THEN 0 %FI
; M 3823 0 %IF %IDENTICAL( ' ', CHAR ) %THEN 0 %FI
12-Apr-1985 07:09:40 TOPS-20 Bliss-36 4A(225) Page 10
30-Dec-1982 17:31:23 DNET61:<DECNET.UTILITIES>LBRCOM.REQ.1 (1)
; M 3824 0 %IF %IDENTICAL( 'A', CHAR ) %THEN 1 %FI
; M 3825 0 %IF %IDENTICAL( 'B', CHAR ) %THEN 2 %FI
; M 3826 0 %IF %IDENTICAL( 'C', CHAR ) %THEN 3 %FI
; M 3827 0 %IF %IDENTICAL( 'D', CHAR ) %THEN 4 %FI
; M 3828 0 %IF %IDENTICAL( 'E', CHAR ) %THEN 5 %FI
; M 3829 0 %IF %IDENTICAL( 'F', CHAR ) %THEN 6 %FI
; M 3830 0 %IF %IDENTICAL( 'G', CHAR ) %THEN 7 %FI
; M 3831 0 %IF %IDENTICAL( 'H', CHAR ) %THEN 8 %FI
; M 3832 0 %IF %IDENTICAL( 'I', CHAR ) %THEN 9 %FI
; M 3833 0 %IF %IDENTICAL( 'J', CHAR ) %THEN 10 %FI
; M 3834 0 %IF %IDENTICAL( 'K', CHAR ) %THEN 11 %FI
; M 3835 0 %IF %IDENTICAL( 'L', CHAR ) %THEN 12 %FI
; M 3836 0 %IF %IDENTICAL( 'M', CHAR ) %THEN 13 %FI
; M 3837 0 %IF %IDENTICAL( 'N', CHAR ) %THEN 14 %FI
; M 3838 0 %IF %IDENTICAL( 'O', CHAR ) %THEN 15 %FI
; M 3839 0 %IF %IDENTICAL( 'P', CHAR ) %THEN 16 %FI
; M 3840 0 %IF %IDENTICAL( 'Q', CHAR ) %THEN 17 %FI
; M 3841 0 %IF %IDENTICAL( 'R', CHAR ) %THEN 18 %FI
; M 3842 0 %IF %IDENTICAL( 'S', CHAR ) %THEN 19 %FI
; M 3843 0 %IF %IDENTICAL( 'T', CHAR ) %THEN 20 %FI
; M 3844 0 %IF %IDENTICAL( 'U', CHAR ) %THEN 21 %FI
; M 3845 0 %IF %IDENTICAL( 'V', CHAR ) %THEN 22 %FI
; M 3846 0 %IF %IDENTICAL( 'W', CHAR ) %THEN 23 %FI
; M 3847 0 %IF %IDENTICAL( 'X', CHAR ) %THEN 24 %FI
; M 3848 0 %IF %IDENTICAL( 'Y', CHAR ) %THEN 25 %FI
; M 3849 0 %IF %IDENTICAL( 'Z', CHAR ) %THEN 26 %FI
; M 3850 0 %IF %IDENTICAL( '$', CHAR ) %THEN 27 %FI
; M 3851 0 %IF %IDENTICAL( '.', CHAR ) %THEN 28 %FI
; M 3852 0 %IF %IDENTICAL( '_', CHAR ) %THEN 28 %FI
; M 3853 0 %IF %IDENTICAL( '0', CHAR ) %THEN 30 %FI
; M 3854 0 %IF %IDENTICAL( '1', CHAR ) %THEN 31 %FI
; M 3855 0 %IF %IDENTICAL( '2', CHAR ) %THEN 32 %FI
; M 3856 0 %IF %IDENTICAL( '3', CHAR ) %THEN 33 %FI
; M 3857 0 %IF %IDENTICAL( '4', CHAR ) %THEN 34 %FI
; M 3858 0 %IF %IDENTICAL( '5', CHAR ) %THEN 35 %FI
; M 3859 0 %IF %IDENTICAL( '6', CHAR ) %THEN 36 %FI
; M 3860 0 %IF %IDENTICAL( '7', CHAR ) %THEN 37 %FI
; M 3861 0 %IF %IDENTICAL( '8', CHAR ) %THEN 38 %FI
; 3862 0 %IF %IDENTICAL( '9', CHAR ) %THEN 39 %FI %;
; 3863 0
; 3864 0 !
; 3865 0 ! I/O definitions
; 3866 0 !
; 3867 0
; 3868 0 $LITERAL
; 3869 0 F_READ = 0,
; 3870 0 F_WRITE = $DISTINCT,
; 3871 0 F_APPEND = $DISTINCT,
; 3872 0 F_MODIFY = $DISTINCT,
; 3873 0 F_UPDATE = $DISTINCT;
; 3874 0
; 3875 0 $LITERAL
12-Apr-1985 07:09:40 TOPS-20 Bliss-36 4A(225) Page 11
30-Dec-1982 17:31:23 DNET61:<DECNET.UTILITIES>LBRCOM.REQ.1 (1)
; 3876 0 F_ASCII = 0,
; 3877 0 F_BINARY = $DISTINCT;
; 3878 0
; 3879 0 MACRO
; M 3880 0 PUTLN (SKIP, EDIT) [] =
; M 3881 0 BEGIN
; M 3882 0 EXTERNAL ROUTINE PUTLIN : NOVALUE;
; M 3883 0 %IF %LENGTH GTR 2
; M 3884 0 %THEN
; M 3885 0 LOCAL PRM_LIST : VECTOR[%LENGTH-2];
; M 3886 0 MACRO PUTASG[PARAMETER] =
; M 3887 0 PRM_LIST[%COUNT]=PARAMETER %QUOTE %;
; M 3888 0 PUTASG( %REMAINING );
; M 3889 0 PUTLIN( SKIP, EDIT, PRM_LIST )
; M 3890 0 %ELSE
; M 3891 0 PUTLIN( SKIP, EDIT, 0 )
; M 3892 0 %FI
; 3893 0 END %,
; M 3894 0 TYPLN (SKIP, EDIT) [] =
; M 3895 0 BEGIN
; M 3896 0 EXTERNAL ROUTINE TYPLIN : NOVALUE;
; M 3897 0 %IF %LENGTH GTR 2
; M 3898 0 %THEN
; M 3899 0 LOCAL PRM_LIST : VECTOR[%LENGTH-2];
; M 3900 0 MACRO TYPASG[PARAMETER] =
; M 3901 0 PRM_LIST[%COUNT]=PARAMETER %QUOTE %;
; M 3902 0 TYPASG( %REMAINING );
; M 3903 0 TYPLIN( SKIP, EDIT, PRM_LIST )
; M 3904 0 %ELSE
; M 3905 0 TYPLIN( SKIP, EDIT, 0 )
; M 3906 0 %FI
; 3907 0 END %;
; 3908 0
; 3909 0 MACRO
; M 3910 0 FATAL =
; 3911 0 '*FATAL* ' %,
; M 3912 0 WARNING =
; 3913 0 '*WARNING* ' %;
; 3914 0
; 3915 0 !
; 3916 0 ! EQUATED SYMBOLS
; 3917 0 !
; 3918 0
; 3919 0 LITERAL
; 3920 0 TRUE = 1 eql 1, !Truisms.
; 3921 0 FALSE = 1 eql 0,
; 3922 0 DEBUG = FALSE, !No debugging available
; 3923 0 LBR_SUPPORT = %C'X', !Support code.
; 3924 0 LBR_VERSION = 1, !Version number.
; 3925 0 LBR_UPDATE = 0, !Update release number.
; 3926 0 LBR_EDIT = 6; !Edit number.
; 3927 0
12-Apr-1985 07:09:40 TOPS-20 Bliss-36 4A(225) Page 12
30-Dec-1982 17:31:23 DNET61:<DECNET.UTILITIES>LBRCOM.REQ.1 (1)
; 3928 0 MACRO
; 3929 0 LST_FILE = %STRING ('Listing of') %,
; 3930 0 LST_TITLE = %STRING ('LBR20 - Librarian Utility') %,
; 3931 0 PROMPT = %STRING ('LBR20') %;
; 3932 0
; 3933 0 LITERAL
; 3934 0 LBR_MAX_EXTRACTS = 8, !Maximum number of extracted modules.
; 3935 0 LBR_MAX_GLOBAL_DELETES = 15, !Maximum number of global symbol deletes.
; 3936 0 LBR_MAX_MODULE_DELETES = 15, !Maximum number of module deletes.
; 3937 0 LBR_MAX_OBJ = 10, !Maximum number of input files.
; 3938 0 LBR_MAX_FILES = LBR_MAX_OBJ + 5; !Maximum number of open files.
; 3939 0
; 3940 0 $LITERAL
; 3941 0 !
; 3942 0 ! General switches
; 3943 0 !
; 3944 0 M_VERSION = $DISTINCT, !Display version.
; 3945 0 M_HELP = $DISTINCT, !Display HLP file.
; 3946 0 M_EXIT = $DISTINCT, !Exit switch specified.
; 3947 0 M_WIDE = $DISTINCT, !Use 132 column listing format.
; 3948 0 M_FAST = $DISTINCT, !Do not rewrite EPT or MNT
; 3949 0 !until all operations finished.
; 3950 0 M_LIST = $DISTINCT, !List library
; 3951 0 M_LIST_ENTRIES = $DISTINCT, !List EPT table
; 3952 0 M_LIST_HEADERS = $DISTINCT, !List module header
; 3953 0 M_CREATE = $DISTINCT, !Creating new library
; 3954 0 M_COMPRESS = $DISTINCT, !Compress library
; 3955 0 M_NOEPT = $DISTINCT, !Do not insert entry points
; 3956 0 M_REPLACE = $DISTINCT, !Replace modules
; 3957 0 M_RG = $DISTINCT, !Replace globals
; 3958 0 M_SS = $DISTINCT, !Selective search
; 3959 0 M_MAX = M_SS,
; 3960 0 !
; 3961 0 ! Number of bits required
; 3962 0 !
; 3963 0 M_MAX_BITS = M_MAX + 1; !Maximum number of bits needed.
; 3964 0
; 3965 0 MACRO
; 3966 0 F_NOEPT = 0, 0, 1, 0 %,
; 3967 0 F_REPLACE = 0, 1, 1, 0 %,
; 3968 0 F_RG = 0, 2, 1, 0 %,
; 3969 0 F_SS = 0, 3, 1, 0 %;
; 3970 0
; 3971 0 LITERAL
; 3972 0 F_MAX = 1; !Allocation for file flags.
; 3973 0 !
; 3974 0 ! Field and structure definitions
; 3975 0 !
; 3976 0
; 3977 0 FIELD
; 3978 0 LIB_FIELDS =
; 3979 0 SET
12-Apr-1985 07:09:40 TOPS-20 Bliss-36 4A(225) Page 13
30-Dec-1982 17:31:23 DNET61:<DECNET.UTILITIES>LBRCOM.REQ.1 (1)
; 3980 0 LIB_TYPE = [0, 18, 8, 0],
; 3981 0
; 3982 0 LIB_IDENTIFICATION = [0, 24, 8, 0],
; 3983 0 LIB_VERSION_1 = [0, 0, 16, 0],
; 3984 0 LIB_VERSION_2 = [1, 18, 16, 0],
; 3985 0 LIB_YEAR = [1, 0, 16, 0],
; 3986 0 LIB_MONTH = [2, 18, 16, 0],
; 3987 0 LIB_DAY = [2, 0, 16, 0],
; 3988 0 LIB_HOUR = [3, 18, 16, 0],
; 3989 0 LIB_MINUTE = [3, 0, 16, 0],
; 3990 0 LIB_SECOND = [4, 18, 16, 0],
; 3991 0 LIB_EPT_SIZE = [4, 0, 8, 0],
; 3992 0 LIB_EPT_BLOCK = [5, 18, 16, 0],
; 3993 0 LIB_EPT_ALLOCATED = [5, 0, 16, 0],
; 3994 0 LIB_EPT_AVAILABLE = [6, 18, 16, 0],
; 3995 0 LIB_MNT_SIZE = [6, 0, 8, 0],
; 3996 0 LIB_MNT_BLOCK = [7, 18, 16, 0],
; 3997 0 LIB_MNT_ALLOCATED = [7, 0, 16, 0],
; 3998 0 LIB_MNT_AVAILABLE = [8, 18, 16, 0],
; 3999 0 LIB_DELETED_1 = [8, 0, 16, 0], !(in bytes)
; 4000 0 LIB_DELETED_2 = [9, 18, 16, 0],
; 4001 0 LIB_CONTIGUOUS_1 = [9, 0, 16, 0], !(in bytes)
; 4002 0 LIB_CONTIGUOUS_2 = [10, 18, 16, 0],
; 4003 0 LIB_INSERT_BLOCK = [10, 0, 16, 0],
; 4004 0 LIB_INSERT_OFFSET = [11, 18, 16, 0]
; 4005 0 TES;
; 4006 0
; 4007 0 LITERAL
; 4008 0 LIB_OBJECT = 0, !LIB_TYPE
; 4009 0 LIB_MACRO = 1,
; 4010 0 LIB_ID_2 = 2, !LIB_IDENTIFICATION
; 4011 0 LIB_SIZE = 24*2, !in bytes
; 4012 0 LIB_LENGTH = 12;
; 4013 0
; 4014 0 FIELD
; 4015 0 EPT_FIELDS =
; 4016 0 SET
; 4017 0 EPT_NAME_1 = [0, 18, 16, 0],
; 4018 0 EPT_NAME_2 = [0, 0, 16, 0],
; 4019 0 EPT_BLOCK = [1, 18, 16, 0],
; 4020 0 EPT_OFFSET = [1, 0, 16, 0]
; 4021 0 TES;
; 4022 0
; 4023 0 LITERAL
; 4024 0 EPT_SIZE = 4*2, !in bytes
; 4025 0 EPT_LENGTH = 2;
; 4026 0
; 4027 0 FIELD
; 4028 0 MNT_FIELDS =
; 4029 0 SET
; 4030 0 MNT_NAME_1 = [0, 18, 16, 0],
; 4031 0 MNT_NAME_2 = [0, 0, 16, 0],
12-Apr-1985 07:09:40 TOPS-20 Bliss-36 4A(225) Page 14
30-Dec-1982 17:31:23 DNET61:<DECNET.UTILITIES>LBRCOM.REQ.1 (1)
; 4032 0 MNT_BLOCK = [1, 18, 16, 0],
; 4033 0 MNT_OFFSET = [1, 0, 16, 0]
; 4034 0 TES;
; 4035 0
; 4036 0 LITERAL
; 4037 0 MNT_SIZE = 4*2, !in bytes
; 4038 0 MNT_LENGTH = 2;
; 4039 0
; 4040 0 FIELD
; 4041 0 HDR_FIELDS =
; 4042 0 SET
; 4043 0 HDR_STATUS = [0, 18, 8, 0],
; 4044 0 HDR_DELETED = [$SUB_FIELD (HDR_STATUS, 0, 0, 1, 0)],
; 4045 0
; 4046 0 HDR_ATTRIBUTES = [0, 26, 8, 0],
; 4047 0 HDR_SS = [$SUB_FIELD (HDR_ATTRIBUTES, 0, 0, 1, 0)],
; 4048 0
; 4049 0 HDR_SIZE_1 = [0, 0, 16, 0], !(in bytes)
; 4050 0 HDR_SIZE_2 = [1, 18, 16, 0],
; 4051 0 HDR_YEAR = [1, 0, 16, 0],
; 4052 0 HDR_MONTH = [2, 18, 16, 0],
; 4053 0 HDR_DAY = [2, 0, 16, 0],
; 4054 0 HDR_IDENT_1 = [3, 18, 16, 0],
; 4055 0 HDR_IDENT_2 = [3, 0, 16, 0]
; 4056 0 TES;
; 4057 0
; 4058 0 LITERAL
; 4059 0 HDR_SIZE = 8*2, !in bytes
; 4060 0 HDR_LENGTH = 4;
; 4061 0
; 4062 0 ! LBRCOM.BLI - LAST LINE
; Run Time: 00:51.9
; Elapsed Time: 01:04.4
; Lines/CPU Min: 4694
; Lexemes/CPU-Min:233076
; Memory Used: 88 pages
; Library Precompilation Complete