Google
 

Trailing-Edge - PDP-10 Archives - BB-R595B-SM_11-9-85 - mcb/utilities/lbrhlp.lst
There is 1 other file named lbrhlp.lst in the archive. Click here to see a list.
LBRHLP								12-Apr-1985 07:11:50	TOPS-20 Bliss-36 4A(225)	    Page   1
								30-Dec-1982 17:31:36	DNET61:<DECNET.UTILITIES>LBRHLP.BLI.1 (1)

;   0001  0	MODULE LBRHLP (					!Display help file.
;   0002  0			IDENT = '001000',
;   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	! Display the requested help file to the user.
;   0035  1	!
;   0036  1	! ENVIRONMENT: ANY
;   0037  1	!
;   0038  1	! AUTHOR: ALAN D. PECKHAM, CREATION DATE: 2-MAY-80
;   0039  1	!
;   0040  1	! MODIFIED BY:
;   0041  1	!
;   0042  1	!	Alan D. Peckham, : VERSION 01
;   0043  1	! 01	-
;   0044  1	!--
;   0045  1	
;   0046  1	!
;   0047  1	! TABLE OF CONTENTS:
;   0048  1	!
;   0049  1	
;   0050  1	FORWARD ROUTINE
;   0051  1	    HELP : NOVALUE;				!Display the help file.
;   0052  1	
LBRHLP								12-Apr-1985 07:11:50	TOPS-20 Bliss-36 4A(225)	    Page   2
001000								30-Dec-1982 17:31:36	DNET61:<DECNET.UTILITIES>LBRHLP.BLI.1 (1)

;   0053  1	!
;   0054  1	! INCLUDE FILES
;   0055  1	!
;   0056  1	
;   0057  1	LIBRARY 'LBRCOM';				!LBR COMMON DEFINITIONS
;   0058  1	
;   0059  1	!
;   0060  1	! MACROS:
;   0061  1	!
;   0062  1	!	NONE
;   0063  1	!
;   0064  1	! EQUATED SYMBOLS:
;   0065  1	!
;   0066  1	!	NONE
;   0067  1	!
;   0068  1	! OWN STORAGE:
;   0069  1	!
;   0070  1	
;   0071  1	OWN
;   0072  1	    HLPBLK : INITIAL (0);
;   0073  1	
;   0074  1	!
;   0075  1	! EXTERNAL REFERENCES:
;   0076  1	!
;   0077  1	
;   0078  1	EXTERNAL ROUTINE
;   0079  1	    ASSOCIATE,					!Associate file with control block.
;   0080  1	    CLOSE,					!Close a file.
;   0081  1	    FILNM : NOVALUE,				!Convert file name to ASCII.
;   0082  1	    GETFIL,					!Get a word from the file.
;   0083  1	    OPEN,					!Open a file.
;   0084  1	    PUTFIL : NOVALUE;				!Send text to the listing file.
;   0085  1	
LBRHLP								12-Apr-1985 07:11:50	TOPS-20 Bliss-36 4A(225)	    Page   3
001000								30-Dec-1982 17:31:36	DNET61:<DECNET.UTILITIES>LBRHLP.BLI.1 (2)

;   0086  1	GLOBAL ROUTINE HELP (FILBLK, FILE_STRING) : NOVALUE =
;   0087  1	
;   0088  1	!++
;   0089  1	! FUNCTIONAL DESCRIPTION:
;   0090  1	!
;   0091  1	!
;   0092  1	!
;   0093  1	!
;   0094  1	! FORMAL PARAMETERS:
;   0095  1	!
;   0096  1	!
;   0097  1	! IMPLICIT INPUTS:
;   0098  1	!
;   0099  1	!	NONE
;   0100  1	!
;   0101  1	! IMPLICIT OUTPUTS:
;   0102  1	!
;   0103  1	!	NONE
;   0104  1	!
;   0105  1	! ROUTINE VALUE:
;   0106  1	!
;   0107  1	!	NONE
;   0108  1	!
;   0109  1	! SIDE EFFECTS
;   0110  1	!
;   0111  1	!	NONE
;   0112  1	!
;   0113  1	!--
;   0114  1	
;   0115  2	    BEGIN
;   0116  2	
;   0117  2	    MACRO
;   0118  2		NO_HELP_LINE = %STRING ('% No help available', %CHAR (13, 10)) %;
;   0119  2	    OWN
;   0120  2		BUFFER : CH$SEQUENCE (200),
;   0121  2		LENGTH;
;   0122  2	
;   0123  2	    BIND
;   0124  2		BUFFER_PTR = CH$PTR (BUFFER),
;   0125  2		CRLF = CH$ASCII (%CHAR (13, 10)),
;   0126  2		NO_HELP = CH$ASCII (NO_HELP_LINE);
;   0127  2	
;   0128  2	    IF NOT ASSOCIATE (HLPBLK, .FILE_STRING, 0)
;   0129  2	    THEN
;   0130  2		RETURN PUTFIL (.FILBLK, NO_HELP, %CHARCOUNT (NO_HELP_LINE));
;   0131  2	
;   0132  2	    IF OPEN (HLPBLK, F_READ, F_ASCII)
;   0133  2	    THEN
;   0134  3		BEGIN
;   0135  3		PUTFIL (.FILBLK, CRLF, 2);
;   0136  3	
;   0137  3		WHILE (LENGTH = GETFIL (HLPBLK, BUFFER_PTR, 200)) GTR 0 DO
LBRHLP								12-Apr-1985 07:11:50	TOPS-20 Bliss-36 4A(225)	    Page   4
001000								30-Dec-1982 17:31:36	DNET61:<DECNET.UTILITIES>LBRHLP.BLI.1 (2)

;   0138  3		    PUTFIL (.FILBLK, BUFFER_PTR, .LENGTH);
;   0139  3	
;   0140  3		PUTFIL (.FILBLK, CRLF, 2);
;   0141  3		CLOSE (HLPBLK);
;   0142  3		END
;   0143  2	    ELSE
;   0144  2		PUTFIL (.FILBLK, NO_HELP, %CHARCOUNT (NO_HELP_LINE));
;   0145  2	
;   0146  1	    END;					!OF HELP


	TITLE	LBRHLP
	TWOSEG


	.REQUEST  SYS:B362LB.REL


	RELOC	400000				;					400000'
P.AAA:	BYTE	(7)015,012,000,000,000		;					400000' 015 012 000 000 000
P.AAB:	BYTE	(7)"%"," ","N","o"," "		; % No					400001' 045 040 116 157 040
	BYTE	(7)"h","e","l","p"," "		; help					400002' 150 145 154 160 040
	BYTE	(7)"a","v","a","i","l"		; avail					400003' 141 166 141 151 154
	BYTE	(7)"a","b","l","e",015		; able					400004' 141 142 154 145 015
	BYTE	(7)012,000,000,000,000		;					400005' 012 000 000 000 000


	RELOC	0				;					000000'
HLPBLK: EXP	0				;					000000' 000000	000000
BUFFER: BLOCK	50				;					000001'
LENGTH: BLOCK	1				;					000051'


	EXTERN	ASSOCIATE, CLOSE, FILNM, GETFIL, OPEN, PUTFIL


BUFFER_PTR=	    <POINT 7,BUFFER-1,34>	;						01 07 0 00 000000'
CRLF=		    <POINT 7,P.AAA-1,34>	;						01 07 0 00 377777'
NO_HELP=	    <POINT 7,P.AAB-1,34>	;						01 07 0 00 400000'


AC0=	0
AC1=	1
AC2=	2
AC3=	3
AC4=	4
AC5=	5
AC6=	6
AC7=	7
AC10=	10
AC11=	11
AC12=	12
LBRHLP								12-Apr-1985 07:11:50	TOPS-20 Bliss-36 4A(225)	    Page   5
001000								30-Dec-1982 17:31:36	DNET61:<DECNET.UTILITIES>LBRHLP.BLI.1 (2)

AC13=	13
AC14=	14
FP=	15
AC16=	16
SP=	17


	RELOC	400006				;					400006'
HELP::	PUSH	SP,AC16				; SP,AC16				400006' 261 17 0 00 000016		0086
	PUSH	SP,C.1				; SP,[0,,HLPBLK]			400007' 261 17 0 00 400071'		0128
	PUSH	SP,-3(SP)			; SP,FILE_STRING			400010' 261 17 0 17 777775
	PUSH	SP,C.2				; SP,[0]				400011' 261 17 0 00 400072'
	PUSHJ	SP,ASSOCIATE			; SP,ASSOCIATE				400012' 260 17 0 00 000000*
	ADJSP	SP,-3				; SP,-3					400013' 105 17 0 00 777775
	TRNE	AC1,1				; AC1,1					400014' 602 01 0 00 000001
	JRST	L.1				; L.1					400015' 254 00 0 00 400020'
	PUSH	SP,-3(SP)			; SP,FILBLK				400016' 261 17 0 17 777775		0130
	JRST	L.5				; L.5					400017' 254 00 0 00 400063'
L.1:	MOVE	AC16,-3(SP)			; AC16,FILBLK				400020' 200 16 0 17 777775		0135
	PUSH	SP,C.1				; SP,[0,,HLPBLK]			400021' 261 17 0 00 400071'		0132
	PUSH	SP,C.2				; SP,[0]				400022' 261 17 0 00 400072'
	PUSH	SP,C.2				; SP,[0]				400023' 261 17 0 00 400072'
	PUSHJ	SP,OPEN				; SP,OPEN				400024' 260 17 0 00 000000*
	ADJSP	SP,-3				; SP,-3					400025' 105 17 0 00 777775
	TRNN	AC1,1				; AC1,1					400026' 606 01 0 00 000001
	JRST	L.4				; L.4					400027' 254 00 0 00 400062'
	PUSH	SP,AC16				; SP,AC16				400030' 261 17 0 00 000016		0135
	PUSH	SP,C.3				; SP,[POINT 7,P.AAA-1,34]  <1,7>	400031' 261 17 0 00 400073'
	PUSH	SP,C.4				; SP,[2]				400032' 261 17 0 00 400074'
	PUSHJ	SP,PUTFIL			; SP,PUTFIL				400033' 260 17 0 00 000000*
L.2:	PUSH	SP,C.1				; SP,[0,,HLPBLK]			400034' 261 17 0 00 400071'		0137
	PUSH	SP,C.5				; SP,[POINT 7,BUFFER-1,34]  <1,7>	400035' 261 17 0 00 400075'
	PUSH	SP,C.6				; SP,[310]				400036' 261 17 0 00 400076'
	PUSHJ	SP,GETFIL			; SP,GETFIL				400037' 260 17 0 00 000000*
	MOVEM	AC1,LENGTH			; AC1,LENGTH				400040' 202 01 0 00 000051'
	ADJSP	SP,-3				; SP,-3					400041' 105 17 0 00 777775
	SKIPG	LENGTH				; LENGTH				400042' 337 00 0 00 000051'
	JRST	L.3				; L.3					400043' 254 00 0 00 400052'
	MOVEM	AC16,0(SP)			; AC16,0(SP)				400044' 202 16 0 17 000000		0138
	PUSH	SP,C.5				; SP,[POINT 7,BUFFER-1,34]  <1,7>	400045' 261 17 0 00 400075'
	PUSH	SP,LENGTH			; SP,LENGTH				400046' 261 17 0 00 000051'
	PUSHJ	SP,PUTFIL			; SP,PUTFIL				400047' 260 17 0 00 000000*
	ADJSP	SP,-2				; SP,-2					400050' 105 17 0 00 777776
	JRST	L.2				; L.2					400051' 254 00 0 00 400034'		0137
L.3:	MOVEM	AC16,0(SP)			; AC16,0(SP)				400052' 202 16 0 17 000000		0140
	PUSH	SP,C.3				; SP,[POINT 7,P.AAA-1,34]  <1,7>	400053' 261 17 0 00 400073'
	PUSH	SP,C.4				; SP,[2]				400054' 261 17 0 00 400074'
	PUSHJ	SP,PUTFIL			; SP,PUTFIL				400055' 260 17 0 00 000000*
	PUSH	SP,C.1				; SP,[0,,HLPBLK]			400056' 261 17 0 00 400071'		0141
	PUSHJ	SP,CLOSE			; SP,CLOSE				400057' 260 17 0 00 000000*
	ADJSP	SP,-3				; SP,-3					400060' 105 17 0 00 777775		0134
	JRST	L.6				; L.6					400061' 254 00 0 00 400066'		0132
LBRHLP								12-Apr-1985 07:11:50	TOPS-20 Bliss-36 4A(225)	    Page   6
001000								30-Dec-1982 17:31:36	DNET61:<DECNET.UTILITIES>LBRHLP.BLI.1 (2)

L.4:	PUSH	SP,AC16				; SP,AC16				400062' 261 17 0 00 000016		0144
L.5:	PUSH	SP,C.7				; SP,[POINT 7,P.AAB-1,34]  <1,7>	400063' 261 17 0 00 400077'
	PUSH	SP,C.8				; SP,[25]				400064' 261 17 0 00 400100'
	PUSHJ	SP,PUTFIL			; SP,PUTFIL				400065' 260 17 0 00 000000*
L.6:	ADJSP	SP,-3				; SP,-3					400066' 105 17 0 00 777775		0115
	POP	SP,AC16				; SP,AC16				400067' 262 17 0 00 000016		0086
	POPJ	SP,				; SP,					400070' 263 17 0 00 000000
C.1:	XWD	0,HLPBLK			; 0,HLPBLK				400071' 000000	000000'
C.2:	EXP	0				; 0					400072' 000000	000000
C.3:	POINT	7,P.AAA-1,34			; 7,P.AAA-1,34				400073' 01 07 0 00 377777'
C.4:	EXP	2				; 2					400074' 000000	000002
C.5:	POINT	7,BUFFER-1,34			; 7,BUFFER-1,34				400075' 01 07 0 00 000000'
C.6:	EXP	310				; 310					400076' 000000	000310
C.7:	POINT	7,P.AAB-1,34			; 7,P.AAB-1,34				400077' 01 07 0 00 400000'
C.8:	EXP	25				; 25					400100' 000000	000025

; Routine Size:  59 words


;   0147  1	
;   0148  1	END
;   0149  1	
;   0150  0	ELUDOM




; Low  segment length:      42 words
; High segment length:      65 words




;				LIBRARY STATISTICS
;
;					     -------- Symbols --------    Blocks          Processing
;	File				     Total    Loaded   Percent      Read           Time
;
;  DNET61:<DECNET.UTILITIES>LBRCOM.L36.2       705         4         0        26	     00:00.1





; Size:		59 code + 48 data words
; Run Time:	   00:01.2
; Elapsed Time:	   00:02.2
; Lines/CPU Min:    7765
; Lexemes/CPU-Min: 21380
; Memory Used:	14 pages
; Compilation Complete