ibm:ibm1130-lib:dmsr2v12:ncauxsup_lst
NCAUXSUP
| Table Of Contents |
|---|
|
- ncauxsup.lst
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
ibm/ibm1130-lib/dmsr2v12/ncauxsup_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator