Google
 

Trailing-Edge - PDP-10 Archives - BB-R595B-SM_11-9-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