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