ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020
Source File: \ncauxsup.asm
AUXILIARY SUPERVISOR
2 | *************************************************** N0300020
3 | * * N0300030
4 | *STATUS - VERSION 2, MODIFICATION LEVEL 11 * N0300040
5 | * * N0300050
6 | *FUNCTION/OPERATION- * N0300060
7 | * * STORE MONITOR CONTROL RECORDS IN THE * N0300070
8 | * SUPERVISOR BUFFER AND CALL THE SUPERVISOR. * N0300080
9 | * * ABORT A JOB. * N0300090
10 | * * PRINT ERROR MESSAGES FOR THE CORE LOAD * N0300100
11 | * BUILDER. * N0300110
12 | * * N0300120
13 | *ENTRY POINT- * N0300130
14 | * * AS000 ENTERED FROM THE CORE IMAGE LOADER * N0300140
15 | * WHEN A CALL DUMP HAS A NEGATIVE * N0300150
16 | * FORMAT AS FOLLOWS- * N0300160
17 | * BSI L $DUMP * N0300170
18 | * DC -X * N0300180
19 | * WHERE X = 1 STORES A // JOB RECORD. * N0300190
20 | * 2 ABORTS THE JOB. * N0300200
21 | * 3 PRINTS .S 01 XXXXX IS * N0300210
22 | * NOT IN LET/FLET. * N0300220
23 | * 4 PRINTS .S 02 XXXXX IS A * N0300230
24 | * DATA FILE. * N0300240
25 | * 5 STORES A // DUP RECORD. * N0300250
26 | * * N0300260
27 | *INPUT- * N0300270
28 | * * THE FORMAT CODE AS SHOWN ABOVE. * N0300280
29 | * * THE NAME (XXXXX) STORED IN $LKNM IN COMMA * N0300290
30 | * * N0300300
31 | *OUTPUT- * N0300310
32 | * * $CTSW SET -1 TO INDICATE THE PRESENCE OF A * N0300320
33 | * RECORD IN THE SUPERVISOR BUFFER. * N0300330
34 | * * $FLSH SET NON-ZERO TO TELL THE SUPERVISOR * N0300340
35 | * TO ABORT THE JOB. * N0300350
36 | * * A PRINTED ERROR MESSAGE FOR THE CORE LOAD * N0300360
37 | * BUILDER. * N0300370
38 | * * N0300380
39 | *EXTERNAL REFERENCES * N0300390
40 | * * DZ000 SUBROUTINE TO PERFORM DISK I/O. * N0300400
41 | * * SBUFR SUPERVISOR BUFFER. * N0300410
42 | * * IN COMMA- * N0300420
43 | * $CIBA * N0300430
44 | * $CH12 * N0300440
45 | * $CIDN * N0300450
46 | * $DBSY * N0300460
47 | * $DUMP * N0300470
48 | * $EXIT * N0300480
49 | * $HASH * N0300490
50 | * $IBSY * N0300500
51 | * $IBT4 * N0300510
52 | * $IOCT * N0300520
53 | * $NDUP * N0300530
54 | * $NXEQ * N0300540
55 | * $PBSY * N0300550
56 | * $PHSE * N0300560
57 | * $LKNM * N0300570
58 | * $DMPF * N0300580
59 | * * N0300590
60 | *EXITS- * N0300600
61 | * * NORMAL- * N0300610
62 | * BRANCH TO THE MONITOR CONTROL RECORD * N0300620
63 | * ANALYZER BY A CALL EXIT. * N0300630
64 | * * ERROR- * N0300640
65 | * BRANCH TO THE MONITOR CONTROL RECORD * N0300650
66 | * ANALYZER BY A CALL EXIT AFTER PRINTING * N0300660
67 | * .S 00 INVALID FUNCTION CODE. * N0300670
68 | * * N0300680
69 | *TABLES/WORK AREAS- * N0300690
70 | * * PSLET TABLE OF SLET ENTRIES FOR THE * N0300700
71 | * PRINCIPAL PRINT SUBROUTINE WHICH IS * N0300710
72 | * FILLED IN BY THE SYSTEM LOADER. * N0300720
73 | * * TABLE INTERRUPT LEVEL 4 BRANCH ADDRESS * N0300730
74 | * TABLE. * N0300740
75 | * * N0300750
76 | *ATTRIBUTES- N/A * N0300760
77 | * * N0300770
78 | *NOTES- N/A * N0300780
79 | * * N0300790
80 | *************************************************** N0300800
AUXILIARY SUPERVISOR
82 | ABS N0300820
0400 83 | ORG /400 2-3 N0300830
84 | * N0300840
0400 0189 85 | DC ASEND-* AUX SUPERVISOR WORD COUNT N0300850
0401 FF8C 86 | DC -116 AUX SUPERVISOR PHASE ID N0300860
0402 00CA 87 | DC PSLET-*+1 N0300870
0403 0001 88 | DC 1 N0300880
0402 89 | ORG *-2 N0300890
90 | * N0300900
91 | * EXTERNAL EQUATE STATEMENTS N0300910
92 | * N0300920
0005 93 | $CIBA EQU /0005 N0300930
0006 94 | $CH12 EQU /0006 N0300940
01DB 95 | $CIDN EQU /01DB N0300950
000F 96 | $CTSW EQU /000F N0300960
00EE 97 | $DBSY EQU /00EE N0300970
003F 98 | $DUMP EQU /003F N0300980
0038 99 | $EXIT EQU /0038 N0300990
0071 100 | $FLSH EQU /0071 N0301000
0014 101 | $HASH EQU /0014 N0301010
0013 102 | $IBSY EQU /0013 N0301020
00D4 103 | $IBT4 EQU /00D4 N0301030
0032 104 | $IOCT EQU /0032 N0301040
0034 105 | $NDUP EQU /0034 N0301050
0035 106 | $NXEQ EQU /0035 N0301060
0036 107 | $PBSY EQU /0036 N0301070
0078 108 | $PHSE EQU /0078 N0301080
0014 109 | $LKNM EQU $HASH N0301090
0019 110 | $DMPF EQU $HASH+5 N0301100
0007 111 | #HDNG EQU /0007 N0301110
00F2 112 | DZ000 EQU /00F2 N0301120
0FB0 113 | @SBFR EQU /0FB0 N0301130
AUXILIARY SUPERVISOR
0402 1000 115 | AS000 NOP N0301150
0403 6174 116 | LDX 1 116 SET PHASE ID 2-11 N0301160
0404 6D00 0078 117 | STX L1 $PHSE *IN COMMA N0301170
0406 1810 118 | SRA 16 CLEAR N0301180
0407 D400 003F 119 | STO L $DUMP *RETURN ADDRESS N0301190
120 | * N0301200
0409 6580 0019 121 | LDX I1 $DMPF FETCH FUNCTION CODE TO XR1 N0301210
040B 7101 122 | MDX 1 1 INCR FUNC CODE, SKIP IF Z N0301220
040C 7015 123 | MDX AS180 N0301230
124 | * N0301240
125 | * FUNCTION CODE = -1 DUMMY UP // JOB RECORD N0301250
126 | * N0301260
127 | * TWO STATEMENTS REMOVED 2-4 N0301270
040D C400 01DB 128 | AS100 LD L $CIDN FETCH CARTRIDGE ID N0301290
040F 1890 129 | SRT 16 SHIFT TO EXTENSION N0301300
0410 6104 130 | LDX 1 4 CHARACTER COUNT TO XR1 N0301310
0411 1810 131 | AS120 SRA 16 CLEAR ACC (ID A 32-BIT WD) N0301320
0412 A83E 132 | D AS913 DIVIDE OUT A CHARACTER N0301330
0413 18D0 133 | RTE 16 EXC. QUOTIENT AND REMAINDER N0301340
0414 903D 134 | S AS914 TEST FOR AND N0301350
0415 4C08 0419 135 | BSC L AS140,+ *BRANCH IF NUMERIC N0301360
136 | * N0301370
0417 803B 137 | A AS915 CONVERT TO EBCDIC N0301380
0418 7001 138 | MDX AS140+1 N0301390
139 | * N0301400
0419 803A 140 | AS140 A AS916 CONVERT TO EBCDIC N0301410
041A D500 044C 141 | STO L1 AS912-1 STORE TO CARTRIDGE ID AREA N0301420
142 | * N0301430
041C 71FF 143 | MDX 1 -1 DECR CHAR CNT, SKIP IF ZERO N0301440
041D 70F3 144 | MDX AS120 BR TO FETCH NEXT CHARACTER N0301450
145 | * N0301460
041E 6600 045A 146 | LDX L2 AS910 FETCH ADDRESS OF (// JOB) N0301470
0420 4C00 0489 147 | BSC L STORE BRANCH TO STORE TO SBUFR N0301480
148 | * N0301490
0422 7101 149 | AS180 MDX 1 1 INCR FUNC CODE, SKIP IF Z N0301500
0423 7010 150 | MDX AS250 N0301510
151 | * N0301520
152 | * FUNCTION CODE = -2 PREPARE TO ABORT JOB N0301530
153 | * N0301540
0424 0831 154 | AS200 XIO AS920 SENSE INTERRUPT WITH RESET N0301550
0425 4C40 0427 155 | BOSC L * TURN OFF INTERRUPT LEVEL N0301560
0427 C02E 156 | LD AS920 SET N0301570
0428 D400 0071 157 | STO L $FLSH *INDICATOR TO ABORT JOB N0301580
042A 1810 158 | SRA 16 SET N0301590
042B D400 0013 159 | STO L $IBSY *INPUT BUSY INDICATOR, N0301600
042D D400 0032 160 | STO L $IOCT *I/O BUSY INDICATOR AND N0301610
042F D400 0036 161 | STO L $PBSY *PRINT BUSY INDICATOR OFF N0301620
0431 0826 162 | XIO AS925 READ KEY BRD TO TURN OFF2-3 N0301625
0432 4C00 0038 163 | BSC L $EXIT FETCH MON CTRL RCD ANALYZER N0301630
164 | * N0301640
0434 7101 165 | AS250 MDX 1 1 INCR FUNC CODE, SKIP IF Z N0301650
0435 7003 166 | MDX AS350 N0301660
167 | * N0301670
168 | * FUNCTION CODE = -3 PROGRAM NOT IN LET/FLET N0301680
169 | * N0301690
0436 6201 170 | AS300 LDX 2 1 POINT TO ERROR MESSAGE N0301700
0437 4C00 04B5 171 | BSC L PRINT BRANCH TO PRINT THE MESSAGE N0301710
172 | * N0301720
0439 7101 173 | AS350 MDX 1 1 INCR FUNC CODE, SKIP IF Z N0301730
043A 7003 174 | MDX AS450 N0301740
175 | * N0301750
176 | * FUNCTION CODE = -4 NAME IS A DATA FILE N0301760
177 | * N0301770
043B 6202 178 | AS400 LDX 2 2 POINT TO ERROR MESSAGE N0301780
043C 4C00 04B5 179 | BSC L PRINT BRANCH TO PRINT THE MESSAGE N0301790
180 | * N0301800
043E 7101 181 | AS450 MDX 1 1 INCR FUNC CODE, SKIP IF Z N0301810
043F 7004 182 | MDX AS550 N0301820
183 | * N0301830
184 | * FUNCTION CODE = -5 DUMMY UP // DUP RECORD N0301840
185 | * N0301850
0440 6600 0466 186 | AS500 LDX L2 AS950 FETCH ADDRESS OF (// DUP) N0301860
0442 4C00 0489 187 | BSC L STORE BRANCH TO STORE TO SBUFR N0301870
188 | * 2-2 N0301871
0444 7101 189 | AS550 MDX 1 1 INCR FUNC CODE, SKIP IF 2-2 N0301872
0445 7004 190 | MDX ASERR 2-2 N0301873
191 | * 2-2 N0301874
192 | * FUNCTION CODE = -6 DUMMY UP // XEQ MODIF2-2 N0301875
193 | * 2-2 N0301876
0446 6600 0472 194 | AS600 LDX L2 AS960 FETCH ADDR OF (// XEQ MO2-2 N0301877
0448 4C00 0489 195 | BSC L STORE BRANCH TO STORE TO SBUFR2-2 N0301878
196 | * N0301880
197 | * INVALID FUNCTION CODE N0301890
198 | * N0301900
044A 6200 199 | ASERR LDX 2 0 POINT TO ERROR MESSAGE N0301910
044B 4C00 04B5 200 | BSC L PRINT BRANCH TO PRINT THE MESSAGE N0301920
201 | * N0301930
202 | * CONSTANTS AND WORK AREA N0301940
203 | * N0301950
044D 0040 204 | AS912 DC /0040 X 16 TO THE 3 POWER N0301970
044E 0040 205 | DC /0040 X 16 TO THE 2 POWER N0301980
044F 0040 206 | DC /0040 X 16 TO THE 1 POWER N0301990
0450 0040 207 | DC /0040 X 16 TO THE 0 POWER N0302000
0451 0010 208 | AS913 DC 16 CONSTANT SIXTEEN N0302010
0452 0009 209 | AS914 DC /0009 TEST FOR ALPHA OR NUMERIC N0302020
0453 00C0 210 | AS915 DC /00C0 ALPHABETIC TO EBCDIC MASK N0302030
0454 00F9 211 | AS916 DC /00F9 NUMERIC TO EBCDIC MASK N0302040
0456 212 | BSS E 0 N0302050
0456 0457 213 | AS920 DC * NON-ZERO N0302060
0457 0F01 214 | DC /0F01 SENSE WITH RESET IOCC N0302070
0458 0456 215 | AS925 DC AS920 READ IOCC 2-3 N0302074
0459 0A00 216 | DC /0A00 *FOR KEY BOARD 2-3 N0302076
217 | * N0302080
218 | * UNPACKED EBCDIC CONTROL NAMES N0302090
219 | * N0302100
045A 0061 220 | AS910 DC /0061 // JOB N0302110
045B 0061 221 | DC /0061 N0302120
045C 0040 222 | DC /0040 N0302130
045D 00D1 223 | DC /00D1 N0302140
045E 00D6 224 | DC /00D6 N0302150
045F 00C2 225 | DC /00C2 N0302160
0460 0040 226 | DC /0040 2-2 N0302161
0461 0040 227 | DC /0040 2-2 N0302162
0462 0040 228 | DC /0040 2-2 N0302163
0463 0040 229 | DC /0040 2-2 N0302164
0464 0040 230 | DC /0040 2-2 N0302165
0465 0040 231 | DC /0040 2-2 N0302166
0466 0061 232 | AS950 DC /0061 // DUP N0302170
0467 0061 233 | DC /0061 N0302180
0468 0040 234 | DC /0040 N0302190
0469 00C4 235 | DC /00C4 N0302200
046A 00E4 236 | DC /00E4 N0302210
046B 00D7 237 | DC /00D7 N0302220
046C 0040 238 | DC /0040 2-2 N0302221
046D 0040 239 | DC /0040 2-2 N0302222
046E 0040 240 | DC /0040 2-2 N0302223
046F 0040 241 | DC /0040 2-2 N0302224
0470 0040 242 | DC /0040 2-2 N0302225
0471 0040 243 | DC /0040 2-2 N0302226
0472 0061 244 | AS960 DC /0061 // XEQ MODIF 2-2 N0302227
0473 0061 245 | DC /0061 2-2 N0302228
0474 0040 246 | DC /0040 2-2 N0302229
0475 00E7 247 | DC /00E7 2-2 N0302230
0476 00C5 248 | DC /00C5 2-2 N0302231
0477 00D8 249 | DC /00D8 2-2 N0302232
0478 0040 250 | DC /0040 2-2 N0302233
0479 00D4 251 | DC /00D4 2-2 N0302234
047A 00D6 252 | DC /00D6 2-2 N0302235
047B 00C4 253 | DC /00C4 2-2 N0302236
047C 00C9 254 | DC /00C9 2-2 N0302237
047D 00C6 255 | DC /00C6 2-2 N0302238
256 | * 2-2 N0302239
257 | * N0302240
047E 258 | BSS 11 PATCH AREA N0302250
259 | * N0302260
260 | * N0302270
AUXILLIARY SUPERVISOR
262 | * N0302290
263 | * STORE AN UNPACKED EBCDIC MONITOR CONTROL N0302300
264 | * NAME TO THE SUPERVISOR BUFFER N0302310
265 | * N0302320
0489 720C 266 | STORE MDX 2 12 INCREMENT AND N0302330
048A 6A02 267 | STX 2 AS700+1 *STORE FETCH ADDRESS N0302340
268 | * N0302350
048B 61F4 269 | LDX 1 -12 WORD COUNT TO XR1 N0302360
048C C500 0000 270 | AS700 LD L1 *-* FETCH AND STORE CONTROL N0302370
048E D500 0FBC 271 | STO L1 @SBFR+12 *NAME TO SUPERVISOR BUFFER N0302380
0490 7101 272 | MDX 1 1 INCR WORD CNT, SKIP IF ZERO N0302390
0491 70FA 273 | MDX AS700 N0302400
274 | * N0302410
0492 61BC 275 | LDX 1 -68 WORD COUNT TO XR1 N0302420
0493 C014 276 | LD AS970 FETCH AND STORE BLANKS N0302430
0494 D500 1000 277 | AS720 STO L1 @SBFR+80 *TO SUPERVISOR BUFFER N0302440
0496 7101 278 | MDX 1 1 INCR WORD CNT, SKIP IF ZERO N0302450
0497 70FC 279 | MDX AS720 N0302460
280 | * 2-2 N0302462
0498 6580 0019 281 | LDX I1 $DMPF FETCH FUNCTION CODE TO X2-2 N0302464
049A 7101 282 | MDX 1 1 TEST FOR AND 2-2 N0302466
049B 7007 283 | MDX AS750 *BRANCH IF NOT EQUAL TO 2-2 N0302468
284 | * N0302470
049C 61FC 285 | LDX 1 -4 WORD COUNT TO XR1 N0302480
049D C500 0451 286 | AS740 LD L1 AS912+4 FETCH AND STORE CARTRIDGE N0302490
049F D500 0FBE 287 | STO L1 @SBFR+14 *ID (OR BLANKS) TO @SBFR N0302500
04A1 7101 288 | MDX 1 1 INCR WORD CNT, SKIP IF ZERO N0302510
04A2 70FA 289 | MDX AS740 N0302520
290 | * N0302530
04A3 C005 291 | AS750 LD AS971 INDICATE PRESENCE OF N0302540
04A4 D400 000F 292 | STO L $CTSW *RECORD IN @SBFR TO MCRA N0302550
04A6 4C00 0038 293 | BSC L $EXIT FETCH MON CTRL RCD ANALYZER N0302560
294 | * N0302570
295 | * CONSTANTS N0302580
296 | * N0302590
04A8 0040 297 | AS970 DC /0040 UNPACKED EBCDIC BLANK N0302600
04A9 FFFF 298 | AS971 DC -1 NEGATIVE NUMBER N0302610
299 | * N0302620
300 | * N0302630
04AA 301 | BSS 11 PATCH AREA N0302640
302 | * N0302650
303 | * N0302660
AUXILLIARY SUPERVISOR
305 | * N0302680
306 | * PRINT ERROR MESSAGES N0302690
307 | * N0302700
04B5 1000 308 | PRINT NOP N0302710
309 | * N0302720
310 | * FETCH THE PRINCIPAL PRINT SUBROUTINE N0302730
311 | * N0302740
04B6 C817 312 | LDD PSLET+2 FETCH AND STORE WORD COUNT N0302750
04B7 DC80 04D9 313 | STD I PADDR *AND SCTR ADDR TO I/O AREA N0302760
04B9 C01F 314 | LD PADDR FETCH ADDRESS OF I/O AREA N0302770
04BA 1890 315 | SRT 16 SHIFT TO EXT, ACC = 0 N0302780
04BB 4400 00F2 316 | BSI L DZ000 BRANCH TO DISK READ N0302790
04BD 7400 00EE 317 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE N0302800
04BF 70FD 318 | MDX *-3 BR TO TEST READ COMPLETE N0302810
319 | * N0302820
04C0 C018 320 | LD PADDR SET UP N0302830
04C1 8400 054E 321 | A L AS988 *INTERRUPT ENTRY N0302840
04C3 D010 322 | STO TABLE+4 *AND STORE TO N0302850
04C4 D012 323 | STO TABLE+7 *ILS04 BRANCH TABLE N0302860
04C5 D400 0009 324 | STO L 9 *AND LEVEL 1 BRANCH ADDRESS N0302870
325 | * N0302880
04C7 6500 04CF 326 | LDX L1 TABLE-1 STORE ADDRESS OF INTERRUPT N0302890
04C9 6D00 00D4 327 | STX L1 $IBT4 *BR TABLE TO ILS04 SUBR N0302900
04CB 700F 328 | MDX AS800 N0302910
329 | * N0302920
330 | * SLET FOR PRINCIPAL PRINT SUBROUTINE N0302930
331 | * N0302940
04CC 332 | BSS E 0 N0302950
04CC 0099 333 | PSLET DC 153 PHASE ID N0302960
04CD 0000 334 | DC *-* CORE ADDRESS N0302970
04CE 0000 335 | DC *-* WORD COUNT N0302980
04CF 0000 336 | DC *-* SECTOR ADDRESS N0302990
04D0 337 | TABLE BSS 3 RESERVED N0303000
04D3 0000 338 | DC *-* 1231 OPT. MARK PAGE READER N0303010
04D4 0000 339 | DC *-* 1403 PRINTER N0303020
04D5 0000 340 | DC *-* 2501 CARD READER N0303030
04D6 0000 341 | DC *-* 1442 CARD READER/PUNCH N0303040
04D7 0000 342 | DC *-* KEYBOARD/CONSOLE PRINTER N0303050
04D8 0000 343 | DC *-* 1134/1055 P/T READER-PUNCH N0303060
04D9 058A 344 | PADDR DC ASEND ADDRESS OF PRIN PRINT SUBR N0303070
04DA 058D 345 | PRNT DC ASEND+3 ENTRY TO PRIN PRINT SUBR N0303080
346 | * N0303090
347 | * CONVERT NAME TO FIVE EBCDIC CHARACTERS N0303100
348 | * N0303110
04DB 7200 349 | AS800 MDX 2 0 SKIP NEXT IF XR2 EQUAL ZERO N0303120
04DC 7001 350 | MDX *+1 N0303130
04DD 7038 351 | MDX AS840 BR AS NO NAME TO CONVERT N0303140
352 | * N0303150
04DE C600 0550 353 | LD L2 AS989 FETCH AND STORE N0303160
04E0 D001 354 | STO AS820+1 *ADDRESS OF MESSAGE N0303170
04E1 6500 0000 355 | AS820 LDX L1 *-* *TO BE PICKED UP BY XR1 N0303180
356 | * N0303190
04E3 CC00 0014 357 | LDD L $LKNM FETCH NAME N0303200
04E5 D828 358 | STD AS980 N0303210
04E6 1002 359 | SLA 2 N0303220
04E7 1802 360 | SRA 2 N0303230
04E8 1888 361 | SRT 8 N0303240
04E9 4018 362 | BSI AS830 N0303250
04EA D103 363 | STO 1 3 STORE FIRST CHARACTER N0303260
04EB 180A 364 | SRA 10 N0303270
04EC 1086 365 | SLT 6 N0303280
04ED 4014 366 | BSI AS830 N0303290
04EE 1008 367 | SLA 8 N0303300
04EF D020 368 | STO AS981 N0303310
04F0 1002 369 | SLA 2 N0303320
04F1 1086 370 | SLT 6 N0303330
04F2 400F 371 | BSI AS830 N0303340
04F3 E81C 372 | OR AS981 N0303350
04F4 D104 373 | STO 1 4 STORE SECOND AND THIRD CHAR N0303360
04F5 C818 374 | LDD AS980 N0303370
04F6 1084 375 | SLT 4 N0303380
04F7 1810 376 | SRA 16 N0303390
04F8 1086 377 | SLT 6 N0303400
04F9 4008 378 | BSI AS830 N0303410
04FA 1008 379 | SLA 8 N0303420
04FB D014 380 | STO AS981 N0303430
04FC 1002 381 | SLA 2 N0303440
04FD 1086 382 | SLT 6 N0303450
04FE 4003 383 | BSI AS830 N0303460
04FF E810 384 | OR AS981 N0303470
0500 D105 385 | STO 1 5 STORE FORTH AND FIFTH CHAR N0303480
0501 7014 386 | MDX AS840 N0303490
387 | * N0303500
388 | * CONVERT A CHARACTER TO EBCDIC N0303510
389 | * N0303520
0502 0000 390 | AS830 DC *-* ENTRY/RETURN ADDRESS N0303530
0503 D00D 391 | STO AS981+1 SAVE THE CHARACTER N0303540
0504 E00E 392 | AND AS982+1 MASK OUT BITS 0 - 11 N0303550
0505 900C 393 | S AS982 TEST FOR AND BRANCH IF N0303560
0506 4C28 050A 394 | BSC L AS835,Z+ *NOT A SPECIAL CHARACTER N0303570
0508 C00B 395 | LD AS982+2 FETCH MASK N0303580
0509 7001 396 | MDX AS835+1 N0303590
050A C00A 397 | AS835 LD AS982+3 FETCH MASK N0303600
050B E805 398 | OR AS981+1 MASK IN THE CHARACTER N0303610
050C 4C80 0502 399 | BSC I AS830 RETURN N0303620
400 | * N0303630
401 | * CONSTANTS AND WORK AREA N0303640
402 | * N0303650
050E 0000 0000 403 | AS980 DEC 0.0 SAVE FOR NAME N0303660
0510 0000 404 | AS981 DC *-* TEMPORARY STORAGE N0303670
0511 0000 405 | DC *-* TEMPORARY STORAGE N0303680
0512 000A 406 | AS982 DC /000A MASK N0303690
0513 000F 407 | DC /000F MASK N0303700
0514 0040 408 | DC /0040 MASK FOR SPECIAL CHARACTERS N0303710
0515 00C0 409 | DC /00C0 MASK FOR ALPHA-NUMERIC CHAR N0303720
410 | * N0303730
411 | * PRINT THE MESSAGE N0303740
412 | * N0303750
0516 C480 0006 413 | AS840 LD I $CH12 FETCH CHANNEL 12 INDICATOR N0303760
0518 4C18 052A 414 | BSC L AS850,+- BRANCH IF ZERO 2-3 N0303770
415 | * N0303780
416 | * RESTORE PAGE AND PRINT HEADING N0303790
417 | * N0303800
051A C016 418 | LD AS984 FETCH ADDR OF DISK I/O AREA N0303810
051B 1890 419 | SRT 16 SHIFT TO EXT, ACC = O N0303820
051C 4400 00F2 420 | BSI L DZ000 BRANCH TO DISK READ 2-5 N0303830
051E 7400 00EE 421 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE N0303840
0520 70FD 422 | MDX *-3 BR TO TEST READ COMPLETE N0303850
423 | * N0303860
0521 C012 424 | LD AS986 MOVE WORD COUNT N0303870
0522 D012 425 | STO AS986+1 *FOR PRINT BUFFER N0303880
0523 C00E 426 | LD AS985 FETCH ADDR OF PRINT BUFFER N0303890
0524 1890 427 | SRT 16 SHIFT TO EXTENSION N0303900
0525 C008 428 | LD AS983 FETCH RESTORE PAGE CODE N0303910
0526 4480 04DA 429 | BSI I PRNT BRANCH TO RESTORE PAGE N0303920
0528 4480 04DA 430 | BSI I PRNT BRANCH TO PRINT HEADING N0303930
052A C005 431 | AS850 LD AS983+2 FETCH SPACE ONE LINE CODE N0303940
052B 4480 04DA 432 | BSI I PRNT BRANCH TO SPACE ONE LINE N0303950
052D 7012 433 | MDX AS860 N0303960
434 | * N0303970
435 | * CONSTANTS AND WORK AREA N0303980
436 | * N0303990
052E 7000 437 | AS983 DC /7000 RESTORE PAGE FUNCTION CODE N0304000
052F 7001 438 | DC /7001 PRINT FUNCTION CODE N0304010
0530 7002 439 | DC /7002 SPACE ONE LINE FUNC CODE N0304020
0531 0534 440 | AS984 DC AS986 ADDRESS OF DISK I/O AREA N0304030
0532 0535 441 | AS985 DC AS986+1 ADDRESS OF PRINT BUFFER N0304040
0534 442 | BSS E 0 N0304050
0534 000A 443 | AS986 DC 10 WORD COUNT N0304060
0535 0007 444 | DC #HDNG SECTOR ADDRESS N0304070
0536 445 | BSS 10 HEADING BUFFER N0304080
446 | * N0304090
447 | * PRINT THE ERROR MESSAGE N0304100
448 | * N0304110
0540 C600 0550 449 | AS860 LD L2 AS989 FETCH ADDRESS OF MESSAGE N0304120
0542 1890 450 | SRT 16 SHIFT TO EXTENSION N0304130
0543 C0EB 451 | LD AS983+1 FETCH PRINT FUNCTION CODE N0304140
0544 4480 04DA 452 | BSI I PRNT BRANCH TO PRINT THE MESSAGE N0304150
0546 7400 0036 453 | MDX L $PBSY,0 SKIP NEXT IF PRINT COMPLETE N0304160
0548 70FD 454 | MDX *-3 BR TO TEST PRINT COMPLETE N0304170
455 | * N0304180
0549 C004 456 | LD AS988 N0304190
054A D400 0035 457 | STO L $NXEQ SET DO-NOT-EXECUTE SWITCH N0304200
054C 4C00 0038 458 | BSC L $EXIT FETCH MON CTRL RCD ANALYZER N0304210
459 | * N0304220
460 | * CONSTANTS AND WORK AREA N0304230
461 | * N0304240
054E 0006 462 | AS988 DC 6 CONSTANT SIX N0304250
463 | * N0304260
464 | * ADDRESSES OF ERROR MESSAGES N0304270
465 | * N0304280
0550 466 | BSS E 0 N0304290
0550 0553 467 | AS989 DC AS990 ADDRESS OF S 00 N0304300
0551 0561 468 | DC AS991 ADDRESS OF S 01 N0304310
0552 0571 469 | DC AS992 ADDRESS OF S 02 N0304320
470 | * N0304330
471 | * ERROR MESSAGES N0304340
472 | * N0304350
0553 000D 473 | AS990 DC 13 S00 WORD COUNT N0304360
0554 E240 F0F0 40C9 D5E5 474 | EBC .S 00 INVALID FUNCTION CODE. N0304370
C1D3 C9C4 40C6 E4D5 |
C3E3 C9D6 D540 C3D6 |
C4C5 |
0561 000F 475 | AS991 DC 15 S 01 WORD COUNT N0304380
0562 E240 F0F1 40E7 E7E7 476 | EBC .S 01 XXXXX IS NOT IN LET/FLET . N0304390
E7E7 40C9 E240 D5D6 |
E340 C9D5 40D3 C5E3 |
61C6 D3C5 E340 |
0571 000D 477 | AS992 DC 13 S 02 WORD COUNT N0304400
0572 E240 F0F2 40E7 E7E7 478 | EBC .S 02 XXXXX IS A DATA FILE . N0304410
E7E7 40C9 E240 C140 |
C4C1 E3C1 40C6 C9D3 |
C540 |
479 | * N0304420
480 | * N0304430
0580 481 | BSS E 10 PATCH AREA N0304440
482 | * N0304450
483 | * N0304460
058A 484 | BSS E 0 N0304470
058A 7777 485 | ASEND DC /7777 N0304480
058B 486 | END AS000 N0304490
There were no errors in this assembly
Program transfer address = 0402
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
#HDNG 0007 111 444
$CH12 0006 94 413
$CIBA 0005 93
$CIDN 01DB 95 128
$CTSW 000F 96 292
$DBSY 00EE 97 317 421
$DMPF 0019 110 121 281
$DUMP 003F 98 119
$EXIT 0038 99 163 293 458
$FLSH 0071 100 157
$HASH 0014 101 109 110
$IBSY 0013 102 159
$IBT4 00D4 103 327
$IOCT 0032 104 160
$LKNM 0014 109 357
$NDUP 0034 105
$NXEQ 0035 106 457
$PBSY 0036 107 161 453
$PHSE 0078 108 117
'SBFR 0FB0 113 271 277 287
AS000 0402 115 486
AS100 040D 128
AS120 0411 131 144
AS140 0419 140 135 138
AS180 0422 149 123
AS200 0424 154
AS250 0434 165 150
AS300 0436 170
AS350 0439 173 166
AS400 043B 178
AS450 043E 181 174
AS500 0440 186
AS550 0444 189 182
AS600 0446 194
AS700 048C 270 267 273
AS720 0494 277 279
AS740 049D 286 289
AS750 04A3 291 283
AS800 04DB 349 328
AS820 04E1 355 354
AS830 0502 390 362 366 371 378 383 399
AS835 050A 397 394 396
AS840 0516 413 351 386
AS850 052A 431 414
AS860 0540 449 433
AS910 045A 220 146
AS912 044D 204 141 286
AS913 0451 208 132
AS914 0452 209 134
AS915 0453 210 137
AS916 0454 211 140
AS920 0456 213 154 156 215
AS925 0458 215 162
AS950 0466 232 186
AS960 0472 244 194
AS970 04A8 297 276
AS971 04A9 298 291
AS980 050E 403 358 374
AS981 0510 404 368 372 380 384 391 398
AS982 0512 406 392 393 395 397
AS983 052E 437 428 431 451
AS984 0531 440 418
AS985 0532 441 426
AS986 0534 443 424 425 440 441
AS988 054E 462 321 456
AS989 0550 467 353 449
AS990 0553 473 467
AS991 0561 475 468
AS992 0571 477 469
ASEND 058A 485 85 344 345
ASERR 044A 199 190
DZ000 00F2 112 316 420
PADDR 04D9 344 313 314 320
PRINT 04B5 308 171 179 200
PRNT 04DA 345 429 430 432 452
PSLET 04CC 333 87 312
STORE 0489 266 147 187 195
TABLE 04D0 337 322 323 326