User Tools

Site Tools


ibm:ibm1130-lib:dmsr2v12:t3pdump_lst

T3PDUMP

Table Of Contents
  • [00005] PDUMP
t3pdump.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:08 2020
 
Source File: \t3pdump.asm 
                             1 | *             JULY 6,1967                           T3F00010
PDUMP
 
                             3 | *************************************************** T3F00030
                             4 | *STATUS-VERSION 2, MODIFICATION 0                 * T3F00040
                             5 | *                                                 * T3F00050
                             6 | *FUNCTION/OPERATION                               * T3F00060
                             7 | *   * DUMPS THE CONTENTS OF CORE BETWEEN SPECIFIED* T3F00070
                             8 | *     LIMITS. DUMP MAY BE REAL, INTEGER OR        * T3F00080
                             9 | *     HEXADECIMAL. THE FORMATS OF THE DUMPS ARE   * T3F00090
                            10 | *     AS FOLLOWS-                                 * T3F00100
                            11 | *       * DEXIDECIMAL - SYSTEM DUMP FORMAT        * T3F00110
                            12 | *       * INTEGER     - 12I/O                     * T3F00120
                            13 | *       * REAL-                                   * T3F00130
                            14 | *           * STANDARD - 6E20.6                   * T3F00140
                            15 | *           * EXTENDED - 6E20.9                   * T3F00150
                            16 | *                                                 * T3F00160
                            17 | *ENTRY POINTS-                                    * T3F00170
                            18 | *   * CALL    PDUMP      CALL TO PDUMP            * T3F00180
                            19 | *     DC      ADDR1      LIMITS OF                * T3F00190
                            20 | *     DC      ADDR2      *DUMP                    * T3F00200
                            21 | *     DC      TYPE       TYPE OF DUMP REQUESTED   * T3F00210
                            22 | *                        * 0 - HEXADECIMAL        * T3F00220
                            23 | *                        * 4 - INTEGER            * T3F00230
                            24 | *                        * 5 - REAL               * T3F00240
                            25 | *     .                                           * T3F00250
                            26 | *     .                                           * T3F00260
                            27 | *     .                                           * T3F00270
                            28 | *     DC      ADDRM                               * T3F00280
                            29 | *     DC      ADDRN                               * T3F00290
                            30 | *     DC      TYPEN                               * T3F00300
                            31 | *     DC      0          TERMINATOR               * T3F00310
                            32 | *                                                 * T3F00320
                            33 | *                                                 * T3F00330
                            34 | *                                                 * T3F00340
                            35 | *EXTERNAL REFERENCES-                             * T3F00350
                            36 | *   * SFIO                                        * T3F00360
                            37 | *   * SIOAI                                       * T3F00370
                            38 | *   * SIOAF                                       * T3F00380
                            39 | *   * SWRT                                        * T3F00390
                            40 | *   * SCOMP                                       * T3F00400
                            41 | *                                                 * T3F00410
                            42 | *COMMA/DCOM-                                      * T3F00420
                            43 | *   * $DUMP                                       * T3F00430
                            44 | *                                                 * T3F00440
                            45 | *EXITS-                                           * T3F00450
                            46 | *   NORMAL-                                       * T3F00460
                            47 | *       PROGRAM RETURNS CONTROL TO ZERO PARAMETER * T3F00470
                            48 | *       PLUS 1                                    * T3F00480
                            49 | *   ERROR-                                        * T3F00490
                            50 | *       N/A                                       * T3F00500
                            51 | *                                                 * T3F00510
                            52 | *TABLES/WORK AREAS - N/A                          * T3F00520
                            53 | *                                                 * T3F00530
                            54 | *ATTRIBUTES - N/A                                 * T3F00540
                            55 | *                                                 * T3F00550
                            56 | *NOTES- N/A                                       * T3F00560
                            57 | *                                                 * T3F00570
                            58 | *************************************************** T3F00580
PDUMP
 
                            60 | *                                                   T3F00600
                            61 |       ENT     PDUMP                                 T3F00610
                            62 | *                                                   T3F00620
                            63 | *                                                   T3F00630
                            64 | *                                                   T3F00640
0000 0000                   65 | PDUMP DC      *-*        FIRST PARAMETER            T3F00650
                            66 | *                                                   T3F00660
0001 694C                   67 |       STX   1 PD090+1    SAVE XR1                   T3F00670
0002 6580 0000R             68 |       LDX  I1 PDUMP      INITIALIZE PARAMETER PT    T3F00680
                            69 | *                                                   T3F00690
0004 6B06                   70 | PD010 STX   3 PD020+1    STORE TV POINTER           T3F00700
0005 C04B                   71 |       LD      PD901      LOAD LIBF SFIO             T3F00710
0006 1008                   72 |       SLA     8          GET DISPLACEMENT           T3F00720
0007 1888                   73 |       SRT     8          *IN ORDER TO GET           T3F00730
0008 8002                   74 |       A       PD020+1    *PRECISION PARAMETER       T3F00740
0009 D001                   75 |       STO     PD020+1    *WORD                      T3F00750
                            76 | *                                                   T3F00760
000A C480 0000              77 | PD020 LD   I  *-*        LOAD PRECISION             T3F00770
000C E045                   78 |       AND     PD902      CLEAR ALL BUT PRECISION    T3F00780
000D 1881                   79 |       SRT     1          MOVE ONE WORD INTEGER BIT  T3F00790
000E D0F7                   80 |       STO     PD903      STORE REAL PRECISION       T3F00800
000F D0F7                   81 |       STO     PD904      STORE INTEGER PRECISION    T3F00810
0010 9045                   82 |       S       PD911      IS IT EXTENDED PRECISION   T3F00820
0011 4C18 0015R             83 |       BSC  L  PD030,+-   BRANCH IF YES              T3F00830
0013 C043                   84 |       LD      PD912      LOAD STANDARD PREC ADDR    T3F00840
0014 7001                   85 |       MDX     PD040      GO PUT INTO LIBF           T3F00850
                            86 | *                                                   T3F00860
0015 C042                   87 | PD030 LD      PD913      LOAD EXTENDED PREC ADDR    T3F00870
                            88 | *                                                   T3F00880
0016 D058                   89 | PD040 STO     PD930      PUT INTO LIBF              T3F00890
0017 1010                   90 |       SLA     16                                    T3F00900
0018 1081                   91 |       SLT     1          GET ONE WORD INTEGER BIT   T3F00910
0019 F039                   92 |       EOR     PD905      REVERSE BIT                T3F00920
001A 4820                   93 |       BSC     Z          SKIP IF NOT ONE-WD-INTEGER T3F00930
001B D0EB                   94 |       STO     PD904      SET INTEGER PRECISION = 1  T3F00940
                            95 | *                                                   T3F00950
001C C037                   96 |       LD      PD907      SET UP TO BRANCH AROUND    T3F00960
001D D0E6                   97 |       STO     PD010      *INITIALIZATION SECTION    T3F00970
                            98 | *                                                   T3F00980
                            99 | *                                                   T3F00990
001E C100                  100 | PD050 LD    1 0          LOAD DUMP ADDRESS          T3F01000
001F 4C18 004BR            101 |       BSC  L  PD080,+-   EXIT IF ZERO               T3F01010
0021 D01D                  102 |       STO     PD808      STORE AS LOWER LIMIT       T3F01020
0022 7101                  103 |       MDX   1 1          MOVE POINTER               T3F01030
0023 C100                  104 |       LD    1 0          LOAD NEXT DUMP ADDRESS     T3F01040
0024 4C18 004BR            105 |       BSC  L  PD080,+-   EXIT IF ZERO               T3F01050
0026 D019                  106 |       STO     PD809      STORE AS UPPER LIMIT       T3F01060
0027 7101                  107 |       MDX   1 1          MOVE POINTER               T3F01070
0028 C100                  108 |       LD    1 0          LOAD FORMAT ADDRESS        T3F01080
0029 4C18 004BR            109 |       BSC  L  PD080,+-   EXIT IF ZERO               T3F01090
002B 7101                  110 |       MDX   1 1          MOVE POINTER               T3F01100
                           111 | *                                                   T3F01110
002C C013                  112 |       LD      PD809      LOAD UPPER LIMIT           T3F01120
002D 9011                  113 |       S       PD808      IS UPPER .GT. LOWER        T3F01130
002E 4C10 0034R            114 |       BSC  L  PD070,-    BRANCH IF YES              T3F01140
                           115 | *                                                   T3F01150
                           116 | *             EXCHANGE UPPER AND LOWER LIMITS       T3F01160
                           117 | *                                                   T3F01170
0030 C1FD                  118 | PD060 LD    1 -3         LOAD FIRST ADDRESS         T3F01180
0031 D00E                  119 |       STO     PD809      STORE AS UPPER LIMIT       T3F01190
0032 C1FE                  120 |       LD    1 -2         LOAD SECOND ADDRESS        T3F01200
0033 D00B                  121 |       STO     PD808      STORE AS LOWER LIMIT       T3F01210
                           122 | *                                                   T3F01220
0034 C580 FFFF             123 | PD070 LD   I1 -1         LOAD FORMAT WORD           T3F01230
0036 901E                  124 |       S       PD910      IS IT AN INTEGER DUMP      T3F01240
0037 4C18 0059R            125 |       BSC  L  PD100,+-   BRANCH IF YES              T3F01250
                           126 | *                                                   T3F01260
0039 9019                  127 |       S       PD905      IS IT A REAL DUMP          T3F01270
003A 4C18 0067R            128 |       BSC  L  PD110,+-   BRANCH IF YES              T3F01280
                           129 | *                                                   T3F01290
                           130 | *             ASSUME HEXADECIMAL DUMP               T3F01300
                           131 | *                                                   T3F01310
003C 4400 003F             132 |       BSI  L  $DUMP      BRANCH TO SYSTEM DUMP SUBR T3F01320
003E 0000                  133 |       DC      0          HEX FORMAT                 T3F01330
003F 0000                  134 | PD808 DC      *-*        LOW LIMIT                  T3F01340
0040 0000                  135 | PD809 DC      *-*        HIGH LIMIT                 T3F01350
                           136 | *                                                   T3F01360
0041 70DC                  137 |       MDX     PD050      GET NEXT SET OF PARAMETERS T3F01370
                           138 | *                                                   T3F01380
                           139 | *                                                   T3F01390
                           140 | *             FORMAT STATEMENTS                     T3F01400
                           141 | *                                                   T3F01410
                           142 | *             INTEGER FORMAT  12I10                 T3F01420
                           143 | *                                                   T3F01430
0042 200A                  144 | PD810 DC      /200A      I10                        T3F01440
0043 900C                  145 |       DC      /900C      12 TIMES                   T3F01450
0044 B002                  146 |       DC      /B002      RE-DO                      T3F01460
                           147 | *                                                   T3F01470
                           148 | *             STANDARD PRECISION FORMAT 6E20.6      T3F01480
                           149 | *                                                   T3F01490
0045 0314                  150 | PD820 DC      /0314      E20.6                      T3F01500
0046 9006                  151 |       DC      /9006      6 TIMES                    T3F01510
0047 B002                  152 |       DC      /B002      RE-DO                      T3F01520
                           153 | *                                                   T3F01530
                           154 | *             EXTENDED PRECISION FORMAT 6E20.9      T3F01540
                           155 | *                                                   T3F01550
0048 0494                  156 | PD830 DC      /0494      E20.9                      T3F01560
0049 9006                  157 |       DC      /9006      6 TIMES                    T3F01570
004A B002                  158 |       DC      /B002      RE-DO                      T3F01580
                           159 | *                                                   T3F01590
                           160 | *             SUBROUTINE EXIT                       T3F01600
                           161 | *                                                   T3F01610
004B 7101                  162 | PD080 MDX   1 1          MOVE PT TO RETURN ADDRESS  T3F01620
004C 6903                  163 |       STX   1 PD090+3    STORE EXIT ADDRESS         T3F01630
004D 6500 0000             164 | PD090 LDX  L1 *-*        RESTORE XR1                T3F01640
004F 4C00 0000             165 |       BSC  L  *-*        RETURN TO CALLING PROGRAM  T3F01650
                           166 | *                                                   T3F01660
                           167 | *                                                   T3F01670
                           168 | *             CONSTANTS                             T3F01680
                           169 | *                                                   T3F01690
0051 2218*9580             170 | PD901 LIBF    SFIO       DUMMY LIBF SFIO            T3F01700
0052 0007                  171 | PD902 DC      /0007      PRECISION MASK             T3F01710
0006R                      172 | PD903 EQU     PD010+2    REAL PRECISION             T3F01720
0007R                      173 | PD904 EQU     PD010+3    INTEGER PRECISION          T3F01730
0053 0001                  174 | PD905 DC      1          CONSTANT                   T3F01740
0054 7019                  175 | PD907 MDX     *+25       INSTRUCTION TO SKIP INIT   T3F01750
003FR                      176 | PD908 EQU     PD808      ADDR OF LOWER LIMIT        T3F01760
0040R                      177 | PD909 EQU     PD809      ADDR OF UPPER LIMIT        T3F01770
0055 0004                  178 | PD910 DC      4          CONSTANT                   T3F01780
003F                       179 | $DUMP EQU     /3F        SYSTEM DUMP ENTRY POINT    T3F01790
0056 0003                  180 | PD911 DC      3          CONSTANT                   T3F01800
0057 0045R                 181 | PD912 DC      PD820      ADDR OF STANDARD FORMAT    T3F01810
0058 0048R                 182 | PD913 DC      PD830      ADDR OF EXTENDED FORMAT    T3F01820
0008R                      183 | PD914 EQU     PD010+4    PRECISION WIDTH            T3F01830
                           184 | *                                                   T3F01840
                           185 | *             INTEGER FORMAT DUMP                   T3F01850
                           186 | *                                                   T3F01860
0059 C0AD                  187 | PD100 LD      PD904      LOAD INTEGER PRECISION     T3F01870
005A D0AD                  188 |       STO     PD914      STORE IN PRECISION WIDTH   T3F01880
                           189 | *                                                   T3F01890
005B 4018                  190 |       BSI     PD120      SPACE PRINTER, GET COUNT   T3F01900
                           191 | *                                                   T3F01910
005C D007                  192 |       STO     PD921      STORE COUNT INTO LIBF      T3F01920
005D C0E2                  193 |       LD      PD909      PUT ADDR OF FIRST ELEMENT  T3F01930
005E D004                  194 |       STO     PD920      *OF ARRAY INTO LIBF        T3F01940
                           195 | *                                                   T3F01950
005F 2299*98C0             196 |       LIBF    SWRT       INITIALIZE WRITE           T3F01960
0060 0000                  197 |       DC      0          TRACE DEVICE               T3F01970
0061 0042R                 198 |       DC      PD810      INTEGER FORMAT             T3F01980
                           199 | *                                                   T3F01990
0062 2225*6049             200 |       LIBF    SIOAI      WRITE INTEGER ARRAY        T3F02000
0063 0000                  201 | PD920 DC      *-*        ARRAY ADDRESS              T3F02010
0064 0000                  202 | PD921 DC      *-*        ELEMENT COUNT              T3F02020
                           203 | *                                                   T3F02030
0065 220D*6517             204 | PD105 LIBF    SCOMP      WRITE COMPLETE             T3F02040
                           205 | *                                                   T3F02050
0066 70B7                  206 |       MDX     PD050      GET NEXT SET OF PARAMETERS T3F02060
                           207 | *                                                   T3F02070
                           208 | *                                                   T3F02080
                           209 | *             REAL FORMAT DUMP                      T3F02090
                           210 | *                                                   T3F02100
0067 C09E                  211 | PD110 LD      PD903      LOAD REAL PRECISION        T3F02110
0068 D09F                  212 |       STO     PD914      PUT INTO PRECISION WIDTH   T3F02120
                           213 | *                                                   T3F02130
0069 400A                  214 |       BSI     PD120      SPACE PRINTER, GET COUNT   T3F02140
                           215 | *                                                   T3F02150
006A D007                  216 |       STO     PD932      STORE COUNT IN LIBF        T3F02160
006B C0D4                  217 |       LD      PD909      PUT ADDR OF FIRST ELEMENT  T3F02170
006C D004                  218 |       STO     PD931      *OF ARRAY INTO LIBF        T3F02180
                           219 | *                                                   T3F02190
006D 2299*98C0             220 |       LIBF    SWRT       INITIALIZE WRITE           T3F02200
006E 0000                  221 |       DC      0          TRACE DEVICE               T3F02210
006F 0000                  222 | PD930 DC      *-*        FORMAT ADDRESS             T3F02220
                           223 | *                                                   T3F02230
0070 2225*6046             224 |       LIBF    SIOAF      WRITE REAL ARRAY           T3F02240
0071 0000                  225 | PD931 DC      *-*        ARRAY ADDRESS              T3F02250
0072 0000                  226 | PD932 DC      *-*        ELEMENT COUNT              T3F02260
                           227 | *                                                   T3F02270
0073 70F1                  228 |       MDX     PD105      GO TO WRITE COMPLETE       T3F02280
                           229 | *                                                   T3F02290
                           230 | *                                                   T3F02300
                           231 | *             SPACE PRINTER AND CALCULATE ELEMENT   T3F02310
                           232 | *             COUNT.                                T3F02320
                           233 | *                                                   T3F02330
0074 0000                  234 | PD120 DC      *-*        LINK ADDRESS               T3F02340
                           235 | *                                                   T3F02350
0075 2299*98C0             236 |       LIBF    SWRT       INITIALIZE WRITE           T3F02360
0076 0000                  237 |       DC      0          TRACE DEVICE               T3F02370
0077 0080R                 238 |       DC      PD840      SPACE FORMAT               T3F02380
                           239 | *                                                   T3F02390
0078 220D*6517             240 |       LIBF    SCOMP      COMPLETE SPACE             T3F02400
                           241 | *                                                   T3F02410
0079 C0C6                  242 |       LD      PD809      GET NUMBER OF ELEMENTS     T3F02420
007A 90C4                  243 |       S       PD808      *IN ARRAY BY DIVIDING      T3F02430
007B 1890                  244 |       SRT     16         *ARRAY SIZE BY ELEMENT     T3F02440
007C A88B                  245 |       D       PD914      *SIZE.                     T3F02450
007D 80D5                  246 |       A       PD905      ADD 1                      T3F02460
007E 4C80 0074R            247 |       BSC  I  PD120      RETURN                     T3F02470
                           248 | *                                                   T3F02480
                           249 | *                                                   T3F02490
                           250 | *             SPACE FORMAT                          T3F02500
                           251 | *                                                   T3F02510
0080 7000                  252 | PD840 DC      /7000      SLASH                      T3F02520
0081 B001                  253 |       DC      /B001      RE-DO                      T3F02530
                           254 | *                                                   T3F02540
                           255 | *                                                   T3F02550
0082                       256 |       END                                           T3F02560
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
$DUMP 003F   179  132
PD010 0004R   70   97  172  173  183
PD020 000AR   77   70   74   75
PD030 0015R   87   83
PD040 0016R   89   85
PD050 001ER  100  137  206
PD060 0030R  118
PD070 0034R  123  114
PD080 004BR  162  101  105  109
PD090 004DR  164   67  163
PD100 0059R  187  125
PD105 0065R  204  228
PD110 0067R  211  128
PD120 0074R  234  190  214  247
PD808 003FR  134  102  113  121  176  243
PD809 0040R  135  106  112  119  177  242
PD810 0042R  144  198
PD820 0045R  150  181
PD830 0048R  156  182
PD840 0080R  252  238
PD901 0051R  170   71
PD902 0052R  171   78
PD903 0006R  172   80  211
PD904 0007R  173   81   94  187
PD905 0053R  174   92  127  246
PD907 0054R  175   96
PD908 003FR  176
PD909 0040R  177  193  217
PD910 0055R  178  124
PD911 0056R  180   82
PD912 0057R  181   84
PD913 0058R  182   87
PD914 0008R  183  188  212  245
PD920 0063R  201  194
PD921 0064R  202  192
PD930 006FR  222   89
PD931 0071R  225  218
PD932 0072R  226  216
PDUMP 0000R   65   68
ibm/ibm1130-lib/dmsr2v12/t3pdump_lst.txt ยท Last modified: 2023/08/06 13:34 by Site Administrator