User Tools

Site Tools


ibm:ibm1130-lib:dmsr2v12:nbsysdmp_lst

NBSYSDMP

Table Of Contents
  • [00004] SYSTEM CORE DUMP
nbsysdmp.lst
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
ibm/ibm1130-lib/dmsr2v12/nbsysdmp_lst.txt ยท Last modified: 2023/08/06 13:34 by Site Administrator