ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020 Source File: \nbsysdmp.asm SYSTEM CORE DUMP 2 | *************************************************** N0200020 3 | * * N0200030 4 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * N0200040 5 | * * N0200050 6 | *FUNCTION/OPERATION- * N0200060 7 | * *DUMP CORE BETWEEN LIMITS OR IN ITS ENTIRITY * N0200070 8 | * TO THE PRINCIPAL PRINT DEVICE. * N0200080 9 | * * N0200090 10 | * *RESTORE CORE FROM THE CIB AND RETURN TO THE * N0200100 11 | * CALLING PROGRAM. * N0200110 12 | * * N0200120 13 | *ENTRY POINTS- * N0200130 14 | * SD000 ENTERED VIA THE RESIDENT MONITOR BY A * N0200140 15 | * CALL $DUMP. * N0200150 16 | * * N0200160 17 | *INPUT- * N0200170 18 | * ARGUMENTS MAY BE PROVIDED AS FOLLOWS * N0200180 19 | * BSI L DUMP * N0200190 20 | * DC FORMAT CODE * N0200200 21 | * DC LOWER LIMIT * N0200210 22 | * DC UPPER LIMIT * N0200220 23 | * * N0200230 24 | *OUTPUT- * N0200240 25 | * THE FOLLOWING ARE PRINTED VIA THE PRINCIPAL * N0200250 26 | * PRINT DEVICE * N0200260 27 | * *THE CONTENTS OF THE ACCUMULATOR, EXTENSION, * N0200270 28 | * INDEX REGISTERS 1, 2 AND 3, CARRY AND * N0200280 29 | * OVERFLOW. * N0200290 30 | * * N0200300 31 | * *ENTIRE CONTENTS OF CORE OR THE CONTENTS OF * N0200310 32 | * CORE BETWEEN GIVEN LIMITS. * N0200320 33 | * * N0200330 34 | *EXTERNAL SUBROUTINES- * N0200340 35 | * DSKIO DISK SUBROUTINE CURRENTLY IN CORE * N0200350 36 | * (DISKZ, DISK1, DISKN) USED TO PERFORM * N0200360 37 | * DISK I/O. * N0200370 38 | * * N0200380 39 | *EXTERNAL REFERENCES- (ALL IN COMMA) * N0200390 40 | * $ACEX * N0200400 41 | * $CH12 * N0200410 42 | * $CIBA * N0200420 43 | * $CILA * N0200430 44 | * $CORE * N0200440 45 | * $DBSY * N0200450 46 | * $DUMP * N0200460 47 | * $EXIT * N0200470 48 | * $HASH * N0200480 49 | * $IBY4 * N0200490 50 | * $IREQ 2-6* N0200492 51 | * $LEV1 2-8* N0200493 52 | * $LEV2 2-6* N0200494 53 | * $LEV4 2-6* N0200496 54 | * $LEV5 2-9* N0200498 55 | * $PBSY * N0200500 56 | * $PGCT * N0200510 57 | * $PHSE * N0200520 58 | * $SSTS 2-6* N0200525 59 | * * N0200530 60 | *EXITS- NORMAL * N0200540 61 | * *WHEN A RETURN ADDRESS HAS BEEN PLACED IN * N0200550 62 | * $DUMP CORE IS RESTORED FROM THE CIB AND A * N0200560 63 | * TRANSFER IS MADE TO THE CALLING PROGRAM. * N0200570 64 | * * N0200580 65 | * *WHEN NO RETURN ADDRESS HAS BEEN PROVIDED A * N0200590 66 | * TRANSFER IS MADE TO EXIT. * N0200600 67 | * * N0200610 68 | *EXITS- ERROR NONE * N0200620 69 | * * N0200630 70 | *TABLES/WORK AREA- * N0200640 71 | * *CORE LOCATIONS 2560 - 4095 ARE USED AS A * N0200650 72 | * BUFFER INTO WHICH THE CIB IS READ AND FROM * N0200660 73 | * WHICH IT IS PRINTED. THIS OPERATION IS * N0200670 74 | * PERFORMED IN THREE BLOCKS. * N0200680 75 | * * N0200690 76 | * *THE $HASH AREA IN COMMA IS STORED WITH THE * N0200700 77 | * LAST 15 WORDS OF THE DUMP IN ORDER TO * N0200710 78 | * COMPLETE THE DUMP AS CORE IS BEING RESTORED.* N0200720 79 | * * N0200730 80 | *ATTRIBUTES- NONE * N0200740 81 | * * N0200750 82 | *NOTES- NONE * N0200760 83 | * * N0200770 84 | *************************************************** N0200780 SYSTEM CORE DUMP 86 | ABS N0200800 0506 87 | ORG /0506 N0200810 88 | * N0200820 89 | * PROVIDE PARAMETERS FOR THE SYSTEM LOADER N0200830 90 | * N0200840 0506 04F8 91 | DC SDEND-* SYSTEM DUMP WORD COUNT N0200850 0507 FF8D 92 | DC -115 SYSTEM DUMP PHASE ID N0200860 0508 0036 93 | DC PSLET-*+1 PRINT SUBROUTINE SLET N0200870 0509 0001 94 | DC 1 N0200880 0508 95 | ORG *-2 N0200890 96 | * N0200900 97 | * EXTERNAL EQUATE STATEMENTS N0200910 98 | * N0200920 001A 99 | $ACEX EQU /001A N0200930 0006 100 | $CH12 EQU /0006 N0200940 0005 101 | $CIBA EQU /0005 N0200950 005A 102 | $CILA EQU /005A N0200960 000E 103 | $CORE EQU /000E N0200970 00EE 104 | $DBSY EQU /00EE N0200980 003F 105 | $DUMP EQU /003F N0200990 0038 106 | $EXIT EQU /0038 N0201000 0014 107 | $HASH EQU /0014 N0201010 00D4 108 | $IBT4 EQU /00D4 N0201020 002C 109 | $IREQ EQU /002C 2-6 N0201022 0009 110 | $LEV1 EQU /0009 2-8 N0201023 000A 111 | $LEV2 EQU /000A 2-6 N0201024 000B 112 | $LEV3 EQU /000B 2-11 N0201025 000C 113 | $LEV4 EQU /000C 2-6 N0201026 000D 114 | $LEV5 EQU /000D 2-9 N0201028 0036 115 | $PBSY EQU /0036 N0201030 0037 116 | $PGCT EQU /0037 N0201040 0078 117 | $PHSE EQU /0078 N0201050 006D 118 | $SSTS EQU /006D 2-7 N0201055 0007 119 | #HDNG EQU /0007 N0201060 0140 120 | @SCTR EQU /0140 2-4 N0201065 121 | * N0201070 00F2 122 | DSKIO EQU /00F2 N0201080 03C9 123 | PRINT EQU /03C9 N0201090 SYSTEM CORE DUMP 0508 1000 125 | SD000 NOP PERMIT BSC AND BSI ENTRY N0201110 0509 CC00 001A 126 | LDD L $ACEX FETCH ACC AND EXT N0201120 050B DC00 08CC 127 | STD L SD350 SAVE ACC AND EXT N0201130 050D DC00 05F2 128 | STD L SD900 SAVE ACC AND EXT N0201140 129 | * SAVE NEW 2-6 N0201150 050F C400 006D 130 | LD L $SSTS *STATUS 2-6 N0201156 0511 D400 05C5 131 | STO L SD055 *FROM 2-6 N0201158 0513 D400 08C1 132 | STO L SD340 *RESIDENT MONITOR 2-6 N0201160 0515 6D00 05F4 133 | STX L1 SD900+2 SAVE XR1 N0201170 0517 6E00 05F5 134 | STX L2 SD900+3 SAVE XR2 N0201180 0519 6F00 05F6 135 | STX L3 SD900+4 SAVE XR3 N0201190 051B 6173 136 | LDX 1 115 STORE PHASE ID 2-11 N0201200 051C 6D00 0078 137 | STX L1 $PHSE *OF DUMP IN COMMA N0201210 138 | * N0201220 139 | * FETCH THE PRINT SUBROUTINE FROM THE DISK N0201230 140 | * N0201240 051E 6580 000E 141 | LDX I1 $CORE CORE SIZE TO XR1 N0201250 0520 71FF 142 | MDX 1 -1 DECREMENT N0201260 0521 1000 143 | NOP N0201270 0522 6D00 060C 144 | STX L1 SD911 STORE AS HI CORE ADDRESS N0201280 145 | * N0201290 0524 6600 03C9 146 | LDX L2 PRINT PRINT SUBR ENTRY TO XR2 N0201300 0526 72FD 147 | MDX 2 -3 DECREMENT ADDRESS BY 3 N0201310 0527 6A17 148 | STX 2 PSLET+1 STORE TO PRINT SUBR SLET N0201320 0528 C817 149 | LDD PSLET+2 FETCH WORD COUNT/SCTR ADDR N0201330 0529 DC80 053F 150 | STD I PSLET+1 STORE TO PRINT SUBR AREA N0201340 052B C013 151 | LD PSLET+1 FETCH PRINT SUBR ADDRESS N0201350 052C 1890 152 | SRT 16 SHIFT TO EXT, ACC = 0 N0201360 052D 4400 00F2 153 | BSI L DSKIO BRANCH TO DISK READ N0201370 052F 7400 00EE 154 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE N0201380 0531 70FD 155 | MDX *-3 BR TO TEST READ COMPLETE N0201390 156 | * N0201400 0532 C00C 157 | LD PSLET+1 FETCH NEW PRINT SUBR ADDR N0201410 0533 8400 0860 158 | A L SD944+1 ADD SIX N0201420 0535 D400 0546 159 | STO L TABLE+4 STORE TO ILS04 BRANCH TABLE N0201430 0537 D400 0009 160 | STO L $LEV1 STORE TO LEVEL 1 BR ADDRESS N0201440 0539 6500 0541 161 | LDX L1 TABLE-1 FETCH ADDR OF ILS04 BRANCH N0201450 053B 6D00 00D4 162 | STX L1 $IBT4 *TABLE AND STORE TO COMMA N0201460 053D 700D 163 | MDX SD005 N0201470 164 | * N0201480 053E 165 | BSS E 0 N0201490 053E 0099 166 | PSLET DC 153 PRINCIPAL PRINT SUBR ID N0201500 053F 0000 167 | DC *-* CORE ADDRESS N0201510 0540 0000 168 | DC *-* WORD COUNT N0201520 0541 0000 169 | DC *-* SECTOR ADDRESS N0201530 170 | * N0201540 171 | * ILS04 BRANCH TABLE N0201550 172 | * N0201560 0542 173 | TABLE BSS 3 RESERVED N0201570 0545 0000 174 | DC *-* 1231 OPT. MARK PAGE READER N0201580 0546 0000 175 | DC *-* 1403 PRINTER N0201590 0547 0000 176 | DC *-* 2501 CARD READER N0201600 0548 0000 177 | DC *-* 1442 CARD READER/PUNCH N0201610 0549 0000 178 | DC *-* KEYBOARD/CONSOLE PRINTER N0201620 054A 0000 179 | DC *-* 1134/1055 P/T READER/PUNCH N0201630 180 | * N0201640 181 | * SAVE FORMAT AND SET DUMP LIMITS N0201650 182 | * N0201660 054B 7400 003F 183 | SD005 MDX L $DUMP,0 SKIP IF NO RETURN ADDRESS N0201670 054D 700A 184 | MDX SD015 BRANCH IF RETURN ADDR GIVEN N0201680 054E 1010 185 | SLA 16 CLEAR ACCUMULATOR N0201690 054F D400 05F7 186 | STO L SD901 SET FORMAT N0201700 0551 D400 05F8 187 | STO L SD902 SET LOWER LIMIT = 0 N0201710 0553 C400 060C 188 | SD010 LD L SD911 FETCH HI CORE ADDRESS N0201720 0555 D400 05F9 189 | STO L SD903 SAVE UPPER LIMIT N0201730 0557 7031 190 | MDX SD035 BRANCH TO CONTINUE N0201740 191 | * N0201750 0558 6680 003F 192 | SD015 LDX I2 $DUMP ADDR OF CALL DUMP+1 TO XR2 N0201760 055A 7600 F001 193 | MDX L2 -4095 SUBTRACT 4095, SKIP IF Z,- N0201770 055C 701F 194 | MDX SD030 BRANCH IF ADDRESS GT 4-K N0201780 195 | * N0201790 055D 6580 0005 196 | LDX I1 $CIBA SECTOR ADDR OF CIB TO XR1 N0201800 055F 6680 003F 197 | LDX I2 $DUMP ADDR OF CALL DUMP+1 TO XR2 N0201810 0561 72FB 198 | MDX 2 -5 ADJUST XR2 N0201820 0562 7600 FEC0 199 | SD020 MDX L2 -320 DECREMENT XR2, SKIP IF 0,- N0201830 0564 7001 200 | MDX *+1 SKIP NEXT INSTRUCTION N0201840 0565 7002 201 | MDX SD025 BRANCH TO READ CIB N0201850 0566 7101 202 | MDX 1 1 INCREMENT SECTOR ADDRESS N0201860 0567 70FA 203 | MDX SD020 BRANCH TO DECREMENT XR2 N0201870 204 | * N0201880 0568 6D00 0A01 205 | SD025 STX L1 2561 STORE XR1 TO BUFFER AREA N0201890 056A 6500 0280 206 | LDX L1 640 FETCH WORD COUNT TO XR1 N0201900 056C 6D00 0A00 207 | STX L1 2560 STORE XR1 TO BUFFER AREA N0201910 056E C400 085D 208 | LD L SD942+1 FETCH ADDR OF BUFFER AREA N0201920 0570 1890 209 | SRT 16 SHIFT TO EXT, ACC = 0 N0201930 0571 4400 00F2 210 | BSI L DSKIO BRANCH TO DISK READ N0201940 0573 7400 00EE 211 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE N0201950 0575 70FD 212 | MDX *-3 N0201960 0576 7600 0140 213 | MDX L2 320 SET XR2 POSITIVE N0201970 0578 1000 214 | NOP N0201980 0579 7600 0A01 215 | MDX L2 2561 ADD ADDRESS OF BUFFER AREA N0201990 057B 7002 216 | MDX *+2 SKIP NEXT INSTRUCTION N0202000 217 | * N0202010 057C 6680 003F 218 | SD030 LDX I2 $DUMP ADDR OF CALL DUMP+1 TO XR2 N0202020 219 | * N0202030 057E C600 0000 220 | LD L2 0 FETCH FORMAT N0202040 0580 D076 221 | STO SD901 SAVE FORMAT N0202050 0581 C600 0001 222 | LD L2 1 FETCH LOWER LIMIT N0202060 0583 D074 223 | STO SD902 SAVE LOWER LIMIT N0202070 0584 C600 0002 224 | LD L2 2 FETCH UPPER LIMIT N0202080 0586 4808 225 | BSC + SKIP IF LIMIT NOT ZERO N0202090 0587 70CB 226 | MDX SD010 BRANCH TO FETCH UPPER LIMIT N0202100 0588 D070 227 | STO SD903 SAVE UPPER LIMIT N0202110 228 | * N0202120 0589 C06E 229 | SD035 LD SD902 FETCH LOWER LIMIT N0202130 058A E400 060C 230 | AND L SD911 SET LOWER LIMIT MODULO HI N0202140 058C D06B 231 | STO SD902 *CORE ADDRESS AND SAVE N0202150 058D C06B 232 | LD SD903 FETCH UPPER LIMIT N0202160 058E E07D 233 | AND SD911 SET UPPER LIMIT MODULO HI N0202170 058F D069 234 | STO SD903 *CORE ADDRESS AND SAVE N0202180 0590 9067 235 | S SD902 SUBTRACT LOWER LIMIT N0202190 0591 4C10 0599 236 | BSC L SD040,- BR IF UP LIMIT GT LO LIMIT N0202200 0593 C065 237 | LD SD903 FETCH UPPER LIMIT N0202210 0594 D400 0684 238 | STO L SD912 SAVE ORIGINAL UPPER LIMIT N0202220 0596 D067 239 | STO SD905+1 SET WRAP-AROUND SWITCH ON N0202230 0597 C074 240 | LD SD911 FETCH HI CORE ADDRESS N0202240 0598 D060 241 | STO SD903 SAVE AS NEW UPPER LIMIT N0202250 242 | * N0202260 243 | * RESTORE PAGE AND PRINT DATE AND PAGE NUMBER N0202270 244 | * N0202280 0599 C400 0687 245 | SD040 LD L SD915 FETCH HEADING SECTOR ADDR N0202290 059B D400 068B 246 | STO L SD920-1 STORE TO I/O AREA N0202300 059D C400 0689 247 | LD L SD919 FETCH I/O AREA ADDRESS N0202310 059F 1890 248 | SRT 16 SHIFT TO EXT, ACC = 0 N0202320 05A0 4400 00F2 249 | BSI L DSKIO BRANCH TO DISK READ N0202330 05A2 7400 00EE 250 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE N0202340 05A4 70FD 251 | MDX *-3 BR TO TEST READ COMPLETE N0202350 05A5 C400 068A 252 | LD L SD920-2 STORE WORD COUNT N0202360 05A7 D400 068B 253 | STO L SD920-1 *TO PRINT AREA N0202370 05A9 C400 0688 254 | LD L SD918 FETCH PRINT AREA ADDRESS N0202380 05AB 1890 255 | SRT 16 SHIFT TO EXTENSION N0202390 05AC C04D 256 | LD SD904 FETCH PAGE RESTORE CODE N0202400 05AD 4400 03C9 257 | BSI L PRINT BRANCH TO RESTORE PAGE N0202410 05AF 4400 03C9 258 | BSI L PRINT BRANCH TO PRINT PAGE NUMBER N0202420 05B1 C04A 259 | LD SD904+2 FETCH SPACE CODE N0202430 05B2 4400 03C9 260 | BSI L PRINT BRANCH TO SPACE ONE LINE N0202440 05B4 4025 261 | BSI SD060 BRANCH TO CLEAR PRINT AREA N0202450 05B5 7400 05FF 262 | MDX L SD905+2,0 SKIP IF FIRST PAGE SW ON N0202460 05B7 702B 263 | MDX SD070 BRANCH TO PRINT HEADING N0202470 264 | * N0202480 265 | * PRINT CONTENTS OF ACCUMULATOR, EXTENSION, N0202490 266 | * XR1, XR2, XR3, OVERFLOW AND CARRY N0202500 267 | * N0202510 05B8 62FB 268 | LDX 2 -5 N0202520 05B9 1010 269 | SD050 SLA 16 N0202530 05BA D042 270 | STO SD905 CLEAR LEFT-RIGHT SWITCH N0202540 05BB C600 0606 271 | LD L2 SD906+5 FETCH PRINT ADDRESS N0202550 05BD D400 07B9 272 | STO L SD933 STORE TO CONVERT SUBROUTINE N0202560 05BF C600 05F7 273 | LD L2 SD900+5 FETCH WORD TO CONVERT N0202570 05C1 4400 0754 274 | BSI L SD150 BR TO CONVERT SUBROUTINE N0202580 05C3 7201 275 | MDX 2 1 INCREMENT XR2, SKIP IF ZERO N0202590 05C4 70F4 276 | MDX SD050 BR TO CONTINUE CONVERTING N0202600 05C5 2000 277 | SD055 LDS *-* FETCH STATUS N0202610 05C6 C841 278 | LDD SD908 EBC "OFF" N0202620 05C7 4801 279 | BSC O SKIP IF OVERFLOW OFF N0202630 05C8 C841 280 | LDD SD910 EBC "ON" N0202640 05C9 DC00 06F6 281 | STD L SD924+44 STORE TO PRINT AREA N0202650 05CB C83C 282 | LDD SD908 EBC "OFF" N0202660 05CC 4802 283 | BSC C SKIP IF CARRY OFF N0202670 05CD C83C 284 | LDD SD910 EBC "ON" N0202680 05CE DC00 06FE 285 | STD L SD924+52 STORE TO PRINT AREA N0202690 05D0 C400 06C8 286 | LD L SD922 FETCH PRINT AREA ADDRESS N0202700 05D2 1890 287 | SRT 16 SHIFT TO EXTENSION N0202710 05D3 C027 288 | LD SD904+1 FETCH PRINT CODE N0202720 05D4 4400 03C9 289 | BSI L PRINT PRINT FIRST LINE OF DUMP N0202730 05D6 C025 290 | LD SD904+2 FETCH SPACE CODE N0202740 05D7 4400 03C9 291 | BSI L PRINT BRANCH TO SPACE ONE LINE N0202750 05D9 7009 292 | MDX SD070 BRANCH TO PRINT HEADING N0202760 293 | * N0202770 294 | * CLEAR PRINT BUFFER N0202780 295 | * N0202790 05DA 0000 296 | SD060 DC *-* RETURN ADDRESS N0202800 05DB 62C4 297 | LDX 2 -60 WORD COUNT TO XR2 N0202810 05DC 1010 298 | SLA 16 CLEAR ACCUMULATOR N0202820 05DD D600 06C8 299 | SD065 STO L2 SD920+60 STORE TO PRINT AREA N0202830 05DF 7201 300 | MDX 2 1 ADD 1 TO XR2, SKIP IF ZERO N0202840 05E0 70FC 301 | MDX SD065 BRANCH THRU LOOP AGAIN N0202850 05E1 4C80 05DA 302 | BSC I SD060 RETURN N0202860 303 | * N0202870 304 | * PRINT HEADING AND SPACE N0202880 305 | * N0202890 05E3 C400 0706 306 | SD070 LD L SD926 FETCH PRINT AREA ADDRESS N0202900 05E5 1890 307 | SRT 16 SHIFT TO EXTENSION N0202910 05E6 C014 308 | LD SD904+1 FETCH PRINT CODE N0202920 05E7 4400 03C9 309 | BSI L PRINT BRANCH TO PRINT HEADING N0202930 05E9 C012 310 | LD SD904+2 FETCH SPACE CODE N0202940 05EA 4400 03C9 311 | BSI L PRINT BRANCH TO SPACE ONE LINE N0202950 05EC 7400 05FF 312 | MDX L SD905+2,0 SKIP IF FIRST PAGE SW ON N0202960 05EE 701E 313 | MDX SD080 BRANCH TO CONTINUE DUMP N0202970 05EF 4C00 07BB 314 | BSC L SD200 BRANCH TO FETCH CIB N0203000 315 | * N0203010 05F2 316 | BES E 0 N0203020 05F2 0000 0000 317 | SD900 DEC 0.0 TEMPORARY FOR ACC AND EXT N0203030 05F4 0000 318 | DC *-* TEMPORARY XR1 N0203040 05F5 0000 319 | DC *-* TEMPORARY XR2 N0203050 05F6 0000 320 | DC *-* TEMPORARY XR3 N0203060 05F7 0000 321 | SD901 DC *-* FORMAT N0203070 05F8 0000 322 | SD902 DC *-* LOWER LIMIT N0203080 05F9 0000 323 | SD903 DC *-* UPPER LIMIT N0203090 05FA 7000 324 | SD904 DC /7000 RESTORE PAGE CODE N0203100 05FB 7001 325 | DC /7001 PRINT ONE LINE CODE N0203110 05FC 7002 326 | DC /7002 SPACE ONE LINE CODE N0203120 05FD 0000 327 | SD905 DC *-* LEFT-RIGHT SWITCH N0203130 05FE 0000 328 | DC *-* WRAP-AROUND DUMP SWITCH N0203140 05FF 0000 329 | DC *-* FIRST PAGE SWITCH N0203150 0600 0000 330 | DC *-* ONE LINE SPACED SWITCH N0203170 0601 06D0 331 | SD906 DC SD924+6 ACCUMULATOR PRINT ADDRESS N0203180 0602 06DA 332 | DC SD924+16 EXTENSION PRINT ADDRESS N0203190 0603 06E0 333 | DC SD924+22 XR1 PRINT ADDRESS N0203200 0604 06E6 334 | DC SD924+28 XR2 PRINT ADDRESS N0203210 0605 06EC 335 | DC SD924+34 XR3 PRINT ADDRESS N0203220 0606 0000 336 | SD907 DC *-* ADDRESS TO PRINT FROM N0203230 0608 337 | BSS E 0 2-5 N0203235 0608 D6C6 C640 338 | SD908 EBC .OFF . N0203240 060A D6D5 4040 339 | SD910 EBC .ON . N0203250 060C 0000 340 | SD911 DC *-* HIGHEST CORE ADDRESS N0203260 341 | * N0203270 342 | * CONVERT AND DUMP SIXTEEN WORDS N0203280 343 | * N0203290 060D C400 0036 344 | SD080 LD L $PBSY FETCH PRINT BUSY INDICATOR N0203300 060F 4C30 060D 345 | BSC L SD080,Z- BRANCH IF PRINTER BUSY N0203310 0611 C480 0006 346 | LD I $CH12 FETCH CHANNEL 12 INDICATOR N0203320 0613 4C20 0599 347 | BSC L SD040,Z BR TO RESTORE PAGE IF SW ON N0203330 348 | * N0203340 0615 C0F0 349 | LD SD907 FETCH PRINT AREA ADDR 2-4 N0203350 0616 8400 0862 350 | A L SD944+3 ADD SIXTEEN 2-4 N0203360 0618 D009 351 | STO SD090+2 STORE ADDRESS 2-4 N0203370 0619 D019 352 | STO SD100+2 STORE ADDRESS 2-4 N0203380 061A D034 353 | STO SD110+1 STORE ADDRESS 2-4 N0203390 061B 7400 05FF 354 | MDX L SD905+2,0 TEST FOR AND 2-4 N0203400 061D 7002 355 | MDX SD090 *BR IF NOT FIRST LINE 2-4 N0203410 061E 68E0 356 | STX SD905+2 SET PAGE/LINE INDR OFF 2-4 N0203420 061F 7011 357 | MDX SD100 BRANCH TO STORE LINE 2-4 N0203430 358 | * 2-4 N0203440 0620 61F0 359 | SD090 LDX 1 -16 XR1 = LINE WORD COUNT 2-4 N0203450 0621 C500 0000 360 | LD L1 *-* FETCH A WORD 2-4 N0203460 0623 9500 0754 361 | S L1 SD929+16 TEST FOR AND BR IF NOT 2-4 N0203470 0625 4C20 0631 362 | BSC L SD100,Z *SAME A LAST LINE WORD 2-4 N0203480 0627 7101 363 | MDX 1 1 INCR WD CNT, SK IF ZERO 2-4 N0203490 0628 70F8 364 | MDX SD090+1 BR TO TEST NEXT WORD 2-4 N0203500 365 | * 2-4 N0203510 0629 7400 0600 366 | MDX L SD905+3,0 TEST FOR AND BRANCH 2-4 N0203520 062B 7032 367 | MDX SD115 *IF ALREADY SPACED 2-4 N0203530 062C 68D3 368 | STX SD905+3 SET SPACED INDR ON 2-4 N0203540 062D C0CE 369 | LD SD904+2 FETCH SPACE FUNC CODE 2-4 N0203550 062E 4400 03C9 370 | BSI L PRINT BR TO SPACE A LINE 2-4 N0203560 0630 702D 371 | MDX SD115 BR TO FETCH NEXT LINE 2-4 N0203570 372 | * 2-4 N0203580 0631 61F0 373 | SD100 LDX 1 -16 XR1 = LINE WORD COUNT 2-4 N0203590 0632 C500 0000 374 | LD L1 *-* FETCH A WORD 2-4 N0203600 0634 D500 0754 375 | STO L1 SD929+16 *AND SAVE 2-4 N0203610 0636 7101 376 | MDX 1 1 INCR WD CNT, SK IF ZERO 2-4 N0203620 0637 70FA 377 | MDX SD100+1 BR TO STORE NEXT WORD 2-4 N0203630 378 | * 2-4 N0203640 0638 1010 379 | SLA 16 SET 2-4 N0203650 0639 D0C6 380 | STO SD905+3 *SPACED INDICATOR OFF 2-4 N0203660 381 | * 1 STATEMENT REMOVED 2-12 * N0203670 382 | * N0203680 063A 409F 383 | SD105 BSI SD060 BR TO CLEAR PRINT BUFFER N0203690 063B C049 384 | LD SD913 FETCH ADDR OF PRINT BUFFER N0203700 063C D400 07B9 385 | STO L SD933 STORE TO CONVERT SUBROUTINE N0203710 063E D041 386 | STO SD970 SET SWITCHES EACH TIME 212 N0203712 063F D041 387 | STO SD971 *AN ADDRESS IN CORE 212 N0203714 0640 1010 388 | SLA 16 *IS BEING 212 N0203716 0641 D040 389 | STO SD972 * CONVERTED 212 N0203718 0642 C0B5 390 | LD SD902 FETCH LOWER DUMP ADDRESS N0203720 0643 4400 0754 391 | BSI L SD150 BR TO CONVERT SUBROUTINE N0203730 0645 C038 392 | LD SD957 RE-ESTABLISH 212 N0203740 0646 D036 393 | STO SD947 *TRANSLATION ADDRESS 212 N0203745 0647 C034 394 | LD SD955 LOAD AN ASTERISK (/005C)212 N0203746 0648 D480 067D 395 | STO I SD947 STORE AS TERMINATOR 212 N0203747 064A 7401 067D 396 | MDX L SD947,1 INCREMENT BUFFER 212 N0203748 397 | * *POINTER TO NEXT WORD 212 N0203749 064C 61F0 398 | LDX 1 -16 WORD COUNT TO XR1 N0203750 064D 62FC 399 | LDX 2 -4 SET DOUBLE SPACE COUNT N0203760 064E C500 0000 400 | SD110 LD L1 *-* FETCH A WORD N0203770 0650 4400 0754 401 | BSI L SD150 BR TO CONVERT SUBROUTINE N0203780 0652 7101 402 | MDX 1 1 INCREMENT XR1, SKIP IF ZERO N0203790 0653 70FA 403 | MDX SD110 FETCH ANOTHER WORD 212 N0203800 0654 C027 404 | LD SD955 LOAD ASTERISK (/005C) 212 N0203802 0655 1008 405 | SLA 8 LEFT JUSTIFY 212 N0203805 0656 D480 067D 406 | STO I SD947 PLACE AS TRANSLATION 212 N0203806 407 | * *TERMINATOR 212 N0203808 0658 C400 0688 408 | LD L SD918 FETCH PRINT AREA ADDRESS N0203810 065A 1890 409 | SRT 16 SHIFT TO EXTENSION N0203820 065B C09F 410 | LD SD904+1 FETCH PRINT CODE N0203830 065C 4400 03C9 411 | BSI L PRINT PRINT A LINE OF DUMP N0203840 412 | * N0203850 065E 7410 05F8 413 | SD115 MDX L SD902,16 INCREMENT LOWER LIMIT BY 16 N0203860 0660 7001 414 | MDX *+1 SKIP IF LIMIT NOT ZERO N0203870 0661 700F 415 | MDX SD140 BRANCH IF LIMIT = 0 N0203880 0662 7410 0606 416 | MDX L SD907,16 INCREMENT PRINT AREA ADDR N0203890 0664 7001 417 | MDX *+1 SKIP IF ADDRESS NOT ZERO N0203900 0665 700B 418 | MDX SD140 BRANCH IF ADDRESS = 0 N0203910 0666 C091 419 | LD SD902 FETCH LOWER LIMIT N0203920 0667 9091 420 | S SD903 SUBTRACT UPPER LIMIT N0203930 0668 4C30 0671 421 | BSC L SD140,-Z BRANCH IF DUMP COMPLETED2-3 N0203940 422 | * N0203950 423 | * TEST FOR END OF DUMP BUFFER N0203960 424 | * N0203970 066A C08D 425 | LD SD902 FETCH LOWER LIMIT N0203980 066B 9400 086B 426 | S L SD948 SUBTRACT BUFFER LIMIT N0203990 066D 4C28 060D 427 | BSC L SD080,Z+ BRANCH TO CONTINUE DUMPING N0204000 066F 4C00 0000 428 | BSC L *-* BRANCH TO FETCH NEW BUFFER N0204010 0670 429 | SD120 EQU *-1 BRANCH ADDRESS N0204020 430 | * N0204030 431 | * 4 STATEMENTS REMOVED 2-12 * N0204040 432 | * N0204080 433 | * TEST FOR WRAP-AROUND DUMP N0204090 434 | * N0204100 0671 C08C 435 | SD140 LD SD905+1 FETCH WRAP-AROUND DUMP SW N0204110 0672 4C18 086D 436 | BSC L SD300,+- BRANCH IF SWITCH OFF N0204120 0674 1010 437 | SLA 16 CLEAR ACCUMULATOR N0204130 0675 D082 438 | STO SD902 SET LOWER LIMIT TO ZERO N0204140 0676 D087 439 | STO SD905+1 SET WRAP-AROUND DUMP SW OFF N0204150 0677 C00C 440 | LD SD912 FETCH ORIGINAL UPPER LIMIT N0204160 0678 D080 441 | STO SD903 STORE AS NEW UPPER LIMIT N0204170 0679 4C00 07BB 442 | BSC L SD200 BRANCH TO FETCH CIB N0204180 443 | * N0204190 444 | * CONSTANTS AND WORK AREA N0204200 445 | * N0204210 067B 0040 446 | SD954 DC /0040 SPACE FOR TRANSLATION 212 N0204211 067C 005C 447 | SD955 DC /005C TRANSLATION TERMINATOR 212 N0204212 067D 06B6 448 | SD947 DC SD920+42 TRANSLATION ADDRESSTOR 212 N0204214 067E 06B6 449 | SD957 DC SD920+42 TRANSLATION ADDRESSTOR 212 N0204215 067F FF00 450 | SD958 DC /FF00 FOR EXCLUSIVE OR'ING 212 N0204216 0680 0000 451 | SD970 DC 0 SWITCHES USED FOR 212 N0204217 0681 0000 452 | SD971 DC 0 *SHIFTING INFORMATION 212 N0204218 0682 0000 453 | SD972 DC 0 * IN THE PRINT BUFFER 212 N0204219 0684 454 | BSS E 0 N0204220 0684 0000 455 | SD912 DC *-* ORIGINAL UPPER LIMIT N0204230 0685 068C 456 | SD913 DC SD920 ADDRESS OF PRINT BUFFER N0204240 0686 0000 457 | SD914 DC *-* WORD OF LAST ABNORMAL LINE N0204250 0687 0007 458 | SD915 DC #HDNG SCTR ADDR OF HEADING SECTOR N0204260 0688 068B 459 | SD918 DC SD920-1 ADDRESS OF PRINT AREA N0204270 0689 068A 460 | SD919 DC SD920-2 ADDRESS OF DISK I/O AREA N0204280 068A 003C 461 | DC 60 WORD COUNT N0204290 068B 0000 462 | DC *-* WORD COUNT/SECTOR ADDRESS N0204300 068C 463 | SD920 BSS 60 I/O AREA N0204310 06C8 06C9 464 | SD922 DC SD924-1 N0204320 06C9 003C 465 | DC SD926-SD924 N0204330 06CA C1C3 C3E4 D4E4 D3C1 466 | SD924 EBC .ACCUMULATOR EXTENSION . N0204340 E3D6 D940 4040 4040 | 4040 4040 4040 C5E7 | E3C5 D5E2 C9D6 D540 | 4040 4040 | 06DC 4040 4040 E7D9 F140 467 | EBC . XR1 XR2 XR3 . N0204350 4040 4040 4040 4040 | E7D9 F240 4040 4040 | 4040 4040 E7D9 F340 | 4040 4040 | 06EE 4040 4040 4040 40D6 468 | EBC . OVERFLOW CARRY . N0204360 E5C5 D9C6 D3D6 E640 | 4040 4040 4040 4040 | 4040 C3C1 D9D9 E840 | 4040 4040 | 0700 4040 4040 4040 4040 469 | EBC . . N0204370 4040 4040 | 0706 0707 470 | SD926 DC SD928-1 N0204380 0707 003C 471 | DC SD929-SD928 2-4 N0204390 0708 C1C4 C4D9 405C 5C5C 472 | SD928 EBC .ADDR ***0 ***1 ***2 ***3 ***4 . 212 N0204400 F040 5C5C 5CF1 405C | 5C5C F240 5C5C 5CF3 | 405C 5C5C F440 | 0717 5C5C 5CF5 405C 5C5C 473 | EBC .***5 ***6 ***7 ***8 ***9 ***A . 212 N0204410 F640 5C5C 5CF7 405C | 5C5C F840 5C5C 5CF9 | 405C 5C5C C140 | 0726 5C5C 5CC2 405C 5C5C 474 | EBC .***B ***C ***D ***E ***F . 212 N0204420 C340 5C5C 5CC4 405C | 5C5C C540 5C5C 5CC6 | 4040 4040 4040 | 0735 4040 4040 4040 4040 475 | EBC . . 212 N0204430 4040 4040 4040 4040 | 4040 4040 4040 4040 | 4040 4040 4040 | 0744 476 | SD929 BSS 16 SAVE AREA FOR LAST LINE 2-4 N0204435 477 | * N0204440 478 | * CONVERT BINARY WORD TO EBCDIC AND PACK N0204450 479 | * N0204460 0754 0000 480 | SD150 DC *-* RETURN ADDRESS N0204470 0755 7400 05F7 481 | MDX L SD901,0 SKIP IF FORMAT = 0 N0204480 0757 7059 482 | MDX SD190 BR IF NOT HEXEDECIMAL FMT N0204490 0758 694C 483 | STX 1 SD180+1 SAVE XR1 N0204500 0759 D400 0916 484 | STO L TEMP1 SAVE FOR TRANSLATION 212 N0204502 075B 61FE 485 | LDX 1 -2 SET CHARACTER COUNT N0204510 075C 18D0 486 | RTE 16 SHIFT TO EXTENSION N0204520 075D 1010 487 | SLA 16 CLEAR ACCUMULATOR N0204530 075E DC00 094A 488 | STD L SD980 SAVE FOR RETURN 212 N0204536 0760 1084 489 | SD160 SLT 4 ONE CHARACTER INTO ACC N0204540 0761 9054 490 | S SD930 SUBTRACT NINE N0204550 0762 4808 491 | BSC + SKIP IF ACC POSITIVE N0204560 0763 8053 492 | A SD931 ADD HEXADECIMAL 39 N0204570 0764 8053 493 | A SD932 ADD HEXADECIMAL C0 N0204580 0765 7400 05FD 494 | MDX L SD905,0 SKIP IF LEFT-RIGHT SW ON N0204590 0767 7006 495 | MDX SD170 BR IF NO SHIFT REQUIRED N0204600 0768 1008 496 | SLA 8 SHIFT TO LEFT HALF N0204610 0769 D050 497 | STO SD934 STORE TEMPORARLY N0204620 076A 6D00 05FD 498 | STX L1 SD905 TURN LEFT-RIGHT SW ON N0204630 076C 1004 499 | SLA 4 CLEAR ACCUMULATOR N0204640 076D 70F2 500 | MDX SD160 PICK UP NEXT CHARACTER N0204650 076E E84B 501 | SD170 OR SD934 "OR" IN TEMPORARY STORAGE N0204660 076F 7400 0680 502 | MDX L SD970,0 SWITCH 1 SET? 212 N0204661 0771 701E 503 | MDX SD173 YES, SEE IF SWITCH 3 ON 212 N0204662 0772 7400 0681 504 | MDX L SD971,0 SWITCH 2 SET? 212 N0204663 0774 700A 505 | MDX SD171 YES, GO STORE WORD 212 N0204664 0775 1890 506 | SRT 16 NO, SHIFT TO EXTENSION 212 N0204665 0776 C400 067B 507 | LD L SD954 LOAD BLANK 212 N0204666 0778 1088 508 | SLT 8 BLANK PLUS FIRST CHAR 212 N0204667 0779 4030 509 | BSI SD177 GO STORE WORD 212 N0204668 077A 1088 510 | SLT 8 LEFT JUSTIFY OTHER 212 N0204669 077B 1008 511 | SLA 8 *CHARACTER 212 N0204670 077C D400 0681 512 | STO L SD971 SET SWITCH 2 ON 212 N0204671 077E 701D 513 | MDX SD175 CONTINUE 212 N0204672 077F 1888 514 | SD171 SRT 8 ISOLATE FIRST CHARACTER 212 N0204673 0780 F400 067F 515 | EOR L SD958 ZERO LEFTMOST 8 BITS 212 N0204674 0782 EC00 0681 516 | OR L SD971 OR WITH CHARACTER SAVED 212 N0204675 0784 4025 517 | BSI SD177 STORE WORD AND UPDATE 212 N0204676 518 | * *BUFFER POINTER 212 N0204677 0785 1088 519 | SLT 8 ISOLATE SECOND 212 N0204678 0786 1008 520 | SLA 8 *CHARACTER AND 212 N0204679 0787 EC00 067B 521 | OR L SD954 OR WITH BLANK 212 N0204680 0789 D400 0680 522 | STO L SD970 SET SWITCH 1 ON 212 N0204681 078B 401E 523 | BSI SD177 STORE WORD 212 N0204682 078C 1010 524 | SD172 SLA 16 ZERO ACCUMULATOR 212 N0204690 078D D400 0681 525 | STO L SD971 SET SWITCH 2 TO 0 212 N0204693 078F 700C 526 | MDX SD175 CONTINUE 212 N0204694 0790 4019 527 | SD173 BSI SD177 GO STORE WORD 212 N0204695 0791 7400 0682 528 | MDX L SD972,0 SWITCH 3 ON? 212 N0204696 0793 7003 529 | MDX SD174 YES, SET SWITCH 3 212 N0204697 0794 6C00 0682 530 | STX L SD972 SET SWITCH 3 ON 212 N0204698 0796 70F5 531 | MDX SD172 CONTINUE 212 N0204699 0797 1010 532 | SD174 SLA 16 ZERO ACCUMULATOR 212 N0204700 0798 D400 0680 533 | STO L SD970 * SWITCH 1 AND 212 N0204701 079A D400 0682 534 | STO L SD972 * SWITCH 3 212 N0204702 079C CC00 094A 535 | SD175 LDD L SD980 RELOAD WORD 212 N0204703 079E 1088 536 | SLT 8 SHIFT OUT 1ST CHARACTER 212 N0204704 079F 1010 537 | SLA 16 ZERO ACC 212 N0204705 07A0 D400 05FD 538 | STO L SD905 RESET LEFT-RIGHT SWITCH 212 N0204706 07A2 7101 539 | MDX 1 1 SKIP IF WORD COMPLETED N0204710 07A3 70BC 540 | MDX SD160 PICK UP NEXT CHARACTER N0204720 541 | * 1 STATEMENT REMOVED 2-12 * N0204730 07A4 6500 0000 542 | SD180 LDX L1 *-* RESTORE XR1 N0204740 07A6 4400 08E5 543 | BSI L SD410 GO DO TRANSLATION 212 N0204745 07A8 4C80 0754 544 | BSC I SD150 RETURN N0204750 545 | * N0204760 07AA 0000 546 | SD177 DC *-* ENTRY POINT 212 N0204762 07AB D480 07B9 547 | STO I SD933 STORE WORD IN BUFFER. 212 N0204764 07AD 7401 07B9 548 | MDX L SD933,1 INCREMENT POINTER 212 N0204766 07AF 4C80 07AA 549 | BSC I SD177 RETURN TO CALLER 212 N0204768 07B1 3000 550 | SD190 WAIT ILLEGAL FORAMT N0204770 07B2 1810 551 | SRA 16 SET FORMAT FOR N0204780 07B3 D400 05F7 552 | STO L SD901 *HEXADECIMAL DUMP N0204790 07B5 70A2 553 | MDX SD150+4 BR FOR HEXADECIMAL CONVERT N0204800 554 | * N0204810 07B6 0009 555 | SD930 DC /0009 N0204820 07B7 0039 556 | SD931 DC /0039 N0204830 07B8 00C0 557 | SD932 DC /00C0 N0204840 07B9 0000 558 | SD933 DC *-* PRINT AREA ADDRESS N0204850 07BA 0000 559 | SD934 DC *-* TEMPORARY PACKED STORAGE N0204860 560 | * N0204870 561 | * SET LOWER LIMIT MODULO 16 N0204880 562 | * N0204890 07BB C400 05F8 563 | SD200 LD L SD902 FETCH LOWER LIMIT N0204900 07BD 1804 564 | SRA 4 DIVIDE BY 16 N0204910 07BE 1004 565 | SLA 4 MULTIPLY BY 16 N0204920 07BF D400 05F8 566 | STO L SD902 STORE LOWER LIMIT MODULO 16 N0204930 567 | * N0204940 07C1 9400 085C 568 | S L SD942 SUBTRACT 1285 N0204950 07C3 4C10 07ED 569 | BSC L SD220,- BR IF LOWER LIMIT GT 1285 N0204960 570 | * N0204970 571 | * READ WORDS 6 - 1285 FROM THE CORE IMAGE N0204980 572 | * BUFFER INTO THE DUMP BUFFER N0204990 573 | * N0205000 07C5 C400 0005 574 | LD L $CIBA FETCH SECTOR ADDRESS OF CIB N0205010 07C7 1890 575 | SRT 16 SHIFT TO EXTENSION N0205020 07C8 C400 0859 576 | LD L SD940 FETCH WORD COUNT (4 SCTRS) N0205030 07CA DC00 0A04 577 | STD L BUFFR+4 STORE TO INPUT BUFFER N0205040 07CC C400 085E 578 | LD L SD942+2 FETCH INPUT BUFFER ADDRESS N0205050 07CE 1890 579 | SRT 16 SHIFT TO EXT, ACC = 0 N0205060 07CF 4400 00F2 580 | BSI L DSKIO BRANCH TO DISK READ N0205070 07D1 7400 00EE 581 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE N0205080 07D3 70FD 582 | MDX *-3 BR TO TEST READ COMPLETE N0205090 583 | * N0205100 584 | * STORE LOW SIX WORDS OF CORE TO DUMP BUFFER N0205110 585 | * N0205120 07D4 61FA 586 | LDX 1 -6 SET WORD COUNT N0205130 07D5 C106 587 | SD210 LD 1 0+6 FETCH A WORD N0205140 07D6 D500 0A06 588 | STO L1 BUFFR+6 STORE TO DUMP BUFFER N0205150 07D8 7101 589 | MDX 1 1 INCREMENT XR1, SKIP IF ZERO N0205160 07D9 70FB 590 | MDX SD210 BRANCH TO FETCH NEXT WORD N0205170 07DA C400 085D 591 | LD L SD942+1 FETCH ADDR OF DUMP BUFFR212 N0205180 07DC 8400 05F8 592 | A L SD902 ADD LOWER LIMIT N0205190 07DE D400 0606 593 | STO L SD907 SAVE AS ADDR TO PRINT FROM N0205200 07E0 C078 594 | LD SD940 FETCH 1280 N0205210 07E1 D400 086B 595 | STO L SD948 SAVE AS CORE BUFFER LIMIT N0205220 07E3 9400 05F8 596 | S L SD902 2-7 N0205222 07E5 4C08 07F0 597 | BSC L SD225,+ 2-7 N0205224 07E7 6500 07F0 598 | LDX L1 SD225 ADDR OF NEXT SECTION TO XR1 N0205230 07E9 6D00 0670 599 | STX L1 SD120 STORE TO BRANCH ADDRESS N0205240 07EB 4C00 060D 600 | BSC L SD080 BRANCH TO PRINT THE BUFFER N0205250 601 | * N0205260 602 | * LOWER LIMIT GREATER THAN 1285 N0205270 603 | * N0205280 07ED 906B 604 | SD220 S SD940 SUBTRACT 1280 N0205290 07EE 4C10 0813 605 | BSC L SD230,- BR IF LOWER LIMIT GT 2565 N0205300 606 | * N0205310 607 | * READ WORDS 1286 - 2565 FROM THE CORE IMAGE N0205320 608 | * BUFFER INTO THE DUMP BUFFER N0205330 609 | * N0205340 07F0 4054 610 | SD225 BSI SD250 BRANCH TO SAVE LAST 6 WORDS N0205350 07F1 C400 0005 611 | LD L $CIBA FETCH SECTOR ADDRESS OF CIB N0205360 07F3 8400 085F 612 | A L SD944 ADD FOUR 212 N0205370 07F5 1890 613 | SRT 16 SHIFT TO EXTENSION N0205380 07F6 C062 614 | LD SD940 FETCH WORD COUNT (4 SCTRS) N0205390 07F7 DC00 0A04 615 | STD L BUFFR+4 STORE TO INPUT BUFFER N0205400 07F9 C064 616 | LD SD942+2 FETCH INPUT BUFFER ADDRESS N0205410 07FA 1890 617 | SRT 16 SHIFT TO EXT, ACC = 0 N0205420 07FB 4400 00F2 618 | BSI L DSKIO BRANCH TO DISK READ N0205430 07FD 7400 00EE 619 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE N0205440 07FF 70FD 620 | MDX *-3 BR TO TEST READ COMPLETE N0205450 0800 404E 621 | BSI SD270 BRANCH TO RESTORE 6 WORDS N0205460 622 | * N0205470 0801 C400 05F8 623 | LD L SD902 FETCH LOWER LIMIT N0205480 0803 9055 624 | S SD940 SUBTRACT 1280 N0205490 0804 8058 625 | A SD942+1 ADD ADDRESS OF DUMP BUFFER N0205500 0805 D400 0606 626 | STO L SD907 SAVE AS ADDR TO PRINT FROM N0205510 0807 C055 627 | LD SD942+1 FETCH 2560 N0205520 0808 D062 628 | STO SD948 SAVE AS DUMP BUFFER LIMIT N0205530 0809 9400 05F8 629 | S L SD902 2-7 N0205532 080B 4C08 0816 630 | BSC L SD235,+ 2-7 N0205534 080D 6500 0816 631 | LDX L1 SD235 ADDR OF NEXT SECTION TO XR1 N0205540 080F 6D00 0670 632 | STX L1 SD120 STORE TO BRANCH ADDRESS N0205550 0811 4C00 060D 633 | BSC L SD080 BRANCH TO PRINT THE BUFFER N0205560 634 | * N0205570 635 | * LOWER LIMIT GREATER THAN 2565 N0205580 636 | * N0205590 0813 9046 637 | SD230 S SD940+1 SUBTRACT 1530 N0205600 0814 4C10 0833 638 | BSC L SD240,- BR IF LOWER LIMIT GT 4095 N0205610 639 | * N0205620 640 | * READ WORDS 2566 - 4095 FROM THE CORE IMAGE N0205630 641 | * BUFFER INTO THE DUMP BUFFER N0205640 642 | * N0205650 0816 402E 643 | SD235 BSI SD250 BRANCH TO SAVE LAST 6 WORDS N0205660 0817 C400 0005 644 | LD L $CIBA FETCH SECTOR ADDRESS OF CIB N0205670 0819 8400 0861 645 | A L SD944+2 ADD EIGHT 212 N0205680 081B 1890 646 | SRT 16 SHIFT TO EXTENSION N0205690 081C C03D 647 | LD SD940+1 FETCH WORD COUNT (4+ SCTRS) N0205700 081D DC00 0A04 648 | STD L BUFFR+4 STORE TO INPUT BUFFER N0205710 081F C03E 649 | LD SD942+2 FETCH INPUT BUFFER ADDRESS N0205720 0820 1890 650 | SRT 16 SHIFT TO EXT, ACC = 0 N0205730 0821 4400 00F2 651 | BSI L DSKIO BRANCH TO DISK READ N0205740 0823 7400 00EE 652 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE N0205750 0825 70FD 653 | MDX *-3 BR TO TEST READ COMPLETE N0205760 0826 4028 654 | BSI SD270 BRANCH TO RESTORE 6 WORDS N0205770 655 | * N0205780 0827 C400 05F8 656 | LD L SD902 FETCH LOWER LIMIT N0205790 0829 D400 0606 657 | STO L SD907 SAVE AS ADDR TO PRINT FROM N0205800 082B C02F 658 | LD SD940+2 FETCH 4095 N0205810 082C D03E 659 | STO SD948 SAVE AS DUMP BUFFER LIMIT N0205820 082D 6500 0833 660 | LDX L1 SD240 ADDR OF NEXT SECTION TO XR1 N0205830 082F 6D00 0670 661 | STX L1 SD120 STORE TO BRANCH ADDRESS N0205840 0831 4C00 060D 662 | BSC L SD080 BRANCH TO PRINT THE BUFFER N0205850 663 | * N0205860 664 | * LOWER DUMP LIMIT GREATER THAN 4095 N0205870 665 | * N0205880 0833 C400 060C 666 | SD240 LD L SD911 FETCH HIGH CORE ADDRESS N0205890 0835 9025 667 | S SD940+2 SUBTRACT 4095 N0205900 0836 4C08 0671 668 | BSC L SD140,+ BRANCH IF CORE SIZE IS 4-K N0205910 0838 C400 05F8 669 | LD L SD902 FETCH LOWER LIMIT N0205920 083A D400 0606 670 | STO L SD907 SAVE AS ADDR TO PRINT FROM N0205930 083C C400 060C 671 | LD L SD911 FETCH HI CORE ADDRESS N0205940 083E D02C 672 | STO SD948 SAVE AS CORE BUFFER LIMIT N0205950 083F 6500 0671 673 | LDX L1 SD140 ADDR OF NEXT SECTION TO XR1 N0205960 0841 6D00 0670 674 | STX L1 SD120 STORE TO BRANCH ADDRESS N0205970 0843 4C00 060D 675 | BSC L SD080 BRANCH TO PRINT THE BUFFER N0205980 676 | * N0205990 677 | * SAVE THE LAST SIX WORDS OF THE DUMP BUFFER N0206000 678 | * N0206010 0845 0000 679 | SD250 DC *-* ENTRY/RETURN N0206020 0846 61FA 680 | LDX 1 -6 SET WORD COUNT N0206030 0847 C500 0F06 681 | SD260 LD L1 BUFFR+1286 FETCH ONE OF LAST 6 WORDS N0206040 0849 D500 086B 682 | STO L1 SD946+6 SAVE IN TEMPORARY STORAGE N0206050 084B 7101 683 | MDX 1 1 INCREMENT XR1, SKIP IF ZERO N0206060 084C 70FA 684 | MDX SD260 BRANCH TO FETCH NEXT WORD N0206070 084D 4C80 0845 685 | BSC I SD250 RETURN N0206080 686 | * N0206090 687 | * STORE LAST SIX WORDS OF OLD BUFFER TO FIRST N0206100 688 | * SIX POSITIONS OF NEW BUFFER N0206110 689 | * N0206120 084F 0000 690 | SD270 DC *-* ENTRY/RETURN N0206130 0850 61FA 691 | LDX 1 -6 SET WORD COUNT N0206140 0851 C500 086B 692 | SD280 LD L1 SD946+6 FETCH WORD FROM TEMP STG N0206150 0853 D500 0A06 693 | STO L1 BUFFR+6 STORE TO DUMP BUFFER N0206160 0855 7101 694 | MDX 1 1 INCREMENT XR1, SKIP IF ZERO N0206170 0856 70FA 695 | MDX SD280 BRANCH TO FETCH NEXT WORD N0206180 0857 4C80 084F 696 | BSC I SD270 RETURN N0206190 697 | * N0206200 03C6 698 | PREDP EQU 3*320+6 N0206210 0859 0500 699 | SD940 DC 1280 WD CNT OF 4 SCTRS N0206220 085A 05FA 700 | DC 1530 WD CNT OF 4 SCTRS + 250 WDS N0206230 085B 0FFF 701 | DC 4095 WD CNT OF FIRST 4-K N0206240 085C 0505 702 | SD942 DC 1285 HIGH ADDR OF FIRST BUFFER N0206250 085D 0A00 703 | DC BUFFR ADDRESS OF DUMP BUFFER N0206260 085E 0A04 704 | DC BUFFR+4 ADDRESS OF INPUT BUFFER N0206270 085F 0004 705 | SD944 DC 4 CONSTANT FOUR N0206280 0860 0006 706 | DC 6 CONSTANT SIX N0206290 0861 0008 707 | DC 8 CONSTANT EIGHT N0206300 0862 0010 708 | DC 16 CONSTANT SIXTEEN N0206310 0863 0280 709 | DC 640 WORD COUNT OF 2 SECTORS N0206320 0864 03C0 710 | SD945 DC 960 WORD COUNT OF 3 SECTORS 2-6 N0206325 0865 711 | SD946 BSS 6 TEMPORARY STORAGE FOR 6 WDS N0206330 086B 0000 712 | SD948 DC *-* LIMIT OF DUMP BUFFER N0206340 086C 0000 713 | SD949 DC *-* SAVE PAGE COUNT N0206350 714 | * N0206360 715 | * DUMP COMPLETED N0206370 716 | * N0206380 086D 7400 0036 717 | SD300 MDX L $PBSY,0 SKIP NEXT IF PRINT COMPLETE N0206390 086F 70FD 718 | MDX *-3 BR TO TEST PRINT COMPLETE N0206400 0870 7400 003F 719 | MDX L $DUMP,0 SKIP IF NO RETURN ADDRESS N0206410 0872 7002 720 | MDX SD310 BR TO RESTORE CORE AND EXIT N0206420 0873 4C00 0038 721 | BSC L $EXIT RETURN TO SUPERVISOR N0206430 722 | * 2-6 N0206440 723 | * READ 3 SECTORS OF CIB 2-6 N0206450 724 | * 2-6 N0206460 0875 C400 0005 725 | SD310 LD L $CIBA FETCH SECTOR ADDR OF CIB2-6 N0206470 0877 1890 726 | SRT 16 2-6 N0206480 0878 C400 0864 727 | LD L SD945 FETCH WORD COUNT 212 N0206490 087A DC00 0A04 728 | STD L BUFFR+4 STORE TO INPUT BUFFER 2-6 N0206500 087C C0E1 729 | LD SD942+2 FETCH ADDR OF INPUT BUFF2-6 N0206510 087D 1890 730 | SRT 16 2-6 N0206520 087E 4400 00F2 731 | BSI L DSKIO BRANCH TO DISK READ 2-6 N0206530 0880 7400 00EE 732 | MDX L $DBSY,0 SKIP IF READ COMPLETE 2-6 N0206540 0882 70FD 733 | MDX *-3 BR TEST READ COMPLETE 2-6 N0206550 734 | * 2-6 N0206560 735 | * RESTORE CORE BELOW DISKIO SUBR 2-6 N0206570 736 | * 2-6 N0206580 0883 C400 003F 737 | LD L $DUMP SET UP 2-6 N0206590 0885 805B 738 | A SD962+1 *ADDRESS AT WHICH 2-6 N0206600 0886 D057 739 | STO SD370 *TO RETURN TO USER 2-6 N0206610 740 | * N0206620 0887 1810 741 | SRA 16 CLEAR PHASE 1D AND 2-6 N0206630 0888 D400 0078 742 | STO L $PHSE *ADDR OF 2-6 N0206640 088A D400 003F 743 | STO L $DUMP *CALL DUMP IN COMMA 2-6 N0206650 088C C400 0A09 744 | LD L BUFFR+$LEV1 RESTORE INTRPT LEV 1 2-9 N0206652 088E D400 0009 745 | STO L $LEV1 *BRANCH ADDR 2-8 N0206654 0890 C400 0A0A 746 | LD L BUFFR+$LEV2 SAVE LEVEL 2 2-6 N0206660 0892 D400 08D0 747 | STO L SD365 *ADDR 2-6 N0206670 0894 C400 0A0B 748 | LD L BUFFR+$LEV3 RESTORE INTRPT LVL 2-11 N0206680 0896 D400 000B 749 | STO L $LEV3 * 3 BR ADDR 2-11 N0206690 0898 CC00 0A0C 750 | LDD L BUFFR+$LEV4 RESTORE INTRPT LVL 2-11 N0206692 089A DC00 000C 751 | STD L $LEV4 * 4 + 5 BR ADDRESSES 2-11 N0206694 089C C400 0AD4 752 | LD L BUFFR+$IBT4 RESTORE IBT FOR 2-6 N0206700 089E D400 00D4 753 | STO L $IBT4 *INTRPT LEVEL 4 2-6 N0206710 08A0 C400 0A2C 754 | LD L BUFFR+$IREQ RESTORE INT REQ 2-6 N0206720 08A2 D400 002C 755 | STO L $IREQ *BR ADDR 2-6 N0206730 756 | * 2-6 N0206740 757 | * RESTORE CORE BETWEEN END OF DISK SUBR 2-6 N0206750 758 | * AND BEGINNING OF DUMP PROGRAM 2-6 N0206760 759 | * 2-6 N0206770 08A4 6580 005A 760 | LDX I1 $CILA ADDR OF END OF DISK SUBR-1 N0206830 08A6 7500 FC3C 761 | MDX L1 -PREDP+2 MODIFY BY END OF AREA ADDR N0206840 08A8 1000 762 | NOP N0206850 08A9 C500 0DC6 763 | SD320 LD L1 BUFFR+966 FETCH A ND FROM INPT BUF2-6 N0206860 08AB D500 03C6 764 | STO L1 PREDP RESTORE TO CORE CELOW DUMP N0206870 08AD 7101 765 | MDX 1 1 DECR WORD COUNT, SK IF ZERO N0206880 08AE 70FA 766 | MDX SD320 BR TO FETCH NEXT WORD N0206890 08AF CC00 03C4 767 | LDD L PREDP-2 FETCH WORDS 964 AND 965 N0206900 08B1 D81C 768 | STD SD360 *AND STORE N0206910 769 | * N0206920 770 | * RESTORE CORE FROM BEGINNING OF DUMP PROGRAM N0206930 771 | * TO END OF FIRST 4-K N0206940 772 | * N0206950 08B2 61ED 773 | LDX 1 -19 WORD COUNT TO XR1 2-6 N0206960 08B3 C500 08DF 774 | SD330 LD L1 SD350+19 FETCH A WORD N0206970 08B5 D500 0027 775 | STO L1 $HASH+19 STORE TO LOWER CORE N0206980 08B7 7101 776 | MDX 1 1 INCREMENT XR1, SKIP IF ZERO N0206990 08B8 70FA 777 | MDX SD330 BRANCH TO FETCH NEXT WORD N0207000 778 | * N0207010 08B9 C029 779 | LD SD964 FETCH WORD COUNT N0207020 08BA D400 03C4 780 | STO L PREDP-2 STORE TO CORE RESTORE AREA N0207030 08BC C400 0005 781 | LD L $CIBA FETCH SECTOR ADDRESS OF CIB N0207040 08BE 8022 782 | A SD962+1 ADD THREE N0207050 08BF D400 03C5 783 | STO L PREDP-1 STORE TO CORE RESTORE AREA N0207060 08C1 2000 784 | SD340 LDS *-* RESTORE STATUS N0207070 08C2 6580 05F4 785 | LDX I1 SD900+2 RESTORE XR1 N0207080 08C4 6680 05F5 786 | LDX I2 SD900+3 RESTORE XR2 N0207090 08C6 6780 05F6 787 | LDX I3 SD900+4 RESTORE XR3 N0207100 08C8 C019 788 | LD SD963 FETCH CORE RESTORE AREA ADR N0207110 08C9 1890 789 | SRT 16 SHIFT TO EXT, ACC = 0 N0207120 08CA 4C00 0019 790 | BSC L $HASH+5 BRANCH TO LOWER CORE N0207130 791 | * N0207140 792 | * THE FOLLOWING 15 WORDS ARE STORED IN LOWER N0207150 793 | * CORE AND A TRANSFER IS MADE TO THE FIRST ONE N0207160 794 | * IN ORDER THAT WORDS 966-4095 MAY BE READ FROM N0207170 795 | * THE CORE IMAGE BUFFER OVER THE PRESENT N0207180 796 | * LOCATION OF THE DUMP PROGRAM N0207190 797 | * N0207200 08CC 798 | BSS E 0 N0207210 08CC 0000 799 | SD350 DC *-* ACCUMULATOR N0207220 08CD 0000 800 | DC *-* EXTENSION N0207230 08CE 0000 801 | SD360 DC *-* SAVE FOR LOCATION 964 N0207240 08CF 0000 802 | DC *-* SAVE FOR LOCATION 965 N0207250 08D0 0000 803 | SD365 DC *-* SAVE FOR USER $LEV2 2-6 N0207255 08D1 4400 00F2 804 | BSI L DSKIO BRANCH TO DISK READ N0207260 08D3 7400 00EE 805 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE N0207270 08D5 70FD 806 | MDX *-3 BR TO TEST READ COMPLETE N0207280 08D6 C8F7 807 | LDD SD360 FETCH ORIGINAL CONTENTS OF N0207290 08D7 DC00 03C4 808 | STD L PREDP-2 *LOC 964-965 AND RESTORE N0207300 08D9 C0F6 809 | LD SD365 RESTORE INTRPT LEV 2 2-6 N0207304 08DA D400 000A 810 | STO L $LEV2 *ADDR 2-6 N0207306 08DC C8EF 811 | LDD SD350 FETCH ACC AND EXT N0207310 08DD 4C00 0000 812 | BSC L *-* RETURN TO USERS PROGRAM N0207320 08DE 813 | SD370 EQU *-1 N0207330 814 | * N0207340 08DF 0000 815 | SD960 DC *-* SAVE FOR WORD COUNT OF CIB N0207350 08E0 0001 816 | SD962 DC 1 CONSTANT ONE N0207360 08E1 0003 817 | DC 3 CONSTANT THREE N0207370 08E2 03C4 818 | SD963 DC PREDP-2 RESTORE CORE ADDRESS N0207380 08E3 0C3A 819 | SD964 DC 3130 CORE RESTORE WORD COUNT N0207390 08E4 0004 820 | SD965 DC $CIBA-1 ADDRESS OF CIB I/O AREA N0207400 822 | ************************************************** N0207402 823 | * * N0207403 824 | *THE FOLLOWING ROUTINE PLACES A TRANSLATION OF * N0207404 825 | * THE CONTENTS OF CORE IN THE RIGHT HAND * N0207405 826 | * MARGIN OF THE DUMP. * N0207406 827 | * * N0207407 828 | *************************************************** N0207408 08E5 0000 830 | SD410 DC *-* ENTRY POINT 212 N0207410 08E6 6D00 0913 831 | STX L1 SD470+1 SAVE XR1 FOR CALLER 212 N0207411 08E8 6700 0918 832 | LDX L3 TABL1 SET XR3 TO CONVERSION TB212 N0207412 08EA 61CF 833 | LDX 1 -49 SET XR1 FOR SEARCH. 212 N0207420 08EB C02A 834 | SD420 LD TEMP1 RELOAD WORD 212 N0207440 08EC 1808 835 | SRA 8 RIGHT JUSTIFY CHARACTER 212 N0207450 08ED F300 836 | EOR 3 0 SEE IF A MATCH. 212 N0207460 08EE 4C18 08F7 837 | BSC L SD430,+- FOUND, SAVE IN TEMP2 212 N0207470 08F0 7301 838 | MDX 3 1 INCREMENT TABLE POINTER 212 N0207480 08F1 7101 839 | MDX 1 1 INCREMENT XR1 212 N0207490 08F2 70F8 840 | MDX SD420 GO RELAOD WORD 212 N0207500 08F3 C024 841 | LD TABL1 LOAD PERIOD 212 N0207510 08F4 1008 842 | SLA 8 LEFT-JUSTIFY 212 N0207520 08F5 D021 843 | STO TEMP2 STORE TEMPORARILY 212 N0207530 08F6 7004 844 | MDX SD440 GO CHECK 2ND CHARACTER 212 N0207540 08F7 C01E 845 | SD430 LD TEMP1 RELOAD WORD PASSED 212 N0207550 08F8 1808 846 | SRA 8 ISOLATE FIRST 212 N0207560 08F9 1008 847 | SLA 8 CHARACTER 212 N0207570 08FA D01C 848 | STO TEMP2 SAVE TEMPORARILY 212 N0207580 08FB 6700 0918 849 | SD440 LDX L3 TABL1 SET XR3 TO CHAR TABLE 212 N0207585 08FD 61CF 850 | LDX 1 -49 SET XR1 FOR SEARCH. 212 N0207590 08FE C017 851 | SD445 LD TEMP1 RELOAD CHARACTER 212 N0207600 08FF 1008 852 | SLA 8 ISOLATE 2ND CHARACTER 212 N0207610 0900 1808 853 | SRA 8 * BY THESE SHIFTS 212 N0207620 0901 F300 854 | EOR 3 0 COMPARE WITH TABLE ENTRY212 N0207630 0902 4C18 090A 855 | BSC L SD450,+- FOUND, GO SAVE 212 N0207640 0904 7301 856 | MDX 3 1 INCREMENT TBL POINTER 212 N0207650 0905 7101 857 | MDX 1 1 INCREMENT POINTER 212 N0207660 0906 70F7 858 | MDX SD445 CHECK NEXT TABLE ENTRY 212 N0207670 0907 C010 859 | LD TABL1 LOAD PERIOD 212 N0207680 0908 E80E 860 | OR TEMP2 OR WITH 1ST CHARACTER 212 N0207690 0909 7004 861 | MDX SD460 RETURN 212 N0207720 090A C00B 862 | SD450 LD TEMP1 LOAD 1ST CHARACTER 212 N0207730 090B 1008 863 | SLA 8 LEFT JUSTIFY 212 N0207735 090C 1808 864 | SRA 8 *AND ISOLATE 212 N0207740 090D E809 865 | OR TEMP2 OR WITH 1ST CHAR 212 N0207744 090E D480 067D 866 | SD460 STO I SD947 STORE IN TRANSLATION 212 N0207746 0910 7401 067D 867 | MDX L SD947,1 INCREMENT POINTER 212 N0207748 0912 6500 0000 868 | SD470 LDX L1 *-* RESTORE XR1 212 N0207749 0914 4C80 08E5 869 | BSC I SD410 RETURN 212 N0207750 0916 0000 870 | TEMP1 DC *-* SAVE FOR CONVERSION WORD212 N0207760 0917 0000 871 | TEMP2 DC *-* SAVE FOR CONVERSION WORD212 N0207770 873 | *************************************************** N0207772 874 | * * N0207773 875 | *THE FOLLOWING 49-WORD TABLE IS TO DETERMINE * N0207774 876 | * WHICH EBCDIC CONFIGURATIONS ARE PRINTABLES. * N0207775 877 | * CODES NOT FOUND HERE ARE REPLACED WITH PERIODS* N0207776 878 | * * N0207777 879 | *************************************************** N0207778 0918 004B 881 | TABL1 DC /004B PERIOD 212 N0207780 0919 004D 882 | DC /004D LEFT PARENTHESIS 212 N0207790 091A 004E 883 | DC /004E PLUS SIGN 212 N0207800 091B 0050 884 | DC /0050 AMPERSAND 212 N0207810 091C 005B 885 | DC /005B DOLLAR SIGN - 212 N0207820 091D 005C 886 | DC /005C ASTERISK 212 N0207830 091E 005D 887 | DC /005D RIGHT PARENTHESIS 212 N0207840 091F 0060 888 | DC /0060 MINUS SIGN 212 N0207850 0920 0061 889 | DC /0061 SLASH 212 N0207860 0921 006B 890 | DC /006B COMMA 212 N0207870 0922 007D 891 | DC /007D APOSTROPHE 212 N0207880 0923 007E 892 | DC /007E EQUAL SIGN 212 N0207890 0924 00C1 893 | DC /00C1 A 212 N0207900 0925 00C2 894 | DC /00C2 B 212 N0207910 0926 00C3 895 | DC /00C3 C 212 N0207920 0927 00C4 896 | DC /00C4 D 212 N0207930 0928 00C5 897 | DC /00C5 E 212 N0207940 0929 00C6 898 | DC /00C6 F 212 N0207950 092A 00C7 899 | DC /00C7 G 212 N0207960 092B 00C8 900 | DC /00C8 H 212 N0207970 092C 00C9 901 | DC /00C9 I 212 N0207980 092D 00D1 902 | DC /00D1 J 212 N0207990 092E 00D2 903 | DC /00D2 K 212 N0208000 092F 00D3 904 | DC /00D3 L 212 N0208010 0930 00D4 905 | DC /00D4 M 212 N0208020 0931 00D5 906 | DC /00D5 N 212 N0208030 0932 00D6 907 | DC /00D6 O 212 N0208040 0933 00D7 908 | DC /00D7 P 212 N0208050 0934 00D8 909 | DC /00D8 Q 212 N0208060 0935 00D9 910 | DC /00D9 R 212 N0208070 0936 00E2 911 | DC /00E2 S 212 N0208080 0937 00E3 912 | DC /00E3 T 212 N0208090 0938 00E4 913 | DC /00E4 U 212 N0208100 0939 00E5 914 | DC /00E5 V 212 N0208110 093A 00E6 915 | DC /00E6 W 212 N0208120 093B 00E7 916 | DC /00E7 X 212 N0208130 093C 00E8 917 | DC /00E8 Y 212 N0208140 093D 00E9 918 | DC /00E9 Z 212 N0208150 093E 00F0 919 | DC /00F0 ZERO 212 N0208160 093F 00F1 920 | DC /00F1 ONE 212 N0208170 0940 00F2 921 | DC /00F2 TWO 212 N0208180 0941 00F3 922 | DC /00F3 THREE 212 N0208190 0942 00F4 923 | DC /00F4 FOUR 212 N0208200 0943 00F5 924 | DC /00F5 FIVE 212 N0208210 0944 00F6 925 | DC /00F6 SIX 212 N0208220 0945 00F7 926 | DC /00F7 SEVEN 212 N0208230 0946 00F8 927 | DC /00F8 EIGHT 212 N0208240 0947 00F9 928 | DC /00F9 NINE 212 N0208250 0948 0040 929 | DC /0040 BLANK 212 N0208251 094A 930 | BSS E 0 212 N0208252 094A 0000 931 | SD980 DC *-* SAVE AREA FOR 212 N0208254 094B 0000 932 | DC *-* *CONVERSION ROUTINE 212 N0208256 094C 933 | BSS SD000+4*@SCTR-8-*-1 PATCH AREA 212 N0208260 09FF FFFF 934 | DC /FFFF END OF PATCH AREA 212 N0208270 0A00 935 | BUFFR EQU * CORE IMAGE I/O AREA 212 N0208280 09FF 936 | SDEND EQU BUFFR-1 END OF SYSTEM CORE DUMP 212 N0208290 0A00 937 | END SD000 N0208300 There were no errors in this assembly Program transfer address = 0508 === CROSS REFERENCES ========================================================== Name Val Defd Referenced #HDNG 0007 119 458 $ACEX 001A 99 126 $CH12 0006 100 346 $CIBA 0005 101 196 574 611 644 725 781 820 $CILA 005A 102 760 $CORE 000E 103 141 $DBSY 00EE 104 154 211 250 581 619 652 732 805 $DUMP 003F 105 183 192 197 218 719 737 743 $EXIT 0038 106 721 $HASH 0014 107 775 790 $IBT4 00D4 108 162 752 753 $IREQ 002C 109 754 755 $LEV1 0009 110 160 744 745 $LEV2 000A 111 746 810 $LEV3 000B 112 748 749 $LEV4 000C 113 750 751 $LEV5 000D 114 $PBSY 0036 115 344 717 $PGCT 0037 116 $PHSE 0078 117 137 742 $SSTS 006D 118 130 'SCTR 0140 120 933 BUFFR 0A00 935 577 588 615 648 681 693 703 704 728 744 746 748 750 752 754 763 936 DSKIO 00F2 122 153 210 249 580 618 651 731 804 PREDP 03C6 698 761 764 767 780 783 808 818 PRINT 03C9 123 146 257 258 260 289 291 309 311 370 411 PSLET 053E 166 93 148 149 150 151 157 SD000 0508 125 933 937 SD005 054B 183 163 SD010 0553 188 226 SD015 0558 192 184 SD020 0562 199 203 SD025 0568 205 201 SD030 057C 218 194 SD035 0589 229 190 SD040 0599 245 236 347 SD050 05B9 269 276 SD055 05C5 277 131 SD060 05DA 296 261 302 383 SD065 05DD 299 301 SD070 05E3 306 263 292 SD080 060D 344 313 345 427 600 633 662 675 SD090 0620 359 351 355 364 SD100 0631 373 352 357 362 377 SD105 063A 383 SD110 064E 400 353 403 SD115 065E 413 367 371 SD120 0670 429 599 632 661 674 SD140 0671 435 415 418 421 668 673 SD150 0754 480 274 391 401 544 553 SD160 0760 489 500 540 SD170 076E 501 495 SD171 077F 514 505 SD172 078C 524 531 SD173 0790 527 503 SD174 0797 532 529 SD175 079C 535 513 526 SD177 07AA 546 509 517 523 527 549 SD180 07A4 542 483 SD190 07B1 550 482 SD200 07BB 563 314 442 SD210 07D5 587 590 SD220 07ED 604 569 SD225 07F0 610 597 598 SD230 0813 637 605 SD235 0816 643 630 631 SD240 0833 666 638 660 SD250 0845 679 610 643 685 SD260 0847 681 684 SD270 084F 690 621 654 696 SD280 0851 692 695 SD300 086D 717 436 SD310 0875 725 720 SD320 08A9 763 766 SD330 08B3 774 777 SD340 08C1 784 132 SD350 08CC 799 127 774 811 SD360 08CE 801 768 807 SD365 08D0 803 747 809 SD370 08DE 813 739 SD410 08E5 830 543 869 SD420 08EB 834 840 SD430 08F7 845 837 SD440 08FB 849 844 SD445 08FE 851 858 SD450 090A 862 855 SD460 090E 866 861 SD470 0912 868 831 SD900 05F2 317 128 133 134 135 273 785 786 787 SD901 05F7 321 186 221 481 552 SD902 05F8 322 187 223 229 231 235 390 413 419 425 438 563 566 592 596 623 629 656 669 SD903 05F9 323 189 227 232 234 237 241 420 441 SD904 05FA 324 256 259 288 290 308 310 369 410 SD905 05FD 327 239 262 270 312 354 356 366 368 380 435 439 494 498 538 SD906 0601 331 271 SD907 0606 336 349 416 593 626 657 670 SD908 0608 338 278 282 SD910 060A 339 280 284 SD911 060C 340 144 188 230 233 240 666 671 SD912 0684 455 238 440 SD913 0685 456 384 SD914 0686 457 SD915 0687 458 245 SD918 0688 459 254 408 SD919 0689 460 247 SD920 068C 463 246 252 253 299 448 449 456 459 460 SD922 06C8 464 286 SD924 06CA 466 281 285 331 332 333 334 335 464 465 SD926 0706 470 306 465 SD928 0708 472 470 471 SD929 0744 476 361 375 471 SD930 07B6 555 490 SD931 07B7 556 492 SD932 07B8 557 493 SD933 07B9 558 272 385 547 548 SD934 07BA 559 497 501 SD940 0859 699 576 594 604 614 624 637 647 658 667 SD942 085C 702 208 568 578 591 616 625 627 649 729 SD944 085F 705 158 350 612 645 SD945 0864 710 727 SD946 0865 711 682 692 SD947 067D 448 393 395 396 406 866 867 SD948 086B 712 426 595 628 659 672 SD949 086C 713 SD954 067B 446 507 521 SD955 067C 447 394 404 SD957 067E 449 392 SD958 067F 450 515 SD960 08DF 815 SD962 08E0 816 738 782 SD963 08E2 818 788 SD964 08E3 819 779 SD965 08E4 820 SD970 0680 451 386 502 522 533 SD971 0681 452 387 504 512 516 525 SD972 0682 453 389 528 530 534 SD980 094A 931 488 535 SDEND 09FF 936 91 TABL1 0918 881 832 841 849 859 TABLE 0542 173 159 161 TEMP1 0916 870 484 834 845 851 862 TEMP2 0917 871 843 848 860 865