Google
 

Trailing-Edge - PDP-10 Archives - TOPS-20_V6.1_DECnetSrc_7-23-85 - mcb/utilities/lbrcom.lst
There is 1 other file named lbrcom.lst in the archive. Click here to see a list.
								12-Apr-1985 07:09:40	TOPS-20 Bliss-36 4A(225)	    Page   1
								30-Dec-1982 17:31:23	DNET61:<DECNET.UTILITIES>LBRCOM.REQ.1 (1)

;   0001  0	! LBRCOM.BLI - LBR20 COMMON DEFINITIONS
;   0002  0	!
;   0003  0	!                    COPYRIGHT (c) 1980, 1981, 1982
;   0004  0	!                    DIGITAL EQUIPMENT CORPORATION
;   0005  0	!                        Maynard, Massachusetts
;   0006  0	!
;   0007  0	!     This software is furnished under a license and may  be  used
;   0008  0	!     and copied only in accordance with the terms of such license
;   0009  0	!     and with the inclusion of the above copyright notice.   This
;   0010  0	!     software  or any other copies thereof may not be provided or
;   0011  0	!     otherwise made available to any other person.  No  title  to
;   0012  0	!     and ownership of the software is hereby transferred.
;   0013  0	!
;   0014  0	!     The information  in  this  software  is  subject  to  change
;   0015  0	!     without  notice  and should not be construed as a commitment
;   0016  0	!     by DIGITAL EQUIPMENT CORPORATION.
;   0017  0	!
;   0018  0	!     DIGITAL assumes no responsibility for the use or reliability
;   0019  0	!     of  its  software  on  equipment  which  is  not supplied by
;   0020  0	!     DIGITAL.
;   0021  0	!
;   0022  0	
;   0023  0	!++
;   0024  0	! FACILITY: LBR20 - Librarian Utility
;   0025  0	!
;   0026  0	! ABSTRACT:
;   0027  0	!
;   0028  0	!
;   0029  0	! THIS FILE CONTAINS DEFINITIONS COMMON TO ALL THE MODULES OF THE
;   0030  0	! Librarian
;   0031  0	!
;   0032  0	!
;   0033  0	! ENVIRONMENT: ANY
;   0034  0	!
;   0035  0	! AUTHOR: ALAN D. PECKHAM, CREATION DATE: 2-MAY-80
;   0036  0	!
;   0037  0	! MODIFIED BY:
;   0038  0	!
;   0039  0	!	Alan D. Peckham, : VERSION 01
;   0040  0	! 01	- Revise file handling interfaces.
;   0041  0	! 02	- Data structure reformation (change from BLOCK_16 to BLOCK structure).
;   0042  0	!	  Add COMPRESS function
;   0043  0	! 03    - Add FAST switch.
;   0044  0	! 04    - Add support for RG (replace globals) switch.
;   0045  0	!--
;   0046  0	
;   0047  0	!
;   0048  0	! INCLUDE FILES
;   0049  0	!
;   0050  0	
;   0051  0	REQUIRE 'BLI:XPORT';
								12-Apr-1985 07:09:40	TOPS-20 Bliss-36 4A(225)	    Page   2
								 2-Feb-1984 17:29:53	SNARK:<6.1.NML.BLISS>XPORT.REQ.1 (3)

; %PRINT:				  1
; %PRINT:				  2
; %PRINT:				  3
; %PRINT:				  4
; %PRINT:				  5
; %PRINT:				  6
; %PRINT:				  7
; %PRINT:				  8
; %PRINT:				  9
; %PRINT:				  10
; %PRINT:				  11
; %PRINT:				  [0,0,18,0]   (+%O'0')
; %PRINT:				  [0,18,9,0]   (+%O'0')
; %PRINT:				  [0,27,9,0]   (+%O'0')
; %PRINT:				  [1,0,36,0]   (+%O'1')
; %PRINT:				  2 fullwords
; %PRINT:				  2 fullwords
; %PRINT:				  2 fullwords
; %PRINT:				  [2,0,18,0]   (+%O'2')
; %PRINT:				  [2,18,18,0]   (+%O'2')
; %PRINT:				  3 fullwords
; %PRINT:				  3 fullwords
; %PRINT:				  3 fullwords
; %PRINT:				  [0,0,18,0]   (+%O'0')
; %PRINT:				  [0,18,9,0]   (+%O'0')
; %PRINT:				  [0,27,9,0]   (+%O'0')
; %PRINT:				  [1,0,36,0]   (+%O'1')
; %PRINT:				  2 fullwords
; %PRINT:				  2 fullwords
; %PRINT:				  [2,0,18,0]   (+%O'2')
; %PRINT:				  [2,18,18,0]   (+%O'2')
; %PRINT:				  3 fullwords
; %PRINT:				  3 fullwords
; %PRINT:				  3 fullwords
; %PRINT:				  [0,0,36,1]   (+%O'0')
; %PRINT:				  [1,0,9,0]   (+%O'1')
; %PRINT:				  [1,9,9,0]   (+%O'1')
; %PRINT:				  [1,18,18,0]   (+%O'1')
; %PRINT:				  [2,0,36,1]   (+%O'2')
; %PRINT:				  [3,0,9,0]   (+%O'3')
; %PRINT:				  [3,9,9,0]   (+%O'3')
; %PRINT:				  [3,18,18,0]   (+%O'3')
; %PRINT:				  4 fullwords
; %PRINT:				  [0,0,18,1]   (+%O'0')
; %PRINT:				  [0,18,9,1]   (+%O'0')
; %PRINT:				  [0,27,9,1]   (+%O'0')
; %PRINT:				  [1,0,18,0]   (+%O'1')
; %PRINT:				  [1,18,18,0]   (+%O'1')
; %PRINT:				  [2,0,18,0]   (+%O'2')
; %PRINT:				  [3,0,0,0]   (+%O'3')
; %PRINT:				  [6,0,0,0]   (+%O'6')
; %PRINT:				  [8,0,18,0]   (+%O'10')
								12-Apr-1985 07:09:40	TOPS-20 Bliss-36 4A(225)	    Page   3
								 2-Feb-1984 17:29:53	SNARK:<6.1.NML.BLISS>XPORT.REQ.1 (9)

; %PRINT:				  [8,18,18,0]   (+%O'10')
; %PRINT:				  [9,0,9,0]   (+%O'11')
; %PRINT:				  1
; %PRINT:				  2
; %PRINT:				  3
; %PRINT:				  4
; %PRINT:				  5
; %PRINT:				  6
; %PRINT:				  7
; %PRINT:				  [9,18,16,0]   (+%O'11')
; %PRINT:				  [9,18,1,0]   (+%O'11')
; %PRINT:				  [9,19,1,0]   (+%O'11')
; %PRINT:				  [9,20,1,0]   (+%O'11')
; %PRINT:				  [9,21,1,0]   (+%O'11')
; %PRINT:				  [9,22,1,0]   (+%O'11')
; %PRINT:				  [9,23,1,0]   (+%O'11')
; %PRINT:				  [10,0,16,0]   (+%O'12')
; %PRINT:				  [10,0,1,0]   (+%O'12')
; %PRINT:				  [10,1,1,0]   (+%O'12')
; %PRINT:				  [10,2,1,0]   (+%O'12')
; %PRINT:				  [10,3,1,0]   (+%O'12')
; %PRINT:				  [10,4,1,0]   (+%O'12')
; %PRINT:				  [10,18,16,0]   (+%O'12')
; %PRINT:				  [10,18,1,0]   (+%O'12')
; %PRINT:				  [10,19,1,0]   (+%O'12')
; %PRINT:				  [10,20,1,0]   (+%O'12')
; %PRINT:				  [10,21,1,0]   (+%O'12')
; %PRINT:				  [10,22,1,0]   (+%O'12')
; %PRINT:				  [10,23,1,0]   (+%O'12')
; %PRINT:				  [10,24,1,0]   (+%O'12')
; %PRINT:				  [10,25,1,0]   (+%O'12')
; %PRINT:				  [11,0,0,0]   (+%O'13')
; %PRINT:				  [11,0,18,0]   (+%O'13')
; %PRINT:				  [12,0,36,0]   (+%O'14')
; %PRINT:				  [11,0,0,0]   (+%O'13')
; %PRINT:				  [11,0,18,0]   (+%O'13')
; %PRINT:				  [12,0,18,0]   (+%O'14')
; %PRINT:				  [14,0,18,0]   (+%O'16')
; %PRINT:				  [15,0,18,0]   (+%O'17')
; %PRINT:				  [15,0,18,0]   (+%O'17')
; %PRINT:				  [15,18,18,1]   (+%O'17')
; %PRINT:				  [16,0,18,1]   (+%O'20')
; %PRINT:				  [17,0,36,1]   (+%O'21')
; %PRINT:				  [18,0,36,1]   (+%O'22')
; %PRINT:				  [19,0,36,1]   (+%O'23')
; %PRINT:				  [20,0,36,1]   (+%O'24')
; %PRINT:				  [21,0,36,1]   (+%O'25')
; %PRINT:				  [22,0,0,0]   (+%O'26')
; %PRINT:				  [26,0,0,0]   (+%O'32')
; %PRINT:				  [30,0,0,0]   (+%O'36')
; %PRINT:				  [46,0,18,1]   (+%O'56')
; %PRINT:				  [46,18,18,1]   (+%O'56')
								12-Apr-1985 07:09:40	TOPS-20 Bliss-36 4A(225)	    Page   4
								 2-Feb-1984 17:29:53	SNARK:<6.1.NML.BLISS>XPORT.REQ.1 (9)

; %PRINT:				  [47,0,18,1]   (+%O'57')
; %PRINT:				  [47,18,18,1]   (+%O'57')
; %PRINT:				  [48,0,36,1]   (+%O'60')
; %PRINT:				  [49,0,36,1]   (+%O'61')
; %PRINT:				  [50,0,36,1]   (+%O'62')
; %PRINT:				  [51,0,36,1]   (+%O'63')
; %PRINT:				  [52,0,36,1]   (+%O'64')
; %PRINT:				  [53,0,36,1]   (+%O'65')
; %PRINT:				  [54,0,36,1]   (+%O'66')
; %PRINT:				  [55,0,36,1]   (+%O'67')
; %PRINT:				  [56,0,18,0]   (+%O'70')
; %PRINT:				  [56,0,18,0]   (+%O'70')
; %PRINT:				  [56,18,18,0]   (+%O'70')
; %PRINT:				  [56,0,18,0]   (+%O'70')
; %PRINT:				  [56,0,18,0]   (+%O'70')
; %PRINT:				  [57,0,18,1]   (+%O'71')
; %PRINT:				  58 fullwords
; %PRINT:				  [0,0,16,0]   (+%O'0')
; %PRINT:				  [0,0,1,0]   (+%O'0')
; %PRINT:				  [0,1,1,0]   (+%O'0')
; %PRINT:				  [0,2,1,0]   (+%O'0')
; %PRINT:				  [0,3,1,0]   (+%O'0')
; %PRINT:				  [0,4,1,0]   (+%O'0')
; %PRINT:				  [0,5,1,0]   (+%O'0')
; %PRINT:				  [0,6,1,0]   (+%O'0')
; %PRINT:				  [0,7,1,0]   (+%O'0')
; %PRINT:				  [0,8,1,0]   (+%O'0')
; %PRINT:				  [0,9,1,0]   (+%O'0')
; %PRINT:				  [0,10,1,0]   (+%O'0')
; %PRINT:				  [1,0,0,0]   (+%O'1')
; %PRINT:				  [1,0,18,0]   (+%O'1')
; %PRINT:				  [2,0,36,0]   (+%O'2')
; %PRINT:				  [3,0,0,0]   (+%O'3')
; %PRINT:				  [3,0,18,0]   (+%O'3')
; %PRINT:				  [4,0,36,0]   (+%O'4')
; %PRINT:				  [5,0,0,0]   (+%O'5')
; %PRINT:				  [5,0,18,0]   (+%O'5')
; %PRINT:				  [6,0,36,0]   (+%O'6')
; %PRINT:				  [7,0,18,0]   (+%O'7')
; %PRINT:				  [7,18,18,0]   (+%O'7')
; %PRINT:				  [8,0,0,0]   (+%O'10')
; %PRINT:				  [8,0,18,0]   (+%O'10')
; %PRINT:				  [9,0,36,0]   (+%O'11')
; %PRINT:				  [10,0,0,0]   (+%O'12')
; %PRINT:				  [10,0,18,0]   (+%O'12')
; %PRINT:				  [11,0,36,0]   (+%O'13')
; %PRINT:				  [12,0,0,0]   (+%O'14')
; %PRINT:				  [12,0,18,0]   (+%O'14')
; %PRINT:				  [13,0,36,0]   (+%O'15')
; %PRINT:				  [14,0,0,0]   (+%O'16')
; %PRINT:				  [14,0,18,0]   (+%O'16')
; %PRINT:				  [15,0,36,0]   (+%O'17')
								12-Apr-1985 07:09:40	TOPS-20 Bliss-36 4A(225)	    Page   5
								 2-Feb-1984 17:29:53	SNARK:<6.1.NML.BLISS>XPORT.REQ.1 (11)

; %PRINT:				  [16,0,0,0]   (+%O'20')
; %PRINT:				  [16,0,18,0]   (+%O'20')
; %PRINT:				  [17,0,36,0]   (+%O'21')
; %PRINT:				  18 fullwords
; %PRINT:				  [0,0,18,0]   (+%O'0')
; %PRINT:				  [0,18,18,0]   (+%O'0')
; %PRINT:				  1 fullwords
; %PRINT:				  1
; %PRINT:				  2
; %PRINT:				  [0,0,16,0]   (+%O'0')
; %PRINT:				  [0,0,8,0]   (+%O'0')
; %PRINT:				  [0,8,8,0]   (+%O'0')
; %PRINT:				  [0,0,8,0]   (+%O'0')
; %PRINT:				  [0,0,1,0]   (+%O'0')
; %PRINT:				  [0,1,1,0]   (+%O'0')
; %PRINT:				  [0,2,1,0]   (+%O'0')
; %PRINT:				  [0,8,1,0]   (+%O'0')
; %PRINT:				  [0,9,1,0]   (+%O'0')
; %PRINT:				  [0,10,1,0]   (+%O'0')
; %PRINT:				  [0,11,1,0]   (+%O'0')
; %PRINT:				  [0,12,1,0]   (+%O'0')
; %PRINT:				  [0,13,1,0]   (+%O'0')
; %PRINT:				  [0,14,1,0]   (+%O'0')
; %PRINT:				  [0,8,1,0]   (+%O'0')
; %PRINT:				  [0,9,1,0]   (+%O'0')
; %PRINT:		STR$M_LEFT_JUST	= 1
; %PRINT:		STR$M_RIGHT_JUS	= 2
; %PRINT:		STR$M_CENTER	= 4
; %PRINT:		STR$M_SIGNED	= 256
; %PRINT:		STR$M_UNSIGNED	= 512
; %PRINT:		STR$M_LEADING_Z	= 1024
; %PRINT:		STR$M_LEADING_B	= 2048
; %PRINT:		STR$M_UP_CASE	= 4096
; %PRINT:		STR$M_TRUNCATE	= 8192
; %PRINT:		STR$M_NO_FREE_T	= 16384
; %PRINT:		STR$M_REMAINDER	= 256
; %PRINT:		STR$M_TARGET	= 512
; %PRINT:				  1
; %PRINT:				  2
; %PRINT:				  3
; %PRINT:				  4
; %PRINT:				  5
; %PRINT:				  6
; %PRINT:				  7
; %PRINT:				  1
; %PRINT:				  2
; %PRINT:				  3
; %PRINT:		XPO$_NORMAL	= 1   (%O'1')
; %PRINT:		XPO$_CREATED	= 9   (%O'11')
; %PRINT:		XPO$_INCOMPLETE	= 17   (%O'21')
; %PRINT:		XPO$_NEW_FILE	= 25   (%O'31')
; %PRINT:		XPO$_NEW_PAGE	= 33   (%O'41')
								12-Apr-1985 07:09:40	TOPS-20 Bliss-36 4A(225)	    Page   6
								 2-Feb-1984 17:29:53	SNARK:<6.1.NML.BLISS>XPORT.REQ.1 (21)

; %PRINT:		XPO$_END_FILE	= 4096   (%O'10000')
; %PRINT:		XPO$_BAD_ADDR	= 8194   (%O'20002')
; %PRINT:		XPO$_BAD_ALIGN	= 8202   (%O'20012')
; %PRINT:		XPO$_BAD_ARGS	= 8210   (%O'20022')
; %PRINT:		XPO$_BAD_CONCAT	= 8218   (%O'20032')
; %PRINT:		XPO$_BAD_DELIM	= 8226   (%O'20042')
; %PRINT:		XPO$_BAD_DESC	= 8234   (%O'20052')
; %PRINT:		XPO$_BAD_DEVICE	= 8242   (%O'20062')
; %PRINT:		XPO$_BAD_DFLT	= 8250   (%O'20072')
; %PRINT:		XPO$_BAD_DIRECT	= 8258   (%O'20102')
; %PRINT:		XPO$_BAD_DTYPE	= 8266   (%O'20112')
; %PRINT:		XPO$_BAD_FORMAT	= 8274   (%O'20122')
; %PRINT:		XPO$_BAD_IO_OPT	= 8282   (%O'20132')
; %PRINT:		XPO$_BAD_LENGTH	= 8290   (%O'20142')
; %PRINT:		XPO$_BAD_NAME	= 8298   (%O'20152')
; %PRINT:		XPO$_BAD_NEW	= 8306   (%O'20162')
; %PRINT:		XPO$_BAD_NODE	= 8314   (%O'20172')
; %PRINT:		XPO$_BAD_ORG	= 8322   (%O'20202')
; %PRINT:		XPO$_BAD_PROMPT	= 8330   (%O'20212')
; %PRINT:		XPO$_BAD_RECORD	= 8338   (%O'20222')
; %PRINT:		XPO$_BAD_REQ	= 8346   (%O'20232')
; %PRINT:		XPO$_BAD_RLTD	= 8354   (%O'20242')
; %PRINT:		XPO$_BAD_RSLT	= 8362   (%O'20252')
; %PRINT:		XPO$_BAD_SPEC	= 8370   (%O'20262')
; %PRINT:		XPO$_BAD_TYPE	= 8378   (%O'20272')
; %PRINT:		XPO$_BAD_VER	= 8386   (%O'20302')
; %PRINT:		XPO$_CHANNEL	= 8394   (%O'20312')
; %PRINT:		XPO$_CLOSED	= 8402   (%O'20322')
; %PRINT:		XPO$_CONFLICT	= 8410   (%O'20332')
; %PRINT:		XPO$_CORRUPTED	= 8418   (%O'20342')
; %PRINT:		XPO$_EXISTS	= 8426   (%O'20352')
; %PRINT:		XPO$_FILE_LOCK	= 8434   (%O'20362')
; %PRINT:		XPO$_FREE_MEM	= 8442   (%O'20372')
; %PRINT:		XPO$_GET_MEM	= 8450   (%O'20402')
; %PRINT:		XPO$_IN_USE	= 8458   (%O'20412')
; %PRINT:		XPO$_IO_BUFFER	= 8466   (%O'20422')
; %PRINT:		XPO$_IO_ERROR	= 8474   (%O'20432')
; %PRINT:		XPO$_MISSING	= 8482   (%O'20442')
; %PRINT:		XPO$_NETWORK	= 8490   (%O'20452')
; %PRINT:		XPO$_NO_ACCESS	= 8498   (%O'20462')
; %PRINT:		XPO$_NO_BACKUP	= 8506   (%O'20472')
; %PRINT:		XPO$_NO_CHANNEL	= 8514   (%O'20502')
; %PRINT:		XPO$_NO_CLOSE	= 8522   (%O'20512')
; %PRINT:		XPO$_NO_CONCAT	= 8530   (%O'20522')
; %PRINT:		XPO$_NO_CREATE	= 8538   (%O'20532')
; %PRINT:		XPO$_NO_DELETE	= 8546   (%O'20542')
; %PRINT:		XPO$_NO_DIRECT	= 8554   (%O'20552')
; %PRINT:		XPO$_NO_FILE	= 8562   (%O'20562')
; %PRINT:		XPO$_NO_MEMORY	= 8570   (%O'20572')
; %PRINT:		XPO$_NO_OPEN	= 8578   (%O'20602')
; %PRINT:		XPO$_NO_READ	= 8586   (%O'20612')
; %PRINT:		XPO$_NO_RENAME	= 8594   (%O'20622')
								12-Apr-1985 07:09:40	TOPS-20 Bliss-36 4A(225)	    Page   7
								 2-Feb-1984 17:29:53	SNARK:<6.1.NML.BLISS>XPORT.REQ.1 (21)

; %PRINT:		XPO$_NO_SPACE	= 8602   (%O'20632')
; %PRINT:		XPO$_NO_SUBDIR	= 8610   (%O'20642')
; %PRINT:		XPO$_NO_SUPPORT	= 8618   (%O'20652')
; %PRINT:		XPO$_NO_WRITE	= 8626   (%O'20662')
; %PRINT:		XPO$_NOT_CLOSED	= 8634   (%O'20672')
; %PRINT:		XPO$_NOT_EXPIRE	= 8642   (%O'20702')
; %PRINT:		XPO$_NOT_INPUT	= 8650   (%O'20712')
; %PRINT:		XPO$_NOT_ONLINE	= 8658   (%O'20722')
; %PRINT:		XPO$_NOT_OPEN	= 8666   (%O'20732')
; %PRINT:		XPO$_NOT_OUTPUT	= 8674   (%O'20742')
; %PRINT:		XPO$_OPEN	= 8682   (%O'20752')
; %PRINT:		XPO$_PREV_ERROR	= 8690   (%O'20762')
; %PRINT:		XPO$_PRIVILEGED	= 8698   (%O'20772')
; %PRINT:		XPO$_PROTECTED	= 8706   (%O'21002')
; %PRINT:		XPO$_PUT_MSG	= 8714   (%O'21012')
; %PRINT:		XPO$_REC_LOCK	= 8722   (%O'21022')
; %PRINT:		XPO$_RENAME_NEW	= 8730   (%O'21032')
; %PRINT:		XPO$_RENAME_OLD	= 8738   (%O'21042')
; %PRINT:		XPO$_TRUNCATED	= 8746   (%O'21052')
; %PRINT:		XPO$_WILDCARD	= 8754   (%O'21062')
; %PRINT:		XPO$_BAD_ACCT	= 8762   (%O'21072')
; %PRINT:		XPO$_BAD_ATTR	= 8770   (%O'21102')
; %PRINT:		XPO$_BAD_DATA	= 8778   (%O'21112')
; %PRINT:		XPO$_BAD_MEDIA	= 8786   (%O'21122')
; %PRINT:		XPO$_BAD_MEMORY	= 8794   (%O'21132')
; %PRINT:		XPO$_BAD_PROT	= 8802   (%O'21142')
; %PRINT:		XPO$_BAD_PTR	= 8810   (%O'21152')
; %PRINT:		XPO$_BAD_RECNUM	= 8818   (%O'21162')
; %PRINT:		XPO$_BAD_SIZE	= 8826   (%O'21172')
; %PRINT:		XPO$_BAD_TEMP	= 8834   (%O'21202')
; %PRINT:		XPO$_CHAN_USED	= 8842   (%O'21212')
; %PRINT:		XPO$_HOST_ERROR	= 8850   (%O'21222')
; %PRINT:		XPO$_NO_NODE	= 8858   (%O'21232')
; %PRINT:		XPO$_NO_STACK	= 8866   (%O'21242')
; %PRINT:		XPO$_SYS_ERROR	= 8874   (%O'21252')
; %PRINT:		XPO$_BAD_CLASS	= 8882   (%O'21262')
; %PRINT:		XPO$_NO_TEMP	= 8890   (%O'21272')
; %PRINT:		XPO$_FOREGROUND	= 8898   (%O'21302')
; %PRINT:		XPO$_NO_APPEND	= 8906   (%O'21312')
; %PRINT:		XPO$_NO_SEQ	= 8914   (%O'21322')
; %PRINT:		XPO$_BAD_ORDER	= 8922   (%O'21332')
; %PRINT:		XPO$_BAD_SYNTAX	= 8930   (%O'21342')
; %PRINT:		XPO$_BAD_IOB	= 16388   (%O'40004')
; %PRINT:		XPO$_BAD_LOGIC	= 16396   (%O'40014')
; %PRINT:		XPO$_TERMINATE	= 16404   (%O'40024')
; %PRINT:		STR$_END_STRING	= 2049   (%O'4001')
; %PRINT:		STR$_TRUNCATED	= 2057   (%O'4011')
; %PRINT:		STR$_NOT_TEMP	= 2065   (%O'4021')
; %PRINT:		STR$_BAD_CHAR	= 10242   (%O'24002')
; %PRINT:		STR$_BAD_CLASS	= 10250   (%O'24012')
; %PRINT:		STR$_BAD_DESC	= 10258   (%O'24022')
; %PRINT:		STR$_BAD_DTYPE	= 10266   (%O'24032')
								12-Apr-1985 07:09:40	TOPS-20 Bliss-36 4A(225)	    Page   8
								 2-Feb-1984 17:29:53	SNARK:<6.1.NML.BLISS>XPORT.REQ.1 (21)

; %PRINT:		STR$_BAD_LENGTH	= 10274   (%O'24042')
; %PRINT:		STR$_BAD_MAXLEN	= 10282   (%O'24052')
; %PRINT:		STR$_BAD_PATTRN	= 10290   (%O'24062')
; %PRINT:		STR$_BAD_PTR	= 10298   (%O'24072')
; %PRINT:		STR$_BAD_REQ	= 10306   (%O'24102')
; %PRINT:		STR$_BAD_SOURCE	= 10314   (%O'24112')
; %PRINT:		STR$_BAD_STRNG1	= 10322   (%O'24122')
; %PRINT:		STR$_BAD_STRNG2	= 10330   (%O'24132')
; %PRINT:		STR$_BAD_TARGET	= 10338   (%O'24142')
; %PRINT:		STR$_CONFLICT	= 10346   (%O'24152')
; %PRINT:		STR$_NO_SPACE	= 10354   (%O'24162')
; %PRINT:		STR$_NO_STRING	= 10362   (%O'24172')
; %PRINT:		STR$_NO_SUPPORT	= 10370   (%O'24202')
; %PRINT:		STR$_NO_TEMP	= 10378   (%O'24212')
; %PRINT:		STR$_NULL_STRNG	= 10386   (%O'24222')
; %PRINT:		STR$_OUT_RANGE	= 10394   (%O'24232')
; %PRINT:		STR$_TOO_LONG	= 10402   (%O'24242')
; %PRINT:		STR$_BAD_LOGIC	= 18436   (%O'44004')
; %PRINT:				  1
; %PRINT:				  2
; %PRINT:				  3
; %PRINT:				  4
; %PRINT:				  5
; %PRINT:				  1
; %PRINT:				  2
; %PRINT:				  3
; %PRINT:				  4
; %PRINT:				  5
; %PRINT:				  6
								12-Apr-1985 07:09:40	TOPS-20 Bliss-36 4A(225)	    Page   9
								30-Dec-1982 17:31:23	DNET61:<DECNET.UTILITIES>LBRCOM.REQ.1 (1)

;   3772  0	
;   3773  0	!
;   3774  0	! MACROS
;   3775  0	!
;   3776  0	
;   3777  0	MACRO
; M 3778  0	    XPO$PTR (addr, idx) =
;   3779  0		CH$PTR (addr, idx, $xpo$bits_byte) %;
;   3780  0	
;   3781  0	MACRO
; M 3782  0	    POINTR (adr, mask) =
; M 3783  0		adr <%NBITSU (mask  AND  - mask) - 1,
;   3784  0		%NBITSU (mask) - %NBITSU (mask  AND  - mask) + 1> %,
; M 3785  0	    FLD (val, mask) =
;   3786  0		((val)^(%NBITSU (mask  AND  - mask) - 1)) %;
;   3787  0	
;   3788  0	!
;   3789  0	! Convenient character string macros
;   3790  0	!
;   3791  0	
;   3792  0	MACRO
; M 3793  0	    CH$LEN (PTR) =				!Get length of ASCIZ string.
;   3794  0		CH$DIFF(CH$FIND_CH(200,PTR,0),PTR) %,
; M 3795  0	    CH$SEQUENCE (CHARS, CS) =			!Allocate storage for string.
;   3796  0		VECTOR[CH$ALLOCATION(CHARS,CS)] %,
; M 3797  0	    CH$ASCIC [] =				!A pointer to an ASCIC string.
;   3798  0		CH$PTR(UPLIT(%STRING(%CHAR(%CHARCOUNT(%REMAINING)),%REMAINING)),1) %,
; M 3799  0	    CH$ASCII [] =				!A pointer to an ASCII string.
;   3800  0		CH$PTR(UPLIT(%ASCII %STRING(%REMAINING))) %,
; M 3801  0	    CH$ASCIZ [] =				!A pointer to an ASCIZ string.
;   3802  0		CH$PTR(UPLIT(%ASCIZ %STRING(%REMAINING))) %;
;   3803  0	
;   3804  0	!
;   3805  0	! Bit checking routines
;   3806  0	!
;   3807  0	
;   3808  0	MACRO
; M 3809  0	    BIT_SET (VALUE, BIT_TO_TEST) =
;   3810  0		(((VALUE) AND (BIT_TO_TEST)) NEQ 0) %,
; M 3811  0	    BIT_CLEAR (VALUE, BIT_TO_TEST) =
;   3812  0		(((VALUE) AND (BIT_TO_TEST)) EQL 0) %;
;   3813  0	
;   3814  0	MACRO
; M 3815  0	    RAD50 (TEXT) =
;   3816  0		UPLIT( RAD50_CHARS( %EXPLODE(%STRING(TEXT)) ) ) %,
; M 3817  0	    RAD50_WORD (TEXT) =
;   3818  0		RAD50_CHARS ( %EXPLODE(%STRING(TEXT))) %,
; M 3819  0	    RAD50_CHARS [CHAR1, CHAR2, CHAR3] =
;   3820  0		( RAD50_CHAR(CHAR1) *40+RAD50_CHAR(CHAR2))*40+RAD50_CHAR(CHAR3) %,
; M 3821  0	    RAD50_CHAR (CHAR) =
; M 3822  0		%IF %NULL(CHAR) %THEN 0 %FI
; M 3823  0		%IF %IDENTICAL( ' ', CHAR ) %THEN 0 %FI
								12-Apr-1985 07:09:40	TOPS-20 Bliss-36 4A(225)	    Page  10
								30-Dec-1982 17:31:23	DNET61:<DECNET.UTILITIES>LBRCOM.REQ.1 (1)

; M 3824  0		%IF %IDENTICAL( 'A', CHAR ) %THEN 1 %FI
; M 3825  0		%IF %IDENTICAL( 'B', CHAR ) %THEN 2 %FI
; M 3826  0		%IF %IDENTICAL( 'C', CHAR ) %THEN 3 %FI
; M 3827  0		%IF %IDENTICAL( 'D', CHAR ) %THEN 4 %FI
; M 3828  0		%IF %IDENTICAL( 'E', CHAR ) %THEN 5 %FI
; M 3829  0		%IF %IDENTICAL( 'F', CHAR ) %THEN 6 %FI
; M 3830  0		%IF %IDENTICAL( 'G', CHAR ) %THEN 7 %FI
; M 3831  0		%IF %IDENTICAL( 'H', CHAR ) %THEN 8 %FI
; M 3832  0		%IF %IDENTICAL( 'I', CHAR ) %THEN 9 %FI
; M 3833  0		%IF %IDENTICAL( 'J', CHAR ) %THEN 10 %FI
; M 3834  0		%IF %IDENTICAL( 'K', CHAR ) %THEN 11 %FI
; M 3835  0		%IF %IDENTICAL( 'L', CHAR ) %THEN 12 %FI
; M 3836  0		%IF %IDENTICAL( 'M', CHAR ) %THEN 13 %FI
; M 3837  0		%IF %IDENTICAL( 'N', CHAR ) %THEN 14 %FI
; M 3838  0		%IF %IDENTICAL( 'O', CHAR ) %THEN 15 %FI
; M 3839  0		%IF %IDENTICAL( 'P', CHAR ) %THEN 16 %FI
; M 3840  0		%IF %IDENTICAL( 'Q', CHAR ) %THEN 17 %FI
; M 3841  0		%IF %IDENTICAL( 'R', CHAR ) %THEN 18 %FI
; M 3842  0		%IF %IDENTICAL( 'S', CHAR ) %THEN 19 %FI
; M 3843  0		%IF %IDENTICAL( 'T', CHAR ) %THEN 20 %FI
; M 3844  0		%IF %IDENTICAL( 'U', CHAR ) %THEN 21 %FI
; M 3845  0		%IF %IDENTICAL( 'V', CHAR ) %THEN 22 %FI
; M 3846  0		%IF %IDENTICAL( 'W', CHAR ) %THEN 23 %FI
; M 3847  0		%IF %IDENTICAL( 'X', CHAR ) %THEN 24 %FI
; M 3848  0		%IF %IDENTICAL( 'Y', CHAR ) %THEN 25 %FI
; M 3849  0		%IF %IDENTICAL( 'Z', CHAR ) %THEN 26 %FI
; M 3850  0		%IF %IDENTICAL( '$', CHAR ) %THEN 27 %FI
; M 3851  0		%IF %IDENTICAL( '.', CHAR ) %THEN 28 %FI
; M 3852  0		%IF %IDENTICAL( '_', CHAR ) %THEN 28 %FI
; M 3853  0		%IF %IDENTICAL( '0', CHAR ) %THEN 30 %FI
; M 3854  0		%IF %IDENTICAL( '1', CHAR ) %THEN 31 %FI
; M 3855  0		%IF %IDENTICAL( '2', CHAR ) %THEN 32 %FI
; M 3856  0		%IF %IDENTICAL( '3', CHAR ) %THEN 33 %FI
; M 3857  0		%IF %IDENTICAL( '4', CHAR ) %THEN 34 %FI
; M 3858  0		%IF %IDENTICAL( '5', CHAR ) %THEN 35 %FI
; M 3859  0		%IF %IDENTICAL( '6', CHAR ) %THEN 36 %FI
; M 3860  0		%IF %IDENTICAL( '7', CHAR ) %THEN 37 %FI
; M 3861  0		%IF %IDENTICAL( '8', CHAR ) %THEN 38 %FI
;   3862  0		%IF %IDENTICAL( '9', CHAR ) %THEN 39 %FI %;
;   3863  0	
;   3864  0	!
;   3865  0	! I/O definitions
;   3866  0	!
;   3867  0	
;   3868  0	$LITERAL
;   3869  0	    F_READ = 0,
;   3870  0	    F_WRITE = $DISTINCT,
;   3871  0	    F_APPEND = $DISTINCT,
;   3872  0	    F_MODIFY = $DISTINCT,
;   3873  0	    F_UPDATE = $DISTINCT;
;   3874  0	
;   3875  0	$LITERAL
								12-Apr-1985 07:09:40	TOPS-20 Bliss-36 4A(225)	    Page  11
								30-Dec-1982 17:31:23	DNET61:<DECNET.UTILITIES>LBRCOM.REQ.1 (1)

;   3876  0	    F_ASCII = 0,
;   3877  0	    F_BINARY = $DISTINCT;
;   3878  0	
;   3879  0	MACRO
; M 3880  0	    PUTLN (SKIP, EDIT) [] =
; M 3881  0		BEGIN
; M 3882  0		EXTERNAL ROUTINE PUTLIN : NOVALUE;
; M 3883  0		%IF %LENGTH GTR 2
; M 3884  0		%THEN
; M 3885  0		    LOCAL PRM_LIST : VECTOR[%LENGTH-2];
; M 3886  0		    MACRO PUTASG[PARAMETER] =
; M 3887  0			PRM_LIST[%COUNT]=PARAMETER %QUOTE %;
; M 3888  0		    PUTASG( %REMAINING );
; M 3889  0		    PUTLIN( SKIP, EDIT, PRM_LIST )
; M 3890  0		%ELSE
; M 3891  0		    PUTLIN( SKIP, EDIT, 0 )
; M 3892  0		%FI
;   3893  0		END %,
; M 3894  0	    TYPLN (SKIP, EDIT) [] =
; M 3895  0		BEGIN
; M 3896  0		EXTERNAL ROUTINE TYPLIN : NOVALUE;
; M 3897  0		%IF %LENGTH GTR 2
; M 3898  0		%THEN
; M 3899  0		    LOCAL PRM_LIST : VECTOR[%LENGTH-2];
; M 3900  0		    MACRO TYPASG[PARAMETER] =
; M 3901  0			PRM_LIST[%COUNT]=PARAMETER %QUOTE %;
; M 3902  0		    TYPASG( %REMAINING );
; M 3903  0		    TYPLIN( SKIP, EDIT, PRM_LIST )
; M 3904  0		%ELSE
; M 3905  0		    TYPLIN( SKIP, EDIT, 0 )
; M 3906  0		%FI
;   3907  0		END %;
;   3908  0	
;   3909  0	MACRO
; M 3910  0	    FATAL =
;   3911  0		'*FATAL*  ' %,
; M 3912  0	    WARNING =
;   3913  0		'*WARNING*  ' %;
;   3914  0	
;   3915  0	!
;   3916  0	! EQUATED SYMBOLS
;   3917  0	!
;   3918  0	
;   3919  0	LITERAL
;   3920  0	    TRUE = 1 eql 1,				!Truisms.
;   3921  0	    FALSE = 1 eql 0,
;   3922  0	    DEBUG = FALSE,				!No debugging available
;   3923  0	    LBR_SUPPORT = %C'X',			!Support code.
;   3924  0	    LBR_VERSION = 1,				!Version number.
;   3925  0	    LBR_UPDATE = 0,				!Update release number.
;   3926  0	    LBR_EDIT = 6;				!Edit number.
;   3927  0	
								12-Apr-1985 07:09:40	TOPS-20 Bliss-36 4A(225)	    Page  12
								30-Dec-1982 17:31:23	DNET61:<DECNET.UTILITIES>LBRCOM.REQ.1 (1)

;   3928  0	MACRO
;   3929  0	    LST_FILE = %STRING ('Listing of') %,
;   3930  0	    LST_TITLE = %STRING ('LBR20 - Librarian Utility') %,
;   3931  0	    PROMPT = %STRING ('LBR20') %;
;   3932  0	
;   3933  0	LITERAL
;   3934  0	    LBR_MAX_EXTRACTS = 8,			!Maximum number of extracted modules.
;   3935  0	    LBR_MAX_GLOBAL_DELETES = 15,		!Maximum number of global symbol deletes.
;   3936  0	    LBR_MAX_MODULE_DELETES = 15,		!Maximum number of module deletes.
;   3937  0	    LBR_MAX_OBJ = 10,				!Maximum number of input files.
;   3938  0	    LBR_MAX_FILES = LBR_MAX_OBJ + 5;		!Maximum number of open files.
;   3939  0	
;   3940  0	$LITERAL
;   3941  0	    !
;   3942  0	    ! General switches
;   3943  0	    !
;   3944  0	    M_VERSION = $DISTINCT,			!Display version.
;   3945  0	    M_HELP = $DISTINCT,				!Display HLP file.
;   3946  0	    M_EXIT = $DISTINCT,				!Exit switch specified.
;   3947  0	    M_WIDE = $DISTINCT,				!Use 132 column listing format.
;   3948  0	    M_FAST = $DISTINCT,                         !Do not rewrite EPT or MNT
;   3949  0	                                                !until all operations finished.
;   3950  0	    M_LIST = $DISTINCT,				!List library
;   3951  0	    M_LIST_ENTRIES = $DISTINCT,			!List EPT table
;   3952  0	    M_LIST_HEADERS = $DISTINCT,			!List module header
;   3953  0	    M_CREATE = $DISTINCT,			!Creating new library
;   3954  0	    M_COMPRESS = $DISTINCT,			!Compress library
;   3955  0	    M_NOEPT = $DISTINCT,			!Do not insert entry points
;   3956  0	    M_REPLACE = $DISTINCT,			!Replace modules
;   3957  0	    M_RG = $DISTINCT,                           !Replace globals
;   3958  0	    M_SS = $DISTINCT,				!Selective search
;   3959  0	    M_MAX = M_SS,
;   3960  0	    !
;   3961  0	    ! Number of bits required
;   3962  0	    !
;   3963  0	    M_MAX_BITS = M_MAX + 1;			!Maximum number of bits needed.
;   3964  0	
;   3965  0	MACRO
;   3966  0	    F_NOEPT	= 0, 0, 1, 0 %,
;   3967  0	    F_REPLACE	= 0, 1, 1, 0 %,
;   3968  0	    F_RG        = 0, 2, 1, 0 %,
;   3969  0	    F_SS	= 0, 3, 1, 0 %;
;   3970  0	
;   3971  0	LITERAL
;   3972  0	    F_MAX = 1;					!Allocation for file flags.
;   3973  0	!
;   3974  0	! Field and structure definitions
;   3975  0	!
;   3976  0	
;   3977  0	FIELD
;   3978  0	    LIB_FIELDS =
;   3979  0		SET
								12-Apr-1985 07:09:40	TOPS-20 Bliss-36 4A(225)	    Page  13
								30-Dec-1982 17:31:23	DNET61:<DECNET.UTILITIES>LBRCOM.REQ.1 (1)

;   3980  0		LIB_TYPE = [0, 18, 8, 0],
;   3981  0	
;   3982  0		LIB_IDENTIFICATION = [0, 24, 8, 0],
;   3983  0		LIB_VERSION_1 = [0, 0, 16, 0],
;   3984  0		LIB_VERSION_2 = [1, 18, 16, 0],
;   3985  0		LIB_YEAR = [1, 0, 16, 0],
;   3986  0		LIB_MONTH = [2, 18, 16, 0],
;   3987  0		LIB_DAY = [2, 0, 16, 0],
;   3988  0		LIB_HOUR = [3, 18, 16, 0],
;   3989  0		LIB_MINUTE = [3, 0, 16, 0],
;   3990  0		LIB_SECOND = [4, 18, 16, 0],
;   3991  0		LIB_EPT_SIZE = [4, 0, 8, 0],
;   3992  0		LIB_EPT_BLOCK = [5, 18, 16, 0],
;   3993  0		LIB_EPT_ALLOCATED = [5, 0, 16, 0],
;   3994  0		LIB_EPT_AVAILABLE = [6, 18, 16, 0],
;   3995  0		LIB_MNT_SIZE = [6, 0, 8, 0],
;   3996  0		LIB_MNT_BLOCK = [7, 18, 16, 0],
;   3997  0		LIB_MNT_ALLOCATED = [7, 0, 16, 0],
;   3998  0		LIB_MNT_AVAILABLE = [8, 18, 16, 0],
;   3999  0		LIB_DELETED_1 = [8, 0, 16, 0],		!(in bytes)
;   4000  0		LIB_DELETED_2 = [9, 18, 16, 0],
;   4001  0		LIB_CONTIGUOUS_1 = [9, 0, 16, 0],	!(in bytes)
;   4002  0		LIB_CONTIGUOUS_2 = [10, 18, 16, 0],
;   4003  0		LIB_INSERT_BLOCK = [10, 0, 16, 0],
;   4004  0		LIB_INSERT_OFFSET = [11, 18, 16, 0]
;   4005  0	    TES;
;   4006  0	
;   4007  0	LITERAL
;   4008  0	    LIB_OBJECT = 0,				!LIB_TYPE
;   4009  0	    LIB_MACRO = 1,
;   4010  0	    LIB_ID_2 = 2,				!LIB_IDENTIFICATION
;   4011  0	    LIB_SIZE = 24*2,				!in bytes
;   4012  0	    LIB_LENGTH = 12;
;   4013  0	
;   4014  0	FIELD
;   4015  0	    EPT_FIELDS =
;   4016  0		SET
;   4017  0		EPT_NAME_1 = [0, 18, 16, 0],
;   4018  0		EPT_NAME_2 = [0, 0, 16, 0],
;   4019  0		EPT_BLOCK = [1, 18, 16, 0],
;   4020  0		EPT_OFFSET = [1, 0, 16, 0]
;   4021  0		TES;
;   4022  0	
;   4023  0	LITERAL
;   4024  0	    EPT_SIZE = 4*2,				!in bytes
;   4025  0	    EPT_LENGTH = 2;
;   4026  0	
;   4027  0	FIELD
;   4028  0	    MNT_FIELDS =
;   4029  0		SET
;   4030  0		MNT_NAME_1 = [0, 18, 16, 0],
;   4031  0		MNT_NAME_2 = [0, 0, 16, 0],
								12-Apr-1985 07:09:40	TOPS-20 Bliss-36 4A(225)	    Page  14
								30-Dec-1982 17:31:23	DNET61:<DECNET.UTILITIES>LBRCOM.REQ.1 (1)

;   4032  0		MNT_BLOCK = [1, 18, 16, 0],
;   4033  0		MNT_OFFSET = [1, 0, 16, 0]
;   4034  0		TES;
;   4035  0	
;   4036  0	LITERAL
;   4037  0	    MNT_SIZE = 4*2,				!in bytes
;   4038  0	    MNT_LENGTH = 2;
;   4039  0	
;   4040  0	FIELD
;   4041  0	    HDR_FIELDS =
;   4042  0		SET
;   4043  0		HDR_STATUS = [0, 18, 8, 0],
;   4044  0		    HDR_DELETED = [$SUB_FIELD (HDR_STATUS, 0, 0, 1, 0)],
;   4045  0	
;   4046  0		HDR_ATTRIBUTES = [0, 26, 8, 0],
;   4047  0		    HDR_SS = [$SUB_FIELD (HDR_ATTRIBUTES, 0, 0, 1, 0)],
;   4048  0	
;   4049  0		HDR_SIZE_1 = [0, 0, 16, 0],		!(in bytes)
;   4050  0		HDR_SIZE_2 = [1, 18, 16, 0],
;   4051  0		HDR_YEAR = [1, 0, 16, 0],
;   4052  0		HDR_MONTH = [2, 18, 16, 0],
;   4053  0		HDR_DAY = [2, 0, 16, 0],
;   4054  0		HDR_IDENT_1 = [3, 18, 16, 0],
;   4055  0		HDR_IDENT_2 = [3, 0, 16, 0]
;   4056  0		TES;
;   4057  0	
;   4058  0	LITERAL
;   4059  0	    HDR_SIZE = 8*2,				!in bytes
;   4060  0	    HDR_LENGTH = 4;
;   4061  0	
;   4062  0	! LBRCOM.BLI - LAST LINE





; Run Time:	   00:51.9
; Elapsed Time:	   01:04.4
; Lines/CPU Min:    4694
; Lexemes/CPU-Min:233076
; Memory Used:	88 pages
; Library Precompilation Complete