Trailing-Edge
-
PDP-10 Archives
-
TOPS-20_V6.1_DECnetSrc_7-23-85
-
mcb/utilities/lbr20.lst
There is 1 other file named lbr20.lst in the archive. Click here to see a list.
LBR20 12-Apr-1985 07:10:46 TOPS-20 Bliss-36 4A(225) Page 1
30-Dec-1982 17:30:50 DNET61:<DECNET.UTILITIES>LBR20.BLI.1 (1)
; 0001 0 MODULE LBR20 ( !Librarian Utility
; 0002 0 IDENT = '001030',
; 0003 0 LANGUAGE (BLISS36) ,
; 0004 0 MAIN = LBR20
; 0005 0 ) =
; 0006 1 BEGIN
; 0007 1 !
; 0008 1 !
; 0009 1 !
; 0010 1 ! COPYRIGHT (c) 1980, 1981, 1982
; 0011 1 ! DIGITAL EQUIPMENT CORPORATION
; 0012 1 ! Maynard, Massachusetts
; 0013 1 !
; 0014 1 ! This software is furnished under a license and may be used
; 0015 1 ! and copied only in accordance with the terms of such license
; 0016 1 ! and with the inclusion of the above copyright notice. This
; 0017 1 ! software or any other copies thereof may not be provided or
; 0018 1 ! otherwise made available to any other person. No title to
; 0019 1 ! and ownership of the software is hereby transferred.
; 0020 1 !
; 0021 1 ! The information in this software is subject to change
; 0022 1 ! without notice and should not be construed as a commitment
; 0023 1 ! by DIGITAL EQUIPMENT CORPORATION.
; 0024 1 !
; 0025 1 ! DIGITAL assumes no responsibility for the use or reliability
; 0026 1 ! of its software on equipment which is not supplied by
; 0027 1 ! DIGITAL.
; 0028 1 !
; 0029 1
; 0030 1 !++
; 0031 1 ! FACILITY: LBR20 - Librarian Utility
; 0032 1 !
; 0033 1 ! ABSTRACT:
; 0034 1 !
; 0035 1 !
; 0036 1 ! This is the root module for the librarian.
; 0037 1 !
; 0038 1 !
; 0039 1 ! ENVIRONMENT: ANY
; 0040 1 !
; 0041 1 ! AUTHOR: ALAN D. PECKHAM, CREATION DATE: 2-MAY-80
; 0042 1 !
; 0043 1 ! MODIFIED BY:
; 0044 1 !
; 0045 1 ! Alan D. Peckham, : VERSION 01
; 0046 1 ! 02 - Add COMPRESS function
; 0047 1 ! 03 - Add support for EPT replacement in FILE_INSERT.
; 0048 1 !--
; 0049 1
; 0050 1 !
; 0051 1 ! TABLE OF CONTENTS:
; 0052 1 !
LBR20 12-Apr-1985 07:10:46 TOPS-20 Bliss-36 4A(225) Page 2
001030 30-Dec-1982 17:30:50 DNET61:<DECNET.UTILITIES>LBR20.BLI.1 (1)
; 0053 1
; 0054 1 FORWARD ROUTINE
; 0055 1 LBR20 : NOVALUE; !LBR20 main routines.
; 0056 1
; 0057 1 !
; 0058 1 ! INCLUDE FILES
; 0059 1 !
; 0060 1
; 0061 1 LIBRARY 'LBRCOM'; !LBR20 COMMON DEFINITIONS
; 0062 1
; 0063 1 !
; 0064 1 ! MACROS:
; 0065 1 !
; 0066 1
; 0067 1 MACRO
; M 0068 1 SUPPORT_STRING =
; 0069 1 %CHAR(LBR_SUPPORT), %,
; M 0070 1 VERSION_STRING =
; 0071 1 %NUMBER(LBR_VERSION), %,
; M 0072 1 UPDATE_STRING =
; M 0073 1 %IF LBR_UPDATE NEQ 0
; 0074 1 %THEN %STRING('.', %NUMBER (LBR_UPDATE)), %FI %,
; M 0075 1 EDIT_STRING =
; M 0076 1 %IF LBR_EDIT NEQ 0
; 0077 1 %THEN %STRING('-', %NUMBER (LBR_EDIT)), %FI %,
; M 0078 1 VERSION_DISPLAY =
; 0079 1 %STRING(SUPPORT_STRING VERSION_STRING UPDATE_STRING EDIT_STRING) %;
; 0080 1
; 0081 1 !
; 0082 1 ! EQUATED SYMBOLS:
; 0083 1 !
; 0084 1
; 0085 1 BIND
; 0086 1 VERSION = CH$ASCII ('Version ', VERSION_DISPLAY),
; 0087 1 LENGTH = %CHARCOUNT ('Version ', VERSION_DISPLAY);
; 0088 1
; 0089 1 GLOBAL BIND
; 0090 1 VERPTR = CH$ASCII (VERSION_DISPLAY),
; 0091 1 VERLNG = %CHARCOUNT (VERSION_DISPLAY);
; 0092 1
; 0093 1 !
; 0094 1 ! OWN STORAGE:
; 0095 1 !
; 0096 1
; 0097 1 GLOBAL
; 0098 1 FLAGS : BITVECTOR [M_MAX_BITS], !Processing flags.
; 0099 1 GBLNAM : BLOCKVECTOR [LBR_MAX_GLOBAL_DELETES, 2],
; 0100 1 GBLNUM : INITIAL (0),
; 0101 1 LIBBLK : INITIAL (0),
; 0102 1 LIBEPT : INITIAL (0),
; 0103 1 LIBHDR : INITIAL (0),
; 0104 1 LIBMNT : INITIAL (0),
LBR20 12-Apr-1985 07:10:46 TOPS-20 Bliss-36 4A(225) Page 3
001030 30-Dec-1982 17:30:50 DNET61:<DECNET.UTILITIES>LBR20.BLI.1 (1)
; 0105 1 LSTBLK : INITIAL (0),
; 0106 1 MODNAM : BLOCKVECTOR [LBR_MAX_MODULE_DELETES, 2],
; 0107 1 MODNUM : INITIAL (0),
; 0108 1 NUMEPT : INITIAL (0),
; 0109 1 NUMMNT : INITIAL (0),
; 0110 1 OBJBLK : VECTOR [LBR_MAX_OBJ] INITIAL (REP LBR_MAX_OBJ OF (0)),
; 0111 1 OBJFLG : BLOCKVECTOR [LBR_MAX_OBJ, F_MAX],
; 0112 1 OBJNUM : INITIAL (0),
; 0113 1 SIZFIL : INITIAL (0),
; 0114 1 TTYBLK : INITIAL (0);
; 0115 1
; 0116 1 !
; 0117 1 ! EXTERNAL REFERENCES:
; 0118 1 !
; 0119 1
; 0120 1 EXTERNAL ROUTINE
; 0121 1 CLOSE, !Close a file.
; 0122 1 CMD, !Get a user command.
; 0123 1 ENTRY_DELETE, !Delete an entry point
; 0124 1 FILE_INSERT, !Insert modules in the library.
; 0125 1 HELP : NOVALUE, !Give the user help.
; 0126 1 LIBCLS : NOVALUE, !Close the library.
; 0127 1 LIBOPN, !Open the library.
; 0128 1 LIBUPD : NOVALUE, !Update HDR, EPT and MNT.
; 0129 1 LIST : NOVALUE, !List the library.
; 0130 1 LSTOPN, !Initialize the listing device.
; 0131 1 MODULE_DELETE, !Delete a module
; 0132 1 TTYOPN : NOVALUE, !Initialize the user's terminal.
; 0133 1 TYPE : NOVALUE; !Display a line on the user's tty.
; 0134 1
LBR20 12-Apr-1985 07:10:46 TOPS-20 Bliss-36 4A(225) Page 4
001030 30-Dec-1982 17:30:50 DNET61:<DECNET.UTILITIES>LBR20.BLI.1 (2)
; 0135 1 ROUTINE LBR20 : NOVALUE =
; 0136 1
; 0137 1 !++
; 0138 1 ! FUNCTIONAL DESCRIPTION:
; 0139 1 !
; 0140 1 !
; 0141 1 !
; 0142 1 !
; 0143 1 ! FORMAL PARAMETERS:
; 0144 1 !
; 0145 1 ! NONE
; 0146 1 !
; 0147 1 ! IMPLICIT INPUTS:
; 0148 1 !
; 0149 1 ! NONE
; 0150 1 !
; 0151 1 ! IMPLICIT OUTPUTS:
; 0152 1 !
; 0153 1 ! NONE
; 0154 1 !
; 0155 1 ! ROUTINE VALUE:
; 0156 1 !
; 0157 1 ! NONE
; 0158 1 !
; 0159 1 ! SIDE EFFECTS
; 0160 1 !
; 0161 1 ! NONE
; 0162 1 !
; 0163 1 !--
; 0164 1
; 0165 2 BEGIN
; 0166 2 TTYOPN (TTYBLK); !Get the user's tty.
; 0167 2
; 0168 2 DO
; 0169 3 BEGIN
; 0170 3
; 0171 3 IF CMD ()
; 0172 3 THEN
; 0173 4 BEGIN
; 0174 4 !
; 0175 4 ! Open or create the library
; 0176 4 !
; 0177 4
; 0178 4 IF LIBOPN (LIBBLK)
; 0179 4 THEN
; 0180 5 BEGIN
; 0181 5
; 0182 5 !
; 0183 5 ! Delete modules
; 0184 5 !
; 0185 5
; 0186 5 IF .MODNUM GTR 0
LBR20 12-Apr-1985 07:10:46 TOPS-20 Bliss-36 4A(225) Page 5
001030 30-Dec-1982 17:30:50 DNET61:<DECNET.UTILITIES>LBR20.BLI.1 (2)
; 0187 5 THEN
; 0188 6 BEGIN
; 0189 6
; 0190 6 INCR INDEX FROM 0 TO .MODNUM - 1 DO
; 0191 6
; 0192 6 IF NOT MODULE_DELETE (MODNAM [.INDEX, 0, 0, 16, 0])
; 0193 6 THEN
; 0194 6 EXITLOOP;
; 0195 6
; 0196 5 END;
; 0197 5
; 0198 5 !
; 0199 5 ! Delete entry points
; 0200 5 !
; 0201 5
; 0202 5 IF .GBLNUM GTR 0
; 0203 5 THEN
; 0204 6 BEGIN
; 0205 6
; 0206 6 INCR INDEX FROM 0 TO .GBLNUM - 1 DO
; 0207 6
; 0208 6 IF NOT ENTRY_DELETE (GBLNAM [.INDEX, 0, 0, 16, 0])
; 0209 6 THEN
; 0210 6 EXITLOOP;
; 0211 6
; 0212 5 END;
; 0213 5
; 0214 5 !
; 0215 5 ! Insert and replace modules
; 0216 5 !
; 0217 5
; 0218 5 IF .OBJNUM GTR 0
; 0219 5 THEN
; 0220 6 BEGIN
; 0221 6
; 0222 6 LOCAL
; 0223 6 ABORT;
; 0224 6
; 0225 6 ABORT = FALSE;
; 0226 6
; 0227 6 INCR INDEX FROM 0 TO .OBJNUM - 1 DO
; 0228 7 BEGIN
; 0229 7
; 0230 7 IF .ABORT
; 0231 7 THEN
; 0232 7 CLOSE (OBJBLK [.INDEX])
; 0233 7 ELSE
; 0234 7
; 0235 7 IF NOT FILE_INSERT (OBJBLK [.INDEX],
; 0236 7 .OBJFLG [.INDEX, F_REPLACE],
; 0237 7 NOT .OBJFLG [.INDEX, F_NOEPT],
; 0238 7 .OBJFLG [.INDEX, F_RG],
LBR20 12-Apr-1985 07:10:46 TOPS-20 Bliss-36 4A(225) Page 6
001030 30-Dec-1982 17:30:50 DNET61:<DECNET.UTILITIES>LBR20.BLI.1 (2)
; 0239 7 .OBJFLG [.INDEX, F_SS])
; 0240 7 THEN
; 0241 7 ABORT = TRUE;
; 0242 7
; 0243 6 END;
; 0244 6
; 0245 6 OBJNUM = 0;
; 0246 5 END;
; 0247 5
; 0248 5 IF .FLAGS [M_FAST] THEN LIBUPD ();
; 0249 5
; 0250 5 !
; 0251 5 ! List the library
; 0252 5 !
; 0253 5
; 0254 5 IF .FLAGS [M_LIST]
; 0255 5 THEN
; 0256 6 BEGIN
; 0257 6 LSTOPN (LSTBLK, .FLAGS [M_WIDE], LIBBLK);
; 0258 6 LIST (LIBBLK);
; 0259 6 CLOSE (LSTBLK);
; 0260 5 END;
; 0261 5
; 0262 5 LIBCLS ();
; 0263 5 END
; 0264 4 ELSE
; 0265 4 CLOSE (LIBBLK);
; 0266 4
; 0267 3 END;
; 0268 3
; 0269 3 !+
; 0270 3 ! Give the LBR20 version number
; 0271 3 !-
; 0272 3
; 0273 3 IF .FLAGS [M_VERSION] THEN TYPE (VERSION, LENGTH);
; 0274 3
; 0275 3 !+
; 0276 3 ! Give the user help
; 0277 3 !-
; 0278 3
; 0279 3 IF .FLAGS [M_HELP] THEN HELP (TTYBLK, CH$ASCIZ ('HLP:LBR20.HLP'));
; 0280 3
; 0281 3 END
; 0282 2 WHILE NOT .FLAGS [M_EXIT];
; 0283 2
; 0284 1 END; !OF LBR20
TITLE LBR20
TWOSEG
LBR20 12-Apr-1985 07:10:46 TOPS-20 Bliss-36 4A(225) Page 7
001030 30-Dec-1982 17:30:50 DNET61:<DECNET.UTILITIES>LBR20.BLI.1 (2)
.REQUEST SYS:B362LB.REL
RELOC 400000 ; 400000'
P.AAA: BYTE (7)"V","e","r","s","i" ; Versi 400000' 126 145 162 163 151
BYTE (7)"o","n"," ","X","1" ; on X1 400001' 157 156 040 130 061
BYTE (7)"-","6",000,000,000 ; -6 400002' 055 066 000 000 000
P.AAB: BYTE (7)"X","1","-","6",000 ; X1-6 400003' 130 061 055 066 000
P.AAC: BYTE (7)"H","L","P",":","L" ; HLP:L 400004' 110 114 120 072 114
BYTE (7)"B","R","2","0","." ; BR20. 400005' 102 122 062 060 056
BYTE (7)"H","L","P",000,000 ; HLP 400006' 110 114 120 000 000
RELOC 0 ; 000000'
FLAGS:: BLOCK 1 ; 000000'
GBLNAM::BLOCK 36 ; 000001'
GBLNUM::EXP 0 ; 000037' 000000 000000
LIBBLK::EXP 0 ; 000040' 000000 000000
LIBEPT::EXP 0 ; 000041' 000000 000000
LIBHDR::EXP 0 ; 000042' 000000 000000
LIBMNT::EXP 0 ; 000043' 000000 000000
LSTBLK::EXP 0 ; 000044' 000000 000000
MODNAM::BLOCK 36 ; 000045'
MODNUM::EXP 0 ; 000103' 000000 000000
NUMEPT::EXP 0 ; 000104' 000000 000000
NUMMNT::EXP 0 ; 000105' 000000 000000
OBJBLK::EXP 0 ; 000106' 000000 000000
EXP 0 ; 000107' 000000 000000
EXP 0 ; 000110' 000000 000000
EXP 0 ; 000111' 000000 000000
EXP 0 ; 000112' 000000 000000
EXP 0 ; 000113' 000000 000000
EXP 0 ; 000114' 000000 000000
EXP 0 ; 000115' 000000 000000
EXP 0 ; 000116' 000000 000000
EXP 0 ; 000117' 000000 000000
OBJFLG::BLOCK 12 ; 000120'
OBJNUM::EXP 0 ; 000132' 000000 000000
SIZFIL::EXP 0 ; 000133' 000000 000000
TTYBLK::EXP 0 ; 000134' 000000 000000
EXTERN CLOSE, CMD, ENTRY_DELETE, FILE_INSERT, HELP, LIBCLS, LIBOPN, LIBUPD, LIST, LSTOPN
EXTERN MODULE_DELETE, TTYOPN, TYPE
VERSION= <POINT 7,P.AAA-1,34> ; 01 07 0 00 377777'
LENGTH== 14 ; 000000 000014
VERPTR=: <POINT 7,P.AAB-1,34> ; 01 07 0 00 400002'
VERLNG==: 4 ; 000000 000004
LBR20 12-Apr-1985 07:10:46 TOPS-20 Bliss-36 4A(225) Page 8
001030 30-Dec-1982 17:30:50 DNET61:<DECNET.UTILITIES>LBR20.BLI.1 (2)
AC0= 0
AC1= 1
AC2= 2
AC3= 3
AC4= 4
AC5= 5
AC6= 6
AC7= 7
AC10= 10
AC11= 11
AC12= 12
AC13= 13
AC14= 14
FP= 15
AC16= 16
SP= 17
RELOC 400007 ; 400007'
LBR20: PUSH SP,AC13 ; SP,AC13 400007' 261 17 0 00 000013 0135
PUSH SP,AC14 ; SP,AC14 400010' 261 17 0 00 000014
PUSH SP,AC16 ; SP,AC16 400011' 261 17 0 00 000016
PUSH SP,C.6 ; SP,[0,,TTYBLK] 400012' 261 17 0 00 400200' 0166
PUSHJ SP,TTYOPN ; SP,TTYOPN 400013' 260 17 0 00 000000*
L.1: PUSHJ SP,CMD ; SP,CMD 400014' 260 17 0 00 000000* 0171
TRNN AC1,1 ; AC1,1 400015' 606 01 0 00 000001
JRST L.14 ; L.14 400016' 254 00 0 00 400145'
PUSH SP,C.7 ; SP,[0,,LIBBLK] 400017' 261 17 0 00 400201' 0178
PUSHJ SP,LIBOPN ; SP,LIBOPN 400020' 260 17 0 00 000000*
ADJSP SP,-1 ; SP,-1 400021' 105 17 0 00 777777
TRNN AC1,1 ; AC1,1 400022' 606 01 0 00 000001
JRST L.13 ; L.13 400023' 254 00 0 00 400142'
MOVE AC14,MODNUM ; AC14,MODNUM 400024' 200 14 0 00 000103' 0186
JUMPLE AC14,L.4 ; AC14,L.4 400025' 323 14 0 00 400043'
SETO AC16, ; INDEX, 400026' 474 16 0 00 000000 0190
JRST L.3 ; L.3 400027' 254 00 0 00 400040'
L.2: MOVE AC1,AC16 ; AC1,INDEX 400030' 200 01 0 00 000016 0192
IMULI AC1,2 ; AC1,2 400031' 221 01 0 00 000002
ADDI AC1,MODNAM ; AC1,MODNAM 400032' 271 01 0 00 000045'
PUSH SP,AC1 ; SP,AC1 400033' 261 17 0 00 000001
PUSHJ SP,MODULE_DELETE ; SP,MODULE_DELETE 400034' 260 17 0 00 000000*
ADJSP SP,-1 ; SP,-1 400035' 105 17 0 00 777777
TRNN AC1,1 ; AC1,1 400036' 606 01 0 00 000001
JRST L.4 ; L.4 400037' 254 00 0 00 400043' 0194
L.3: ADDI AC16,1 ; INDEX,1 400040' 271 16 0 00 000001 0190
CAMGE AC16,AC14 ; INDEX,AC14 400041' 315 16 0 00 000014
JRST L.2 ; L.2 400042' 254 00 0 00 400030'
L.4: MOVE AC14,GBLNUM ; AC14,GBLNUM 400043' 200 14 0 00 000037' 0202
JUMPLE AC14,L.7 ; AC14,L.7 400044' 323 14 0 00 400062'
SETO AC16, ; INDEX, 400045' 474 16 0 00 000000 0206
JRST L.6 ; L.6 400046' 254 00 0 00 400057'
L.5: MOVE AC1,AC16 ; AC1,INDEX 400047' 200 01 0 00 000016 0208
LBR20 12-Apr-1985 07:10:46 TOPS-20 Bliss-36 4A(225) Page 9
001030 30-Dec-1982 17:30:50 DNET61:<DECNET.UTILITIES>LBR20.BLI.1 (2)
IMULI AC1,2 ; AC1,2 400050' 221 01 0 00 000002
ADDI AC1,GBLNAM ; AC1,GBLNAM 400051' 271 01 0 00 000001'
PUSH SP,AC1 ; SP,AC1 400052' 261 17 0 00 000001
PUSHJ SP,ENTRY_DELETE ; SP,ENTRY_DELETE 400053' 260 17 0 00 000000*
ADJSP SP,-1 ; SP,-1 400054' 105 17 0 00 777777
TRNN AC1,1 ; AC1,1 400055' 606 01 0 00 000001
JRST L.7 ; L.7 400056' 254 00 0 00 400062' 0210
L.6: ADDI AC16,1 ; INDEX,1 400057' 271 16 0 00 000001 0206
CAMGE AC16,AC14 ; INDEX,AC14 400060' 315 16 0 00 000014
JRST L.5 ; L.5 400061' 254 00 0 00 400047'
L.7: MOVE AC13,OBJNUM ; AC13,OBJNUM 400062' 200 13 0 00 000132' 0218
JUMPLE AC13,L.11 ; AC13,L.11 400063' 323 13 0 00 400120'
SETZ AC14, ; ABORT, 400064' 400 14 0 00 000000 0225
SETO AC16, ; INDEX, 400065' 474 16 0 00 000000 0227
JRST L.10 ; L.10 400066' 254 00 0 00 400114'
L.8: MOVE AC1,AC16 ; AC1,INDEX 400067' 200 01 0 00 000016 0232
ADDI AC1,OBJBLK ; AC1,OBJBLK 400070' 271 01 0 00 000106'
TRNN AC14,1 ; ABORT,1 400071' 606 14 0 00 000001 0230
JRST L.9 ; L.9 400072' 254 00 0 00 400076'
MOVEM AC1,0(SP) ; AC1,0(SP) 400073' 202 01 0 17 000000 0232
PUSHJ SP,CLOSE ; SP,CLOSE 400074' 260 17 0 00 000000*
JRST L.10 ; L.10 400075' 254 00 0 00 400114' 0230
L.9: MOVEM AC1,0(SP) ; AC1,0(SP) 400076' 202 01 0 17 000000 0235
LDB AC1,C.1 ; AC1,[POINT 1,OBJFLG,34] <1,1> 400077' 135 01 0 00 400173'
PUSH SP,AC1 ; SP,AC1 400100' 261 17 0 00 000001
LDB AC1,C.2 ; AC1,[POINT 1,OBJFLG,35] <0,1> 400101' 135 01 0 00 400174' 0237
SETCA AC1, ; AC1, 400102' 450 01 0 00 000000
PUSH SP,AC1 ; SP,AC1 400103' 261 17 0 00 000001
LDB AC1,C.3 ; AC1,[POINT 1,OBJFLG,33] <2,1> 400104' 135 01 0 00 400175' 0235
PUSH SP,AC1 ; SP,AC1 400105' 261 17 0 00 000001
LDB AC1,C.4 ; AC1,[POINT 1,OBJFLG,32] <3,1> 400106' 135 01 0 00 400176'
PUSH SP,AC1 ; SP,AC1 400107' 261 17 0 00 000001
PUSHJ SP,FILE_INSERT ; SP,FILE_INSERT 400110' 260 17 0 00 000000*
ADJSP SP,-4 ; SP,-4 400111' 105 17 0 00 777774
TRNN AC1,1 ; AC1,1 400112' 606 01 0 00 000001
MOVEI AC14,1 ; ABORT,1 400113' 201 14 0 00 000001 0241
L.10: ADDI AC16,1 ; INDEX,1 400114' 271 16 0 00 000001 0227
CAMGE AC16,AC13 ; INDEX,AC13 400115' 315 16 0 00 000013
JRST L.8 ; L.8 400116' 254 00 0 00 400067'
SETZM OBJNUM ; OBJNUM 400117' 402 00 0 00 000132' 0245
L.11: MOVEI AC1,40 ; AC1,40 400120' 201 01 0 00 000040 0248
TDNE AC1,FLAGS ; AC1,FLAGS 400121' 612 01 0 00 000000'
PUSHJ SP,LIBUPD ; SP,LIBUPD 400122' 260 17 0 00 000000*
MOVEI AC1,100 ; AC1,100 400123' 201 01 0 00 000100 0254
TDNN AC1,FLAGS ; AC1,FLAGS 400124' 616 01 0 00 000000'
JRST L.12 ; L.12 400125' 254 00 0 00 400140'
PUSH SP,C.8 ; SP,[0,,LSTBLK] 400126' 261 17 0 00 400202' 0257
LDB AC1,C.5 ; AC1,[POINT 1,FLAGS,31] <4,1> 400127' 135 01 0 00 400177'
PUSH SP,AC1 ; SP,AC1 400130' 261 17 0 00 000001
PUSH SP,C.7 ; SP,[0,,LIBBLK] 400131' 261 17 0 00 400201'
PUSHJ SP,LSTOPN ; SP,LSTOPN 400132' 260 17 0 00 000000*
PUSH SP,C.7 ; SP,[0,,LIBBLK] 400133' 261 17 0 00 400201' 0258
LBR20 12-Apr-1985 07:10:46 TOPS-20 Bliss-36 4A(225) Page 10
001030 30-Dec-1982 17:30:50 DNET61:<DECNET.UTILITIES>LBR20.BLI.1 (2)
PUSHJ SP,LIST ; SP,LIST 400134' 260 17 0 00 000000*
PUSH SP,C.8 ; SP,[0,,LSTBLK] 400135' 261 17 0 00 400202' 0259
PUSHJ SP,CLOSE ; SP,CLOSE 400136' 260 17 0 00 000000*
ADJSP SP,-5 ; SP,-5 400137' 105 17 0 00 777773 0256
L.12: PUSHJ SP,LIBCLS ; SP,LIBCLS 400140' 260 17 0 00 000000* 0262
JRST L.14 ; L.14 400141' 254 00 0 00 400145' 0178
L.13: PUSH SP,C.7 ; SP,[0,,LIBBLK] 400142' 261 17 0 00 400201' 0265
PUSHJ SP,CLOSE ; SP,CLOSE 400143' 260 17 0 00 000000*
ADJSP SP,-1 ; SP,-1 400144' 105 17 0 00 777777
L.14: MOVEI AC1,2 ; AC1,2 400145' 201 01 0 00 000002 0273
TDNN AC1,FLAGS ; AC1,FLAGS 400146' 616 01 0 00 000000'
JRST L.15 ; L.15 400147' 254 00 0 00 400154'
PUSH SP,C.9 ; SP,[POINT 7,P.AAA-1,34] <1,7> 400150' 261 17 0 00 400203'
PUSH SP,C.10 ; SP,[14] 400151' 261 17 0 00 400204'
PUSHJ SP,TYPE ; SP,TYPE 400152' 260 17 0 00 000000*
ADJSP SP,-2 ; SP,-2 400153' 105 17 0 00 777776
L.15: MOVEI AC1,4 ; AC1,4 400154' 201 01 0 00 000004 0279
TDNN AC1,FLAGS ; AC1,FLAGS 400155' 616 01 0 00 000000'
JRST L.16 ; L.16 400156' 254 00 0 00 400163'
PUSH SP,C.6 ; SP,[0,,TTYBLK] 400157' 261 17 0 00 400200'
PUSH SP,C.11 ; SP,[POINT 7,P.AAC-1,34] <1,7> 400160' 261 17 0 00 400205'
PUSHJ SP,HELP ; SP,HELP 400161' 260 17 0 00 000000*
ADJSP SP,-2 ; SP,-2 400162' 105 17 0 00 777776
L.16: MOVEI AC1,10 ; AC1,10 400163' 201 01 0 00 000010 0282
TDNN AC1,FLAGS ; AC1,FLAGS 400164' 616 01 0 00 000000'
JRST L.1 ; L.1 400165' 254 00 0 00 400014' 0168
ADJSP SP,-1 ; SP,-1 400166' 105 17 0 00 777777 0165
POP SP,AC16 ; SP,AC16 400167' 262 17 0 00 000016 0135
POP SP,AC14 ; SP,AC14 400170' 262 17 0 00 000014
POP SP,AC13 ; SP,AC13 400171' 262 17 0 00 000013
POPJ SP, ; SP, 400172' 263 17 0 00 000000
C.1: POINT 1,OBJFLG(AC16),34 ; 1,OBJFLG,34 400173' 01 01 0 16 000120'
C.2: POINT 1,OBJFLG(AC16),35 ; 1,OBJFLG,35 400174' 00 01 0 16 000120'
C.3: POINT 1,OBJFLG(AC16),33 ; 1,OBJFLG,33 400175' 02 01 0 16 000120'
C.4: POINT 1,OBJFLG(AC16),32 ; 1,OBJFLG,32 400176' 03 01 0 16 000120'
C.5: POINT 1,FLAGS,31 ; 1,FLAGS,31 400177' 04 01 0 00 000000'
C.6: XWD 0,TTYBLK ; 0,TTYBLK 400200' 000000 000134'
C.7: XWD 0,LIBBLK ; 0,LIBBLK 400201' 000000 000040'
C.8: XWD 0,LSTBLK ; 0,LSTBLK 400202' 000000 000044'
C.9: POINT 7,P.AAA-1,34 ; 7,P.AAA-1,34 400203' 01 07 0 00 377777'
C.10: EXP 14 ; 14 400204' 000000 000014
C.11: POINT 7,P.AAC-1,34 ; 7,P.AAC-1,34 400205' 01 07 0 00 400003'
; Routine Size: 127 words
; 0285 1 END
; 0286 1
; 0287 0 ELUDOM
RELOC 135 ; 000135'
LBR20 12-Apr-1985 07:10:46 TOPS-20 Bliss-36 4A(225) Page 11
001030 30-Dec-1982 17:30:50 DNET61:<DECNET.UTILITIES>LBR20.BLI.1 (2)
.STACK.:BLOCK 4000 ; 000135'
RELOC 400206 ; 400206'
.MAIN.: TDZA AC1,AC1 ; AC1,AC1 400206' 634 01 0 00 000001 0000
MOVEI AC1,1 ; AC1,1 400207' 201 01 0 00 000001
JSYS 147 ; 147 400210' 104 00 0 00 000147
MOVE AC2,C.12 ; AC2,[-4000,,.STACK.-1] 400211' 200 02 0 00 400225'
PUSH AC2,SP ; AC2,SP 400212' 261 02 0 00 000017
PUSH AC2,AC11 ; AC2,AC11 400213' 261 02 0 00 000011
PUSH AC2,AC7 ; AC2,AC7 400214' 261 02 0 00 000007
PUSH AC2,AC0 ; AC2,AC0 400215' 261 02 0 00 000000
PUSH AC2,AC1 ; AC2,AC1 400216' 261 02 0 00 000001
MOVE SP,AC2 ; SP,AC2 400217' 200 17 0 00 000002
SETZB FP,EFPNT. ; FP,EFPNT. 400220' 403 15 0 00 000000*
PUSHJ SP,LBR20 ; SP,LBR20 400221' 260 17 0 00 400007'
ADJSP SP,-5 ; SP,-5 400222' 105 17 0 00 777773
L.17: JSYS 170 ; 170 400223' 104 00 0 00 000170
JRST L.17 ; L.17 400224' 254 00 0 00 400223'
C.12: XWD -4000,.STACK.-1 ; -4000,.STACK.-1 400225' 774000 000134'
; Routine Size: 16 words
; Low segment length: 2141 words
; High segment length: 150 words
; LIBRARY STATISTICS
;
; -------- Symbols -------- Blocks Processing
; File Total Loaded Percent Read Time
;
; DNET61:<DECNET.UTILITIES>LBRCOM.L36.2 705 23 3 26 00:00.1
; Size: 143 code + 2148 data words
; Run Time: 00:03.0
; Elapsed Time: 00:07.3
; Lines/CPU Min: 5784
; Lexemes/CPU-Min: 30634
; Memory Used: 22 pages
; Compilation Complete