Trailing-Edge
-
PDP-10 Archives
-
TOPS-20_V6.1_DECnetSrc_7-23-85
-
mcb/utilities/lbrlis.lst
There is 1 other file named lbrlis.lst in the archive. Click here to see a list.
LBRLIS 12-Apr-1985 07:12:35 TOPS-20 Bliss-36 4A(225) Page 1
30-Dec-1982 17:41:00 DNET61:<DECNET.UTILITIES>LBRLIS.BLI.1 (1)
; 0001 0 MODULE LBRLIS ( !List Contents of Library
; 0002 0 IDENT = '001010',
; 0003 0 LANGUAGE (BLISS16, BLISS36)
; 0004 0 ) =
; 0005 1 BEGIN
; 0006 1 !
; 0007 1 !
; 0008 1 !
; 0009 1 ! COPYRIGHT (c) 1980, 1981, 1982
; 0010 1 ! DIGITAL EQUIPMENT CORPORATION
; 0011 1 ! Maynard, Massachusetts
; 0012 1 !
; 0013 1 ! This software is furnished under a license and may be used
; 0014 1 ! and copied only in accordance with the terms of such license
; 0015 1 ! and with the inclusion of the above copyright notice. This
; 0016 1 ! software or any other copies thereof may not be provided or
; 0017 1 ! otherwise made available to any other person. No title to
; 0018 1 ! and ownership of the software is hereby transferred.
; 0019 1 !
; 0020 1 ! The information in this software is subject to change
; 0021 1 ! without notice and should not be construed as a commitment
; 0022 1 ! by DIGITAL EQUIPMENT CORPORATION.
; 0023 1 !
; 0024 1 ! DIGITAL assumes no responsibility for the use or reliability
; 0025 1 ! of its software on equipment which is not supplied by
; 0026 1 ! DIGITAL.
; 0027 1 !
; 0028 1
; 0029 1 !++
; 0030 1 ! FACILITY: LBR20 - Librarian Utility
; 0031 1 !
; 0032 1 ! ABSTRACT:
; 0033 1 !
; 0034 1 !
; 0035 1 ! This module contains the routines to display the contents of the
; 0036 1 ! currently open library file.
; 0037 1 !
; 0038 1 !
; 0039 1 ! ENVIRONMENT: ANY
; 0040 1 !
; 0041 1 ! AUTHOR: ALAN D. PECKHAM, CREATION DATE: 5-MAY-80
; 0042 1 !
; 0043 1 ! MODIFIED BY:
; 0044 1 !
; 0045 1 ! Alan D. Peckham, : VERSION 01
; 0046 1 ! 01 - Data structure reformation (change from BLOCK_16 to BLOCK structure).
; 0047 1 !--
; 0048 1
; 0049 1 !
; 0050 1 ! TABLE OF CONTENTS:
; 0051 1 !
; 0052 1
LBRLIS 12-Apr-1985 07:12:35 TOPS-20 Bliss-36 4A(225) Page 2
001010 30-Dec-1982 17:41:00 DNET61:<DECNET.UTILITIES>LBRLIS.BLI.1 (1)
; 0053 1 FORWARD ROUTINE
; 0054 1 LIST : NOVALUE, !List contents of library
; 0055 1 LIST_ENTRIES : NOVALUE; !List entry points
; 0056 1
; 0057 1 !
; 0058 1 ! INCLUDE FILES
; 0059 1 !
; 0060 1
; 0061 1 LIBRARY 'LBRCOM'; !LBR COMMON DEFINITIONS
; 0062 1
; 0063 1 !
; 0064 1 ! MACROS:
; 0065 1 !
; 0066 1 ! NONE
; 0067 1 !
; 0068 1 ! EQUATED SYMBOLS:
; 0069 1 !
; 0070 1
; 0071 1 LITERAL
; 0072 1 BLOCK_SIZE = 512;
; 0073 1
; 0074 1 !
; 0075 1 ! OWN STORAGE:
; 0076 1 !
; 0077 1
; 0078 1 OWN
; 0079 1 LIBBLK : INITIAL (0);
; 0080 1
; 0081 1 !
; 0082 1 ! EXTERNAL REFERENCES:
; 0083 1 !
; 0084 1
; 0085 1 EXTERNAL ROUTINE
; 0086 1 GETFIL, !Get a word from the file.
; 0087 1 POSFIL, !Position to a word in the file
; 0088 1 !on the listing device.
; 0089 1 !and force a page break.
; 0090 1 SKIP : NOVALUE; !Skip the specified number of lines.
; 0091 1
; 0092 1 EXTERNAL
; 0093 1 LIBEPT : REF BLOCKVECTOR [1, EPT_LENGTH] FIELD (EPT_FIELDS),
; 0094 1 LIBHDR : REF BLOCK [LIB_LENGTH] FIELD (LIB_FIELDS),
; 0095 1 LIBMNT : REF BLOCKVECTOR [1, MNT_LENGTH] FIELD (MNT_FIELDS),
; 0096 1 FLAGS : BITVECTOR [M_MAX_BITS];
; 0097 1
LBRLIS 12-Apr-1985 07:12:35 TOPS-20 Bliss-36 4A(225) Page 3
001010 30-Dec-1982 17:41:00 DNET61:<DECNET.UTILITIES>LBRLIS.BLI.1 (2)
; 0098 1 GLOBAL ROUTINE LIST (LIB_FILBLK) : NOVALUE =
; 0099 1
; 0100 1 !++
; 0101 1 ! FUNCTIONAL DESCRIPTION:
; 0102 1 !
; 0103 1 !
; 0104 1 !
; 0105 1 !
; 0106 1 ! FORMAL PARAMETERS:
; 0107 1 !
; 0108 1 !
; 0109 1 ! IMPLICIT INPUTS:
; 0110 1 !
; 0111 1 ! NONE
; 0112 1 !
; 0113 1 ! IMPLICIT OUTPUTS:
; 0114 1 !
; 0115 1 ! NONE
; 0116 1 !
; 0117 1 ! ROUTINE VALUE:
; 0118 1 !
; 0119 1 ! NONE
; 0120 1 !
; 0121 1 ! SIDE EFFECTS
; 0122 1 !
; 0123 1 ! NONE
; 0124 1 !
; 0125 1 !--
; 0126 1
; 0127 2 BEGIN
; 0128 2
; 0129 2 LOCAL
; 0130 2 TEMP;
; 0131 2
; 0132 2 LIBBLK = .LIB_FILBLK;
; P 0133 2 PUTLN (1, CH$ASCIZ ('Object module library created by: LBR %2R'), .LIBHDR [LIB_VERSION_1],
; 0134 2 .LIBHDR [LIB_VERSION_2]);
; 0135 3 BEGIN
; 0136 3
; 0137 3 LOCAL
; 0138 3 DATE : VECTOR [3],
; 0139 3 TIME : VECTOR [3];
; 0140 3
; 0141 3 DATE [0] = .LIBHDR [LIB_YEAR];
; 0142 3 DATE [1] = .LIBHDR [LIB_MONTH];
; 0143 3 DATE [2] = .LIBHDR [LIB_DAY];
; 0144 3 TIME [0] = .LIBHDR [LIB_HOUR];
; 0145 3 TIME [1] = .LIBHDR [LIB_MINUTE];
; 0146 3 TIME [2] = .LIBHDR [LIB_SECOND];
; 0147 3 PUTLN (0, CH$ASCIZ ('Last insert occurred %Y at %3Z'), DATE, TIME);
; 0148 2 END;
; 0149 2
LBRLIS 12-Apr-1985 07:12:35 TOPS-20 Bliss-36 4A(225) Page 4
001010 30-Dec-1982 17:41:00 DNET61:<DECNET.UTILITIES>LBRLIS.BLI.1 (2)
; 0150 2 IF (TEMP = .LIBHDR [LIB_MNT_ALLOCATED]) NEQ 0
; 0151 2 THEN
; P 0152 2 PUTLN (0,
; 0153 2 CH$ASCIZ ('MNT entries allocated: %D; available: %D'), .TEMP, .LIBHDR [LIB_MNT_AVAILABLE]);
; 0154 2
; 0155 2 IF (TEMP = .LIBHDR [LIB_EPT_ALLOCATED]) NEQ 0
; 0156 2 THEN
; P 0157 2 PUTLN (0,
; 0158 2 CH$ASCIZ ('EPT entries allocated: %D; available: %D'), .TEMP, .LIBHDR [LIB_EPT_AVAILABLE]);
; 0159 2
; 0160 2 IF (TEMP = .LIBHDR [LIB_CONTIGUOUS_2]) NEQ 0
; 0161 2 THEN
; P 0162 2 PUTLN (0, CH$ASCIZ ('File space available: %D words'),
; 0163 2 .TEMP/2);
; 0164 2
; 0165 2 IF (TEMP = .LIBHDR [LIB_DELETED_2]) NEQ 0
; 0166 2 THEN
; P 0167 2 PUTLN (0,
; 0168 2 CH$ASCIZ ('Recoverable deleted space: %D words'), .TEMP/2);
; 0169 2
; 0170 2 IF (TEMP = .LIBHDR [LIB_MNT_ALLOCATED] - .LIBHDR [LIB_MNT_AVAILABLE]) NEQ 0
; 0171 2 THEN
; 0172 3 BEGIN
; 0173 3 SKIP (1);
; 0174 3
; 0175 3 INCRA MNT FROM LIBMNT [0, 0, 0, 0, 0] TO LIBMNT [.TEMP - 1, 0, 0, 0, 0] BY LIBMNT [1, 0, 0, 0, 0] -
; 0176 3 LIBMNT [0, 0, 0, 0, 0] DO
; 0177 4 BEGIN
; 0178 4
; 0179 4 MAP
; 0180 4 MNT : REF BLOCK [MNT_LENGTH] FIELD (MNT_FIELDS);
; 0181 4
; 0182 4 IF .FLAGS [M_LIST_HEADERS]
; 0183 4 THEN
; 0184 5 BEGIN
; 0185 5
; 0186 5 LOCAL
; 0187 5 DATE : VECTOR [3],
; 0188 5 HDR : BLOCK [HDR_LENGTH] FIELD (HDR_FIELDS);
; 0189 5
; 0190 5 POSFIL (.LIBBLK, .MNT [MNT_BLOCK], .MNT [MNT_OFFSET] + 2);
; 0191 5 GETFIL (.LIBBLK, CH$PTR (HDR,, 18), HDR_SIZE/2);
; 0192 5 DATE [0] = .HDR [HDR_YEAR];
; 0193 5 DATE [1] = .HDR [HDR_MONTH];
; 0194 5 DATE [2] = .HDR [HDR_DAY];
; P 0195 5 PUTLN (1, CH$ASCIZ ('%2R%9TSize: %D%21TInserted:%Y%41TIdent:%2R'), .MNT [MNT_NAME_1],
; 0196 5 .MNT [MNT_NAME_2], .HDR [HDR_SIZE_2], DATE, .HDR [HDR_IDENT_1], .HDR [HDR_IDENT_2]);
; 0197 5
; 0198 5 IF .HDR [HDR_SS] NEQ 0 THEN PUTLN (0, CH$ASCIZ ('%9TAttributes: SS'));
; 0199 5
; 0200 5 END
; 0201 4 ELSE
LBRLIS 12-Apr-1985 07:12:35 TOPS-20 Bliss-36 4A(225) Page 5
001010 30-Dec-1982 17:41:00 DNET61:<DECNET.UTILITIES>LBRLIS.BLI.1 (2)
; 0202 4
; 0203 4 IF .FLAGS [M_LIST_ENTRIES]
; 0204 4 THEN
; 0205 5 BEGIN
; 0206 6 PUTLN (1, CH$ASCIZ ('** Module:%2R'), .MNT [MNT_NAME_1], .MNT [MNT_NAME_2])
; 0207 5 END
; 0208 4 ELSE
; 0209 4 PUTLN (0, CH$ASCIZ ('%2R'), .MNT [MNT_NAME_1], .MNT [MNT_NAME_2]);
; 0210 4
; 0211 4 IF .FLAGS [M_LIST_ENTRIES]
; 0212 4 THEN
; 0213 5 BEGIN
; 0214 5
; 0215 5 LOCAL
; 0216 5 COUNT,
; 0217 5 NAMES : VECTOR [16];
; 0218 5
; 0219 5 SKIP (1);
; 0220 5 COUNT = 0;
; 0221 5
; 0222 5 INCRA EPT FROM LIBEPT [0, 0, 0, 0, 0] TO LIBEPT [.LIBHDR [LIB_EPT_ALLOCATED] - .LIBHDR [
; 0223 5 LIB_EPT_AVAILABLE] - 1, 0, 0, 0, 0] BY LIBEPT [1, 0, 0, 0, 0] - LIBEPT [0, 0,
; 0224 5 0, 0, 0] DO
; 0225 6 BEGIN
; 0226 6
; 0227 6 MAP
; 0228 6 EPT : REF BLOCK [EPT_LENGTH] FIELD (EPT_FIELDS);
; 0229 6
; 0230 7 IF (.EPT [EPT_BLOCK] EQL .MNT [MNT_BLOCK]) AND (.EPT [EPT_OFFSET] EQL .MNT [MNT_OFFSET])
; 0231 6 THEN
; 0232 7 BEGIN
; 0233 7 NAMES [.COUNT] = .EPT [EPT_NAME_1];
; 0234 7 NAMES [COUNT = .COUNT + 1] = .EPT [EPT_NAME_2];
; 0235 7
; 0236 7 IF (COUNT = .COUNT + 1) GEQ 16
; 0237 7 THEN
; 0238 8 BEGIN
; 0239 8 LIST_ENTRIES (NAMES, .COUNT/2);
; 0240 8 COUNT = 0;
; 0241 7 END;
; 0242 7
; 0243 6 END;
; 0244 6
; 0245 5 END;
; 0246 5
; 0247 5 IF .COUNT GTR 0
; 0248 5 THEN
; 0249 6 BEGIN
; 0250 6 LIST_ENTRIES (NAMES, .COUNT/2);
; 0251 6 COUNT = 0;
; 0252 5 END;
; 0253 5
LBRLIS 12-Apr-1985 07:12:35 TOPS-20 Bliss-36 4A(225) Page 6
001010 30-Dec-1982 17:41:00 DNET61:<DECNET.UTILITIES>LBRLIS.BLI.1 (2)
; 0254 5 SKIP (1);
; 0255 4 END;
; 0256 4
; 0257 3 END;
; 0258 3
; 0259 2 END;
; 0260 2
; 0261 1 END; !OF LIST
TITLE LBRLIS
TWOSEG
.REQUEST SYS:B362LB.REL
RELOC 400000 ; 400000'
P.AAA: BYTE (7)"O","b","j","e","c" ; Objec 400000' 117 142 152 145 143
BYTE (7)"t"," ","m","o","d" ; t mod 400001' 164 040 155 157 144
BYTE (7)"u","l","e"," ","l" ; ule l 400002' 165 154 145 040 154
BYTE (7)"i","b","r","a","r" ; ibrar 400003' 151 142 162 141 162
BYTE (7)"y"," ","c","r","e" ; y cre 400004' 171 040 143 162 145
BYTE (7)"a","t","e","d"," " ; ated 400005' 141 164 145 144 040
BYTE (7)"b","y",":"," "," " ; by: 400006' 142 171 072 040 040
BYTE (7)"L","B","R"," ","%" ; LBR % 400007' 114 102 122 040 045
BYTE (7)"2","R",000,000,000 ; 2R 400010' 062 122 000 000 000
P.AAB: BYTE (7)"L","a","s","t"," " ; Last 400011' 114 141 163 164 040
BYTE (7)"i","n","s","e","r" ; inser 400012' 151 156 163 145 162
BYTE (7)"t"," ","o","c","c" ; t occ 400013' 164 040 157 143 143
BYTE (7)"u","r","r","e","d" ; urred 400014' 165 162 162 145 144
BYTE (7)" ","%","Y"," ","a" ; %Y a 400015' 040 045 131 040 141
BYTE (7)"t"," ","%","3","Z" ; t %3Z 400016' 164 040 045 063 132
BYTE (7)000,000,000,000,000 ; 400017' 000 000 000 000 000
P.AAC: BYTE (7)"M","N","T"," ","e" ; MNT e 400020' 115 116 124 040 145
BYTE (7)"n","t","r","i","e" ; ntrie 400021' 156 164 162 151 145
BYTE (7)"s"," ","a","l","l" ; s all 400022' 163 040 141 154 154
BYTE (7)"o","c","a","t","e" ; ocate 400023' 157 143 141 164 145
BYTE (7)"d",":"," ","%","D" ; d: %D 400024' 144 072 040 045 104
BYTE (7)";"," ","a","v","a" ; ; ava 400025' 073 040 141 166 141
BYTE (7)"i","l","a","b","l" ; ilabl 400026' 151 154 141 142 154
BYTE (7)"e",":"," ","%","D" ; e: %D 400027' 145 072 040 045 104
BYTE (7)000,000,000,000,000 ; 400030' 000 000 000 000 000
P.AAD: BYTE (7)"E","P","T"," ","e" ; EPT e 400031' 105 120 124 040 145
BYTE (7)"n","t","r","i","e" ; ntrie 400032' 156 164 162 151 145
BYTE (7)"s"," ","a","l","l" ; s all 400033' 163 040 141 154 154
BYTE (7)"o","c","a","t","e" ; ocate 400034' 157 143 141 164 145
BYTE (7)"d",":"," ","%","D" ; d: %D 400035' 144 072 040 045 104
BYTE (7)";"," ","a","v","a" ; ; ava 400036' 073 040 141 166 141
BYTE (7)"i","l","a","b","l" ; ilabl 400037' 151 154 141 142 154
BYTE (7)"e",":"," ","%","D" ; e: %D 400040' 145 072 040 045 104
BYTE (7)000,000,000,000,000 ; 400041' 000 000 000 000 000
LBRLIS 12-Apr-1985 07:12:35 TOPS-20 Bliss-36 4A(225) Page 7
001010 30-Dec-1982 17:41:00 DNET61:<DECNET.UTILITIES>LBRLIS.BLI.1 (2)
P.AAE: BYTE (7)"F","i","l","e"," " ; File 400042' 106 151 154 145 040
BYTE (7)"s","p","a","c","e" ; space 400043' 163 160 141 143 145
BYTE (7)" ","a","v","a","i" ; avai 400044' 040 141 166 141 151
BYTE (7)"l","a","b","l","e" ; lable 400045' 154 141 142 154 145
BYTE (7)":"," ","%","D"," " ; : %D 400046' 072 040 045 104 040
BYTE (7)"w","o","r","d","s" ; words 400047' 167 157 162 144 163
BYTE (7)000,000,000,000,000 ; 400050' 000 000 000 000 000
P.AAF: BYTE (7)"R","e","c","o","v" ; Recov 400051' 122 145 143 157 166
BYTE (7)"e","r","a","b","l" ; erabl 400052' 145 162 141 142 154
BYTE (7)"e"," ","d","e","l" ; e del 400053' 145 040 144 145 154
BYTE (7)"e","t","e","d"," " ; eted 400054' 145 164 145 144 040
BYTE (7)"s","p","a","c","e" ; space 400055' 163 160 141 143 145
BYTE (7)":"," ","%","D"," " ; : %D 400056' 072 040 045 104 040
BYTE (7)"w","o","r","d","s" ; words 400057' 167 157 162 144 163
BYTE (7)000,000,000,000,000 ; 400060' 000 000 000 000 000
P.AAG: BYTE (7)"%","2","R","%","9" ; %2R%9 400061' 045 062 122 045 071
BYTE (7)"T","S","i","z","e" ; TSize 400062' 124 123 151 172 145
BYTE (7)":"," ","%","D","%" ; : %D% 400063' 072 040 045 104 045
BYTE (7)"2","1","T","I","n" ; 21TIn 400064' 062 061 124 111 156
BYTE (7)"s","e","r","t","e" ; serte 400065' 163 145 162 164 145
BYTE (7)"d",":","%","Y","%" ; d:%Y% 400066' 144 072 045 131 045
BYTE (7)"4","1","T","I","d" ; 41TId 400067' 064 061 124 111 144
BYTE (7)"e","n","t",":","%" ; ent:% 400070' 145 156 164 072 045
BYTE (7)"2","R",000,000,000 ; 2R 400071' 062 122 000 000 000
P.AAH: BYTE (7)"%","9","T","A","t" ; %9TAt 400072' 045 071 124 101 164
BYTE (7)"t","r","i","b","u" ; tribu 400073' 164 162 151 142 165
BYTE (7)"t","e","s",":"," " ; tes: 400074' 164 145 163 072 040
BYTE (7)"S","S",000,000,000 ; SS 400075' 123 123 000 000 000
P.AAI: BYTE (7)"*","*"," ","M","o" ; ** Mo 400076' 052 052 040 115 157
BYTE (7)"d","u","l","e",":" ; dule: 400077' 144 165 154 145 072
BYTE (7)"%","2","R",000,000 ; %2R 400100' 045 062 122 000 000
P.AAJ: BYTE (7)"%","2","R",000,000 ; %2R 400101' 045 062 122 000 000
RELOC 0 ; 000000'
LIBBLK: EXP 0 ; 000000' 000000 000000
EXTERN GETFIL, POSFIL, SKIP, LIBEPT, LIBHDR, LIBMNT, FLAGS, PUTLIN
AC0= 0
AC1= 1
AC2= 2
AC3= 3
AC4= 4
AC5= 5
AC6= 6
AC7= 7
AC10= 10
AC11= 11
AC12= 12
LBRLIS 12-Apr-1985 07:12:35 TOPS-20 Bliss-36 4A(225) Page 8
001010 30-Dec-1982 17:41:00 DNET61:<DECNET.UTILITIES>LBRLIS.BLI.1 (2)
AC13= 13
AC14= 14
FP= 15
AC16= 16
SP= 17
RELOC 400102 ; 400102'
LIST:: PUSH SP,AC0 ; SP,AC0 400102' 261 17 0 00 000000 0098
PUSH SP,AC10 ; SP,AC10 400103' 261 17 0 00 000010
PUSH SP,AC11 ; SP,AC11 400104' 261 17 0 00 000011
PUSH SP,AC12 ; SP,AC12 400105' 261 17 0 00 000012
PUSH SP,AC13 ; SP,AC13 400106' 261 17 0 00 000013
PUSH SP,AC14 ; SP,AC14 400107' 261 17 0 00 000014
PUSH SP,AC16 ; SP,AC16 400110' 261 17 0 00 000016
ADJSP SP,23 ; SP,23 400111' 105 17 0 00 000023
MOVE AC0,-33(SP) ; AC0,LIB_FILBLK 400112' 200 00 0 17 777745 0132
MOVEM AC0,LIBBLK ; AC0,LIBBLK 400113' 202 00 0 00 000000'
MOVE AC1,LIBHDR ; AC1,LIBHDR 400114' 200 01 0 00 000000* 0134
LDB AC0,C.1 ; AC0,[POINT 16,0(AC1),35] <0,16> 400115' 135 00 0 00 400502'
MOVEM AC0,-22(SP) ; AC0,PRM_LIST 400116' 202 00 0 17 777756
LDB AC0,C.2 ; AC0,[POINT 16,1(AC1),17] <18,16> 400117' 135 00 0 00 400503'
MOVEM AC0,-21(SP) ; AC0,PRM_LIST+1 400120' 202 00 0 17 777757
PUSH SP,C.32 ; SP,[1] 400121' 261 17 0 00 400541'
PUSH SP,C.33 ; SP,[POINT 7,P.AAA-1,34] <1,7> 400122' 261 17 0 00 400542'
MOVEI AC0,-24(SP) ; AC0,PRM_LIST 400123' 201 00 0 17 777754
PUSH SP,AC0 ; SP,AC0 400124' 261 17 0 00 000000
PUSHJ SP,PUTLIN ; SP,PUTLIN 400125' 260 17 0 00 000000*
MOVE AC1,LIBHDR ; AC1,LIBHDR 400126' 200 01 0 00 000000* 0141
LDB AC0,C.3 ; AC0,[POINT 16,1(AC1),35] <0,16> 400127' 135 00 0 00 400504'
MOVEM AC0,-25(SP) ; AC0,DATE 400130' 202 00 0 17 777753
LDB AC0,C.4 ; AC0,[POINT 16,2(AC1),17] <18,16> 400131' 135 00 0 00 400505' 0142
MOVEM AC0,-24(SP) ; AC0,PRM_LIST+1 400132' 202 00 0 17 777754
LDB AC0,C.5 ; AC0,[POINT 16,2(AC1),35] <0,16> 400133' 135 00 0 00 400506' 0143
MOVEM AC0,-23(SP) ; AC0,DATE+2 400134' 202 00 0 17 777755
LDB AC0,C.6 ; AC0,[POINT 16,3(AC1),17] <18,16> 400135' 135 00 0 00 400507' 0144
MOVEM AC0,-22(SP) ; AC0,TIME 400136' 202 00 0 17 777756
LDB AC0,C.7 ; AC0,[POINT 16,3(AC1),35] <0,16> 400137' 135 00 0 00 400510' 0145
MOVEM AC0,-21(SP) ; AC0,TIME+1 400140' 202 00 0 17 777757
LDB AC0,C.8 ; AC0,[POINT 16,4(AC1),17] <18,16> 400141' 135 00 0 00 400511' 0146
MOVEM AC0,-20(SP) ; AC0,TIME+2 400142' 202 00 0 17 777760
MOVEI AC0,-25(SP) ; AC0,DATE 400143' 201 00 0 17 777753 0147
MOVEM AC0,-17(SP) ; AC0,PRM_LIST 400144' 202 00 0 17 777761
MOVEI AC0,-22(SP) ; AC0,TIME 400145' 201 00 0 17 777756
MOVEM AC0,-16(SP) ; AC0,PRM_LIST+1 400146' 202 00 0 17 777762
SETZM 0(SP) ; 0(SP) 400147' 402 00 0 17 000000
PUSH SP,C.34 ; SP,[POINT 7,P.AAB-1,34] <1,7> 400150' 261 17 0 00 400543'
MOVEI AC0,-20(SP) ; AC0,PRM_LIST 400151' 201 00 0 17 777760
PUSH SP,AC0 ; SP,AC0 400152' 261 17 0 00 000000
PUSHJ SP,PUTLIN ; SP,PUTLIN 400153' 260 17 0 00 000000*
MOVE AC1,LIBHDR ; AC1,LIBHDR 400154' 200 01 0 00 000000* 0150
LDB AC16,C.9 ; TEMP,[POINT 16,7(AC1),35] <0,16> 400155' 135 16 0 00 400512'
LBRLIS 12-Apr-1985 07:12:35 TOPS-20 Bliss-36 4A(225) Page 9
001010 30-Dec-1982 17:41:00 DNET61:<DECNET.UTILITIES>LBRLIS.BLI.1 (2)
JUMPE AC16,L.1 ; TEMP,L.1 400156' 322 16 0 00 400170'
MOVEM AC16,-27(SP) ; TEMP,PRM_LIST 400157' 202 16 0 17 777751 0153
LDB AC0,C.10 ; AC0,[POINT 16,10(AC1),17] <18,16> 400160' 135 00 0 00 400513'
MOVEM AC0,-26(SP) ; AC0,PRM_LIST+1 400161' 202 00 0 17 777752
SETZM 0(SP) ; 0(SP) 400162' 402 00 0 17 000000
PUSH SP,C.35 ; SP,[POINT 7,P.AAC-1,34] <1,7> 400163' 261 17 0 00 400544'
MOVEI AC0,-30(SP) ; AC0,PRM_LIST 400164' 201 00 0 17 777750
PUSH SP,AC0 ; SP,AC0 400165' 261 17 0 00 000000
PUSHJ SP,PUTLIN ; SP,PUTLIN 400166' 260 17 0 00 000000*
ADJSP SP,-2 ; SP,-2 400167' 105 17 0 00 777776
L.1: MOVE AC1,LIBHDR ; AC1,LIBHDR 400170' 200 01 0 00 000000* 0155
LDB AC16,C.11 ; TEMP,[POINT 16,5(AC1),35] <0,16> 400171' 135 16 0 00 400514'
JUMPE AC16,L.2 ; TEMP,L.2 400172' 322 16 0 00 400204'
MOVEM AC16,-27(SP) ; TEMP,PRM_LIST 400173' 202 16 0 17 777751 0158
LDB AC0,C.12 ; AC0,[POINT 16,6(AC1),17] <18,16> 400174' 135 00 0 00 400515'
MOVEM AC0,-26(SP) ; AC0,PRM_LIST+1 400175' 202 00 0 17 777752
SETZM 0(SP) ; 0(SP) 400176' 402 00 0 17 000000
PUSH SP,C.36 ; SP,[POINT 7,P.AAD-1,34] <1,7> 400177' 261 17 0 00 400545'
MOVEI AC0,-30(SP) ; AC0,PRM_LIST 400200' 201 00 0 17 777750
PUSH SP,AC0 ; SP,AC0 400201' 261 17 0 00 000000
PUSHJ SP,PUTLIN ; SP,PUTLIN 400202' 260 17 0 00 000000*
ADJSP SP,-2 ; SP,-2 400203' 105 17 0 00 777776
L.2: MOVE AC1,LIBHDR ; AC1,LIBHDR 400204' 200 01 0 00 000000* 0160
LDB AC16,C.13 ; TEMP,[POINT 16,12(AC1),17] <18,16> 400205' 135 16 0 00 400516'
JUMPE AC16,L.3 ; TEMP,L.3 400206' 322 16 0 00 400220'
MOVE AC1,AC16 ; AC1,TEMP 400207' 200 01 0 00 000016 0163
IDIVI AC1,2 ; AC1,2 400210' 231 01 0 00 000002
MOVEM AC1,-6(SP) ; AC1,PRM_LIST 400211' 202 01 0 17 777772
SETZM 0(SP) ; 0(SP) 400212' 402 00 0 17 000000
PUSH SP,C.37 ; SP,[POINT 7,P.AAE-1,34] <1,7> 400213' 261 17 0 00 400546'
MOVEI AC0,-7(SP) ; AC0,PRM_LIST 400214' 201 00 0 17 777771
PUSH SP,AC0 ; SP,AC0 400215' 261 17 0 00 000000
PUSHJ SP,PUTLIN ; SP,PUTLIN 400216' 260 17 0 00 000000*
ADJSP SP,-2 ; SP,-2 400217' 105 17 0 00 777776
L.3: MOVE AC1,LIBHDR ; AC1,LIBHDR 400220' 200 01 0 00 000000* 0165
LDB AC16,C.14 ; TEMP,[POINT 16,11(AC1),17] <18,16> 400221' 135 16 0 00 400517'
JUMPE AC16,L.4 ; TEMP,L.4 400222' 322 16 0 00 400234'
MOVE AC1,AC16 ; AC1,TEMP 400223' 200 01 0 00 000016 0168
IDIVI AC1,2 ; AC1,2 400224' 231 01 0 00 000002
MOVEM AC1,-7(SP) ; AC1,PRM_LIST 400225' 202 01 0 17 777771
SETZM 0(SP) ; 0(SP) 400226' 402 00 0 17 000000
PUSH SP,C.38 ; SP,[POINT 7,P.AAF-1,34] <1,7> 400227' 261 17 0 00 400547'
MOVEI AC0,-10(SP) ; AC0,PRM_LIST 400230' 201 00 0 17 777770
PUSH SP,AC0 ; SP,AC0 400231' 261 17 0 00 000000
PUSHJ SP,PUTLIN ; SP,PUTLIN 400232' 260 17 0 00 000000*
ADJSP SP,-2 ; SP,-2 400233' 105 17 0 00 777776
L.4: MOVE AC1,LIBHDR ; AC1,LIBHDR 400234' 200 01 0 00 000000* 0170
LDB AC16,C.9 ; TEMP,[POINT 16,7(AC1),35] <0,16> 400235' 135 16 0 00 400512'
LDB AC0,C.10 ; AC0,[POINT 16,10(AC1),17] <18,16> 400236' 135 00 0 00 400513'
SUB AC16,AC0 ; TEMP,AC0 400237' 274 16 0 00 000000
JUMPE AC16,L.16 ; TEMP,L.16 400240' 322 16 0 00 400471'
PUSH SP,C.32 ; SP,[1] 400241' 261 17 0 00 400541' 0173
LBRLIS 12-Apr-1985 07:12:35 TOPS-20 Bliss-36 4A(225) Page 10
001010 30-Dec-1982 17:41:00 DNET61:<DECNET.UTILITIES>LBRLIS.BLI.1 (2)
PUSHJ SP,SKIP ; SP,SKIP 400242' 260 17 0 00 000000*
MOVE AC14,LIBMNT ; AC14,LIBMNT 400243' 200 14 0 00 000000* 0175
IMULI AC16,2 ; TEMP,2 400244' 221 16 0 00 000002
ADD AC16,AC14 ; AC16,AC14 400245' 270 16 0 00 000014
MOVE AC0,AC16 ; AC0,AC16 400246' 200 00 0 00 000016
SUBI AC0,2 ; AC0,2 400247' 275 00 0 00 000002
MOVE AC1,AC14 ; AC1,AC14 400250' 200 01 0 00 000014
SUB AC1,AC14 ; AC1,AC14 400251' 274 01 0 00 000014
ADDI AC1,2 ; AC1,2 400252' 271 01 0 00 000002
MOVEM AC1,-6(SP) ; AC1,-6(SP) 400253' 202 01 0 17 777772
JRST L.15 ; L.15 400254' 254 00 0 00 400466'
L.5: MOVEI AC1,400 ; AC1,400 400255' 201 01 0 00 000400 0182
TDNN AC1,FLAGS ; AC1,FLAGS 400256' 616 01 0 00 000000*
JRST L.7 ; L.7 400257' 254 00 0 00 400335'
PUSH SP,LIBBLK ; SP,LIBBLK 400260' 261 17 0 00 000000' 0190
LDB AC1,C.15 ; AC1,[POINT 16,1(MNT),17] <18,16> 400261' 135 01 0 00 400520'
PUSH SP,AC1 ; SP,AC1 400262' 261 17 0 00 000001
LDB AC1,C.16 ; AC1,[POINT 16,1(MNT),35] <0,16> 400263' 135 01 0 00 400521'
ADDI AC1,2 ; AC1,2 400264' 271 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 400265' 261 17 0 00 000001
PUSHJ SP,POSFIL ; SP,POSFIL 400266' 260 17 0 00 000000*
PUSH SP,LIBBLK ; SP,LIBBLK 400267' 261 17 0 00 000000' 0191
MOVEI AC1,-32(SP) ; AC1,HDR-1 400270' 201 01 0 17 777746
HRLI AC1,2200 ; AC1,2200 400271' 505 01 0 00 002200
PUSH SP,AC1 ; SP,AC1 400272' 261 17 0 00 000001
PUSH SP,C.39 ; SP,[10] 400273' 261 17 0 00 400550'
PUSHJ SP,GETFIL ; SP,GETFIL 400274' 260 17 0 00 000000*
LDB AC1,C.17 ; AC1,[POINT 16,TIME+1,35] <0,16> 400275' 135 01 0 00 400522' 0192
MOVEM AC1,-36(SP) ; AC1,DATE 400276' 202 01 0 17 777742
LDB AC1,C.18 ; AC1,[POINT 16,TIME+2,17] <18,16> 400277' 135 01 0 00 400523' 0193
MOVEM AC1,-35(SP) ; AC1,PRM_LIST+1 400300' 202 01 0 17 777743
LDB AC1,C.19 ; AC1,[POINT 16,TIME+2,35] <0,16> 400301' 135 01 0 00 400524' 0194
MOVEM AC1,-34(SP) ; AC1,DATE+2 400302' 202 01 0 17 777744
LDB AC1,C.20 ; AC1,[POINT 16,0(MNT),17] <18,16> 400303' 135 01 0 00 400525' 0196
MOVEM AC1,-27(SP) ; AC1,PRM_LIST 400304' 202 01 0 17 777751
LDB AC1,C.21 ; AC1,[POINT 16,0(MNT),35] <0,16> 400305' 135 01 0 00 400526'
MOVEM AC1,-26(SP) ; AC1,PRM_LIST+1 400306' 202 01 0 17 777752
LDB AC1,C.22 ; AC1,[POINT 16,TIME+1,17] <18,16> 400307' 135 01 0 00 400527'
MOVEM AC1,-25(SP) ; AC1,PRM_LIST+2 400310' 202 01 0 17 777753
MOVEI AC1,-36(SP) ; AC1,DATE 400311' 201 01 0 17 777742
MOVEM AC1,-24(SP) ; AC1,PRM_LIST+3 400312' 202 01 0 17 777754
LDB AC1,C.23 ; AC1,[POINT 16,HDR+3,17] <18,16> 400313' 135 01 0 00 400530'
MOVEM AC1,-23(SP) ; AC1,PRM_LIST+4 400314' 202 01 0 17 777755
LDB AC1,C.24 ; AC1,[POINT 16,HDR+3,35] <0,16> 400315' 135 01 0 00 400531'
MOVEM AC1,-22(SP) ; AC1,PRM_LIST+5 400316' 202 01 0 17 777756
PUSH SP,C.32 ; SP,[1] 400317' 261 17 0 00 400541'
PUSH SP,C.40 ; SP,[POINT 7,P.AAG-1,34] <1,7> 400320' 261 17 0 00 400551'
MOVEI AC1,-31(SP) ; AC1,PRM_LIST 400321' 201 01 0 17 777747
PUSH SP,AC1 ; SP,AC1 400322' 261 17 0 00 000001
PUSHJ SP,PUTLIN ; SP,PUTLIN 400323' 260 17 0 00 000000*
LDB AC1,C.25 ; AC1,[POINT 1,HDR,9] <26,1> 400324' 135 01 0 00 400532' 0198
JUMPE AC1,L.6 ; AC1,L.6 400325' 322 01 0 00 400333'
LBRLIS 12-Apr-1985 07:12:35 TOPS-20 Bliss-36 4A(225) Page 11
001010 30-Dec-1982 17:41:00 DNET61:<DECNET.UTILITIES>LBRLIS.BLI.1 (2)
SETZM 0(SP) ; 0(SP) 400326' 402 00 0 17 000000
PUSH SP,C.41 ; SP,[POINT 7,P.AAH-1,34] <1,7> 400327' 261 17 0 00 400552'
PUSH SP,C.42 ; SP,[0] 400330' 261 17 0 00 400553'
PUSHJ SP,PUTLIN ; SP,PUTLIN 400331' 260 17 0 00 000000*
ADJSP SP,-2 ; SP,-2 400332' 105 17 0 00 777776
L.6: ADJSP SP,-7 ; SP,-7 400333' 105 17 0 00 777771 0184
JRST L.9 ; L.9 400334' 254 00 0 00 400364' 0182
L.7: MOVEI AC1,200 ; AC1,200 400335' 201 01 0 00 000200 0203
TDNN AC1,FLAGS ; AC1,FLAGS 400336' 616 01 0 00 000000*
JRST L.8 ; L.8 400337' 254 00 0 00 400353'
LDB AC1,C.20 ; AC1,[POINT 16,0(MNT),17] <18,16> 400340' 135 01 0 00 400525' 0206
MOVEM AC1,-30(SP) ; AC1,PRM_LIST 400341' 202 01 0 17 777750
LDB AC1,C.21 ; AC1,[POINT 16,0(MNT),35] <0,16> 400342' 135 01 0 00 400526'
MOVEM AC1,-27(SP) ; AC1,PRM_LIST+1 400343' 202 01 0 17 777751
PUSH SP,C.32 ; SP,[1] 400344' 261 17 0 00 400541'
PUSH SP,C.43 ; SP,[POINT 7,P.AAI-1,34] <1,7> 400345' 261 17 0 00 400554'
MOVEI AC1,-32(SP) ; AC1,PRM_LIST 400346' 201 01 0 17 777746
PUSH SP,AC1 ; SP,AC1 400347' 261 17 0 00 000001
PUSHJ SP,PUTLIN ; SP,PUTLIN 400350' 260 17 0 00 000000*
ADJSP SP,-1 ; SP,-1 400351' 105 17 0 00 777777 0205
JRST L.9 ; L.9 400352' 254 00 0 00 400364' 0203
L.8: LDB AC1,C.20 ; AC1,[POINT 16,0(MNT),17] <18,16> 400353' 135 01 0 00 400525' 0209
MOVEM AC1,-30(SP) ; AC1,PRM_LIST 400354' 202 01 0 17 777750
LDB AC1,C.21 ; AC1,[POINT 16,0(MNT),35] <0,16> 400355' 135 01 0 00 400526'
MOVEM AC1,-27(SP) ; AC1,PRM_LIST+1 400356' 202 01 0 17 777751
SETZM 0(SP) ; 0(SP) 400357' 402 00 0 17 000000
PUSH SP,C.44 ; SP,[POINT 7,P.AAJ-1,34] <1,7> 400360' 261 17 0 00 400555'
MOVEI AC1,-31(SP) ; AC1,PRM_LIST 400361' 201 01 0 17 777747
PUSH SP,AC1 ; SP,AC1 400362' 261 17 0 00 000001
PUSHJ SP,PUTLIN ; SP,PUTLIN 400363' 260 17 0 00 000000*
L.9: MOVEI AC1,200 ; AC1,200 400364' 201 01 0 00 000200 0211
TDNN AC1,FLAGS ; AC1,FLAGS 400365' 616 01 0 00 000000*
JRST L.14 ; L.14 400366' 254 00 0 00 400464'
PUSH SP,C.32 ; SP,[1] 400367' 261 17 0 00 400541' 0219
PUSHJ SP,SKIP ; SP,SKIP 400370' 260 17 0 00 000000*
SETZ AC13, ; COUNT, 400371' 400 13 0 00 000000 0220
MOVE AC16,LIBEPT ; AC16,LIBEPT 400372' 200 16 0 00 000000* 0222
MOVE AC1,LIBHDR ; AC1,LIBHDR 400373' 200 01 0 00 000000*
LDB AC2,C.11 ; AC2,[POINT 16,5(AC1),35] <0,16> 400374' 135 02 0 00 400514'
LDB AC3,C.12 ; AC3,[POINT 16,6(AC1),17] <18,16> 400375' 135 03 0 00 400515'
SUB AC2,AC3 ; AC2,AC3 400376' 274 02 0 00 000003
IMULI AC2,2 ; AC2,2 400377' 221 02 0 00 000002 0223
ADD AC2,AC16 ; AC2,AC16 400400' 270 02 0 00 000016
MOVE AC11,AC2 ; AC11,AC2 400401' 200 11 0 00 000002
SUBI AC11,2 ; AC11,2 400402' 275 11 0 00 000002
MOVE AC1,AC16 ; AC1,AC16 400403' 200 01 0 00 000016
SUB AC1,AC16 ; AC1,AC16 400404' 274 01 0 00 000016
MOVE AC10,AC1 ; AC10,AC1 400405' 200 10 0 00 000001
ADDI AC10,2 ; AC10,2 400406' 271 10 0 00 000002
MOVE AC12,AC14 ; AC12,MNT 400407' 200 12 0 00 000014 0230
AOJA AC12,L.12 ; AC12,L.12 400410' 344 12 0 00 400446' 0223
L.10: LDB AC1,C.26 ; AC1,[POINT 16,1(EPT),17] <18,16> 400411' 135 01 0 00 400533' 0230
LBRLIS 12-Apr-1985 07:12:35 TOPS-20 Bliss-36 4A(225) Page 12
001010 30-Dec-1982 17:41:00 DNET61:<DECNET.UTILITIES>LBRLIS.BLI.1 (2)
LDB AC2,C.27 ; AC2,[POINT 16,0(AC12),17] <18,16> 400412' 135 02 0 00 400534'
CAME AC1,AC2 ; AC1,AC2 400413' 312 01 0 00 000002
JRST L.11 ; L.11 400414' 254 00 0 00 400445'
LDB AC1,C.28 ; AC1,[POINT 16,1(EPT),35] <0,16> 400415' 135 01 0 00 400535'
LDB AC2,C.29 ; AC2,[POINT 16,0(AC12),35] <0,16> 400416' 135 02 0 00 400536'
CAME AC1,AC2 ; AC1,AC2 400417' 312 01 0 00 000002
JRST L.11 ; L.11 400420' 254 00 0 00 400445'
MOVEI AC1,-33(SP) ; AC1,NAMES 400421' 201 01 0 17 777745 0233
ADD AC1,AC13 ; AC1,COUNT 400422' 270 01 0 00 000013
LDB AC2,C.30 ; AC2,[POINT 16,0(EPT),17] <18,16> 400423' 135 02 0 00 400537'
MOVEM AC2,0(AC1) ; AC2,0(AC1) 400424' 202 02 0 01 000000
ADDI AC13,1 ; COUNT,1 400425' 271 13 0 00 000001 0234
MOVEI AC1,-33(SP) ; AC1,NAMES 400426' 201 01 0 17 777745
ADD AC1,AC13 ; AC1,COUNT 400427' 270 01 0 00 000013
LDB AC2,C.31 ; AC2,[POINT 16,0(EPT),35] <0,16> 400430' 135 02 0 00 400540'
MOVEM AC2,0(AC1) ; AC2,0(AC1) 400431' 202 02 0 01 000000
ADDI AC13,1 ; COUNT,1 400432' 271 13 0 00 000001 0236
CAIGE AC13,20 ; COUNT,20 400433' 305 13 0 00 000020
JRST L.11 ; L.11 400434' 254 00 0 00 400445'
MOVEI AC1,-33(SP) ; AC1,NAMES 400435' 201 01 0 17 777745 0239
PUSH SP,AC1 ; SP,AC1 400436' 261 17 0 00 000001
MOVE AC1,AC13 ; AC1,COUNT 400437' 200 01 0 00 000013
IDIVI AC1,2 ; AC1,2 400440' 231 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 400441' 261 17 0 00 000001
PUSHJ SP,LIST_ENTRIES ; SP,LIST_ENTRIES 400442' 260 17 0 00 000000V
SETZ AC13, ; COUNT, 400443' 400 13 0 00 000000 0240
ADJSP SP,-2 ; SP,-2 400444' 105 17 0 00 777776 0238
L.11: ADD AC16,AC10 ; EPT,AC10 400445' 270 16 0 00 000010 0223
L.12: CAMG AC16,AC11 ; EPT,AC11 400446' 317 16 0 00 000011
JRST L.10 ; L.10 400447' 254 00 0 00 400411'
JUMPLE AC13,L.13 ; COUNT,L.13 400450' 323 13 0 00 400461' 0247
MOVEI AC1,-33(SP) ; AC1,NAMES 400451' 201 01 0 17 777745 0250
PUSH SP,AC1 ; SP,AC1 400452' 261 17 0 00 000001
MOVE AC1,AC13 ; AC1,COUNT 400453' 200 01 0 00 000013
IDIVI AC1,2 ; AC1,2 400454' 231 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 400455' 261 17 0 00 000001
PUSHJ SP,LIST_ENTRIES ; SP,LIST_ENTRIES 400456' 260 17 0 00 000000V
SETZ AC13, ; COUNT, 400457' 400 13 0 00 000000 0251
ADJSP SP,-2 ; SP,-2 400460' 105 17 0 00 777776 0249
L.13: PUSH SP,C.32 ; SP,[1] 400461' 261 17 0 00 400541' 0254
PUSHJ SP,SKIP ; SP,SKIP 400462' 260 17 0 00 000000*
ADJSP SP,-2 ; SP,-2 400463' 105 17 0 00 777776 0213
L.14: ADJSP SP,-2 ; SP,-2 400464' 105 17 0 00 777776 0177
ADD AC14,-6(SP) ; MNT,-6(SP) 400465' 270 14 0 17 777772 0175
L.15: CAMG AC14,AC0 ; MNT,AC0 400466' 317 14 0 00 000000
JRST L.5 ; L.5 400467' 254 00 0 00 400255'
ADJSP SP,-1 ; SP,-1 400470' 105 17 0 00 777777 0172
L.16: ADJSP SP,-30 ; SP,-30 400471' 105 17 0 00 777750 0127
POP SP,AC16 ; SP,AC16 400472' 262 17 0 00 000016 0098
POP SP,AC14 ; SP,AC14 400473' 262 17 0 00 000014
POP SP,AC13 ; SP,AC13 400474' 262 17 0 00 000013
POP SP,AC12 ; SP,AC12 400475' 262 17 0 00 000012
LBRLIS 12-Apr-1985 07:12:35 TOPS-20 Bliss-36 4A(225) Page 13
001010 30-Dec-1982 17:41:00 DNET61:<DECNET.UTILITIES>LBRLIS.BLI.1 (2)
POP SP,AC11 ; SP,AC11 400476' 262 17 0 00 000011
POP SP,AC10 ; SP,AC10 400477' 262 17 0 00 000010
POP SP,AC0 ; SP,AC0 400500' 262 17 0 00 000000
POPJ SP, ; SP, 400501' 263 17 0 00 000000
C.1: POINT 16,0(AC1),35 ; 16,0(AC1),35 400502' 00 20 0 01 000000
C.2: POINT 16,1(AC1),17 ; 16,1(AC1),17 400503' 22 20 0 01 000001
C.3: POINT 16,1(AC1),35 ; 16,1(AC1),35 400504' 00 20 0 01 000001
C.4: POINT 16,2(AC1),17 ; 16,2(AC1),17 400505' 22 20 0 01 000002
C.5: POINT 16,2(AC1),35 ; 16,2(AC1),35 400506' 00 20 0 01 000002
C.6: POINT 16,3(AC1),17 ; 16,3(AC1),17 400507' 22 20 0 01 000003
C.7: POINT 16,3(AC1),35 ; 16,3(AC1),35 400510' 00 20 0 01 000003
C.8: POINT 16,4(AC1),17 ; 16,4(AC1),17 400511' 22 20 0 01 000004
C.9: POINT 16,7(AC1),35 ; 16,7(AC1),35 400512' 00 20 0 01 000007
C.10: POINT 16,10(AC1),17 ; 16,10(AC1),17 400513' 22 20 0 01 000010
C.11: POINT 16,5(AC1),35 ; 16,5(AC1),35 400514' 00 20 0 01 000005
C.12: POINT 16,6(AC1),17 ; 16,6(AC1),17 400515' 22 20 0 01 000006
C.13: POINT 16,12(AC1),17 ; 16,12(AC1),17 400516' 22 20 0 01 000012
C.14: POINT 16,11(AC1),17 ; 16,11(AC1),17 400517' 22 20 0 01 000011
C.15: POINT 16,1(AC14),17 ; 16,1(MNT),17 400520' 22 20 0 14 000001
C.16: POINT 16,1(AC14),35 ; 16,1(MNT),35 400521' 00 20 0 14 000001
C.17: POINT 16,-32(SP),35 ; 16,TIME+1,35 400522' 00 20 0 17 777746
C.18: POINT 16,-31(SP),17 ; 16,TIME+2,17 400523' 22 20 0 17 777747
C.19: POINT 16,-31(SP),35 ; 16,TIME+2,35 400524' 00 20 0 17 777747
C.20: POINT 16,0(AC14),17 ; 16,0(MNT),17 400525' 22 20 0 14 000000
C.21: POINT 16,0(AC14),35 ; 16,0(MNT),35 400526' 00 20 0 14 000000
C.22: POINT 16,-32(SP),17 ; 16,TIME+1,17 400527' 22 20 0 17 777746
C.23: POINT 16,-30(SP),17 ; 16,HDR+3,17 400530' 22 20 0 17 777750
C.24: POINT 16,-30(SP),35 ; 16,HDR+3,35 400531' 00 20 0 17 777750
C.25: POINT 1,-36(SP),9 ; 1,HDR,9 400532' 32 01 0 17 777742
C.26: POINT 16,1(AC16),17 ; 16,1(EPT),17 400533' 22 20 0 16 000001
C.27: POINT 16,0(AC12),17 ; 16,0(AC12),17 400534' 22 20 0 12 000000
C.28: POINT 16,1(AC16),35 ; 16,1(EPT),35 400535' 00 20 0 16 000001
C.29: POINT 16,0(AC12),35 ; 16,0(AC12),35 400536' 00 20 0 12 000000
C.30: POINT 16,0(AC16),17 ; 16,0(EPT),17 400537' 22 20 0 16 000000
C.31: POINT 16,0(AC16),35 ; 16,0(EPT),35 400540' 00 20 0 16 000000
C.32: EXP 1 ; 1 400541' 000000 000001
C.33: POINT 7,P.AAA-1,34 ; 7,P.AAA-1,34 400542' 01 07 0 00 377777'
C.34: POINT 7,P.AAB-1,34 ; 7,P.AAB-1,34 400543' 01 07 0 00 400010'
C.35: POINT 7,P.AAC-1,34 ; 7,P.AAC-1,34 400544' 01 07 0 00 400017'
C.36: POINT 7,P.AAD-1,34 ; 7,P.AAD-1,34 400545' 01 07 0 00 400030'
C.37: POINT 7,P.AAE-1,34 ; 7,P.AAE-1,34 400546' 01 07 0 00 400041'
C.38: POINT 7,P.AAF-1,34 ; 7,P.AAF-1,34 400547' 01 07 0 00 400050'
C.39: EXP 10 ; 10 400550' 000000 000010
C.40: POINT 7,P.AAG-1,34 ; 7,P.AAG-1,34 400551' 01 07 0 00 400060'
C.41: POINT 7,P.AAH-1,34 ; 7,P.AAH-1,34 400552' 01 07 0 00 400071'
C.42: EXP 0 ; 0 400553' 000000 000000
C.43: POINT 7,P.AAI-1,34 ; 7,P.AAI-1,34 400554' 01 07 0 00 400075'
C.44: POINT 7,P.AAJ-1,34 ; 7,P.AAJ-1,34 400555' 01 07 0 00 400100'
; Routine Size: 300 words
LBRLIS 12-Apr-1985 07:12:35 TOPS-20 Bliss-36 4A(225) Page 14
001010 30-Dec-1982 17:41:00 DNET61:<DECNET.UTILITIES>LBRLIS.BLI.1 (2)
; 0262 1
LBRLIS 12-Apr-1985 07:12:35 TOPS-20 Bliss-36 4A(225) Page 15
001010 30-Dec-1982 17:41:00 DNET61:<DECNET.UTILITIES>LBRLIS.BLI.1 (3)
; 0263 1 ROUTINE LIST_ENTRIES (NAMES, COUNT) : NOVALUE =
; 0264 1
; 0265 1 !++
; 0266 1 ! FUNCTIONAL DESCRIPTION:
; 0267 1 !
; 0268 1 !
; 0269 1 !
; 0270 1 !
; 0271 1 ! FORMAL PARAMETERS:
; 0272 1 !
; 0273 1 !
; 0274 1 ! IMPLICIT INPUTS:
; 0275 1 !
; 0276 1 ! NONE
; 0277 1 !
; 0278 1 ! IMPLICIT OUTPUTS:
; 0279 1 !
; 0280 1 ! NONE
; 0281 1 !
; 0282 1 ! ROUTINE VALUE:
; 0283 1 !
; 0284 1 ! NONE
; 0285 1 !
; 0286 1 ! SIDE EFFECTS
; 0287 1 !
; 0288 1 ! NONE
; 0289 1 !
; 0290 1 !--
; 0291 1
; 0292 2 BEGIN
; 0293 2
; 0294 2 MAP
; 0295 2 NAMES : REF VECTOR [16];
; 0296 2
; 0297 2 BIND
; 0298 2 PATTERN = UPLIT (
; 0299 2 CH$ASCIZ (' %2R'),
; 0300 2 CH$ASCIZ (' %2R %2R'),
; 0301 2 CH$ASCIZ (' %2R %2R %2R'),
; 0302 2 CH$ASCIZ (' %2R %2R %2R %2R'),
; 0303 2 CH$ASCIZ (' %2R %2R %2R %2R %2R'),
; 0304 2 CH$ASCIZ (' %2R %2R %2R %2R %2R %2R'),
; 0305 2 CH$ASCIZ (' %2R %2R %2R %2R %2R %2R %2R'),
; 0306 2 CH$ASCIZ (' %2R %2R %2R %2R %2R %2R %2R %2R')
; 0307 2 ) : VECTOR [8];
; 0308 2
; P 0309 2 PUTLN (0, .PATTERN [.COUNT - 1], .NAMES [0], .NAMES [1], .NAMES [2], .NAMES [3], .NAMES [4], .NAMES [5],
; P 0310 2 .NAMES [6], .NAMES [7], .NAMES [8], .NAMES [9], .NAMES [10], .NAMES [11], .NAMES [12], .NAMES [13],
; 0311 2 .NAMES [14], .NAMES [15]);
; 0312 1 END; !OF LIST_ENTRIES
LBRLIS 12-Apr-1985 07:12:35 TOPS-20 Bliss-36 4A(225) Page 16
001010 30-Dec-1982 17:41:00 DNET61:<DECNET.UTILITIES>LBRLIS.BLI.1 (3)
P.AAL: BYTE (7)" "," ","%","2","R" ; %2R 400556' 040 040 045 062 122
BYTE (7)000,000,000,000,000 ; 400557' 000 000 000 000 000
P.AAM: BYTE (7)" "," ","%","2","R" ; %2R 400560' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400561' 040 040 045 062 122
BYTE (7)000,000,000,000,000 ; 400562' 000 000 000 000 000
P.AAN: BYTE (7)" "," ","%","2","R" ; %2R 400563' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400564' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400565' 040 040 045 062 122
BYTE (7)000,000,000,000,000 ; 400566' 000 000 000 000 000
P.AAO: BYTE (7)" "," ","%","2","R" ; %2R 400567' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400570' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400571' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400572' 040 040 045 062 122
BYTE (7)000,000,000,000,000 ; 400573' 000 000 000 000 000
P.AAP: BYTE (7)" "," ","%","2","R" ; %2R 400574' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400575' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400576' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400577' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400600' 040 040 045 062 122
BYTE (7)000,000,000,000,000 ; 400601' 000 000 000 000 000
P.AAQ: BYTE (7)" "," ","%","2","R" ; %2R 400602' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400603' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400604' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400605' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400606' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400607' 040 040 045 062 122
BYTE (7)000,000,000,000,000 ; 400610' 000 000 000 000 000
P.AAR: BYTE (7)" "," ","%","2","R" ; %2R 400611' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400612' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400613' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400614' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400615' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400616' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400617' 040 040 045 062 122
BYTE (7)000,000,000,000,000 ; 400620' 000 000 000 000 000
P.AAS: BYTE (7)" "," ","%","2","R" ; %2R 400621' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400622' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400623' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400624' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400625' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400626' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400627' 040 040 045 062 122
BYTE (7)" "," ","%","2","R" ; %2R 400630' 040 040 045 062 122
BYTE (7)000,000,000,000,000 ; 400631' 000 000 000 000 000
P.AAK: POINT 7,P.AAL-1,34 ; 400632' 01 07 0 00 400555'
POINT 7,P.AAM-1,34 ; 400633' 01 07 0 00 400557'
POINT 7,P.AAN-1,34 ; 400634' 01 07 0 00 400562'
POINT 7,P.AAO-1,34 ; 400635' 01 07 0 00 400566'
POINT 7,P.AAP-1,34 ; 400636' 01 07 0 00 400573'
POINT 7,P.AAQ-1,34 ; 400637' 01 07 0 00 400601'
POINT 7,P.AAR-1,34 ; 400640' 01 07 0 00 400610'
POINT 7,P.AAS-1,34 ; 400641' 01 07 0 00 400620'
LBRLIS 12-Apr-1985 07:12:35 TOPS-20 Bliss-36 4A(225) Page 17
001010 30-Dec-1982 17:41:00 DNET61:<DECNET.UTILITIES>LBRLIS.BLI.1 (3)
PATTERN= P.AAK ; 000000 400632'
LIST_ENTRIES:
ADJSP SP,20 ; SP,20 400642' 105 17 0 00 000020 0263
MOVE AC1,-22(SP) ; AC1,NAMES 400643' 200 01 0 17 777756 0311
MOVE AC2,0(AC1) ; AC2,0(AC1) 400644' 200 02 0 01 000000
MOVEM AC2,-17(SP) ; AC2,PRM_LIST 400645' 202 02 0 17 777761
MOVE AC2,1(AC1) ; AC2,1(AC1) 400646' 200 02 0 01 000001
MOVEM AC2,-16(SP) ; AC2,PRM_LIST+1 400647' 202 02 0 17 777762
MOVE AC2,2(AC1) ; AC2,2(AC1) 400650' 200 02 0 01 000002
MOVEM AC2,-15(SP) ; AC2,PRM_LIST+2 400651' 202 02 0 17 777763
MOVE AC2,3(AC1) ; AC2,3(AC1) 400652' 200 02 0 01 000003
MOVEM AC2,-14(SP) ; AC2,PRM_LIST+3 400653' 202 02 0 17 777764
MOVE AC2,4(AC1) ; AC2,4(AC1) 400654' 200 02 0 01 000004
MOVEM AC2,-13(SP) ; AC2,PRM_LIST+4 400655' 202 02 0 17 777765
MOVE AC2,5(AC1) ; AC2,5(AC1) 400656' 200 02 0 01 000005
MOVEM AC2,-12(SP) ; AC2,PRM_LIST+5 400657' 202 02 0 17 777766
MOVE AC2,6(AC1) ; AC2,6(AC1) 400660' 200 02 0 01 000006
MOVEM AC2,-11(SP) ; AC2,PRM_LIST+6 400661' 202 02 0 17 777767
MOVE AC2,7(AC1) ; AC2,7(AC1) 400662' 200 02 0 01 000007
MOVEM AC2,-10(SP) ; AC2,PRM_LIST+7 400663' 202 02 0 17 777770
MOVE AC2,10(AC1) ; AC2,10(AC1) 400664' 200 02 0 01 000010
MOVEM AC2,-7(SP) ; AC2,PRM_LIST+10 400665' 202 02 0 17 777771
MOVE AC2,11(AC1) ; AC2,11(AC1) 400666' 200 02 0 01 000011
MOVEM AC2,-6(SP) ; AC2,PRM_LIST+11 400667' 202 02 0 17 777772
MOVE AC2,12(AC1) ; AC2,12(AC1) 400670' 200 02 0 01 000012
MOVEM AC2,-5(SP) ; AC2,PRM_LIST+12 400671' 202 02 0 17 777773
MOVE AC2,13(AC1) ; AC2,13(AC1) 400672' 200 02 0 01 000013
MOVEM AC2,-4(SP) ; AC2,PRM_LIST+13 400673' 202 02 0 17 777774
MOVE AC2,14(AC1) ; AC2,14(AC1) 400674' 200 02 0 01 000014
MOVEM AC2,-3(SP) ; AC2,PRM_LIST+14 400675' 202 02 0 17 777775
MOVE AC2,15(AC1) ; AC2,15(AC1) 400676' 200 02 0 01 000015
MOVEM AC2,-2(SP) ; AC2,PRM_LIST+15 400677' 202 02 0 17 777776
MOVE AC2,16(AC1) ; AC2,16(AC1) 400700' 200 02 0 01 000016
MOVEM AC2,-1(SP) ; AC2,PRM_LIST+16 400701' 202 02 0 17 777777
MOVE AC2,17(AC1) ; AC2,17(AC1) 400702' 200 02 0 01 000017
MOVEM AC2,0(SP) ; AC2,PRM_LIST+17 400703' 202 02 0 17 000000
PUSH SP,C.42 ; SP,[0] 400704' 261 17 0 00 400553'
MOVE AC1,-22(SP) ; AC1,COUNT 400705' 200 01 0 17 777756
PUSH SP,PATTERN-1(AC1) ; SP,PATTERN-1(AC1) 400706' 261 17 0 01 400631'
MOVEI AC1,-21(SP) ; AC1,PRM_LIST 400707' 201 01 0 17 777757
PUSH SP,AC1 ; SP,AC1 400710' 261 17 0 00 000001
PUSHJ SP,PUTLIN ; SP,PUTLIN 400711' 260 17 0 00 000000*
ADJSP SP,-23 ; SP,-23 400712' 105 17 0 00 777755 0292
POPJ SP, ; SP, 400713' 263 17 0 00 000000 0263
; Routine Size: 42 words
LBRLIS 12-Apr-1985 07:12:35 TOPS-20 Bliss-36 4A(225) Page 18
001010 30-Dec-1982 17:41:00 DNET61:<DECNET.UTILITIES>LBRLIS.BLI.1 (3)
; 0313 1 END
; 0314 1
; 0315 0 ELUDOM
; Low segment length: 1 word
; High segment length: 460 words
; LIBRARY STATISTICS
;
; -------- Symbols -------- Blocks Processing
; File Total Loaded Percent Read Time
;
; DNET61:<DECNET.UTILITIES>LBRCOM.L36.2 705 57 8 28 00:00.1
; Size: 342 code + 119 data words
; Run Time: 00:06.7
; Elapsed Time: 00:08.2
; Lines/CPU Min: 2821
; Lexemes/CPU-Min: 48202
; Memory Used: 40 pages
; Compilation Complete