User Tools

Site Tools


ibm:ibm1130-lib:dmsr2v12:u5dmtd0_lst

U5DMTD0

Table Of Contents
  • [00004] CALL DMTD0
u5dmtd0.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:10 2020
 
Source File: \u5dmtd0.asm 
CALL DMTD0
 
                             2 | *************************************************** U5B00020
                             3 | *                                                 * U5B00030
                             4 | *   SUBROUTINE NAME-                              * U5B00040
                             5 | *      FULL NAME- SELECTIVE DUMP ON TYPEWRITER    * U5B00050
                             6 | *      CODE NAME- DMTD0                           * U5B00060
                             7 | *               - DMTX0                           * U5B00070
                             8 | *   PURPOSE-                                      * U5B00080
                             9 | *      THIS 1130 SUBROUTINE DUMPS SELECTED AREAS  * U5B00090
                            10 | *      OF MEMORY IN HEXIDECIMAL OR DECIMAL ALONG  * U5B00100
                            11 | *      WITH STATUS IN FORMATION CONCERNING THE    * U5B00110
                            12 | *      ACCUM.,EXTENSION,INDEX REGISTERS AND       * U5B00120
                            13 | *      OVERFLOW AND CARRY INDICATORS.THE TYPE OF  * U5B00130
                            14 | *      DUMP,HEX OR DECIMAL IS SPECIFIED BY THE    * U5B00140
                            15 | *      CALL, DMTX0 FOR HEX AND DMTD0  DECIMAL.    * U5B00150
                            16 | *      THE LINKAGE TO THE SUBROUTINE IS-          * U5B00160
                            17 | *             CALL    DMTX0(DMTD0)                * U5B00170
                            18 | *             DC      START                       * U5B00180
                            19 | *             DC      END                         * U5B00190
                            20 | *      WHERE .START. AND .END. ARE THE STARTING   * U5B00200
                            21 | *      AND ENDING PARAMETERS OF THE DUMP.         * U5B00210
                            22 | *   METHOD- N/A                                   * U5B00220
                            23 | *   CAPABILITIES AND LIMITATIONS- N/A             * U5B00230
                            24 | *                                                 * U5B00240
                            25 | *************************************************** U5B00250
                            26 |       ENT     DMTD0                                 U5B00260
                            27 |       ENT     DMTX0                                 U5B00270
                            28 | *  SELECTIVE DUMP 1053 TYPEWRITER                   U5B00280
                            29 | *                                                   U5B00290
                            30 | *                                                   U5B00300
                            31 | *                                                   U5B00310
                            32 | *    SELECTIVE DUMP ROUTINE FOR 1053 TYPEWRITER     U5B00320
                            33 | * THIS IS A LIBRARY SUBROUTINE DESIGNED TO DUMP     U5B00330
                            34 | * SELECTED AREAS OF MEMORY WHILE EXECUTING AN       U5B00340
                            35 | * OBJECT PROGRAM WITH A RETURN TO THE MAINLINE      U5B00350
                            36 | * PROGRAM.                                          U5B00360
                            37 | * DMTX0 IS THE HEXADECIMAL ENTRY TO THIS SUBROUTINE U5B00370
                            38 | * DMTD0 IS THE DECIMAL ENTRY                        U5B00380
                            39 | * LINKAGES TO THE SUBROUTINE ARE                    U5B00390
                            40 | *     CALL    DMTX0 (DMTD0)                         U5B00400
                            41 | *     DC      A (STARTING ADDRESS)                  U5B00410
                            42 | *     DC      B (ENDING ADDRESS)                    U5B00420
                            43 | * A AND B ARE SYMBOLIC OR ACTUAL OPERANDS           U5B00430
                            44 | * REPRESENTING THE STARTING AND ENDING ADDRESSES    U5B00440
                            45 | * OF THE DUMP                                       U5B00450
                            46 | *                                                   U5B00460
                            47 | *                                                   U5B00470
                            48 | *                                                   U5B00480
                            49 | *                                                   U5B00490
0000 1000                   50 | DMTD0 NOP                                           U5B00500
0001 D806                   51 |       STD     AREG       SAVE ACC AND EXT           U5B00510
0002 C0FD                   52 |       LD      DMTYD      LOAD LINK                  U5B00520
0003 D06D                   53 |       STO     DMTYX      STORE                      U5B00530
0004 C017                   54 |       LD      DCIND      DECIMAL INDICATOR          U5B00540
0005 D015                   55 |       STO     MODE       STORE IN MODE              U5B00550
0006 706E                   56 |       MDX     STORE      GO SAVE CONDITIONS         U5B00560
                            57 | *                                                   U5B00570
                            58 | *                                                   U5B00580
                            59 | *     THE FOLLOWING REGISTERS ARE STORED SO THAT    U5B00590
                            60 | *     THEIR STATUS UPON ENTRY INTO THIS ROUTINE     U5B00600
                            61 | *     WILL NOT BE DISTROYED BUT WILL BE LISTED AS   U5B00610
                            62 | *     THE FIRST LINE OF THE DUMP. UPON THE          U5B00620
                            63 | *     COMPLETION OF THE DUMP, THE REGISTERS WILL    U5B00630
                            64 | *     BE RESET UPON EXIT FROM THE DUMP ROUTINE.     U5B00640
                            65 | *                                                   U5B00650
                            66 | *                                                   U5B00660
0008                        67 |       BSS  E  0          SET NEXT ADDRESS EVEN      U5B00670
0008 0000                   68 | AREG  DC      0          ACCUMULATOR                U5B00680
0009 0000                   69 | QREG  DC      0          Q REGISTER                 U5B00690
000A 0000                   70 | IRONE DC      0          INDEX REGISTER ONE         U5B00700
000B 0000                   71 | IRTWO DC      0          INDEX REGISTER TWO         U5B00710
000C 0000                   72 | IRTHR DC      0          INDEX REGISTER THREE       U5B00720
                            73 | *                                                   U5B00730
                            74 | *                                                   U5B00740
                            75 | *     CONSTANTS FOR ADDRESSING ERROR BY USER        U5B00750
                            76 | *                                                   U5B00760
                            77 | *                                                   U5B00770
000D 0009                   78 | ERROR DC      9          NUMBER OF WORDS TO BE PRNT U5B00780
000E 8121                   79 |       DC      /8121      CARRIER RETURN AND SPACE   U5B00790
000F 3662                   80 |       DC      /3662      LETTERS .E. AND .R.        U5B00800
0010 6252                   81 |       DC      /6252      LETTERS .R. AND .O.        U5B00810
0011 6221                   82 |       DC      /6221      LETTERS .R. AND SPACE      U5B00820
0012 2276                   83 |       DC      /2276      LETTERS .I. AND .N.        U5B00830
0013 213E                   84 |       DC      /213E      LETTERS SPACE AND .A.      U5B00840
0014 3232                   85 |       DC      /3232      LETTERS .D. AND .D.        U5B00850
0015 6236                   86 |       DC      /6236      LETTERS .R. AND .E.        U5B00860
0016 9A9A                   87 |       DC      /9A9A      LETTERS .S. AND .S.        U5B00870
0017 002CR                  88 | D21   DC      DECBU      DECIMAL BFR FOR 1ST LINE   U5B00880
0018 0032R                  89 | D22   DC      DEBUF      DECIMAL BFR FOR 2ND LINE   U5B00890
0019 0027R                  90 | D23   DC      HEXBU      HEX BUFFER FOR 2ND LINE    U5B00900
001A 0037R                  91 | D24   DC      HEBUF      HEX BUFFER FOR 1ST LINE    U5B00910
001B 0000                   92 | MODE  DC      0          TYPE OF DUMP               U5B00920
001C 0001                   93 | DCIND DC      1          DECIMAL DUMP INDICATOR     U5B00930
001D 0000                   94 | HXIND DC      0          HEXADECIMAL DUMP INDICATOR U5B00940
001E 0002                   95 | OFCON DC      2          WORD-COUNT OF MESSAGE      U5B00950
001F 5212                   96 |       DC      /5212      LETTERS .OF.               U5B00960
0020 1221                   97 |       DC      /1221      LETTERS .F SPACE.          U5B00970
0021 0002                   98 | ONCON DC      2          WORD-COUNT OF MESSAGE      U5B00980
0022 5276                   99 |       DC      /5276      LETTERS .ON.               U5B00990
0023 2121                  100 |       DC      /2121      TWO SPACES                 U5B01000
0024 001ER                 101 | OFF   DC      OFCON      STATUS                     U5B01010
0025 0021R                 102 | ON    DC      ONCON      STATUS                     U5B01020
0026 0003                  103 | TYPE0 DC      3          TYPE HEXADECIMALLY         U5B01030
0027 0000                  104 | HEXBU DC      0          OUTPUT BUFFER FOR          U5B01040
0028 0000                  105 |       DC      0          *HEX.WORDS(2ND LINE)       U5B01050
0029 2121                  106 |       DC      /2121      DOUBLE SPACE               U5B01060
002A 0006                  107 | TYPE1 DC      6          TYPE DECIMALLY             U5B01070
002B 21FE                  108 |       DC      /21FE      SPACE AND START. PARENT. ( U5B01080
002C 0000                  109 | DECBU DC      0          OUTPUT BUFFER              U5B01090
002D 0000                  110 |       DC      0          *FOR                       U5B01100
002E 0000                  111 |       DC      0          *DECIMAL WORDS(1ST LINE)   U5B01110
002F F621                  112 |       DC      /F621      END PARENT. AND SPACE      U5B01120
0030 2121                  113 |       DC      /2121      DOUBLE SPACE               U5B01130
0031 0004                  114 | TYPE2 DC      4                                     U5B01140
0032 0000                  115 | DEBUF DC      0          OUTPUT BUFFER              U5B01150
0033 0000                  116 |       DC      0          *FOR                       U5B01160
0034 0000                  117 |       DC      0          *DECIMAL WORDS(2ND LINE)   U5B01170
0035 2121                  118 |       DC      /2121      DOUBLE SPACE               U5B01180
0036 0002                  119 | TYPE3 DC      2                                     U5B01190
0037 0000                  120 | HEBUF DC      0          OUTPUT BUFFER FOR          U5B01200
0038 0000                  121 |       DC      0          *HEX.WORDS(1ST LINE)       U5B01210
0039 0026R                 122 | TY0   DC      TYPE0      HEXADECIMAL                U5B01220
003A 002AR                 123 | TY1   DC      TYPE1      DECIMAL                    U5B01230
003B 0031R                 124 | TY2   DC      TYPE2                                 U5B01240
003C 0036R                 125 | TY3   DC      TYPE3                                 U5B01250
003D 0008R                 126 | ACCUM DC      AREG                                  U5B01260
003E 0008R                 127 | SEREG DC      AREG       RESETS ACCUM CONSTANT      U5B01270
003F 0041R                 128 | DW    DC      DECWD                                 U5B01280
0040 0042R                 129 | HW    DC      HEXWD                                 U5B01290
0041 0000                  130 | DECWD DC      0                                     U5B01300
0042 0000                  131 | HEXWD DC      0                                     U5B01310
0043 0060R                 132 | DAD   DC      DECAD                                 U5B01320
0044 004FR                 133 | HAD   DC      HEXAD                                 U5B01330
0045 0000                  134 | ENDAD DC      0          ENDING ADDRESS             U5B01340
0046 0000                  135 | BEGAD DC      0          BEGINNING ADDRESS          U5B01350
                           136 | *                                                   U5B01360
                           137 | *                                                   U5B01370
                           138 | *     CARRIER RETURN ROUTINE AND PARAMETERS         U5B01380
                           139 | *                                                   U5B01390
                           140 | *                                                   U5B01400
0047 1000                  141 | CRRET NOP                                           U5B01410
0048 2666*3A30             142 |       LIBF    WRTY0      CALL TYPEWRITER SUBROUTINE U5B01420
0049 2001                  143 |       DC      /2001      CARRIER RETURN             U5B01430
004A 004DR                 144 |       DC      CARET                                 U5B01440
004B 4C80 0047R            145 |       BSC  I  CRRET      EXIT                       U5B01450
004D 0001                  146 | CARET DC      1          WORD COUNT                 U5B01460
004E 8121                  147 |       DC      /8121      CARRIER RETURN AND SPACE   U5B01470
                           148 | *                                                   U5B01480
                           149 | *                                                   U5B01490
                           150 | *     THIS ROUTINE WILL CONVERT THE ADDRESS AND THE U5B01500
                           151 | *     CONTENTS OF THE ADDRESS TO HEXADECIMAL        U5B01510
                           152 | *                                                   U5B01520
                           153 | *                                                   U5B01530
004F 1000                  154 | HEXAD NOP                                           U5B01540
0050 C0F1                  155 |       LD      HEXWD      WORD TO BE CONVERTED       U5B01550
0051 6600 0000             156 |       LDX  L2 0          STORAGE LOCATIONS          U5B01560
0053 4400 012BR            157 |       BSI  L  BINHX      CONVERSION ROUTINE         U5B01570
0055 4004                  158 |       BSI     BUSY       TEST 1053 TYPWTR. FOR BUSY U5B01580
0056 4014                  159 |       BSI     PRIND      TYPE HEXADECIMALLY         U5B01590
0057 4002                  160 |       BSI     BUSY       TEST 1053 BUSY             U5B01600
0058 4C80 004FR            161 |       BSC  I  HEXAD      EXIT                       U5B01610
                           162 | *                                                   U5B01620
                           163 | *                                                   U5B01630
005A 1000                  164 | BUSY  NOP                                           U5B01640
005B 2666*3A30             165 |       LIBF    WRTY0      TEST TYPEWRITER            U5B01650
005C 0000                  166 |       DC      0          BUSY                       U5B01660
005D 70FD                  167 |       MDX     BUSY+1     LOOP IF BUSY               U5B01670
005E 4C80 005AR            168 |       BSC  I  BUSY       EXIT IF NOT BUSY           U5B01680
                           169 | *                                                   U5B01690
                           170 | *                                                   U5B01700
                           171 | *     THIS ROUTINE WILL CONVERT THE ADDRESS TO      U5B01710
                           172 | *     DECIMAL ONLY                                  U5B01720
                           173 | *                                                   U5B01730
                           174 | *                                                   U5B01740
0060 1000                  175 | DECAD NOP                                           U5B01750
0061 C0DF                  176 |       LD      DECWD      WORD TO BE CONVERTED       U5B01760
0062 6600 0000             177 |       LDX  L2 0          STORAGE LOCATIONS          U5B01770
0064 4400 0163R            178 |       BSI  L  BINDC      CONVERSION ROUTINE         U5B01780
0066 40F3                  179 |       BSI     BUSY       TEST 1053 TYPWTR. FOR BUSY U5B01790
0067 4003                  180 |       BSI     PRIND      PRINT DECIMALLY            U5B01800
0068 40F1                  181 |       BSI     BUSY       TEST 1053 BUSY             U5B01810
0069 4C80 0060R            182 |       BSC  I  DECAD      EXIT                       U5B01820
                           183 | *                                                   U5B01830
                           184 | *                                                   U5B01840
                           185 | *     PRINT STATUS OF INDICATORS                    U5B01850
                           186 | *                                                   U5B01860
                           187 | *                                                   U5B01870
006B 1000                  188 | PRIND NOP                                           U5B01880
006C 2666*3A30             189 |       LIBF    WRTY0      CALL TYPEWRITER SUBROUTINE U5B01890
006D 2001                  190 |       DC      /2001                                 U5B01900
006E 0000                  191 |       DC      *-*        TYPE STATUS                U5B01910
006F 4C80 006BR            192 |       BSC  I  PRIND                                 U5B01920
                           193 | *                                                   U5B01930
                           194 | *     HEXADECIMAL ENTRY TO DUMP SUBROUTINE          U5B01940
                           195 | *                                                   U5B01950
                           196 | *                                                   U5B01960
0071 1000                  197 | DMTX0 NOP                                           U5B01970
0072 D895                  198 |       STD     AREG       SAVE ACC AND EXT           U5B01980
0073 C0A9                  199 |       LD      HXIND      HEXADECIMAL INDICATOR      U5B01990
0074 D0A6                  200 |       STO     MODE       STORE IN MODE              U5B02000
0075 6994                  201 | STORE STX   1 IRONE      SAVE XR1                   U5B02010
0076 6A94                  202 |       STX   2 IRTWO      SAVE XR2                   U5B02020
0077 6B94                  203 |       STX   3 IRTHR      SAVE XR3                   U5B02030
0078 2C00 010BR            204 |       STS  L  STOC       OVERFLOW AND CARRY STORED  U5B02040
                           205 | *                                                   U5B02050
                           206 | *                                                   U5B02060
                           207 | *     SETUP START, END AND RETURN ADDRESSES         U5B02070
                           208 | *                                                   U5B02080
                           209 | *                                                   U5B02090
007A C480 0071R            210 |       LD   I  DMTYX                                 U5B02100
007C D0C9                  211 |       STO     BEGAD      STARTING ADDRESS           U5B02110
007D 7401 0071R            212 |       MDX  L  DMTYX,1    INCREMENT BY 1             U5B02120
007F C480 0071R            213 |       LD   I  DMTYX                                 U5B02130
0081 D0C3                  214 |       STO     ENDAD      ENDING ADDRESS             U5B02140
0082 7401 0071R            215 |       MDX  L  DMTYX,1    INCREMENT BY 1 (RET. ADDR) U5B02150
0084 40D5                  216 |       BSI     BUSY       TEST 1053 BUSY             U5B02160
0085 40C1                  217 |       BSI     CRRET      CARRIER RETURN             U5B02170
                           218 | *                                                   U5B02180
                           219 | *     INVALID ADDRESS TEST.                         U5B02190
                           220 | *                                                   U5B02200
                           221 | *                                                   U5B02210
0086 C0BE                  222 |       LD      ENDAD                                 U5B02220
0087 90BE                  223 |       S       BEGAD                                 U5B02230
0088 4C10 008FR            224 |       BSC  L  TSOFL,-    BR IF ADDRESSES OK         U5B02240
008A 2666*3A30             225 |       LIBF    WRTY0      CALL TYPEWRITER            U5B02250
008B 2001                  226 |       DC      /2001      TYPE ERROR MESSAGE         U5B02260
008C 000DR                 227 |       DC      ERROR                                 U5B02270
008D 4C00 0105R            228 |       BSC  L  FINSH      GO EXIT                    U5B02280
                           229 | *                                                   U5B02290
                           230 | *                                                   U5B02300
                           231 | *     TEST OVERFLOW AND CARRY INDICATORS            U5B02310
                           232 | *                                                   U5B02320
                           233 | *                                                   U5B02330
008F C400 010BR            234 | TSOFL LD   L  STOC       LOAD INDICATOR (OVERFLOW)  U5B02340
0091 100F                  235 |       SLA     15                                2-6 U5B02350
0092 4C28 00A4R            236 |       BSC  L  OVON,+Z    BRANCH IF ON               U5B02360
0094 40C5                  237 |       BSI     BUSY       TEST FOR BUSY              U5B02370
0095 C08E                  238 |       LD      OFF        STATUS OF OVERFLOW         U5B02380
0096 D0D7                  239 |       STO     PRIND+3                               U5B02390
0097 40D3                  240 |       BSI     PRIND      PRINT STATUS               U5B02400
0098 40C1                  241 | TSCAR BSI     BUSY       TEST 1053 BUSY             U5B02410
0099 C400 010BR            242 |       LD   L  STOC       LOAD CARRY INDICATOR       U5B02420
009B 100E                  243 |       SLA     14                                2-6 U5B02430
009C 4C28 00AAR            244 |       BSC  L  CAON,+Z    BRANCH IF ON               U5B02440
009E 40BB                  245 |       BSI     BUSY       TEST BUSY                  U5B02450
009F C084                  246 |       LD      OFF        SET TO PRINT               U5B02460
00A0 D0CD                  247 |       STO     PRIND+3    LETTER .OFF.               U5B02470
00A1 40B8                  248 |       BSI     BUSY       TEST BUSY                  U5B02480
00A2 40C8                  249 |       BSI     PRIND      GO PRINT A WORD            U5B02490
00A3 700C                  250 |       MDX     REGTR      GO DO REGISTERS            U5B02500
00A4 40B5                  251 | OVON  BSI     BUSY       TEST BUSY                  U5B02510
00A5 C400 0025R            252 |       LD   L  ON         SET UP TO                  U5B02520
00A7 D0C6                  253 |       STO     PRIND+3    *PRINT LETTER .ON.         U5B02530
00A8 40C2                  254 |       BSI     PRIND      GO TO PRINT SUBR           U5B02540
00A9 70EE                  255 |       MDX     TSCAR      GO TEST CARRY INDICATOR    U5B02550
00AA 40AF                  256 | CAON  BSI     BUSY       CHECK TYPEWRITER BUSY      U5B02560
00AB C400 0025R            257 |       LD   L  ON         SET UP TO                  U5B02570
00AD D0C0                  258 |       STO     PRIND+3    *PRINT .ON.                U5B02580
00AE 40BC                  259 |       BSI     PRIND      GO PRINT                   U5B02590
00AF 40AA                  260 |       BSI     BUSY       TEST TYPEWRITER BUSY       U5B02600
                           261 | *                                                   U5B02610
                           262 | *                                                   U5B02620
                           263 | *     CONVERT ACC,EXT,XR1,XR2,XR3, TO               U5B02630
                           264 | *     HEXADECIMAL AND DECIMAL FORM FOR FIRST LINE.  U5B02640
                           265 | *                                                   U5B02650
00B0 4400 005AR            266 | REGTR BSI  L  BUSY       TEST 1053 BUSY             U5B02660
00B2 6105                  267 |       LDX   1 5          5 REGISTERS TO PRINT       U5B02670
00B3 4400 005AR            268 | REGIS BSI  L  BUSY       TEST 1053 BUSY             U5B02680
00B5 C480 003DR            269 |       LD   I  ACCUM      1ST WORD OF ADDRESS        U5B02690
00B7 D08A                  270 |       STO     HEXWD      AREG TO HEXADECIMAL        U5B02700
00B8 D088                  271 |       STO     DECWD      AREG TO DECIMAL            U5B02710
00B9 C400 003CR            272 |       LD   L  TY3                                   U5B02720
00BB D0B2                  273 |       STO     PRIND+3                               U5B02730
00BC C400 001AR            274 |       LD   L  D24                                   U5B02740
00BE D400 0052R            275 |       STO  L  HEXAD+3                               U5B02750
00C0 408E                  276 |       BSI     HEXAD      CONVERT TO HEX             U5B02760
00C1 4098                  277 |       BSI     BUSY       TEST 1053 BUSY             U5B02770
00C2 C400 003AR            278 |       LD   L  TY1                                   U5B02780
00C4 D0A9                  279 |       STO     PRIND+3    SET UP PRINT BUFFER        U5B02790
00C5 C400 0017R            280 |       LD   L  D21                                   U5B02800
00C7 D400 0063R            281 |       STO  L  DECAD+3                               U5B02810
00C9 4096                  282 |       BSI     DECAD      CONVERT TO DECIMAL         U5B02820
00CA 7401 003DR            283 |       MDX  L  ACCUM,1    NEXT REGISTER              U5B02830
00CC 71FF                  284 |       MDX   1 -1         ARE WE FINISHED, YES SKIP  U5B02840
00CD 70E5                  285 |       MDX     REGIS      NO,DO NEXT                 U5B02850
00CE 4400 0047R            286 |       BSI  L  CRRET      CARRIER RETURN             U5B02860
00D0 4400 0047R            287 |       BSI  L  CRRET      CARRIER RETURN             U5B02870
00D2 C400 003ER            288 |       LD   L  SEREG      RESET ACCUM CONSTANT       U5B02880
00D4 D400 003DR            289 |       STO  L  ACCUM      STORAGE                    U5B02890
                           290 | *                                                   U5B02900
                           291 | *                                                   U5B02910
                           292 | * LINE ADDRESS ALWAYS HEXADECIMAL.                  U5B02920
                           293 | *                                                   U5B02930
                           294 | *                                                   U5B02940
00D6 4083                  295 |       BSI     BUSY       CHECK BUSY                 U5B02950
00D7 C400 0046R            296 | ADCON LD   L  BEGAD      ADDRESS OF WORD            U5B02960
00D9 D400 0042R            297 |       STO  L  HEXWD                                 U5B02970
00DB 4400 005AR            298 |       BSI  L  BUSY       TEST 1053 BUSY             U5B02980
00DD C400 0039R            299 |       LD   L  TY0        SET UP TO                  U5B02990
00DF D08E                  300 |       STO     PRIND+3    *PRINT                     U5B03000
00E0 C400 0019R            301 |       LD   L  D23        *HEXADECIMAL               U5B03010
00E2 D400 0052R            302 |       STO  L  HEXAD+3    ADDRESS OF LINE            U5B03020
00E4 4400 004FR            303 |       BSI  L  HEXAD      GO CONVERT AND PRINT       U5B03030
                           304 | *                                                   U5B03040
                           305 | *                                                   U5B03050
                           306 | *     TEST FOR THE TYPE OF DUMP THAT HAS BEEN       U5B03060
                           307 | *     REQUESTED BY THE USER FROM MAINLINE PROGRAM.  U5B03070
                           308 | *                                                   U5B03080
                           309 | *                                                   U5B03090
00E6 C400 001BR            310 |       LD   L  MODE       TYPE OF DUMP               U5B03100
00E8 4C20 0115R            311 |       BSC  L  DESML,Z    DECIMAL IF NOT ZERO        U5B03110
00EA 6108                  312 | NEWLN LDX   1 8          8 WORDS PER LINE           U5B03120
00EB C480 0046R            313 | NEXT  LD   I  BEGAD      GET CONTENTS OF ADDRESS    U5B03130
00ED D400 0042R            314 |       STO  L  HEXWD                                 U5B03140
00EF 4400 005AR            315 |       BSI  L  BUSY       TEST 1053 BUSY             U5B03150
00F1 C400 0039R            316 |       LD   L  TY0        SET UP                     U5B03160
00F3 D400 006ER            317 |       STO  L  PRIND+3    *HEX BUFFER                U5B03170
00F5 C400 0019R            318 |       LD   L  D23        *TO PRINT                  U5B03180
00F7 D400 0052R            319 |       STO  L  HEXAD+3    ONE HEX WORD               U5B03190
00F9 4400 004FR            320 |       BSI  L  HEXAD      GO CONVERT AND PRINT       U5B03200
00FB 7401 0046R            321 |       MDX  L  BEGAD,1    NEXT WORD                  U5B03210
00FD 71FF                  322 |       MDX   1 -1         DECREMENT LINE COUNT       U5B03220
00FE 70EC                  323 |       MDX     NEXT       NEXT WORD IF NOT DONE      U5B03230
                           324 | *                                                   U5B03240
                           325 | *                                                   U5B03250
                           326 | *     TEST FOR END OF DUMP                          U5B03260
                           327 | *                                                   U5B03270
                           328 | *                                                   U5B03280
00FF C400 0045R            329 | ADTES LD   L  ENDAD                                 U5B03290
0101 9400 0046R            330 |       S    L  BEGAD                                 U5B03300
0103 4C10 0112R            331 |       BSC  L  INCPL,-    BR IF NOT DONE             U5B03310
0105 CC00 0008R            332 | FINSH LDD  L  AREG       RESTORE ACC AND EXT        U5B03320
0107 6580 000AR            333 |       LDX  I1 IRONE      RESTORE XR1                U5B03330
0109 6680 000BR            334 |       LDX  I2 IRTWO      RESTORE  XR2               U5B03340
010B 2000                  335 | STOC  LDS     0          RESTORE STATUS             U5B03350
010C 4400 0047R            336 |       BSI  L  CRRET      CARRIER RETURN             U5B03360
010E 4400 005AR            337 |       BSI  L  BUSY       TEST 1053 BUSY             U5B03370
0110 4C80 0071R            338 |       BSC  I  DMTYX      EXIT TO MAINLINE           U5B03380
0112 4400 0047R            339 | INCPL BSI  L  CRRET      CARRIER RETURN             U5B03390
0114 70C2                  340 |       MDX     ADCON      NEXT LINE                  U5B03400
0115 6108                  341 | DESML LDX   1 8          8 WORDS PER LINE           U5B03410
0116 C480 0046R            342 | MORI  LD   I  BEGAD      GET WORD TO BE DUMPED      U5B03420
0118 D400 0041R            343 |       STO  L  DECWD      STORE IN DECIMAL BUFFER    U5B03430
011A 4400 005AR            344 |       BSI  L  BUSY       BUSY TEST                  U5B03440
011C C400 003BR            345 |       LD   L  TY2        SET UP TO                  U5B03450
011E D400 006ER            346 |       STO  L  PRIND+3    *PRINT                     U5B03460
0120 C400 0018R            347 |       LD   L  D22        *DECIMAL                   U5B03470
0122 D400 0063R            348 |       STO  L  DECAD+3    *WORD                      U5B03480
0124 4400 0060R            349 |       BSI  L  DECAD      GO CONVERT AND PRINT       U5B03490
0126 7401 0046R            350 |       MDX  L  BEGAD,1    NEXT WORD TO DUMP          U5B03500
0128 71FF                  351 |       MDX   1 -1         SKIP IF 8 WORDS DONE       U5B03510
0129 70EC                  352 |       MDX     MORI       DO NEXT WORD               U5B03520
012A 70D4                  353 |       MDX     ADTES      GO DO NEXT LINE            U5B03530
                           354 | *                                                   U5B03540
                           355 | *     BINARY TO HEXIDECIMAL CONVERSION SUBR         U5B03550
                           356 | *                                                   U5B03560
012B                       357 | BINHX BSS     1          RESERVE ONE WORD           U5B03570
012C 18D0                  358 |       RTE     16         ROTATE A+Q, A STORED IN Q  U5B03580
012D C020                  359 |       LD      D192       NO. FOR HEX CHAR. COUNT    U5B03590
012E D021                  360 |       STO     COUNT      COUNT = 192                U5B03600
012F C01D                  361 |       LD      D9         FOR EVEN OR ODD TEST       U5B03610
0130 D01E                  362 |       STO     PART       PART = 9                   U5B03620
0131 C01A                  363 |       LD      ZERO                                  U5B03630
0132 D200                  364 |       STO   2 0          CLEAR HEX BUF. 1           U5B03640
0133 D201                  365 |       STO   2 1          CLEAR HEX BUF. 2           U5B03650
0134 C017                  366 | A     LD      ZERO                                  U5B03660
0135 1084                  367 |       SLT     4          SHIFT 1ST 4 BITS IN ACCUM. U5B03670
0136 801B                  368 |       A       ADDR       MODIFY FOR TABLE LOOKUP    U5B03680
0137 D001                  369 |       STO     *+1                                   U5B03690
0138 C400 0000             370 |       LD   L  0          GET CHARACTER              U5B03700
013A D016                  371 |       STO     TEMP                                  U5B03710
013B 7401 014FR            372 |       MDX  L  PART,1     WHICH PART OF PART         U5B03720
013D C011                  373 |       LD      PART                                  U5B03730
013E 4C04 0144R            374 |       BSC  L  B,E        BR IF RIGHT HALF           U5B03740
0140 7201                  375 |       MDX   2 1          MOVE POINTER               U5B03750
0141 C00F                  376 |       LD      TEMP                                  U5B03760
0142 1008                  377 |       SLA     8          SHIFT IN 1ST PART          U5B03770
0143 7001                  378 |       MDX     C                                     U5B03780
0144 C00C                  379 | B     LD      TEMP                                  U5B03790
0145 82FF                  380 | C     A     2 -1         COMBINE 2 CHARACTERS       U5B03800
0146 D2FF                  381 |       STO   2 -1         STORE IN OUTPUT BUFFER     U5B03810
0147 74D0 0150R            382 |       MDX  L  COUNT,-48  DECR CHARACTER COUNT BY 1  U5B03820
0149 70EA                  383 |       MDX     A          RETURN TO A FOR NEXT CHAR  U5B03830
014A 4C80 012BR            384 |       BSC  I  BINHX      EXIT                       U5B03840
014C 0000                  385 | ZERO  DC      0          CONST ZERO                 U5B03850
014D 0009                  386 | D9    DC      9          RIGHT-LEFT INDR  INIT      U5B03860
014E 00C0                  387 | D192  DC      192        CHAR COUNT--4*48           U5B03870
014F 0000                  388 | PART  DC      0          RIGHT/LEFT INDR            U5B03880
0150 0000                  389 | COUNT DC      0          WORD TO STORE CHAR COUNT   U5B03890
0151 0000                  390 | TEMP  DC      0          TEMP BUFFER FOR 2 CHARS    U5B03900
0152 0153R                 391 | ADDR  DC      TYTAB      TABLES                     U5B03910
0153 00C4                  392 | TYTAB DC      196        = 0                        U5B03920
0154 00FC                  393 |       DC      252        = 1                        U5B03930
0155 00D8                  394 |       DC      216        = 2                        U5B03940
0156 00DC                  395 |       DC      220        = 3                        U5B03950
0157 00F0                  396 |       DC      240        = 4                        U5B03960
0158 00F4                  397 |       DC      244        = 5                        U5B03970
0159 00D0                  398 |       DC      208        = 6                        U5B03980
015A 00D4                  399 |       DC      212        = 7                        U5B03990
015B 00E4                  400 |       DC      228        = 8                        U5B04000
015C 00E0                  401 |       DC      224        = 9                        U5B04010
015D 003E                  402 |       DC      62         =A                         U5B04020
015E 001A                  403 |       DC      26         =B                         U5B04030
015F 001E                  404 |       DC      30         =C                         U5B04040
0160 0032                  405 |       DC      50         =D                         U5B04050
0161 0036                  406 |       DC      54         =E                         U5B04060
0162 0012                  407 |       DC      18         =F                         U5B04070
0163                       408 | BINDC BSS     1          BIN TO DECIMAL CONVERSION  U5B04080
0164 D0EC                  409 |       STO     TEMP       STORE BINARY VALUE         U5B04090
0165 C032                  410 |       LD      D10                                   U5B04100
0166 D0E9                  411 |       STO     COUNT      COUNT = 10                 U5B04110
0167 C0E5                  412 |       LD      D9         INITIALIZE                 U5B04120
0168 D0E6                  413 |       STO     PART       *RIGHT-LEFT HALF INDR      U5B04130
0169 1810                  414 |       SRA     16                                    U5B04140
016A D200                  415 | CLEAR STO   2 0          CLEAR DECIMALS BUFFERS     U5B04150
016B D201                  416 |       STO   2 1                                     U5B04160
016C D202                  417 |       STO   2 2                                     U5B04170
016D C0E3                  418 |       LD      TEMP                                  U5B04180
016E 4C28 0173R            419 |       BSC  L  G,+Z       BR IF NUMBER IS NEG        U5B04190
0170 C028                  420 |       LD      PLUS       IS POSITIVE,STORE          U5B04200
0171 D200                  421 |       STO   2 0          *PLUS SIGN IN BUFFER       U5B04210
0172 7007                  422 |       MDX     H          GO CONVERT                 U5B04220
0173 C026                  423 | G     LD      MINUS      NUMBER IS NEG,STORE        U5B04230
0174 D200                  424 |       STO   2 0          *MINUS SIGN IN BUFFER      U5B04240
0175 1810                  425 |       SRA     16         INVERT                     U5B04250
0176 90DA                  426 |       S       TEMP       *NUMBER                    U5B04260
0177 4808                  427 |       BSC     +          OK IF POSITIVE             U5B04270
0178 C01D                  428 |       LD      H7FFF      SET NUMBER TO 32767        U5B04280
0179 D0D7                  429 |       STO     TEMP                                  U5B04290
017A C0D6                  430 | H     LD      TEMP       SHIFT BINARY VALUE         U5B04300
017B 1890                  431 |       SRT     16         *TO EXTENSION              U5B04310
017C A81B                  432 |       D       D10        DIVIDE BY 10               U5B04320
017D D0D3                  433 |       STO     TEMP       STORE QUOTIENT             U5B04330
017E 18D0                  434 |       RTE     16         REMAINDER TO ACCUM         U5B04340
017F 4801                  435 |       BSC     O                                     U5B04350
0180 8016                  436 |       A       D1                                    U5B04360
0181 80D0                  437 |       A       ADDR       GET ADDR OF CHAR IN TABLE  U5B04370
0182 D001                  438 |       STO     *+1                                   U5B04380
0183 C400 0000             439 |       LD   L  0          LOAD CHARACTER             U5B04390
0185 18D0                  440 |       RTE     16         SAVE IN EXT                U5B04400
0186 C0C8                  441 |       LD      PART       RIGHT OR LEFT SIDE         U5B04410
0187 4804                  442 |       BSC     E          SKIP IF LEFT               U5B04420
0188 18C8                  443 |       RTE     8          NO SKIP IF RIGHT           U5B04430
0189 18C8                  444 |       RTE     8                                     U5B04440
018A 8202                  445 |       A     2 2          COMBINE CHARACTER          U5B04450
018B D202                  446 |       STO   2 2          STORE IN BUFFER            U5B04460
018C 7401 014FR            447 |       MDX  L  PART,1     STEP  INDICATOR            U5B04470
018E C0C0                  448 |       LD      PART                                  U5B04480
018F 4804                  449 |       BSC     E                                     U5B04490
0190 72FF                  450 |       MDX   2 -1         STEP BUFFER POINTER IF ODD U5B04500
0191 74FE 0150R            451 |       MDX  L  COUNT,-2   DECR COUNT,SKIP IF 5 CHARS U5B04510
0193 70E6                  452 |       MDX     H          *DONE,IF NOT,DO NXT CHAR   U5B04520
0194 4C80 0163R            453 |       BSC  I  BINDC      EXIT                       U5B04530
0196 7FFF                  454 | H7FFF DC      /7FFF      CONST TO TEST -32768       U5B04540
0197 0001                  455 | D1    DC      1          CONST 1                    U5B04550
0198 000A                  456 | D10   DC      10         CONST FOR BIN/DEC CONV     U5B04560
0199 DA00                  457 | PLUS  DC      /DA00      PLUS SIGN                  U5B04570
019A 8400                  458 | MINUS DC      /8400      MINUS SIGN                 U5B04580
0071R                      459 | DMTYX EQU     DMTX0                                 U5B04590
0000R                      460 | DMTYD EQU     DMTD0                                 U5B04600
019B                       461 |       END     DMTD0                                 U5B04610
 
There were no errors in this assembly
 
Program transfer address = 0000
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
A     0134R  366  383
ACCUM 003DR  126  269  283  289
ADCON 00D7R  296  340
ADDR  0152R  391  368  437
ADTES 00FFR  329  353
AREG  0008R   68   51  126  127  198  332
B     0144R  379  374
BEGAD 0046R  135  211  223  296  313  321  330  342  350
BINDC 0163R  408  178  453
BINHX 012BR  357  157  384
BUSY  005AR  164  158  160  167  168  179  181  216  237  241  245  248  251
                  256  260  266  268  277  295  298  315  337  344
C     0145R  380  378
CAON  00AAR  256  244
CARET 004DR  146  144
CLEAR 016AR  415
COUNT 0150R  389  360  382  411  451
CRRET 0047R  141  145  217  286  287  336  339
D1    0197R  455  436
D10   0198R  456  410  432
D192  014ER  387  359
D21   0017R   88  280
D22   0018R   89  347
D23   0019R   90  301  318
D24   001AR   91  274
D9    014DR  386  361  412
DAD   0043R  132
DCIND 001CR   93   54
DEBUF 0032R  115   89
DECAD 0060R  175  132  182  281  282  348  349
DECBU 002CR  109   88
DECWD 0041R  130  128  176  271  343
DESML 0115R  341  311
DMTD0 0000R   50  460  461
DMTX0 0071R  197  459
DMTYD 0000R  460   52
DMTYX 0071R  459   53  210  212  213  215  338
DW    003FR  128
ENDAD 0045R  134  214  222  329
ERROR 000DR   78  227
FINSH 0105R  332  228
G     0173R  423  419
H     017AR  430  422  452
H7FFF 0196R  454  428
HAD   0044R  133
HEBUF 0037R  120   91
HEXAD 004FR  154  133  161  275  276  302  303  319  320
HEXBU 0027R  104   90
HEXWD 0042R  131  129  155  270  297  314
HW    0040R  129
HXIND 001DR   94  199
INCPL 0112R  339  331
IRONE 000AR   70  201  333
IRTHR 000CR   72  203
IRTWO 000BR   71  202  334
MINUS 019AR  458  423
MODE  001BR   92   55  200  310
MORI  0116R  342  352
NEWLN 00EAR  312
NEXT  00EBR  313  323
OFCON 001ER   95  101
OFF   0024R  101  238  246
ON    0025R  102  252  257
ONCON 0021R   98  102
OVON  00A4R  251  236
PART  014FR  388  362  372  373  413  441  447  448
PLUS  0199R  457  420
PRIND 006BR  188  159  180  192  239  240  247  249  253  254  258  259  273
                  279  300  317  346
QREG  0009R   69
REGIS 00B3R  268  285
REGTR 00B0R  266  250
SEREG 003ER  127  288
STOC  010BR  335  204  234  242
STORE 0075R  201   56
TEMP  0151R  390  371  376  379  409  418  426  429  430  433
TSCAR 0098R  241  255
TSOFL 008FR  234  224
TY0   0039R  122  299  316
TY1   003AR  123  278
TY2   003BR  124  345
TY3   003CR  125  272
TYPE0 0026R  103  122
TYPE1 002AR  107  123
TYPE2 0031R  114  124
TYPE3 0036R  119  125
TYTAB 0153R  392  391
ZERO  014CR  385  363  366
ibm/ibm1130-lib/dmsr2v12/u5dmtd0_lst.txt ยท Last modified: 2023/08/06 13:34 by Site Administrator