Trailing-Edge
-
PDP-10 Archives
-
BB-R598A-RM_1983
-
swskit-v3/listings/vnp36/msgh.list
There are no other files named msgh.list in the archive.
OUTNUM : NOVALUE, !PRINT NU
25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 1
1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (1)
; 0001 !<REL4A.TKB-VNP>MSGH.BLI.10, 3-Dec-79 14:41:15, Edit by SROBINSON
; 0002 MODULE MSGH ( ! PRINT MESSAGES
; 0003 IDENT = 'X2.0'
; 0004 ) =
; 0005 BEGIN
; 0006 !
; 0007 !
; 0008 !
; 0009 ! COPYRIGHT (c) 1980, 1981, 1982
; 0010 ! DIGITAL EQUIPMENT CORPORATION
; 0011 ! Maynard, Massachusetts
; 0012 !
; 0013 ! This software is furnished under a license and may be used
; 0014 ! and copied only in accordance with the terms of such license
; 0015 ! and with the inclusion of the above copyright notice. This
; 0016 ! software or any other copies thereof may not be provided or
; 0017 ! otherwise made available to any other person. No title to
; 0018 ! and ownership of the software is hereby transferred.
; 0019 !
; 0020 ! The information in this software is subject to change
; 0021 ! without notice and should not be construed as a commitment
; 0022 ! by DIGITAL EQUIPMENT CORPORATION.
; 0023 !
; 0024 ! DIGITAL assumes no responsibility for the use or reliability
; 0025 ! of its software on equipment which is not supplied by
; 0026 ! DIGITAL.
; 0027 !
; 0028
; 0029 !++
; 0030 ! FACILITY: TKB-20 AND VNP-20
; 0031 !
; 0032 ! ABSTRACT:
; 0033 !
; 0034 !
; 0035 ! THIS MODULE HANDLES PRINTING OF MESSAGES
; 0036 !
; 0037 !
; 0038 ! ENVIRONMENT: TOPS-20 USER MODE
; 0039 !
; 0040 ! AUTHOR: J. SAUTER, CREATION DATE: 14-DEC-77
; 0041 !
; 0042 ! MODIFIED BY:
; 0043 !
; 0044 ! Scott G. Robinson, 28-SEP-78 : VERSION X0.1-2A
; 0045 ! - Fix bug with base 0 conversion diagnosis in OUTNUM
; 0046 !
; 0047 ! Scott G. Robinson, 13-JUN-79 : VERSION X0.2
; 0048 ! - Make all fatal errors terminate the program
; 0049 !-----------------------------------------------------------------------
; 0050 !
; 0051 ! Scott G. Robinson, 3-DEC-79 : Version X2.0
; 0052 ! - Ensure DECnet-10 Compatibility
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 2
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (1)
; 0053 !
; 0054 ! , : VERSION
; 0055 ! 01 -
; 0056 !--
; 0057
; 0058 !<BLF/PAGE>
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 3
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (2)
; 0059 !
; 0060 ! TABLE OF CONTENTS:
; 0061 !
; 0062
; 0063 FORWARD ROUTINE
; 0064 PCRLF : NOVALUE, !PRINT CRLF (GLOBAL)
; 0065 OUTSTR : NOVALUE, !PRINT STRING (GLOBAL)
; 0066 OUTNUM : NOVALUE, !PRINT NUMBER
; 0067 ERR_OUTSTR : NOVALUE, !PRINT STRING WITH EDITING
; 0068 ERRMSG : NOVALUE; !PRINT ERROR MESSAGE
; 0069
; 0070 !
; 0071 ! INCLUDE FILES:
; 0072 !
; 0073 ! NONE
; 0074 !
; 0075 ! MACROS:
; 0076 !
; 0077 ! NONE
; 0078 !
; 0079 !
; 0080 ! EQUATED SYMBOLS:
; 0081 !
; 0082 ! NONE
; 0083 !
; 0084 ! OWN STORAGE:
; 0085 !
; 0086 ! NONE
; 0087 !
; 0088 ! EXTERNAL REFERENCES:
; 0089 !
; 0090
; 0091 EXTERNAL ROUTINE
; 0092 OUTPUT : NOVALUE, !SEND CHARS TO I/O DEVICE
; 0093 STOP_PROGRAM : NOVALUE; !TERMINATE PROGRAM EXECUTION
; 0094
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 4
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (3)
; 0095 GLOBAL ROUTINE PCRLF (CHAN) : NOVALUE = ! PRINT CRLF
; 0096
; 0097 !++
; 0098 ! FUNCTIONAL DESCRIPTION:
; 0099 !
; 0100 ! PRINT CR AND LF
; 0101 !
; 0102 ! FORMAL PARAMETERS:
; 0103 !
; 0104 ! CHAN - THE CHANNEL ON WHICH TO SEND CRLF
; 0105 !
; 0106 ! IMPLICIT INPUTS:
; 0107 !
; 0108 ! NONE
; 0109 !
; 0110 ! IMPLICIT OUTPUTS:
; 0111 !
; 0112 ! NONE
; 0113 !
; 0114 ! ROUTINE VALUE:
; 0115 !
; 0116 ! NONE
; 0117 !
; 0118 ! SIDE EFFECTS
; 0119 !
; 0120 ! WRITES A CRLF ON THE INDICATED I/O DEVICE
; 0121 !
; 0122 !--
; 0123
; 0124 BEGIN
; 0125 OUTPUT (.CHAN, %O'15');
; 0126 OUTPUT (.CHAN, %O'12');
; 0127 END;
TITLE MSGH
TWOSEG
.REQUEST SYS:B362LB.REL
EXTERN OUTPUT, STOP_PROGRAM
AC0= 0
AC1= 1
AC2= 2
AC3= 3
AC4= 4
AC5= 5
AC6= 6
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 5
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (3)
AC7= 7
AC10= 10
AC11= 11
AC12= 12
AC13= 13
AC14= 14
FP= 15
AC16= 16
SP= 17
RELOC 400000 ; 400000'
PCRLF:: PUSH SP,-1(SP) ; SP,CHAN 400000' 261 17 0 17 777777 0125
PUSH SP,C.1 ; SP,[15] 400001' 261 17 0 00 400010'
PUSHJ SP,OUTPUT ; SP,OUTPUT 400002' 260 17 0 00 000000*
PUSH SP,-3(SP) ; SP,CHAN 400003' 261 17 0 17 777775 0126
PUSH SP,C.2 ; SP,[12] 400004' 261 17 0 00 400011'
PUSHJ SP,OUTPUT ; SP,OUTPUT 400005' 260 17 0 00 000000*
ADJSP SP,-4 ; SP,-4 400006' 105 17 0 00 777774 0124
POPJ SP, ; SP, 400007' 263 17 0 00 000000 0095
C.1: EXP 15 ; 15 400010' 000000 000015
C.2: EXP 12 ; 12 400011' 000000 000012
; Routine Size: 10 words
; 0128
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 6
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (4)
; 0129 GLOBAL ROUTINE OUTSTR (CHAN, MESSAGE) : NOVALUE = !PRINT STRING
; 0130
; 0131 !++
; 0132 ! FUNCTIONAL DESCRIPTION:
; 0133 !
; 0134 ! PRINT A STRING TERMINATED WITH A NULL
; 0135 !
; 0136 ! FORMAL PARAMETERS:
; 0137 !
; 0138 ! CHAN - THE CHANNEL OVER WHICH TO SEND THE STRING
; 0139 ! MESSAGE - POINTER TO THE STRING
; 0140 !
; 0141 ! IMPLICIT INPUTS:
; 0142 !
; 0143 ! NONE
; 0144 !
; 0145 ! IMPLICIT OUTPUTS:
; 0146 !
; 0147 ! NONE
; 0148 !
; 0149 ! ROUTINE VALUE:
; 0150 !
; 0151 ! NONE
; 0152 !
; 0153 ! SIDE EFFECTS
; 0154 !
; 0155 ! WRITES THE SPECIFIED STRING ON THE I/O DEVICE
; 0156 !
; 0157 !--
; 0158
; 0159 BEGIN
; 0160
; 0161 LOCAL
; 0162 CHAR,
; 0163 CHPTR;
; 0164
; 0165 !
; 0166 CHPTR = CH$PTR (.MESSAGE, -1);
; 0167
; 0168 DO
; 0169 BEGIN
; 0170 CHAR = CH$A_RCHAR (CHPTR);
; 0171
; 0172 IF (.CHAR NEQ 0) THEN OUTPUT (.CHAN, .CHAR);
; 0173
; 0174 END
; 0175 UNTIL (.CHAR EQL 0);
; 0176
; 0177 END;
OUTSTR::PUSH SP,AC0 ; SP,AC0 400012' 261 17 0 00 000000 0129
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 7
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (4)
PUSH SP,AC10 ; SP,AC10 400013' 261 17 0 00 000010
MOVE AC1,-3(SP) ; AC1,MESSAGE 400014' 200 01 0 17 777775 0166
MOVEI AC1,-1(AC1) ; AC1,-1(AC1) 400015' 201 01 0 01 777777
HRLI AC1,100700 ; AC1,100700 400016' 505 01 0 00 100700
MOVE AC10,AC1 ; CHPTR,AC1 400017' 200 10 0 00 000001
L.1: IBP AC10 ; CHPTR 400020' 133 00 0 00 000010 0170
MOVE AC0,AC10 ; CHAR,CHPTR 400021' 200 00 0 00 000010
ILDB AC0,AC0 ; CHAR,CHAR 400022' 134 00 0 00 000000
JUMPE AC0,L.2 ; CHAR,L.2 400023' 322 00 0 00 400030' 0172
PUSH SP,-4(SP) ; SP,CHAN 400024' 261 17 0 17 777774
PUSH SP,AC0 ; SP,CHAR 400025' 261 17 0 00 000000
PUSHJ SP,OUTPUT ; SP,OUTPUT 400026' 260 17 0 00 000000*
ADJSP SP,-2 ; SP,-2 400027' 105 17 0 00 777776
L.2: JUMPN AC0,L.1 ; CHAR,L.1 400030' 326 00 0 00 400020' 0175
POP SP,AC10 ; SP,AC10 400031' 262 17 0 00 000010 0129
POP SP,AC0 ; SP,AC0 400032' 262 17 0 00 000000
POPJ SP, ; SP, 400033' 263 17 0 00 000000
; Routine Size: 18 words
; 0178
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 8
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (5)
; 0179 GLOBAL ROUTINE OUTNUM (CHAN, VALUE, RADIX, LEN) : NOVALUE = !PRINT A NUMBER
; 0180
; 0181 !++
; 0182 ! FUNCTIONAL DESCRIPTION:
; 0183 !
; 0184 ! PRINT A NUMBER. HANDLES NEGATIVE AND RADIX 2 TO 36.
; 0185 ! PADS WITH LEADING ZEROS IF NECESSARY.
; 0186 !
; 0187 ! FORMAL PARAMETERS:
; 0188 !
; 0189 ! CHAN - THE CHANNEL ON WHICH TO SEND THE NUMBER
; 0190 ! VALUE - THE NUMBER TO PRINT
; 0191 ! RADIX - THE PRINT RADIX, USUALLY 8 (OCTAL) OR 10 (DECIMAL).
; 0192 ! LEN - MINIMUM LENGTH OF THE NUMBER, OFTEN 0.
; 0193 !
; 0194 ! IMPLICIT INPUTS:
; 0195 !
; 0196 ! NONE
; 0197 !
; 0198 ! IMPLICIT OUTPUTS:
; 0199 !
; 0200 ! NONE
; 0201 !
; 0202 ! ROUTINE VALUE:
; 0203 !
; 0204 ! NONE
; 0205 !
; 0206 ! SIDE EFFECTS
; 0207 !
; 0208 ! SENDS A STRING REPRESENTING THE NUMBER TO THE I/O DEVICE
; 0209 !
; 0210 !--
; 0211
; 0212 BEGIN
; 0213
; 0214 LOCAL
; 0215 CHAR,
; 0216 LEN1,
; 0217 QUOTIENT,
; 0218 REMAINDER,
; 0219 VAL;
; 0220
; 0221 IF ((.RADIX LSS 2) OR (.RADIX GTR 36))
; 0222 THEN
; 0223 BEGIN
; 0224 OUTSTR (.CHAN, UPLIT (%ASCIZ'??????'));
; 0225 RETURN;
; 0226 END;
; 0227
; 0228 VAL = .VALUE;
; 0229 LEN1 = .LEN;
; 0230
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 9
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (5)
; 0231 IF (.VAL LSS 0)
; 0232 THEN
; 0233 BEGIN
; 0234 OUTPUT (.CHAN, %C'-');
; 0235 VAL = -.VAL;
; 0236 LEN1 = .LEN1 - 1;
; 0237 END;
; 0238
; 0239 QUOTIENT = .VAL/.RADIX;
; 0240 REMAINDER = .VAL MOD .RADIX;
; 0241
; 0242 IF (.QUOTIENT NEQ 0)
; 0243 THEN
; 0244 OUTNUM (.CHAN, .QUOTIENT, .RADIX, .LEN1 - 1)
; 0245 ELSE
; 0246 !
; 0247 ! APPEND LEADING ZEROS IF NECESSARY
; 0248 !
; 0249
; 0250 WHILE ((LEN1 = .LEN1 - 1) GTR 0) DO
; 0251 OUTPUT (.CHAN, %C'0');
; 0252
; 0253 CHAR = .REMAINDER + %C'0';
; 0254
; 0255 IF (.CHAR GTR %C'9') THEN CHAR = .CHAR - %C'9' + %C'A';
; 0256
; 0257 OUTPUT (.CHAN, .CHAR);
; 0258 END;
P.AAA: BYTE (7)"?","?","?","?","?" ; ????? 400034' 077 077 077 077 077
BYTE (7)"?",000,000,000,000 ; ? 400035' 077 000 000 000 000
OUTNUM::PUSH SP,AC0 ; SP,AC0 400036' 261 17 0 00 000000 0179
PUSH SP,AC10 ; SP,AC10 400037' 261 17 0 00 000010
PUSH SP,AC11 ; SP,AC11 400040' 261 17 0 00 000011
MOVE AC11,-5(SP) ; AC11,RADIX 400041' 200 11 0 17 777773 0221
CAIGE AC11,2 ; AC11,2 400042' 305 11 0 00 000002
JRST L.3 ; L.3 400043' 254 00 0 00 400046'
CAIG AC11,44 ; AC11,44 400044' 307 11 0 00 000044
JRST L.4 ; L.4 400045' 254 00 0 00 400052'
L.3: PUSH SP,-7(SP) ; SP,CHAN 400046' 261 17 0 17 777771 0224
PUSH SP,C.3 ; SP,[0,,P.AAA] 400047' 261 17 0 00 400124'
PUSHJ SP,OUTSTR ; SP,OUTSTR 400050' 260 17 0 00 400012'
JRST L.8 ; L.8 400051' 254 00 0 00 400117'
L.4: MOVE AC0,-6(SP) ; VAL,VALUE 400052' 200 00 0 17 777772 0228
MOVE AC10,-4(SP) ; LEN1,LEN 400053' 200 10 0 17 777774 0229
JUMPGE AC0,L.5 ; VAL,L.5 400054' 325 00 0 00 400063' 0231
PUSH SP,-7(SP) ; SP,CHAN 400055' 261 17 0 17 777771 0234
PUSH SP,C.4 ; SP,[55] 400056' 261 17 0 00 400125'
PUSHJ SP,OUTPUT ; SP,OUTPUT 400057' 260 17 0 00 000000*
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 10
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (5)
MOVN AC0,AC0 ; VAL,VAL 400060' 210 00 0 00 000000 0235
SUBI AC10,1 ; LEN1,1 400061' 275 10 0 00 000001 0236
ADJSP SP,-2 ; SP,-2 400062' 105 17 0 00 777776 0233
L.5: MOVE AC1,AC0 ; AC1,VAL 400063' 200 01 0 00 000000 0239
IDIV AC1,AC11 ; AC1,AC11 400064' 230 01 0 00 000011
MOVE AC3,AC1 ; QUOTIENT,AC1 400065' 200 03 0 00 000001
MOVE AC1,AC0 ; AC1,VAL 400066' 200 01 0 00 000000 0240
IDIV AC1,AC11 ; AC1,AC11 400067' 230 01 0 00 000011
MOVE AC0,AC2 ; REMAINDER,AC2 400070' 200 00 0 00 000002
JUMPE AC3,L.6 ; QUOTIENT,L.6 400071' 322 03 0 00 400103' 0242
PUSH SP,-7(SP) ; SP,CHAN 400072' 261 17 0 17 777771 0244
PUSH SP,AC3 ; SP,QUOTIENT 400073' 261 17 0 00 000003
PUSH SP,AC11 ; SP,AC11 400074' 261 17 0 00 000011
MOVE AC1,AC10 ; AC1,LEN1 400075' 200 01 0 00 000010
SUBI AC1,1 ; AC1,1 400076' 275 01 0 00 000001
PUSH SP,AC1 ; SP,AC1 400077' 261 17 0 00 000001
PUSHJ SP,OUTNUM ; SP,OUTNUM 400100' 260 17 0 00 400036'
ADJSP SP,-4 ; SP,-4 400101' 105 17 0 00 777774
JRST L.7 ; L.7 400102' 254 00 0 00 400111' 0242
L.6: SOJLE AC10,L.7 ; LEN1,L.7 400103' 363 10 0 00 400111' 0250
PUSH SP,-7(SP) ; SP,CHAN 400104' 261 17 0 17 777771 0251
PUSH SP,C.5 ; SP,[60] 400105' 261 17 0 00 400126'
PUSHJ SP,OUTPUT ; SP,OUTPUT 400106' 260 17 0 00 000000*
ADJSP SP,-2 ; SP,-2 400107' 105 17 0 00 777776
JRST L.6 ; L.6 400110' 254 00 0 00 400103' 0250
L.7: ADDI AC0,60 ; REMAINDER,60 400111' 271 00 0 00 000060 0253
CAILE AC0,71 ; CHAR,71 400112' 303 00 0 00 000071 0255
ADDI AC0,10 ; CHAR,10 400113' 271 00 0 00 000010
PUSH SP,-7(SP) ; SP,CHAN 400114' 261 17 0 17 777771 0257
PUSH SP,AC0 ; SP,CHAR 400115' 261 17 0 00 000000
PUSHJ SP,OUTPUT ; SP,OUTPUT 400116' 260 17 0 00 000000*
L.8: ADJSP SP,-2 ; SP,-2 400117' 105 17 0 00 777776 0212
POP SP,AC11 ; SP,AC11 400120' 262 17 0 00 000011 0179
POP SP,AC10 ; SP,AC10 400121' 262 17 0 00 000010
POP SP,AC0 ; SP,AC0 400122' 262 17 0 00 000000
POPJ SP, ; SP, 400123' 263 17 0 00 000000
C.3: XWD 0,P.AAA ; 0,P.AAA 400124' 000000 400034'
C.4: EXP 55 ; 55 400125' 000000 000055
C.5: EXP 60 ; 60 400126' 000000 000060
; Routine Size: 57 words
; 0259
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 11
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (6)
; 0260 ROUTINE ERR_OUTSTR !PRINT EDITED STRING
; 0261 (CHAN, MESSAGE, ARG1, ARG2, ARG3, ARG4, ARG5) : NOVALUE =
; 0262
; 0263 !++
; 0264 ! FUNCTIONAL DESCRIPTION:
; 0265 !
; 0266 ! PRINT AN EDITED STRING. VALUE SUBSTITUTION IS INDICATED BY
; 0267 ! A % IN THE STRING, AS FOLLOWS:
; 0268 !
; 0269 ! %NX
; 0270 !
; 0271 ! WHERE N IS THE ARGUMENT (1 TO 5) AND X IS THE FORM.
; 0272 ! FORM A = ASCII, D = DECIMAL, O = OCTAL AND V = SYMBOL VALUE.
; 0273 ! USE %% TO PRINT A PERCENT SIGN.
; 0274 !
; 0275 ! FORMAL PARAMETERS:
; 0276 !
; 0277 ! CHAN - THE CHANNEL ON WHICH TO SEND THE EDITED STRING
; 0278 ! MESSAGE - POINTER TO THE STRING TO BE EDITED AND PRINTED
; 0279 ! ARG1:ARG5 - VALUES TO BE SUBSTITUTED INTO THE STRING
; 0280 ! AS NEEDED. ASCII ARGUMENTS ARE POINTERS TO STRINGS;
; 0281 ! OCTAL AND DECIMAL ARE THE VALUES THEMSELVES.
; 0282 ! SYMBOL VALUES ARE PRINTED IN OCTAL, WITH
; 0283 ! SIGN EXTENSION ON THE LOW-ORDER 16 BITS, AND THE
; 0284 ! NEXT HIGHER-ORDER BIT MEANING RELOCATABLE.
; 0285 ! UNUSED ARGUMENTS ARE SET TO ZERO.
; 0286 !
; 0287 ! IMPLICIT INPUTS:
; 0288 !
; 0289 ! NONE
; 0290 !
; 0291 ! IMPLICIT OUTPUTS:
; 0292 !
; 0293 ! NONE
; 0294 !
; 0295 ! ROUTINE VALUE:
; 0296 !
; 0297 ! NONE
; 0298 !
; 0299 ! SIDE EFFECTS
; 0300 !
; 0301 ! SENDS EDITED STRING TO I/O DEVICE
; 0302 !
; 0303 !--
; 0304
; 0305 BEGIN
; 0306
; 0307 LOCAL
; 0308 ARG,
; 0309 CHAR,
; 0310 CHPTR,
; 0311 TEMP_ARG;
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 12
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (6)
; 0312
; 0313 !
; 0314 CHPTR = CH$PTR (.MESSAGE, -1);
; 0315
; 0316 DO
; 0317 BEGIN
; 0318 CHAR = CH$A_RCHAR (CHPTR);
; 0319
; 0320 IF (.CHAR NEQ 0)
; 0321 THEN
; 0322
; 0323 IF (.CHAR NEQ %C'%')
; 0324 THEN
; 0325 OUTPUT (.CHAN, .CHAR)
; 0326 ELSE
; 0327 BEGIN !SPECIAL REFERENCE TO A SUBSTITUTION ARG
; 0328 CHAR = CH$A_RCHAR (CHPTR);
; 0329
; 0330 IF (.CHAR EQL %C'%')
; 0331 THEN
; 0332 OUTPUT (.CHAN, .CHAR)
; 0333 ELSE
; 0334 BEGIN
; 0335 ARG = (CASE .CHAR FROM %C'1' TO %C'5' OF
; 0336 SET
; 0337 [%C'1'] : .ARG1;
; 0338 [%C'2'] : .ARG2;
; 0339 [%C'3'] : .ARG3;
; 0340 [%C'4'] : .ARG4;
; 0341 [%C'5'] : .ARG5;
; 0342 TES);
; 0343 CHAR = CH$A_RCHAR (CHPTR);
; 0344
; 0345 SELECTONE .CHAR OF
; 0346 SET
; 0347
; 0348 [%C'A'] : !ASCII STRING
; 0349 OUTSTR (.CHAN, .ARG);
; 0350
; 0351 [%C'D'] : !DECIMAL NUMBER
; 0352 OUTNUM (.CHAN, .ARG, 10, 0);
; 0353
; 0354 [%C'O'] : !OCTAL NUMBER
; 0355 OUTNUM (.CHAN, .ARG, 8, 0);
; 0356
; 0357 [%C'V'] : !SYMBOL VALUE
; 0358 BEGIN
; 0359 TEMP_ARG = (IF (.ARG<15, 1> EQL 0) THEN 0 ELSE -1); !SIGN EXTEND
; 0360 TEMP_ARG<0, 15> = .ARG<0, 15>;
; 0361 OUTNUM (.CHAN, .TEMP_ARG, 8, 0);
; 0362
; 0363 IF (.ARG<16, 1> NEQ 0) THEN OUTSTR (.CHAN, UPLIT (%ASCIZ'-R'));
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 13
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (6)
; 0364
; 0365 END;
; 0366 TES;
; 0367
; 0368 END; !OF NOT JUST %%
; 0369
; 0370 END; !OF % PROCESSING
; 0371
; 0372 END
; 0373 UNTIL (.CHAR EQL 0);
; 0374
; 0375 END; !OF ROUTINE ERR_OUTSTR
P.AAB: BYTE (7)"-","R",000,000,000 ; -R 400127' 055 122 000 000 000
ERR_OUTSTR:
PUSH SP,AC0 ; SP,AC0 400130' 261 17 0 00 000000 0260
PUSH SP,AC10 ; SP,AC10 400131' 261 17 0 00 000010
PUSH SP,AC11 ; SP,AC11 400132' 261 17 0 00 000011
PUSH SP,AC12 ; SP,AC12 400133' 261 17 0 00 000012
MOVE AC1,-12(SP) ; AC1,MESSAGE 400134' 200 01 0 17 777766 0314
MOVEI AC1,-1(AC1) ; AC1,-1(AC1) 400135' 201 01 0 01 777777
HRLI AC1,100700 ; AC1,100700 400136' 505 01 0 00 100700
MOVE AC11,AC1 ; CHPTR,AC1 400137' 200 11 0 00 000001
L.9: IBP AC11 ; CHPTR 400140' 133 00 0 00 000011 0318
MOVE AC0,AC11 ; CHAR,CHPTR 400141' 200 00 0 00 000011
ILDB AC0,AC0 ; CHAR,CHAR 400142' 134 00 0 00 000000
JUMPE AC0,L.25 ; CHAR,L.25 400143' 322 00 0 00 400251' 0320
CAIE AC0,45 ; CHAR,45 400144' 302 00 0 00 000045 0323
JRST L.10 ; L.10 400145' 254 00 0 00 400153'
IBP AC11 ; CHPTR 400146' 133 00 0 00 000011 0328
MOVE AC0,AC11 ; CHAR,CHPTR 400147' 200 00 0 00 000011
ILDB AC0,AC0 ; CHAR,CHAR 400150' 134 00 0 00 000000
CAIE AC0,45 ; CHAR,45 400151' 302 00 0 00 000045 0330
JRST L.11 ; L.11 400152' 254 00 0 00 400157'
L.10: PUSH SP,-13(SP) ; SP,CHAN 400153' 261 17 0 17 777765 0332
PUSH SP,AC0 ; SP,CHAR 400154' 261 17 0 00 000000
PUSHJ SP,OUTPUT ; SP,OUTPUT 400155' 260 17 0 00 000000*
JRST L.19 ; L.19 400156' 254 00 0 00 400207'
L.11: MOVE AC1,AC0 ; AC1,CHAR 400157' 200 01 0 00 000000 0335
SUBI AC1,61 ; AC1,61 400160' 275 01 0 00 000061
JRST L.12(AC1) ; L.12(AC1) 400161' 254 00 0 01 400162'
L.12: JRST L.13 ; L.13 400162' 254 00 0 00 400167'
JRST L.14 ; L.14 400163' 254 00 0 00 400171'
JRST L.15 ; L.15 400164' 254 00 0 00 400173'
JRST L.16 ; L.16 400165' 254 00 0 00 400175'
JRST L.17 ; L.17 400166' 254 00 0 00 400176'
L.13: MOVE AC10,-11(SP) ; ARG,ARG1 400167' 200 10 0 17 777767
JRST L.18 ; L.18 400170' 254 00 0 00 400177'
L.14: MOVE AC10,-10(SP) ; ARG,ARG2 400171' 200 10 0 17 777770
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 14
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (6)
JRST L.18 ; L.18 400172' 254 00 0 00 400177'
L.15: MOVE AC10,-7(SP) ; ARG,ARG3 400173' 200 10 0 17 777771
JRST L.18 ; L.18 400174' 254 00 0 00 400177'
L.16: SKIPA AC10,-6(SP) ; ARG,ARG4 400175' 334 10 0 17 777772
L.17: MOVE AC10,-5(SP) ; ARG,ARG5 400176' 200 10 0 17 777773
L.18: IBP AC11 ; CHPTR 400177' 133 00 0 00 000011 0343
MOVE AC0,AC11 ; CHAR,CHPTR 400200' 200 00 0 00 000011
ILDB AC0,AC0 ; CHAR,CHAR 400201' 134 00 0 00 000000
CAIE AC0,101 ; CHAR,101 400202' 302 00 0 00 000101 0345
JRST L.20 ; L.20 400203' 254 00 0 00 400211'
PUSH SP,-13(SP) ; SP,CHAN 400204' 261 17 0 17 777765 0349
PUSH SP,AC10 ; SP,ARG 400205' 261 17 0 00 000010
PUSHJ SP,OUTSTR ; SP,OUTSTR 400206' 260 17 0 00 400012'
L.19: ADJSP SP,-2 ; SP,-2 400207' 105 17 0 00 777776
JRST L.25 ; L.25 400210' 254 00 0 00 400251' 0345
L.20: CAIE AC0,104 ; CHAR,104 400211' 302 00 0 00 000104
JRST L.21 ; L.21 400212' 254 00 0 00 400217'
PUSH SP,-13(SP) ; SP,CHAN 400213' 261 17 0 17 777765 0352
PUSH SP,AC10 ; SP,ARG 400214' 261 17 0 00 000010
PUSH SP,C.2 ; SP,[12] 400215' 261 17 0 00 400011'
JRST L.22 ; L.22 400216' 254 00 0 00 400224'
L.21: CAIE AC0,117 ; CHAR,117 400217' 302 00 0 00 000117 0345
JRST L.23 ; L.23 400220' 254 00 0 00 400227'
PUSH SP,-13(SP) ; SP,CHAN 400221' 261 17 0 17 777765 0355
PUSH SP,AC10 ; SP,ARG 400222' 261 17 0 00 000010
PUSH SP,C.7 ; SP,[10] 400223' 261 17 0 00 400260'
L.22: PUSH SP,C.8 ; SP,[0] 400224' 261 17 0 00 400261'
PUSHJ SP,OUTNUM ; SP,OUTNUM 400225' 260 17 0 00 400036'
JRST L.24 ; L.24 400226' 254 00 0 00 400250'
L.23: CAIE AC0,126 ; CHAR,126 400227' 302 00 0 00 000126 0345
JRST L.25 ; L.25 400230' 254 00 0 00 400251'
TRNN AC10,100000 ; ARG,100000 400231' 606 10 0 00 100000 0359
TDZA AC12,AC12 ; TEMP_ARG,TEMP_ARG 400232' 634 12 0 00 000012
SETO AC12, ; TEMP_ARG, 400233' 474 12 0 00 000000
DPB AC10,C.6 ; ARG,[POINT 15,TEMP_ARG,35] <0,15> 400234' 137 10 0 00 400257' 0360
PUSH SP,-13(SP) ; SP,CHAN 400235' 261 17 0 17 777765 0361
PUSH SP,AC12 ; SP,TEMP_ARG 400236' 261 17 0 00 000012
PUSH SP,C.7 ; SP,[10] 400237' 261 17 0 00 400260'
PUSH SP,C.8 ; SP,[0] 400240' 261 17 0 00 400261'
PUSHJ SP,OUTNUM ; SP,OUTNUM 400241' 260 17 0 00 400036'
TRNN AC10,200000 ; ARG,200000 400242' 606 10 0 00 200000 0363
JRST L.24 ; L.24 400243' 254 00 0 00 400250'
PUSH SP,-17(SP) ; SP,CHAN 400244' 261 17 0 17 777761
PUSH SP,C.9 ; SP,[0,,P.AAB] 400245' 261 17 0 00 400262'
PUSHJ SP,OUTSTR ; SP,OUTSTR 400246' 260 17 0 00 400012'
ADJSP SP,-2 ; SP,-2 400247' 105 17 0 00 777776
L.24: ADJSP SP,-4 ; SP,-4 400250' 105 17 0 00 777774 0358
L.25: JUMPN AC0,L.9 ; CHAR,L.9 400251' 326 00 0 00 400140' 0373
POP SP,AC12 ; SP,AC12 400252' 262 17 0 00 000012 0260
POP SP,AC11 ; SP,AC11 400253' 262 17 0 00 000011
POP SP,AC10 ; SP,AC10 400254' 262 17 0 00 000010
POP SP,AC0 ; SP,AC0 400255' 262 17 0 00 000000
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 15
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (6)
POPJ SP, ; SP, 400256' 263 17 0 00 000000
C.6: POINT 15,AC12,35 ; 15,TEMP_ARG,35 400257' 00 17 0 00 000012
C.7: EXP 10 ; 10 400260' 000000 000010
C.8: EXP 0 ; 0 400261' 000000 000000
C.9: XWD 0,P.AAB ; 0,P.AAB 400262' 000000 400127'
; Routine Size: 91 words
; 0376
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 16
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (7)
; 0377 GLOBAL ROUTINE ERRMSG (CHAN, ERRNO, ARG1, ARG2, ARG3, ARG4, ARG5) : NOVALUE =
; 0378
; 0379 !++
; 0380 ! FUNCTIONAL DESCRIPTION:
; 0381 !
; 0382 ! PRINT AN ERROR MESSAGE WITH UP TO FIVE VARIABLE ARGUMENTS.
; 0383 ! THE ERROR MESSAGES ARE LISTED IN THE HEAD OF THIS MODULE
; 0384 ! WITH THEIR NUMBERS AND THE MEANING OF EACH ARGUMENT.
; 0385 ! UNUSED ARGUMENTS SHOULD BE SET TO ZERO.
; 0386 !
; 0387 ! FORMAL PARAMETERS:
; 0388 !
; 0389 ! CHAN - THE CHANNEL ON WHICH TO SEND THE ERROR MESSAGE
; 0390 ! ERRNO - THE NUMBER OF THE ERROR MESSAGE TO PRINT
; 0391 ! ARG1:ARG5 - THE VARIABLE ARGUMENTS IN THE MESSAGE
; 0392 !
; 0393 ! IMPLICIT INPUTS:
; 0394 !
; 0395 ! NONE
; 0396 !
; 0397 ! IMPLICIT OUTPUTS:
; 0398 !
; 0399 ! NONE
; 0400 !
; 0401 ! ROUTINE VALUE:
; 0402 !
; 0403 ! NONE
; 0404 !
; 0405 ! SIDE EFFECTS
; 0406 !
; 0407 ! SENDS AN EDITED STRING TO THE I/O DEVICE.
; 0408 !
; 0409 !--
; 0410
; 0411 BEGIN
; 0412
; 0413 LOCAL
; 0414 MESSAGE;
; 0415
; 0416 !
; 0417 !
; 0418 !
; 0419 ! HERE ARE THE ERROR MESSAGES, BY ERROR NUMBER.
; 0420 ! A PERCENT SIGN INDICATES ARGUMENT SUBSTITUTION. THE LETTER
; 0421 ! FOLLOWING THE ARGUMENT NUMBER SPECIFIES THE FORMAT: A = ASCII,
; 0422 ! D = DECIMAL, O = OCTAL, V = SYMBOL VALUE.
; 0423 ! %% PRINTS A PERCENT SIGN.
; 0424 !
; 0425 MESSAGE = (CASE .ERRNO FROM 1 TO 40 OF
; 0426 SET
; 0427 [1] : UPLIT (%ASCIZ'? Storage exhausted -- %1A'); !
; 0428 ! !ARG 1 = ROUTINE NAME
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 17
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (7)
; 0429 [2] : UPLIT (%ASCIZ'? Invalid file name: "%2A" -- %1A'); !
; 0430 ! !ARG 1 = ROUTINE NAME,
; 0431 ! ! 2 = FILE NAME
; 0432 [3] : UPLIT (%ASCIZ'? OPEN UUO failed for %2A -- %1A'); !
; 0433 ! !ARG 1 = ROUTINE NAME,
; 0434 ! ! 2 = FILE NAME
; 0435 [4] : UPLIT (%ASCIZ'? LOOKUP/ENTER UUO failed for %2A, code = %3O -- %1A'); !
; 0436 ! !ARG 1 = ROUTINE NAME
; 0437 ! ! 2 = FILE NAME
; 0438 ! ! 3 = ERROR CODE
; 0439 [5] : UPLIT (%ASCIZ'? I/O DATA ERROR on %2A, status = %3O -- %1A'); !
; 0440 ! !ARG 1 = ROUTINE NAME
; 0441 ! ! 2 = FILE NAME
; 0442 ! ! 3 = STATUS
; 0443 [6] : UPLIT (%ASCIZ'? Syntax error in command line: "%2A" -- %1A'); !
; 0444 ! !ARG 1 = ROUTINE NAME
; 0445 ! ! 2 = COMMAND LINE
; 0446 [7] : UPLIT (%ASCIZ'? Switches must be associated with a file -- %1A'); !
; 0447 ! !ARG 1 = ROUTINE NAME
; 0448 [8] : UPLIT (%ASCIZ'? Indirect files nested too deep: "%2A" -- %1A'); !
; 0449 ! !ARG 1 = ROUTINE NAME
; 0450 ! ! 2 = COMMAND LINE
; 0451 [9] : UPLIT (%ASCIZ'? Input error or unexpected EOF -- %1A'); !
; 0452 ! !ARG 1 = ROUTINE NAME
; 0453 [10] : UPLIT (%ASCIZ'%% Badly formatted OBJ file %2A -- %1A'); !
; 0454 ! !ARG 1 = ROUTINE NAME
; 0455 ! ! 2 = OBJ FILE NAME
; 0456 [11] : UPLIT (%ASCIZ'%% Checksum error in OBJ file %2A; should be %3O, was %4O -- %1A'); !
; 0457 ! !ARG 1 = ROUTINE NAME
; 0458 ! ! 2 = OBJECT FILE NAME
; 0459 ! ! 3 = COMPUTED CHECKSUM
; 0460 ! ! 4 = CHECKSUM READ
; 0461 [12] : UPLIT (%ASCIZ'%% Object file feature is unsupported -- %1A'); !
; 0462 ! !ARG 1 = ROUTINE NAME
; 0463 [13] : UPLIT (%ASCIZ
; 0464 '%% Global symbol %1A defined in module %2A with value %3V and in module %4A with value %5V');
; 0465 ! !
; 0466 ! !ARG 1 = SYMBOL NAME
; 0467 ! ! 2 = FIRST MODULE NAME
; 0468 ! ! 3 = FIRST VALUE
; 0469 ! ! 4 = SECOND MODULE NAME
; 0470 ! ! 5 = SECOND VALUE
; 0471 !
; 0472 [14] : UPLIT (%ASCIZ'? Complex relocation exceeded stack limit of %3D, file %2A -- %1A'); !
; 0473 ! !ARG 1 = ROUTINE NAME
; 0474 ! ! 2 = FILE NAME
; 0475 ! ! 3 = STACK LIMIT
; 0476 !
; 0477 [15] : UPLIT (%ASCIZ'%% Module %2A multiply defines P-section %3A; flags = %5O, were %4O -- %1A');
; 0478 !
; 0479 ! !ARG 1 = ROUTINE NAME
; 0480 ! ! 2 = MODULE NAME
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 18
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (7)
; 0481 ! ! 3 = PSECT NAME
; 0482 ! ! 4 = OLD FLAGS
; 0483 ! ! 5 = NEW FLAGS
; 0484 !
; 0485 [16] : UPLIT (%ASCIZ'%% Global symbol %1A is undefined'); !
; 0486 ! !ARG 1 = SYMBOL NAME
; 0487 !
; 0488 [17] : UPLIT (%ASCIZ'%% Divide by zero when resolving relocation in P-section %2A -- %1A'); !
; 0489 ! !ARG 1 = ROUTINE NAME
; 0490 ! ! 2 = PSECT NAME
; 0491 [18] : UPLIT (%ASCIZ'%% Relocation value %3O truncated to 8 bits in P-section %2A -- %1A'); !
; 0492 ! !ARG 1 = ROUTINE NAME
; 0493 ! ! 2 = PSECT NAME
; 0494 ! ! 3 = VALUE TO BE TRUNCATED
; 0495 !
; 0496 [19] : UPLIT (%ASCIZ'? Second %3A file in command string: "%2A" -- %1A'); !
; 0497 ! !ARG 1 = ROUTINE NAME
; 0498 ! ! 2 = FILE NAME
; 0499 ! ! 3 = ASSUMED TYPE
; 0500 !
; 0501 [20] : UPLIT (%ASCIZ'%% Unspecified output file: "%2A", ignored - %1A'); !
; 0502 ! !ARG 1 = ROUTINE NAME
; 0503 ! ! 2 = FILE NAME
; 0504 !
; 0505 [21] : UPLIT (%ASCIZ'? No input files -- %1A'); !
; 0506 ! !ARG 1 = ROUTINE NAME
; 0507 !
; 0508 [22] : UPLIT (%ASCIZ'%% Partition length of %2O less than task length of %3O -- %1A'); !
; 0509 ! !ARG 1 = ROUTINE NAME
; 0510 ! ! 2 = PARTITION LENGTH
; 0511 ! ! 3 = TASK LENGTH
; 0512 !
; 0513 !
; 0514 [23] : UPLIT (%ASCIZ'%% Only one module allowed in symbol table file %2A -- %1A'); !
; 0515 ! !ARG 1 = ROUTINE NAME
; 0516 ! ! 2 = FILE NAME
; 0517 !
; 0518 !
; 0519 [24] : UPLIT (%ASCIZ'? Error in text file %2A -- %1A'); !
; 0520 ! !ARG 1 = ROUTINE NAME
; 0521 ! ! 2 = FILE NAME
; 0522 !
; 0523 [25] : UPLIT (%ASCIZ'? Invalid address %2O in file %3A -- %1A'); !
; 0524 ! !ARG 1 = ROUTINE NAME
; 0525 ! ! 2 = ADDRESS
; 0526 ! ! 3 = FILE NAME
; 0527 !
; 0528 [26] : UPLIT (%ASCIZ'? Cannot find %3D bytes in system pool in %2A -- %1A'); !
; 0529 ! !ARG 1 = ROUTINE NAME
; 0530 ! ! 2 = FILE NAME
; 0531 ! ! 3 = AMOUNT REQUESTED
; 0532 !
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 19
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (7)
; 0533 [27] : UPLIT (%ASCIZ'? Failure freeing %3D bytes at %4O in system pool in %2A, code %5D -- %1A');
; 0534 ! !ARG 1 = ROUTINE NAME
; 0535 ! ! 2 = FILE NAME
; 0536 ! ! 3 = AMOUNT IN BLOCK
; 0537 ! ! 4 = ADDRESS OF BLOCK
; 0538 ! ! 5 = ERROR CODE (SEE LISTING)
; 0539 !
; 0540 [28] : UPLIT (%ASCIZ'? 22-bit memory management not supported in %2A -- %1A'); !
; 0541 ! !ARG 1 = ROUTINE NAME
; 0542 ! ! 2 = FILE NAME
; 0543 !
; 0544 [29] : UPLIT (%ASCIZ'? Symbol %2A has conflicting values in %3A and %4A -- %1A'); !
; 0545 ! !ARG 1 = ROUTINE NAME
; 0546 ! ! 2 = SYMBOL NAME
; 0547 ! ! 3 = SYMBOL TABLE FILE 1
; 0548 ! ! 4 = SYMBOL TABLE FILE 2
; 0549 !
; 0550 !
; 0551 [30] : UPLIT (%ASCIZ'? The Communications Executive has already been loaded into %2A -- %1A'); !
; 0552 ! !ARG 1 = ROUTINE NAME
; 0553 ! ! 2 = KERNEL FILE NAME
; 0554 !
; 0555 [31] : UPLIT (%ASCIZ'? The top of the COMM EXEC is too high: %3O .GT. %4O in %2A -- %1A'); !
; 0556 ! !ARG 1 = ROUTINE NAME
; 0557 ! ! 2 = FILE NAME
; 0558 ! ! 3 = TOP OF COMM EXEC
; 0559 ! ! 4 = MAX EXEC SIZE
; 0560 !
; 0561 [32] : UPLIT (%ASCIZ'%% Global symbol %2A is not defined in %3A -- %1A'); !
; 0562 ! !ARG 1 = ROUTINE NAME
; 0563 ! ! 2 = SYMBOL NAME
; 0564 ! ! 3 = FILE NAME
; 0565 !
; 0566 [33] : UPLIT (%ASCIZ'? Program logical address space (PLAS) is not supported - %1A'); !
; 0567 ! !ARG 1 = ROUTINE NAME
; 0568 !
; 0569 [34] : UPLIT (%ASCIZ'? File %2A size of %3D bytes is larger than max of %4D - %1A'); !
; 0570 ! !ARG 1 = ROUTINE NAME
; 0571 ! ! 2 = FILE NAME
; 0572 ! ! 3 = FILE SIZE
; 0573 ! ! 4 = MAX SIZE
; 0574 [35] : UPLIT (%ASCIZ'? Loading library file %2A overflowed network pool by %3D bytes -- $1A'); !
; 0575 ! !ARG 1 = ROUTINE NAME
; 0576 ! ! 2 = LIBRARY NAME
; 0577 ! ! 3 = OVERFLOW AMOUNT
; 0578 !
; 0579 [36] : UPLIT (%ASCIZ'? DDM %2A is unknown -- %1A'); !
; 0580 ! !ARG 1 = ROUTINE NAME
; 0581 ! ! 2 = DDM NAME
; 0582 !
; 0583 [37] : UPLIT (%ASCIZ'? DCP %2A is unknown -- %1A'); !
; 0584 ! !ARG 1 = ROUTINE NAME
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 20
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (7)
; 0585 ! ! 2 = DLC NAME
; 0586 !
; 0587 [38] : UPLIT (%ASCIZ'? LLC %2A is unknown -- %1A'); !
; 0588 ! !ARG 1 = ROUTINE NAME
; 0589 ! ! 2 = LLC NAME
; 0590 !
; 0591 [39] : UPLIT (%ASCIZ'? Invalid %2A - %3D found -- %1A'); !
; 0592 ! !ARG 1 = Routine Name
; 0593 ! !ARG 2 = Type of construct in error
; 0594 ! !ARG 3 = Value of construct
; 0595 !
; 0596 [40] : UPLIT (%ASCIZ'? Invalid %2A %3A %4A %5O -- %1A');
; 0597 !
; 0598 [INRANGE] : UPLIT (%ASCIZ'? Invalid error'); !ERROR MSG HAS NO TEXT
; 0599 [OUTRANGE] : UPLIT (%ASCIZ'? Illegal error'); !ERROR NUMBER OUT OF RANGE
; 0600 TES);
; 0601 PCRLF (.CHAN);
; 0602 ERR_OUTSTR (.CHAN, .MESSAGE, .ARG1, .ARG2, .ARG3, .ARG4, .ARG5);
; 0603 !
; 0604 ! DETERMINE PROCESSING OF ERROR:
; 0605 ! NON-FATAL = CONTINUE PROCESSING
; 0606 ! FATAL = TERMINATE PROGRAM
; 0607 !
; 0608
; 0609 CASE .ERRNO FROM 1 TO 40 OF
; 0610 SET
; 0611
; 0612 [1 TO 9, 14, 19, 21, 24 TO 31, 33 TO 40, OUTRANGE] :
; 0613 BEGIN
; 0614 PCRLF (.CHAN);
; 0615 OUTSTR (.CHAN, UPLIT (%ASCIZ'?Terminating - No Recovery Available for Previous Error'));
; 0616 STOP_PROGRAM ();
; 0617 END;
; 0618
; 0619 [INRANGE] :
; 0620 ;
; 0621 TES;
; 0622
; 0623 END;
P.AAC: BYTE (7)"?"," ","S","t","o" ; ? Sto 400263' 077 040 123 164 157
BYTE (7)"r","a","g","e"," " ; rage 400264' 162 141 147 145 040
BYTE (7)"e","x","h","a","u" ; exhau 400265' 145 170 150 141 165
BYTE (7)"s","t","e","d"," " ; sted 400266' 163 164 145 144 040
BYTE (7)"-","-"," ","%","1" ; -- %1 400267' 055 055 040 045 061
BYTE (7)"A",000,000,000,000 ; A 400270' 101 000 000 000 000
P.AAD: BYTE (7)"?"," ","I","n","v" ; ? Inv 400271' 077 040 111 156 166
BYTE (7)"a","l","i","d"," " ; alid 400272' 141 154 151 144 040
BYTE (7)"f","i","l","e"," " ; file 400273' 146 151 154 145 040
BYTE (7)"n","a","m","e",":" ; name: 400274' 156 141 155 145 072
BYTE (7)" ",042,"%","2","A" ; "%2A 400275' 040 042 045 062 101
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 21
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (7)
BYTE (7)042," ","-","-"," " ; " -- 400276' 042 040 055 055 040
BYTE (7)"%","1","A",000,000 ; %1A 400277' 045 061 101 000 000
P.AAE: BYTE (7)"?"," ","O","P","E" ; ? OPE 400300' 077 040 117 120 105
BYTE (7)"N"," ","U","U","O" ; N UUO 400301' 116 040 125 125 117
BYTE (7)" ","f","a","i","l" ; fail 400302' 040 146 141 151 154
BYTE (7)"e","d"," ","f","o" ; ed fo 400303' 145 144 040 146 157
BYTE (7)"r"," ","%","2","A" ; r %2A 400304' 162 040 045 062 101
BYTE (7)" ","-","-"," ","%" ; -- % 400305' 040 055 055 040 045
BYTE (7)"1","A",000,000,000 ; 1A 400306' 061 101 000 000 000
P.AAF: BYTE (7)"?"," ","L","O","O" ; ? LOO 400307' 077 040 114 117 117
BYTE (7)"K","U","P","/","E" ; KUP/E 400310' 113 125 120 057 105
BYTE (7)"N","T","E","R"," " ; NTER 400311' 116 124 105 122 040
BYTE (7)"U","U","O"," ","f" ; UUO f 400312' 125 125 117 040 146
BYTE (7)"a","i","l","e","d" ; ailed 400313' 141 151 154 145 144
BYTE (7)" ","f","o","r"," " ; for 400314' 040 146 157 162 040
BYTE (7)"%","2","A",","," " ; %2A, 400315' 045 062 101 054 040
BYTE (7)"c","o","d","e"," " ; code 400316' 143 157 144 145 040
BYTE (7)"="," ","%","3","O" ; = %3O 400317' 075 040 045 063 117
BYTE (7)" ","-","-"," ","%" ; -- % 400320' 040 055 055 040 045
BYTE (7)"1","A",000,000,000 ; 1A 400321' 061 101 000 000 000
P.AAG: BYTE (7)"?"," ","I","/","O" ; ? I/O 400322' 077 040 111 057 117
BYTE (7)" ","D","A","T","A" ; DATA 400323' 040 104 101 124 101
BYTE (7)" ","E","R","R","O" ; ERRO 400324' 040 105 122 122 117
BYTE (7)"R"," ","o","n"," " ; R on 400325' 122 040 157 156 040
BYTE (7)"%","2","A",","," " ; %2A, 400326' 045 062 101 054 040
BYTE (7)"s","t","a","t","u" ; statu 400327' 163 164 141 164 165
BYTE (7)"s"," ","="," ","%" ; s = % 400330' 163 040 075 040 045
BYTE (7)"3","O"," ","-","-" ; 3O -- 400331' 063 117 040 055 055
BYTE (7)" ","%","1","A",000 ; %1A 400332' 040 045 061 101 000
P.AAH: BYTE (7)"?"," ","S","y","n" ; ? Syn 400333' 077 040 123 171 156
BYTE (7)"t","a","x"," ","e" ; tax e 400334' 164 141 170 040 145
BYTE (7)"r","r","o","r"," " ; rror 400335' 162 162 157 162 040
BYTE (7)"i","n"," ","c","o" ; in co 400336' 151 156 040 143 157
BYTE (7)"m","m","a","n","d" ; mmand 400337' 155 155 141 156 144
BYTE (7)" ","l","i","n","e" ; line 400340' 040 154 151 156 145
BYTE (7)":"," ",042,"%","2" ; : "%2 400341' 072 040 042 045 062
BYTE (7)"A",042," ","-","-" ; A" -- 400342' 101 042 040 055 055
BYTE (7)" ","%","1","A",000 ; %1A 400343' 040 045 061 101 000
P.AAI: BYTE (7)"?"," ","S","w","i" ; ? Swi 400344' 077 040 123 167 151
BYTE (7)"t","c","h","e","s" ; tches 400345' 164 143 150 145 163
BYTE (7)" ","m","u","s","t" ; must 400346' 040 155 165 163 164
BYTE (7)" ","b","e"," ","a" ; be a 400347' 040 142 145 040 141
BYTE (7)"s","s","o","c","i" ; ssoci 400350' 163 163 157 143 151
BYTE (7)"a","t","e","d"," " ; ated 400351' 141 164 145 144 040
BYTE (7)"w","i","t","h"," " ; with 400352' 167 151 164 150 040
BYTE (7)"a"," ","f","i","l" ; a fil 400353' 141 040 146 151 154
BYTE (7)"e"," ","-","-"," " ; e -- 400354' 145 040 055 055 040
BYTE (7)"%","1","A",000,000 ; %1A 400355' 045 061 101 000 000
P.AAJ: BYTE (7)"?"," ","I","n","d" ; ? Ind 400356' 077 040 111 156 144
BYTE (7)"i","r","e","c","t" ; irect 400357' 151 162 145 143 164
BYTE (7)" ","f","i","l","e" ; file 400360' 040 146 151 154 145
BYTE (7)"s"," ","n","e","s" ; s nes 400361' 163 040 156 145 163
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 22
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (7)
BYTE (7)"t","e","d"," ","t" ; ted t 400362' 164 145 144 040 164
BYTE (7)"o","o"," ","d","e" ; oo de 400363' 157 157 040 144 145
BYTE (7)"e","p",":"," ",042 ; ep: " 400364' 145 160 072 040 042
BYTE (7)"%","2","A",042," " ; %2A" 400365' 045 062 101 042 040
BYTE (7)"-","-"," ","%","1" ; -- %1 400366' 055 055 040 045 061
BYTE (7)"A",000,000,000,000 ; A 400367' 101 000 000 000 000
P.AAK: BYTE (7)"?"," ","I","n","p" ; ? Inp 400370' 077 040 111 156 160
BYTE (7)"u","t"," ","e","r" ; ut er 400371' 165 164 040 145 162
BYTE (7)"r","o","r"," ","o" ; ror o 400372' 162 157 162 040 157
BYTE (7)"r"," ","u","n","e" ; r une 400373' 162 040 165 156 145
BYTE (7)"x","p","e","c","t" ; xpect 400374' 170 160 145 143 164
BYTE (7)"e","d"," ","E","O" ; ed EO 400375' 145 144 040 105 117
BYTE (7)"F"," ","-","-"," " ; F -- 400376' 106 040 055 055 040
BYTE (7)"%","1","A",000,000 ; %1A 400377' 045 061 101 000 000
P.AAL: BYTE (7)"%","%"," ","B","a" ; %% Ba 400400' 045 045 040 102 141
BYTE (7)"d","l","y"," ","f" ; dly f 400401' 144 154 171 040 146
BYTE (7)"o","r","m","a","t" ; ormat 400402' 157 162 155 141 164
BYTE (7)"t","e","d"," ","O" ; ted O 400403' 164 145 144 040 117
BYTE (7)"B","J"," ","f","i" ; BJ fi 400404' 102 112 040 146 151
BYTE (7)"l","e"," ","%","2" ; le %2 400405' 154 145 040 045 062
BYTE (7)"A"," ","-","-"," " ; A -- 400406' 101 040 055 055 040
BYTE (7)"%","1","A",000,000 ; %1A 400407' 045 061 101 000 000
P.AAM: BYTE (7)"%","%"," ","C","h" ; %% Ch 400410' 045 045 040 103 150
BYTE (7)"e","c","k","s","u" ; ecksu 400411' 145 143 153 163 165
BYTE (7)"m"," ","e","r","r" ; m err 400412' 155 040 145 162 162
BYTE (7)"o","r"," ","i","n" ; or in 400413' 157 162 040 151 156
BYTE (7)" ","O","B","J"," " ; OBJ 400414' 040 117 102 112 040
BYTE (7)"f","i","l","e"," " ; file 400415' 146 151 154 145 040
BYTE (7)"%","2","A",";"," " ; %2A; 400416' 045 062 101 073 040
BYTE (7)"s","h","o","u","l" ; shoul 400417' 163 150 157 165 154
BYTE (7)"d"," ","b","e"," " ; d be 400420' 144 040 142 145 040
BYTE (7)"%","3","O",","," " ; %3O, 400421' 045 063 117 054 040
BYTE (7)"w","a","s"," ","%" ; was % 400422' 167 141 163 040 045
BYTE (7)"4","O"," ","-","-" ; 4O -- 400423' 064 117 040 055 055
BYTE (7)" ","%","1","A",000 ; %1A 400424' 040 045 061 101 000
P.AAN: BYTE (7)"%","%"," ","O","b" ; %% Ob 400425' 045 045 040 117 142
BYTE (7)"j","e","c","t"," " ; ject 400426' 152 145 143 164 040
BYTE (7)"f","i","l","e"," " ; file 400427' 146 151 154 145 040
BYTE (7)"f","e","a","t","u" ; featu 400430' 146 145 141 164 165
BYTE (7)"r","e"," ","i","s" ; re is 400431' 162 145 040 151 163
BYTE (7)" ","u","n","s","u" ; unsu 400432' 040 165 156 163 165
BYTE (7)"p","p","o","r","t" ; pport 400433' 160 160 157 162 164
BYTE (7)"e","d"," ","-","-" ; ed -- 400434' 145 144 040 055 055
BYTE (7)" ","%","1","A",000 ; %1A 400435' 040 045 061 101 000
P.AAO: BYTE (7)"%","%"," ","G","l" ; %% Gl 400436' 045 045 040 107 154
BYTE (7)"o","b","a","l"," " ; obal 400437' 157 142 141 154 040
BYTE (7)"s","y","m","b","o" ; symbo 400440' 163 171 155 142 157
BYTE (7)"l"," ","%","1","A" ; l %1A 400441' 154 040 045 061 101
BYTE (7)" ","d","e","f","i" ; defi 400442' 040 144 145 146 151
BYTE (7)"n","e","d"," ","i" ; ned i 400443' 156 145 144 040 151
BYTE (7)"n"," ","m","o","d" ; n mod 400444' 156 040 155 157 144
BYTE (7)"u","l","e"," ","%" ; ule % 400445' 165 154 145 040 045
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 23
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (7)
BYTE (7)"2","A"," ","w","i" ; 2A wi 400446' 062 101 040 167 151
BYTE (7)"t","h"," ","v","a" ; th va 400447' 164 150 040 166 141
BYTE (7)"l","u","e"," ","%" ; lue % 400450' 154 165 145 040 045
BYTE (7)"3","V"," ","a","n" ; 3V an 400451' 063 126 040 141 156
BYTE (7)"d"," ","i","n"," " ; d in 400452' 144 040 151 156 040
BYTE (7)"m","o","d","u","l" ; modul 400453' 155 157 144 165 154
BYTE (7)"e"," ","%","4","A" ; e %4A 400454' 145 040 045 064 101
BYTE (7)" ","w","i","t","h" ; with 400455' 040 167 151 164 150
BYTE (7)" ","v","a","l","u" ; valu 400456' 040 166 141 154 165
BYTE (7)"e"," ","%","5","V" ; e %5V 400457' 145 040 045 065 126
BYTE (7)000,000,000,000,000 ; 400460' 000 000 000 000 000
P.AAP: BYTE (7)"?"," ","C","o","m" ; ? Com 400461' 077 040 103 157 155
BYTE (7)"p","l","e","x"," " ; plex 400462' 160 154 145 170 040
BYTE (7)"r","e","l","o","c" ; reloc 400463' 162 145 154 157 143
BYTE (7)"a","t","i","o","n" ; ation 400464' 141 164 151 157 156
BYTE (7)" ","e","x","c","e" ; exce 400465' 040 145 170 143 145
BYTE (7)"e","d","e","d"," " ; eded 400466' 145 144 145 144 040
BYTE (7)"s","t","a","c","k" ; stack 400467' 163 164 141 143 153
BYTE (7)" ","l","i","m","i" ; limi 400470' 040 154 151 155 151
BYTE (7)"t"," ","o","f"," " ; t of 400471' 164 040 157 146 040
BYTE (7)"%","3","D",","," " ; %3D, 400472' 045 063 104 054 040
BYTE (7)"f","i","l","e"," " ; file 400473' 146 151 154 145 040
BYTE (7)"%","2","A"," ","-" ; %2A - 400474' 045 062 101 040 055
BYTE (7)"-"," ","%","1","A" ; - %1A 400475' 055 040 045 061 101
BYTE (7)000,000,000,000,000 ; 400476' 000 000 000 000 000
P.AAQ: BYTE (7)"%","%"," ","M","o" ; %% Mo 400477' 045 045 040 115 157
BYTE (7)"d","u","l","e"," " ; dule 400500' 144 165 154 145 040
BYTE (7)"%","2","A"," ","m" ; %2A m 400501' 045 062 101 040 155
BYTE (7)"u","l","t","i","p" ; ultip 400502' 165 154 164 151 160
BYTE (7)"l","y"," ","d","e" ; ly de 400503' 154 171 040 144 145
BYTE (7)"f","i","n","e","s" ; fines 400504' 146 151 156 145 163
BYTE (7)" ","P","-","s","e" ; P-se 400505' 040 120 055 163 145
BYTE (7)"c","t","i","o","n" ; ction 400506' 143 164 151 157 156
BYTE (7)" ","%","3","A",";" ; %3A; 400507' 040 045 063 101 073
BYTE (7)" ","f","l","a","g" ; flag 400510' 040 146 154 141 147
BYTE (7)"s"," ","="," ","%" ; s = % 400511' 163 040 075 040 045
BYTE (7)"5","O",","," ","w" ; 5O, w 400512' 065 117 054 040 167
BYTE (7)"e","r","e"," ","%" ; ere % 400513' 145 162 145 040 045
BYTE (7)"4","O"," ","-","-" ; 4O -- 400514' 064 117 040 055 055
BYTE (7)" ","%","1","A",000 ; %1A 400515' 040 045 061 101 000
P.AAR: BYTE (7)"%","%"," ","G","l" ; %% Gl 400516' 045 045 040 107 154
BYTE (7)"o","b","a","l"," " ; obal 400517' 157 142 141 154 040
BYTE (7)"s","y","m","b","o" ; symbo 400520' 163 171 155 142 157
BYTE (7)"l"," ","%","1","A" ; l %1A 400521' 154 040 045 061 101
BYTE (7)" ","i","s"," ","u" ; is u 400522' 040 151 163 040 165
BYTE (7)"n","d","e","f","i" ; ndefi 400523' 156 144 145 146 151
BYTE (7)"n","e","d",000,000 ; ned 400524' 156 145 144 000 000
P.AAS: BYTE (7)"%","%"," ","D","i" ; %% Di 400525' 045 045 040 104 151
BYTE (7)"v","i","d","e"," " ; vide 400526' 166 151 144 145 040
BYTE (7)"b","y"," ","z","e" ; by ze 400527' 142 171 040 172 145
BYTE (7)"r","o"," ","w","h" ; ro wh 400530' 162 157 040 167 150
BYTE (7)"e","n"," ","r","e" ; en re 400531' 145 156 040 162 145
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 24
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (7)
BYTE (7)"s","o","l","v","i" ; solvi 400532' 163 157 154 166 151
BYTE (7)"n","g"," ","r","e" ; ng re 400533' 156 147 040 162 145
BYTE (7)"l","o","c","a","t" ; locat 400534' 154 157 143 141 164
BYTE (7)"i","o","n"," ","i" ; ion i 400535' 151 157 156 040 151
BYTE (7)"n"," ","P","-","s" ; n P-s 400536' 156 040 120 055 163
BYTE (7)"e","c","t","i","o" ; ectio 400537' 145 143 164 151 157
BYTE (7)"n"," ","%","2","A" ; n %2A 400540' 156 040 045 062 101
BYTE (7)" ","-","-"," ","%" ; -- % 400541' 040 055 055 040 045
BYTE (7)"1","A",000,000,000 ; 1A 400542' 061 101 000 000 000
P.AAT: BYTE (7)"%","%"," ","R","e" ; %% Re 400543' 045 045 040 122 145
BYTE (7)"l","o","c","a","t" ; locat 400544' 154 157 143 141 164
BYTE (7)"i","o","n"," ","v" ; ion v 400545' 151 157 156 040 166
BYTE (7)"a","l","u","e"," " ; alue 400546' 141 154 165 145 040
BYTE (7)"%","3","O"," ","t" ; %3O t 400547' 045 063 117 040 164
BYTE (7)"r","u","n","c","a" ; runca 400550' 162 165 156 143 141
BYTE (7)"t","e","d"," ","t" ; ted t 400551' 164 145 144 040 164
BYTE (7)"o"," ","8"," ","b" ; o 8 b 400552' 157 040 070 040 142
BYTE (7)"i","t","s"," ","i" ; its i 400553' 151 164 163 040 151
BYTE (7)"n"," ","P","-","s" ; n P-s 400554' 156 040 120 055 163
BYTE (7)"e","c","t","i","o" ; ectio 400555' 145 143 164 151 157
BYTE (7)"n"," ","%","2","A" ; n %2A 400556' 156 040 045 062 101
BYTE (7)" ","-","-"," ","%" ; -- % 400557' 040 055 055 040 045
BYTE (7)"1","A",000,000,000 ; 1A 400560' 061 101 000 000 000
P.AAU: BYTE (7)"?"," ","S","e","c" ; ? Sec 400561' 077 040 123 145 143
BYTE (7)"o","n","d"," ","%" ; ond % 400562' 157 156 144 040 045
BYTE (7)"3","A"," ","f","i" ; 3A fi 400563' 063 101 040 146 151
BYTE (7)"l","e"," ","i","n" ; le in 400564' 154 145 040 151 156
BYTE (7)" ","c","o","m","m" ; comm 400565' 040 143 157 155 155
BYTE (7)"a","n","d"," ","s" ; and s 400566' 141 156 144 040 163
BYTE (7)"t","r","i","n","g" ; tring 400567' 164 162 151 156 147
BYTE (7)":"," ",042,"%","2" ; : "%2 400570' 072 040 042 045 062
BYTE (7)"A",042," ","-","-" ; A" -- 400571' 101 042 040 055 055
BYTE (7)" ","%","1","A",000 ; %1A 400572' 040 045 061 101 000
P.AAV: BYTE (7)"%","%"," ","U","n" ; %% Un 400573' 045 045 040 125 156
BYTE (7)"s","p","e","c","i" ; speci 400574' 163 160 145 143 151
BYTE (7)"f","i","e","d"," " ; fied 400575' 146 151 145 144 040
BYTE (7)"o","u","t","p","u" ; outpu 400576' 157 165 164 160 165
BYTE (7)"t"," ","f","i","l" ; t fil 400577' 164 040 146 151 154
BYTE (7)"e",":"," ",042,"%" ; e: "% 400600' 145 072 040 042 045
BYTE (7)"2","A",042,","," " ; 2A", 400601' 062 101 042 054 040
BYTE (7)"i","g","n","o","r" ; ignor 400602' 151 147 156 157 162
BYTE (7)"e","d"," ","-"," " ; ed - 400603' 145 144 040 055 040
BYTE (7)"%","1","A",000,000 ; %1A 400604' 045 061 101 000 000
P.AAW: BYTE (7)"?"," ","N","o"," " ; ? No 400605' 077 040 116 157 040
BYTE (7)"i","n","p","u","t" ; input 400606' 151 156 160 165 164
BYTE (7)" ","f","i","l","e" ; file 400607' 040 146 151 154 145
BYTE (7)"s"," ","-","-"," " ; s -- 400610' 163 040 055 055 040
BYTE (7)"%","1","A",000,000 ; %1A 400611' 045 061 101 000 000
P.AAX: BYTE (7)"%","%"," ","P","a" ; %% Pa 400612' 045 045 040 120 141
BYTE (7)"r","t","i","t","i" ; rtiti 400613' 162 164 151 164 151
BYTE (7)"o","n"," ","l","e" ; on le 400614' 157 156 040 154 145
BYTE (7)"n","g","t","h"," " ; ngth 400615' 156 147 164 150 040
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 25
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (7)
BYTE (7)"o","f"," ","%","2" ; of %2 400616' 157 146 040 045 062
BYTE (7)"O"," ","l","e","s" ; O les 400617' 117 040 154 145 163
BYTE (7)"s"," ","t","h","a" ; s tha 400620' 163 040 164 150 141
BYTE (7)"n"," ","t","a","s" ; n tas 400621' 156 040 164 141 163
BYTE (7)"k"," ","l","e","n" ; k len 400622' 153 040 154 145 156
BYTE (7)"g","t","h"," ","o" ; gth o 400623' 147 164 150 040 157
BYTE (7)"f"," ","%","3","O" ; f %3O 400624' 146 040 045 063 117
BYTE (7)" ","-","-"," ","%" ; -- % 400625' 040 055 055 040 045
BYTE (7)"1","A",000,000,000 ; 1A 400626' 061 101 000 000 000
P.AAY: BYTE (7)"%","%"," ","O","n" ; %% On 400627' 045 045 040 117 156
BYTE (7)"l","y"," ","o","n" ; ly on 400630' 154 171 040 157 156
BYTE (7)"e"," ","m","o","d" ; e mod 400631' 145 040 155 157 144
BYTE (7)"u","l","e"," ","a" ; ule a 400632' 165 154 145 040 141
BYTE (7)"l","l","o","w","e" ; llowe 400633' 154 154 157 167 145
BYTE (7)"d"," ","i","n"," " ; d in 400634' 144 040 151 156 040
BYTE (7)"s","y","m","b","o" ; symbo 400635' 163 171 155 142 157
BYTE (7)"l"," ","t","a","b" ; l tab 400636' 154 040 164 141 142
BYTE (7)"l","e"," ","f","i" ; le fi 400637' 154 145 040 146 151
BYTE (7)"l","e"," ","%","2" ; le %2 400640' 154 145 040 045 062
BYTE (7)"A"," ","-","-"," " ; A -- 400641' 101 040 055 055 040
BYTE (7)"%","1","A",000,000 ; %1A 400642' 045 061 101 000 000
P.AAZ: BYTE (7)"?"," ","E","r","r" ; ? Err 400643' 077 040 105 162 162
BYTE (7)"o","r"," ","i","n" ; or in 400644' 157 162 040 151 156
BYTE (7)" ","t","e","x","t" ; text 400645' 040 164 145 170 164
BYTE (7)" ","f","i","l","e" ; file 400646' 040 146 151 154 145
BYTE (7)" ","%","2","A"," " ; %2A 400647' 040 045 062 101 040
BYTE (7)"-","-"," ","%","1" ; -- %1 400650' 055 055 040 045 061
BYTE (7)"A",000,000,000,000 ; A 400651' 101 000 000 000 000
P.ABA: BYTE (7)"?"," ","I","n","v" ; ? Inv 400652' 077 040 111 156 166
BYTE (7)"a","l","i","d"," " ; alid 400653' 141 154 151 144 040
BYTE (7)"a","d","d","r","e" ; addre 400654' 141 144 144 162 145
BYTE (7)"s","s"," ","%","2" ; ss %2 400655' 163 163 040 045 062
BYTE (7)"O"," ","i","n"," " ; O in 400656' 117 040 151 156 040
BYTE (7)"f","i","l","e"," " ; file 400657' 146 151 154 145 040
BYTE (7)"%","3","A"," ","-" ; %3A - 400660' 045 063 101 040 055
BYTE (7)"-"," ","%","1","A" ; - %1A 400661' 055 040 045 061 101
BYTE (7)000,000,000,000,000 ; 400662' 000 000 000 000 000
P.ABB: BYTE (7)"?"," ","C","a","n" ; ? Can 400663' 077 040 103 141 156
BYTE (7)"n","o","t"," ","f" ; not f 400664' 156 157 164 040 146
BYTE (7)"i","n","d"," ","%" ; ind % 400665' 151 156 144 040 045
BYTE (7)"3","D"," ","b","y" ; 3D by 400666' 063 104 040 142 171
BYTE (7)"t","e","s"," ","i" ; tes i 400667' 164 145 163 040 151
BYTE (7)"n"," ","s","y","s" ; n sys 400670' 156 040 163 171 163
BYTE (7)"t","e","m"," ","p" ; tem p 400671' 164 145 155 040 160
BYTE (7)"o","o","l"," ","i" ; ool i 400672' 157 157 154 040 151
BYTE (7)"n"," ","%","2","A" ; n %2A 400673' 156 040 045 062 101
BYTE (7)" ","-","-"," ","%" ; -- % 400674' 040 055 055 040 045
BYTE (7)"1","A",000,000,000 ; 1A 400675' 061 101 000 000 000
P.ABC: BYTE (7)"?"," ","F","a","i" ; ? Fai 400676' 077 040 106 141 151
BYTE (7)"l","u","r","e"," " ; lure 400677' 154 165 162 145 040
BYTE (7)"f","r","e","e","i" ; freei 400700' 146 162 145 145 151
BYTE (7)"n","g"," ","%","3" ; ng %3 400701' 156 147 040 045 063
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 26
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (7)
BYTE (7)"D"," ","b","y","t" ; D byt 400702' 104 040 142 171 164
BYTE (7)"e","s"," ","a","t" ; es at 400703' 145 163 040 141 164
BYTE (7)" ","%","4","O"," " ; %4O 400704' 040 045 064 117 040
BYTE (7)"i","n"," ","s","y" ; in sy 400705' 151 156 040 163 171
BYTE (7)"s","t","e","m"," " ; stem 400706' 163 164 145 155 040
BYTE (7)"p","o","o","l"," " ; pool 400707' 160 157 157 154 040
BYTE (7)"i","n"," ","%","2" ; in %2 400710' 151 156 040 045 062
BYTE (7)"A",","," ","c","o" ; A, co 400711' 101 054 040 143 157
BYTE (7)"d","e"," ","%","5" ; de %5 400712' 144 145 040 045 065
BYTE (7)"D"," ","-","-"," " ; D -- 400713' 104 040 055 055 040
BYTE (7)"%","1","A",000,000 ; %1A 400714' 045 061 101 000 000
P.ABD: BYTE (7)"?"," ","2","2","-" ; ? 22- 400715' 077 040 062 062 055
BYTE (7)"b","i","t"," ","m" ; bit m 400716' 142 151 164 040 155
BYTE (7)"e","m","o","r","y" ; emory 400717' 145 155 157 162 171
BYTE (7)" ","m","a","n","a" ; mana 400720' 040 155 141 156 141
BYTE (7)"g","e","m","e","n" ; gemen 400721' 147 145 155 145 156
BYTE (7)"t"," ","n","o","t" ; t not 400722' 164 040 156 157 164
BYTE (7)" ","s","u","p","p" ; supp 400723' 040 163 165 160 160
BYTE (7)"o","r","t","e","d" ; orted 400724' 157 162 164 145 144
BYTE (7)" ","i","n"," ","%" ; in % 400725' 040 151 156 040 045
BYTE (7)"2","A"," ","-","-" ; 2A -- 400726' 062 101 040 055 055
BYTE (7)" ","%","1","A",000 ; %1A 400727' 040 045 061 101 000
P.ABE: BYTE (7)"?"," ","S","y","m" ; ? Sym 400730' 077 040 123 171 155
BYTE (7)"b","o","l"," ","%" ; bol % 400731' 142 157 154 040 045
BYTE (7)"2","A"," ","h","a" ; 2A ha 400732' 062 101 040 150 141
BYTE (7)"s"," ","c","o","n" ; s con 400733' 163 040 143 157 156
BYTE (7)"f","l","i","c","t" ; flict 400734' 146 154 151 143 164
BYTE (7)"i","n","g"," ","v" ; ing v 400735' 151 156 147 040 166
BYTE (7)"a","l","u","e","s" ; alues 400736' 141 154 165 145 163
BYTE (7)" ","i","n"," ","%" ; in % 400737' 040 151 156 040 045
BYTE (7)"3","A"," ","a","n" ; 3A an 400740' 063 101 040 141 156
BYTE (7)"d"," ","%","4","A" ; d %4A 400741' 144 040 045 064 101
BYTE (7)" ","-","-"," ","%" ; -- % 400742' 040 055 055 040 045
BYTE (7)"1","A",000,000,000 ; 1A 400743' 061 101 000 000 000
P.ABF: BYTE (7)"?"," ","T","h","e" ; ? The 400744' 077 040 124 150 145
BYTE (7)" ","C","o","m","m" ; Comm 400745' 040 103 157 155 155
BYTE (7)"u","n","i","c","a" ; unica 400746' 165 156 151 143 141
BYTE (7)"t","i","o","n","s" ; tions 400747' 164 151 157 156 163
BYTE (7)" ","E","x","e","c" ; Exec 400750' 040 105 170 145 143
BYTE (7)"u","t","i","v","e" ; utive 400751' 165 164 151 166 145
BYTE (7)" ","h","a","s"," " ; has 400752' 040 150 141 163 040
BYTE (7)"a","l","r","e","a" ; alrea 400753' 141 154 162 145 141
BYTE (7)"d","y"," ","b","e" ; dy be 400754' 144 171 040 142 145
BYTE (7)"e","n"," ","l","o" ; en lo 400755' 145 156 040 154 157
BYTE (7)"a","d","e","d"," " ; aded 400756' 141 144 145 144 040
BYTE (7)"i","n","t","o"," " ; into 400757' 151 156 164 157 040
BYTE (7)"%","2","A"," ","-" ; %2A - 400760' 045 062 101 040 055
BYTE (7)"-"," ","%","1","A" ; - %1A 400761' 055 040 045 061 101
BYTE (7)000,000,000,000,000 ; 400762' 000 000 000 000 000
P.ABG: BYTE (7)"?"," ","T","h","e" ; ? The 400763' 077 040 124 150 145
BYTE (7)" ","t","o","p"," " ; top 400764' 040 164 157 160 040
BYTE (7)"o","f"," ","t","h" ; of th 400765' 157 146 040 164 150
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 27
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (7)
BYTE (7)"e"," ","C","O","M" ; e COM 400766' 145 040 103 117 115
BYTE (7)"M"," ","E","X","E" ; M EXE 400767' 115 040 105 130 105
BYTE (7)"C"," ","i","s"," " ; C is 400770' 103 040 151 163 040
BYTE (7)"t","o","o"," ","h" ; too h 400771' 164 157 157 040 150
BYTE (7)"i","g","h",":"," " ; igh: 400772' 151 147 150 072 040
BYTE (7)"%","3","O"," ","." ; %3O . 400773' 045 063 117 040 056
BYTE (7)"G","T","."," ","%" ; GT. % 400774' 107 124 056 040 045
BYTE (7)"4","O"," ","i","n" ; 4O in 400775' 064 117 040 151 156
BYTE (7)" ","%","2","A"," " ; %2A 400776' 040 045 062 101 040
BYTE (7)"-","-"," ","%","1" ; -- %1 400777' 055 055 040 045 061
BYTE (7)"A",000,000,000,000 ; A 401000' 101 000 000 000 000
P.ABH: BYTE (7)"%","%"," ","G","l" ; %% Gl 401001' 045 045 040 107 154
BYTE (7)"o","b","a","l"," " ; obal 401002' 157 142 141 154 040
BYTE (7)"s","y","m","b","o" ; symbo 401003' 163 171 155 142 157
BYTE (7)"l"," ","%","2","A" ; l %2A 401004' 154 040 045 062 101
BYTE (7)" ","i","s"," ","n" ; is n 401005' 040 151 163 040 156
BYTE (7)"o","t"," ","d","e" ; ot de 401006' 157 164 040 144 145
BYTE (7)"f","i","n","e","d" ; fined 401007' 146 151 156 145 144
BYTE (7)" ","i","n"," ","%" ; in % 401010' 040 151 156 040 045
BYTE (7)"3","A"," ","-","-" ; 3A -- 401011' 063 101 040 055 055
BYTE (7)" ","%","1","A",000 ; %1A 401012' 040 045 061 101 000
P.ABI: BYTE (7)"?"," ","P","r","o" ; ? Pro 401013' 077 040 120 162 157
BYTE (7)"g","r","a","m"," " ; gram 401014' 147 162 141 155 040
BYTE (7)"l","o","g","i","c" ; logic 401015' 154 157 147 151 143
BYTE (7)"a","l"," ","a","d" ; al ad 401016' 141 154 040 141 144
BYTE (7)"d","r","e","s","s" ; dress 401017' 144 162 145 163 163
BYTE (7)" ","s","p","a","c" ; spac 401020' 040 163 160 141 143
BYTE (7)"e"," ","(","P","L" ; e (PL 401021' 145 040 050 120 114
BYTE (7)"A","S",")"," ","i" ; AS) i 401022' 101 123 051 040 151
BYTE (7)"s"," ","n","o","t" ; s not 401023' 163 040 156 157 164
BYTE (7)" ","s","u","p","p" ; supp 401024' 040 163 165 160 160
BYTE (7)"o","r","t","e","d" ; orted 401025' 157 162 164 145 144
BYTE (7)" ","-"," ","%","1" ; - %1 401026' 040 055 040 045 061
BYTE (7)"A",000,000,000,000 ; A 401027' 101 000 000 000 000
P.ABJ: BYTE (7)"?"," ","F","i","l" ; ? Fil 401030' 077 040 106 151 154
BYTE (7)"e"," ","%","2","A" ; e %2A 401031' 145 040 045 062 101
BYTE (7)" ","s","i","z","e" ; size 401032' 040 163 151 172 145
BYTE (7)" ","o","f"," ","%" ; of % 401033' 040 157 146 040 045
BYTE (7)"3","D"," ","b","y" ; 3D by 401034' 063 104 040 142 171
BYTE (7)"t","e","s"," ","i" ; tes i 401035' 164 145 163 040 151
BYTE (7)"s"," ","l","a","r" ; s lar 401036' 163 040 154 141 162
BYTE (7)"g","e","r"," ","t" ; ger t 401037' 147 145 162 040 164
BYTE (7)"h","a","n"," ","m" ; han m 401040' 150 141 156 040 155
BYTE (7)"a","x"," ","o","f" ; ax of 401041' 141 170 040 157 146
BYTE (7)" ","%","4","D"," " ; %4D 401042' 040 045 064 104 040
BYTE (7)"-"," ","%","1","A" ; - %1A 401043' 055 040 045 061 101
BYTE (7)000,000,000,000,000 ; 401044' 000 000 000 000 000
P.ABK: BYTE (7)"?"," ","L","o","a" ; ? Loa 401045' 077 040 114 157 141
BYTE (7)"d","i","n","g"," " ; ding 401046' 144 151 156 147 040
BYTE (7)"l","i","b","r","a" ; libra 401047' 154 151 142 162 141
BYTE (7)"r","y"," ","f","i" ; ry fi 401050' 162 171 040 146 151
BYTE (7)"l","e"," ","%","2" ; le %2 401051' 154 145 040 045 062
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 28
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (7)
BYTE (7)"A"," ","o","v","e" ; A ove 401052' 101 040 157 166 145
BYTE (7)"r","f","l","o","w" ; rflow 401053' 162 146 154 157 167
BYTE (7)"e","d"," ","n","e" ; ed ne 401054' 145 144 040 156 145
BYTE (7)"t","w","o","r","k" ; twork 401055' 164 167 157 162 153
BYTE (7)" ","p","o","o","l" ; pool 401056' 040 160 157 157 154
BYTE (7)" ","b","y"," ","%" ; by % 401057' 040 142 171 040 045
BYTE (7)"3","D"," ","b","y" ; 3D by 401060' 063 104 040 142 171
BYTE (7)"t","e","s"," ","-" ; tes - 401061' 164 145 163 040 055
BYTE (7)"-"," ","$","1","A" ; - $1A 401062' 055 040 044 061 101
BYTE (7)000,000,000,000,000 ; 401063' 000 000 000 000 000
P.ABL: BYTE (7)"?"," ","D","D","M" ; ? DDM 401064' 077 040 104 104 115
BYTE (7)" ","%","2","A"," " ; %2A 401065' 040 045 062 101 040
BYTE (7)"i","s"," ","u","n" ; is un 401066' 151 163 040 165 156
BYTE (7)"k","n","o","w","n" ; known 401067' 153 156 157 167 156
BYTE (7)" ","-","-"," ","%" ; -- % 401070' 040 055 055 040 045
BYTE (7)"1","A",000,000,000 ; 1A 401071' 061 101 000 000 000
P.ABM: BYTE (7)"?"," ","D","C","P" ; ? DCP 401072' 077 040 104 103 120
BYTE (7)" ","%","2","A"," " ; %2A 401073' 040 045 062 101 040
BYTE (7)"i","s"," ","u","n" ; is un 401074' 151 163 040 165 156
BYTE (7)"k","n","o","w","n" ; known 401075' 153 156 157 167 156
BYTE (7)" ","-","-"," ","%" ; -- % 401076' 040 055 055 040 045
BYTE (7)"1","A",000,000,000 ; 1A 401077' 061 101 000 000 000
P.ABN: BYTE (7)"?"," ","L","L","C" ; ? LLC 401100' 077 040 114 114 103
BYTE (7)" ","%","2","A"," " ; %2A 401101' 040 045 062 101 040
BYTE (7)"i","s"," ","u","n" ; is un 401102' 151 163 040 165 156
BYTE (7)"k","n","o","w","n" ; known 401103' 153 156 157 167 156
BYTE (7)" ","-","-"," ","%" ; -- % 401104' 040 055 055 040 045
BYTE (7)"1","A",000,000,000 ; 1A 401105' 061 101 000 000 000
P.ABO: BYTE (7)"?"," ","I","n","v" ; ? Inv 401106' 077 040 111 156 166
BYTE (7)"a","l","i","d"," " ; alid 401107' 141 154 151 144 040
BYTE (7)"%","2","A"," ","-" ; %2A - 401110' 045 062 101 040 055
BYTE (7)" ","%","3","D"," " ; %3D 401111' 040 045 063 104 040
BYTE (7)"f","o","u","n","d" ; found 401112' 146 157 165 156 144
BYTE (7)" ","-","-"," ","%" ; -- % 401113' 040 055 055 040 045
BYTE (7)"1","A",000,000,000 ; 1A 401114' 061 101 000 000 000
P.ABP: BYTE (7)"?"," ","I","n","v" ; ? Inv 401115' 077 040 111 156 166
BYTE (7)"a","l","i","d"," " ; alid 401116' 141 154 151 144 040
BYTE (7)"%","2","A"," ","%" ; %2A % 401117' 045 062 101 040 045
BYTE (7)"3","A"," ","%","4" ; 3A %4 401120' 063 101 040 045 064
BYTE (7)"A"," ","%","5","O" ; A %5O 401121' 101 040 045 065 117
BYTE (7)" ","-","-"," ","%" ; -- % 401122' 040 055 055 040 045
BYTE (7)"1","A",000,000,000 ; 1A 401123' 061 101 000 000 000
P.ABQ: BYTE (7)"?"," ","I","n","v" ; ? Inv 401124' 077 040 111 156 166
BYTE (7)"a","l","i","d"," " ; alid 401125' 141 154 151 144 040
BYTE (7)"e","r","r","o","r" ; error 401126' 145 162 162 157 162
BYTE (7)000,000,000,000,000 ; 401127' 000 000 000 000 000
P.ABR: BYTE (7)"?"," ","I","l","l" ; ? Ill 401130' 077 040 111 154 154
BYTE (7)"e","g","a","l"," " ; egal 401131' 145 147 141 154 040
BYTE (7)"e","r","r","o","r" ; error 401132' 145 162 162 157 162
BYTE (7)000,000,000,000,000 ; 401133' 000 000 000 000 000
P.ABS: BYTE (7)"?","T","e","r","m" ; ?Term 401134' 077 124 145 162 155
BYTE (7)"i","n","a","t","i" ; inati 401135' 151 156 141 164 151
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 29
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (7)
BYTE (7)"n","g"," ","-"," " ; ng - 401136' 156 147 040 055 040
BYTE (7)"N","o"," ","R","e" ; No Re 401137' 116 157 040 122 145
BYTE (7)"c","o","v","e","r" ; cover 401140' 143 157 166 145 162
BYTE (7)"y"," ","A","v","a" ; y Ava 401141' 171 040 101 166 141
BYTE (7)"i","l","a","b","l" ; ilabl 401142' 151 154 141 142 154
BYTE (7)"e"," ","f","o","r" ; e for 401143' 145 040 146 157 162
BYTE (7)" ","P","r","e","v" ; Prev 401144' 040 120 162 145 166
BYTE (7)"i","o","u","s"," " ; ious 401145' 151 157 165 163 040
BYTE (7)"E","r","r","o","r" ; Error 401146' 105 162 162 157 162
BYTE (7)000,000,000,000,000 ; 401147' 000 000 000 000 000
ERRMSG::PUSH SP,AC0 ; SP,AC0 401150' 261 17 0 00 000000 0377
PUSH SP,AC10 ; SP,AC10 401151' 261 17 0 00 000010
PUSH SP,AC11 ; SP,AC11 401152' 261 17 0 00 000011
MOVE AC10,-11(SP) ; AC10,ERRNO 401153' 200 10 0 17 777767 0425
MOVE AC1,AC10 ; AC1,AC10 401154' 200 01 0 00 000010
SOJL AC1,L.27 ; AC1,L.27 401155' 361 01 0 00 401231'
CAIGE AC1,50 ; AC1,50 401156' 305 01 0 00 000050
JRST L.26(AC1) ; L.26(AC1) 401157' 254 00 0 01 401161'
JRST L.27 ; L.27 401160' 254 00 0 00 401231'
L.26: JRST L.28 ; L.28 401161' 254 00 0 00 401233'
JRST L.29 ; L.29 401162' 254 00 0 00 401235'
JRST L.30 ; L.30 401163' 254 00 0 00 401237'
JRST L.31 ; L.31 401164' 254 00 0 00 401241'
JRST L.32 ; L.32 401165' 254 00 0 00 401243'
JRST L.33 ; L.33 401166' 254 00 0 00 401245'
JRST L.34 ; L.34 401167' 254 00 0 00 401247'
JRST L.35 ; L.35 401170' 254 00 0 00 401251'
JRST L.36 ; L.36 401171' 254 00 0 00 401253'
JRST L.37 ; L.37 401172' 254 00 0 00 401255'
JRST L.38 ; L.38 401173' 254 00 0 00 401257'
JRST L.39 ; L.39 401174' 254 00 0 00 401261'
JRST L.40 ; L.40 401175' 254 00 0 00 401263'
JRST L.41 ; L.41 401176' 254 00 0 00 401265'
JRST L.42 ; L.42 401177' 254 00 0 00 401267'
JRST L.43 ; L.43 401200' 254 00 0 00 401271'
JRST L.44 ; L.44 401201' 254 00 0 00 401273'
JRST L.45 ; L.45 401202' 254 00 0 00 401275'
JRST L.46 ; L.46 401203' 254 00 0 00 401277'
JRST L.47 ; L.47 401204' 254 00 0 00 401301'
JRST L.48 ; L.48 401205' 254 00 0 00 401303'
JRST L.49 ; L.49 401206' 254 00 0 00 401305'
JRST L.50 ; L.50 401207' 254 00 0 00 401307'
JRST L.51 ; L.51 401210' 254 00 0 00 401311'
JRST L.52 ; L.52 401211' 254 00 0 00 401313'
JRST L.53 ; L.53 401212' 254 00 0 00 401315'
JRST L.54 ; L.54 401213' 254 00 0 00 401317'
JRST L.55 ; L.55 401214' 254 00 0 00 401321'
JRST L.56 ; L.56 401215' 254 00 0 00 401323'
JRST L.57 ; L.57 401216' 254 00 0 00 401325'
JRST L.58 ; L.58 401217' 254 00 0 00 401327'
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 30
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (7)
JRST L.59 ; L.59 401220' 254 00 0 00 401331'
JRST L.60 ; L.60 401221' 254 00 0 00 401333'
JRST L.61 ; L.61 401222' 254 00 0 00 401335'
JRST L.62 ; L.62 401223' 254 00 0 00 401337'
JRST L.63 ; L.63 401224' 254 00 0 00 401341'
JRST L.64 ; L.64 401225' 254 00 0 00 401343'
JRST L.65 ; L.65 401226' 254 00 0 00 401345'
JRST L.66 ; L.66 401227' 254 00 0 00 401347'
JRST L.67 ; L.67 401230' 254 00 0 00 401351'
L.27: MOVEI AC0,P.ABR ; MESSAGE,P.ABR 401231' 201 00 0 00 401130'
JRST L.68 ; L.68 401232' 254 00 0 00 401352'
L.28: MOVEI AC0,P.AAC ; MESSAGE,P.AAC 401233' 201 00 0 00 400263'
JRST L.68 ; L.68 401234' 254 00 0 00 401352'
L.29: MOVEI AC0,P.AAD ; MESSAGE,P.AAD 401235' 201 00 0 00 400271'
JRST L.68 ; L.68 401236' 254 00 0 00 401352'
L.30: MOVEI AC0,P.AAE ; MESSAGE,P.AAE 401237' 201 00 0 00 400300'
JRST L.68 ; L.68 401240' 254 00 0 00 401352'
L.31: MOVEI AC0,P.AAF ; MESSAGE,P.AAF 401241' 201 00 0 00 400307'
JRST L.68 ; L.68 401242' 254 00 0 00 401352'
L.32: MOVEI AC0,P.AAG ; MESSAGE,P.AAG 401243' 201 00 0 00 400322'
JRST L.68 ; L.68 401244' 254 00 0 00 401352'
L.33: MOVEI AC0,P.AAH ; MESSAGE,P.AAH 401245' 201 00 0 00 400333'
JRST L.68 ; L.68 401246' 254 00 0 00 401352'
L.34: MOVEI AC0,P.AAI ; MESSAGE,P.AAI 401247' 201 00 0 00 400344'
JRST L.68 ; L.68 401250' 254 00 0 00 401352'
L.35: MOVEI AC0,P.AAJ ; MESSAGE,P.AAJ 401251' 201 00 0 00 400356'
JRST L.68 ; L.68 401252' 254 00 0 00 401352'
L.36: MOVEI AC0,P.AAK ; MESSAGE,P.AAK 401253' 201 00 0 00 400370'
JRST L.68 ; L.68 401254' 254 00 0 00 401352'
L.37: MOVEI AC0,P.AAL ; MESSAGE,P.AAL 401255' 201 00 0 00 400400'
JRST L.68 ; L.68 401256' 254 00 0 00 401352'
L.38: MOVEI AC0,P.AAM ; MESSAGE,P.AAM 401257' 201 00 0 00 400410'
JRST L.68 ; L.68 401260' 254 00 0 00 401352'
L.39: MOVEI AC0,P.AAN ; MESSAGE,P.AAN 401261' 201 00 0 00 400425'
JRST L.68 ; L.68 401262' 254 00 0 00 401352'
L.40: MOVEI AC0,P.AAO ; MESSAGE,P.AAO 401263' 201 00 0 00 400436'
JRST L.68 ; L.68 401264' 254 00 0 00 401352'
L.41: MOVEI AC0,P.AAP ; MESSAGE,P.AAP 401265' 201 00 0 00 400461'
JRST L.68 ; L.68 401266' 254 00 0 00 401352'
L.42: MOVEI AC0,P.AAQ ; MESSAGE,P.AAQ 401267' 201 00 0 00 400477'
JRST L.68 ; L.68 401270' 254 00 0 00 401352'
L.43: MOVEI AC0,P.AAR ; MESSAGE,P.AAR 401271' 201 00 0 00 400516'
JRST L.68 ; L.68 401272' 254 00 0 00 401352'
L.44: MOVEI AC0,P.AAS ; MESSAGE,P.AAS 401273' 201 00 0 00 400525'
JRST L.68 ; L.68 401274' 254 00 0 00 401352'
L.45: MOVEI AC0,P.AAT ; MESSAGE,P.AAT 401275' 201 00 0 00 400543'
JRST L.68 ; L.68 401276' 254 00 0 00 401352'
L.46: MOVEI AC0,P.AAU ; MESSAGE,P.AAU 401277' 201 00 0 00 400561'
JRST L.68 ; L.68 401300' 254 00 0 00 401352'
L.47: MOVEI AC0,P.AAV ; MESSAGE,P.AAV 401301' 201 00 0 00 400573'
JRST L.68 ; L.68 401302' 254 00 0 00 401352'
L.48: MOVEI AC0,P.AAW ; MESSAGE,P.AAW 401303' 201 00 0 00 400605'
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 31
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (7)
JRST L.68 ; L.68 401304' 254 00 0 00 401352'
L.49: MOVEI AC0,P.AAX ; MESSAGE,P.AAX 401305' 201 00 0 00 400612'
JRST L.68 ; L.68 401306' 254 00 0 00 401352'
L.50: MOVEI AC0,P.AAY ; MESSAGE,P.AAY 401307' 201 00 0 00 400627'
JRST L.68 ; L.68 401310' 254 00 0 00 401352'
L.51: MOVEI AC0,P.AAZ ; MESSAGE,P.AAZ 401311' 201 00 0 00 400643'
JRST L.68 ; L.68 401312' 254 00 0 00 401352'
L.52: MOVEI AC0,P.ABA ; MESSAGE,P.ABA 401313' 201 00 0 00 400652'
JRST L.68 ; L.68 401314' 254 00 0 00 401352'
L.53: MOVEI AC0,P.ABB ; MESSAGE,P.ABB 401315' 201 00 0 00 400663'
JRST L.68 ; L.68 401316' 254 00 0 00 401352'
L.54: MOVEI AC0,P.ABC ; MESSAGE,P.ABC 401317' 201 00 0 00 400676'
JRST L.68 ; L.68 401320' 254 00 0 00 401352'
L.55: MOVEI AC0,P.ABD ; MESSAGE,P.ABD 401321' 201 00 0 00 400715'
JRST L.68 ; L.68 401322' 254 00 0 00 401352'
L.56: MOVEI AC0,P.ABE ; MESSAGE,P.ABE 401323' 201 00 0 00 400730'
JRST L.68 ; L.68 401324' 254 00 0 00 401352'
L.57: MOVEI AC0,P.ABF ; MESSAGE,P.ABF 401325' 201 00 0 00 400744'
JRST L.68 ; L.68 401326' 254 00 0 00 401352'
L.58: MOVEI AC0,P.ABG ; MESSAGE,P.ABG 401327' 201 00 0 00 400763'
JRST L.68 ; L.68 401330' 254 00 0 00 401352'
L.59: MOVEI AC0,P.ABH ; MESSAGE,P.ABH 401331' 201 00 0 00 401001'
JRST L.68 ; L.68 401332' 254 00 0 00 401352'
L.60: MOVEI AC0,P.ABI ; MESSAGE,P.ABI 401333' 201 00 0 00 401013'
JRST L.68 ; L.68 401334' 254 00 0 00 401352'
L.61: MOVEI AC0,P.ABJ ; MESSAGE,P.ABJ 401335' 201 00 0 00 401030'
JRST L.68 ; L.68 401336' 254 00 0 00 401352'
L.62: MOVEI AC0,P.ABK ; MESSAGE,P.ABK 401337' 201 00 0 00 401045'
JRST L.68 ; L.68 401340' 254 00 0 00 401352'
L.63: MOVEI AC0,P.ABL ; MESSAGE,P.ABL 401341' 201 00 0 00 401064'
JRST L.68 ; L.68 401342' 254 00 0 00 401352'
L.64: MOVEI AC0,P.ABM ; MESSAGE,P.ABM 401343' 201 00 0 00 401072'
JRST L.68 ; L.68 401344' 254 00 0 00 401352'
L.65: MOVEI AC0,P.ABN ; MESSAGE,P.ABN 401345' 201 00 0 00 401100'
JRST L.68 ; L.68 401346' 254 00 0 00 401352'
L.66: MOVEI AC0,P.ABO ; MESSAGE,P.ABO 401347' 201 00 0 00 401106'
JRST L.68 ; L.68 401350' 254 00 0 00 401352'
L.67: MOVEI AC0,P.ABP ; MESSAGE,P.ABP 401351' 201 00 0 00 401115'
L.68: MOVE AC11,-12(SP) ; AC11,CHAN 401352' 200 11 0 17 777766 0601
PUSH SP,AC11 ; SP,AC11 401353' 261 17 0 00 000011
PUSHJ SP,PCRLF ; SP,PCRLF 401354' 260 17 0 00 400000'
MOVEM AC11,0(SP) ; AC11,0(SP) 401355' 202 11 0 17 000000 0602
PUSH SP,AC0 ; SP,MESSAGE 401356' 261 17 0 00 000000
PUSH SP,-12(SP) ; SP,ARG1 401357' 261 17 0 17 777766
PUSH SP,-12(SP) ; SP,ARG2 401360' 261 17 0 17 777766
PUSH SP,-12(SP) ; SP,ARG3 401361' 261 17 0 17 777766
PUSH SP,-12(SP) ; SP,ARG4 401362' 261 17 0 17 777766
PUSH SP,-12(SP) ; SP,ARG5 401363' 261 17 0 17 777766
PUSHJ SP,ERR_OUTSTR ; SP,ERR_OUTSTR 401364' 260 17 0 00 400130'
SOJL AC10,L.70 ; AC10,L.70 401365' 361 10 0 00 401440' 0609
CAIGE AC10,50 ; AC10,50 401366' 305 10 0 00 000050
JRST L.69(AC10) ; L.69(AC10) 401367' 254 00 0 10 401370'
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 32
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (7)
L.69: JRST L.70 ; L.70 401370' 254 00 0 00 401440'
JRST L.70 ; L.70 401371' 254 00 0 00 401440'
JRST L.70 ; L.70 401372' 254 00 0 00 401440'
JRST L.70 ; L.70 401373' 254 00 0 00 401440'
JRST L.70 ; L.70 401374' 254 00 0 00 401440'
JRST L.70 ; L.70 401375' 254 00 0 00 401440'
JRST L.70 ; L.70 401376' 254 00 0 00 401440'
JRST L.70 ; L.70 401377' 254 00 0 00 401440'
JRST L.70 ; L.70 401400' 254 00 0 00 401440'
JRST L.71 ; L.71 401401' 254 00 0 00 401447'
JRST L.71 ; L.71 401402' 254 00 0 00 401447'
JRST L.71 ; L.71 401403' 254 00 0 00 401447'
JRST L.71 ; L.71 401404' 254 00 0 00 401447'
JRST L.70 ; L.70 401405' 254 00 0 00 401440'
JRST L.71 ; L.71 401406' 254 00 0 00 401447'
JRST L.71 ; L.71 401407' 254 00 0 00 401447'
JRST L.71 ; L.71 401410' 254 00 0 00 401447'
JRST L.71 ; L.71 401411' 254 00 0 00 401447'
JRST L.70 ; L.70 401412' 254 00 0 00 401440'
JRST L.71 ; L.71 401413' 254 00 0 00 401447'
JRST L.70 ; L.70 401414' 254 00 0 00 401440'
JRST L.71 ; L.71 401415' 254 00 0 00 401447'
JRST L.71 ; L.71 401416' 254 00 0 00 401447'
JRST L.70 ; L.70 401417' 254 00 0 00 401440'
JRST L.70 ; L.70 401420' 254 00 0 00 401440'
JRST L.70 ; L.70 401421' 254 00 0 00 401440'
JRST L.70 ; L.70 401422' 254 00 0 00 401440'
JRST L.70 ; L.70 401423' 254 00 0 00 401440'
JRST L.70 ; L.70 401424' 254 00 0 00 401440'
JRST L.70 ; L.70 401425' 254 00 0 00 401440'
JRST L.70 ; L.70 401426' 254 00 0 00 401440'
JRST L.71 ; L.71 401427' 254 00 0 00 401447'
JRST L.70 ; L.70 401430' 254 00 0 00 401440'
JRST L.70 ; L.70 401431' 254 00 0 00 401440'
JRST L.70 ; L.70 401432' 254 00 0 00 401440'
JRST L.70 ; L.70 401433' 254 00 0 00 401440'
JRST L.70 ; L.70 401434' 254 00 0 00 401440'
JRST L.70 ; L.70 401435' 254 00 0 00 401440'
JRST L.70 ; L.70 401436' 254 00 0 00 401440'
JRST L.70 ; L.70 401437' 254 00 0 00 401440'
L.70: MOVEM AC11,0(SP) ; AC11,0(SP) 401440' 202 11 0 17 000000 0614
PUSHJ SP,PCRLF ; SP,PCRLF 401441' 260 17 0 00 400000'
MOVEM AC11,0(SP) ; AC11,0(SP) 401442' 202 11 0 17 000000 0615
PUSH SP,C.10 ; SP,[0,,P.ABS] 401443' 261 17 0 00 401454'
PUSHJ SP,OUTSTR ; SP,OUTSTR 401444' 260 17 0 00 400012'
PUSHJ SP,STOP_PROGRAM ; SP,STOP_PROGRAM 401445' 260 17 0 00 000000* 0616
ADJSP SP,-1 ; SP,-1 401446' 105 17 0 00 777777 0613
L.71: ADJSP SP,-7 ; SP,-7 401447' 105 17 0 00 777771 0411
POP SP,AC11 ; SP,AC11 401450' 262 17 0 00 000011 0377
POP SP,AC10 ; SP,AC10 401451' 262 17 0 00 000010
POP SP,AC0 ; SP,AC0 401452' 262 17 0 00 000000
POPJ SP, ; SP, 401453' 263 17 0 00 000000
MSGH 25-Jan-1983 10:16:19 TOPS-20 Bliss-36 2A(142) Page 33
X2.0 1-Jan-1983 14:52:53 NETPKG:<VNP36>MSGH.BLI.7 (7)
C.10: XWD 0,P.ABS ; 0,P.ABS 401454' 000000 401134'
; Routine Size: 197 words
; 0624
; 0625 !
; 0626 END
; 0627
; 0628 ELUDOM
END
; Low segment length: 0 words
; High segment length: 813 words
; 0629 ! Local Modes:
; 0630 ! Comment Start:!
; 0631 ! Mode:Fundamental
; 0632 ! Auto Save Mode:2
; 0633 ! Comment Column:36
; Size: 373 code + 440 data words
; Run Time: 00:08.0
; Elapsed Time: 00:21.2
; Memory Used: 15 pages
; Compilation Complete
ARG 308 335# 349 352 355 359 360 363
ARG1 261 337 377 602
ARG2 261 338 377 602
ARG3 261 339 377 602
ARG4 261 340 377 602
ARG5 261 341 377 602
CHAN 95 125 126 129 172 179 224 234 244 251 257 261
325 332 349 352 355 361 363 377 601 602 614 615
CHAR 162 170# 172 175 215 253# 255# 257 309 318# 320 323
325 328# 330 332 335 343# 345 373
CHPTR 163 166# 170 310 314# 318 328 343
ERRMSG 68 377*
ERRNO 377 425 609
ERR_OUTSTR 67 260* 602
LEN 179 229
LEN1 216 229# 236# 244 250#
MESSAGE 129 166 261 314 414 425# 602
MSGH 2#
OUTNUM 66 179* 244 352 355 361
OUTPUT 92* 125 126 172 234 251 257 325 332
OUTSTR 65 129* 224 349 363 615
PCRLF 64 95* 601 614
QUOTIENT 217 239# 242 244
RADIX 179 221 239 240 244
REMAINDER 218 240# 253
STOP_PROGRAM 93 616
TEMP_ARG 311 359# 360# 361
VAL 219 228# 231 235# 239 240
VALUE 179 228