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