ibm:ibm1130-lib:dmsr2v12:u5dmpd1_lst
U5DMPD1
| Table Of Contents |
|---|
|
- u5dmpd1.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:10 2020 Source File: \u5dmpd1.asm CALL DMPD1 2 | *************************************************** U5C00020 3 | * * U5C00030 4 | * SUBROUTINE NAME- * U5C00040 5 | * FULL NAME- SELECTIVE DUMP ON 1132 PRINTER * U5C00050 6 | * CODE NAME- DMPD1 * U5C00060 7 | * - DMPX1 * U5C00070 8 | * PURPOSE- * U5C00080 9 | * THIS 1130 SUBROUTINE DUMPS SELECTED AREAS * U5C00090 10 | * OF MEMORY IN HEXIDECIMAL OR DECIMAL ALONG * U5C00100 11 | * WITH STATUS IN FORMATION CONCERNING THE * U5C00110 12 | * ACCUM.,EXTENSION,INDEX REGISTERS AND * U5C00120 13 | * OVERFLOW AND CARRY INDICATORS.THE TYPE OF * U5C00130 14 | * DUMP,HEX OR DECIMAL IS SPECIFIED BY THE * U5C00140 15 | * CALL, DMPX1 FOR HEX AND DMPD1 DECIMAL. * U5C00150 16 | * THE LINKAGE TO THE SUBROUTINE IS- * U5C00160 17 | * CALL DMPX1(DMPD1) * U5C00170 18 | * DC START * U5C00180 19 | * DC END * U5C00190 20 | * WHERE .START. AND .END. ARE THE STARTING * U5C00200 21 | * AND ENDING PARAMETERS OF THE DUMP. * U5C00210 22 | * METHOD- N/A * U5C00220 23 | * CAPABILITIES AND LIMITATIONS- N/A * U5C00230 24 | * * U5C00240 25 | *************************************************** U5C00250 26 | ENT DMPD1 U5C00260 27 | ENT DMPX1 U5C00270 28 | * SELECTIVE DUMP 1132 PRINTER U5C00280 29 | * THIS IS A LIBRARY SUBROUTINE DESIGNED TO DUMP U5C00290 30 | * AREAS OF MEMORY WHILE EXECUTING AN OBJECT PROGRAM U5C00300 31 | * WITH A RETURN TO THE MAINLINE PROGRAM. ENTRY TO U5C00310 32 | * THIS ROUTINE FOR HEXADECIMAL OUTPUT IS DMPX1, U5C00320 33 | * FOR DECIMAL OUTPUT, THE ENTRY IS DMPD1. LINKAGES U5C00330 34 | * TO THE SUBROUTINES ARE . U5C00340 35 | * CALL DMPX1 (DMPD1) U5C00350 36 | * DC A STARTING ADDRESS U5C00360 37 | * DC B ENDING ADDRESS U5C00370 38 | * WHERE A AND B ARE SYMBOLIC OR ACTUAL OPERANDS. U5C00380 39 | * U5C00390 40 | * U5C00400 0000 1000 41 | DMPD1 NOP U5C00410 0001 DC00 00B8R 42 | STD L AREG STORE ACC AND EXT U5C00420 0003 C0FC 43 | LD DMPRD LOAD LINK U5C00430 0004 D006 44 | STO DMPRX STORE U5C00440 0005 C004 45 | LD DCIND DECIMAL INDICATOR U5C00450 0006 D400 00F7R 46 | STO L MODE STORE IN MODE U5C00460 0008 7008 47 | MDX STORY GO SAVE INDEX REGISTERS U5C00470 48 | * U5C00480 49 | * U5C00490 50 | * DUMP INDICATOR CONSTANTS U5C00500 51 | * U5C00510 0009 0000 52 | HXIND DC 0 HEXADECIMAL DUMP INDICATOR U5C00520 000A 0001 53 | DCIND DC 1 DECIMAL DUMP INDICATOR U5C00530 54 | * U5C00540 55 | * U5C00550 56 | * HEXADECIMAL ENTRY TO DUMP SUBROUTINE U5C00560 57 | * U5C00570 58 | * U5C00580 000B 1000 59 | DMPX1 NOP U5C00590 000C DC00 00B8R 60 | STD L AREG A AND Q CONTENTS STORED U5C00600 000E C0FA 61 | LD HXIND HEXADECIMAL INDICATOR U5C00610 000F D400 00F7R 62 | STO L MODE STORE IN MODE U5C00620 0011 6D00 00BAR 63 | STORY STX L1 IRONE SAVE XR1 U5C00630 0013 6E00 00BBR 64 | STX L2 IRTWO SAVE XR2 U5C00640 0015 6F00 00BCR 65 | STX L3 IRTHR SAVE XR3 U5C00650 0017 2C00 0133R 66 | STS L STOC OVERFLOW AND CARRY STORED U5C00660 67 | * U5C00670 68 | * U5C00680 69 | * SETUP START, END AND RETURN ADDRESSES. U5C00690 70 | * U5C00700 0019 C480 000BR 71 | LD I DMPRX OBTAIN U5C00710 001B D400 00BDR 72 | STO L BEGAD *STARTING ADDRESS U5C00720 001D 7401 000BR 73 | MDX L DMPRX,1 NEXT WORD OF CALL U5C00730 001F C480 000BR 74 | LD I DMPRX *PARAMETER TO GET U5C00740 0021 D400 00BER 75 | STO L ENDAD *ENDING ADDRESS U5C00750 0023 7401 000BR 76 | MDX L DMPRX,1 RETURN TO USER ADDRESS U5C00760 77 | * U5C00770 78 | * INVALID ADDRESS TEST U5C00780 79 | * U5C00790 0025 4400 0161R 80 | BSI L SKIP SKIP TO CHANNEL 1 U5C00800 0027 4400 015BR 81 | BSI L BUSY TEST THE 1132 FOR BUSY U5C00810 0029 4400 00D1R 82 | BSI L CLBUF CLEAR BUFFER U5C00820 002B C400 00BER 83 | LD L ENDAD ENDING ADDRESS U5C00830 002D 9400 00BDR 84 | S L BEGAD STARTING ADDRESS U5C00840 002F 4C10 0053R 85 | BSC L TSOFL,- ADDRESSES VALID U5C00850 0031 6500 01DBR 86 | LDX L1 PRINT SETUP BUFFER ADDR. IN IR1 U5C00860 0033 C014 87 | LD ERROR NO, INVALID U5C00870 0034 D400 0106R 88 | STO L PCTR SET COUNT OF 9 WORDS U5C00880 0036 D400 01DBR 89 | STO L PRINT WORD COUNT U5C00890 0038 C019 90 | LD ERMES ERROR MESSAGE U5C00900 0039 D400 0108R 91 | STO L STWRD WORD TO BE STORED U5C00910 003B 4400 00F8R 92 | BSI L STORE STORING ROUTINE U5C00920 003D 1765*58F1 93 | LIBF PRNT1 TO PRINT SUBROUTINE U5C00930 003E 2000 94 | DC /2000 * TO PRINT A LINE U5C00940 003F 01DBR 95 | DC PRINT PRINTING AREA U5C00950 0040 0045R 96 | DC MSTKE ERROR ADDRESS U5C00960 0041 4400 015BR 97 | BSI L BUSY TEST 1132 PRINTER FOR BUSY U5C00970 0043 4C00 012DR 98 | BSC L FINSH EXIT TO USER MAINLINE U5C00980 0045 1000 99 | MSTKE NOP PRINTER ERROR ROUTINE U5C00990 0046 4C80 0045R 100 | BSC I MSTKE *RETURN W/ ACC NONZERO U5C01000 101 | * U5C01010 102 | * CONSTANTS FOR ERROR MESSAGE U5C01020 103 | * U5C01030 0048 0009 104 | ERROR DC 9 WORD COUNT U5C01040 0049 C5D9 105 | DC /C5D9 LETTERS E AND R U5C01050 004A D9D6 106 | DC /D9D6 LETTERS R AND O U5C01060 004B D940 107 | DC /D940 LETTERS R AND SPACE U5C01070 004C C9D5 108 | DC /C9D5 LETTERS I AND N U5C01080 004D 40C1 109 | DC /40C1 LETTERS SPACE AND A U5C01090 004E C4C4 110 | DC /C4C4 LETTERS D AND D U5C01100 004F D9C5 111 | DC /D9C5 LETTERS R AND E U5C01110 0050 E2E2 112 | DC /E2E2 LETTERS S AND S U5C01120 0051 4040 113 | DC /4040 DOUBLE SPACE U5C01130 0052 0049R 114 | ERMES DC ERROR+1 ERROR MESSAGE U5C01140 115 | * U5C01150 116 | * TEST OVERFLOW AND CARRY INDICATORS U5C01160 117 | * U5C01170 0053 6500 01DBR 118 | TSOFL LDX L1 PRINT PRINT BUFFER IN IR1 U5C01180 0055 C400 0133R 119 | LD L STOC OVERFLOW INDICATOR U5C01190 0057 100F 120 | SLA 15 2-6 U5C01200 0058 4C28 0070R 121 | BSC L OVON,+Z OVERFLOW ON U5C01210 005A C026 122 | LD D2 NO, OVERFLOW OFF U5C01220 005B D400 0106R 123 | STO L PCTR WORD COUNT U5C01230 005D C024 124 | LD OFF OFF INDICATOR FORMAT U5C01240 005E D400 0108R 125 | STO L STWRD WORDS TO BE STORED U5C01250 0060 4400 00F8R 126 | BSI L STORE STORING ROUTINE U5C01260 0062 C400 0133R 127 | TSCAR LD L STOC CARRY INDICATOR U5C01270 0064 100E 128 | SLA 14 2-6 U5C01280 0065 4C28 0079R 129 | BSC L CAON,+Z CARRY ON U5C01290 0067 C019 130 | LD D2 NO, CARRY OFF U5C01300 0068 D400 0106R 131 | STO L PCTR WORD COUNT U5C01310 006A C017 132 | LD OFF OFF INDICATOR FORMAT U5C01320 006B D400 0108R 133 | STO L STWRD WORDS TO BE STORED U5C01330 006D 4400 00F8R 134 | BSI L STORE STORING ROUTINE U5C01340 006F 7018 135 | MDX AQIRS GO TO REGISTERS U5C01350 0070 C010 136 | OVON LD D2 OVERFLOW ON U5C01360 0071 D400 0106R 137 | STO L PCTR WORD COUNT U5C01370 0073 C011 138 | LD ON ON INDICATOR FORMAT U5C01380 0074 D400 0108R 139 | STO L STWRD WORDS TO BE STORED U5C01390 0076 4400 00F8R 140 | BSI L STORE STORING ROUTINE U5C01400 0078 70E9 141 | MDX TSCAR TEST CARRY INDICATOR U5C01410 0079 C007 142 | CAON LD D2 CARRY ON U5C01420 007A D400 0106R 143 | STO L PCTR WORD COUNT U5C01430 007C C008 144 | LD ON ON INDICATOR FORMAT U5C01440 007D D400 0108R 145 | STO L STWRD WORDS TO BE STORED U5C01450 007F 4078 146 | BSI STORE STORING ROUTINE U5C01460 0080 7007 147 | MDX AQIRS GO PROCESS REGISTERS U5C01470 148 | * U5C01480 149 | * OVERFLOW AND CARRY INDICATORS CONSTANTS U5C01490 150 | * U5C01500 0081 0002 151 | D2 DC 2 WORD COUNT U5C01510 152 | * U5C01520 153 | * INDICATOR OFF FORMAT U5C01530 154 | * U5C01540 0082 0083R 155 | OFF DC OFCON *ADDR OF LETTERS O-F-F- U5C01550 0083 D6C6 156 | OFCON DC /D6C6 LETTERS O AND F U5C01560 0084 C640 157 | DC /C640 LETTERS F AND SPACE U5C01570 158 | * U5C01580 159 | * INDICATOR ON FORMAT U5C01590 160 | * U5C01600 0085 0086R 161 | ON DC ONCON *ADDRESS OF LETTERS O-N- U5C01610 0086 D6D5 162 | ONCON DC /D6D5 LETTERS O AND N U5C01620 0087 4040 163 | DC /4040 DOUBLE SPACE U5C01630 164 | * U5C01640 165 | * U5C01650 166 | * REGISTERS OUTPUT FORMAT U5C01660 167 | * XXXXBB(+ OR - XXXXX)BBB U5C01670 168 | * U5C01680 169 | * U5C01690 170 | * ROUTINE TO CHANGE THE REGISTERS TO U5C01700 171 | * HEXADECIMAL AND DECIMAL FORMAT U5C01710 172 | * U5C01720 173 | * U5C01730 0088 C036 174 | AQIRS LD D44 LENGTH OF REGISTER BUFFER U5C01740 0089 D400 01DBR 175 | STO L PRINT WORD COUNT U5C01750 008B C034 176 | LD D5 DO 5 REGISTERS U5C01760 008C D034 177 | STO REGCR SET COUNTER TO 5 U5C01770 008D C480 00C2R 178 | HERE LD I AR FIRST REGISTER U5C01780 008F D033 179 | STO HEXWD SET HEX CONVERSION U5C01790 0090 D033 180 | STO DECWD SET DEC CONVERSION U5C01800 0091 6600 00C7R 181 | LDX L2 HEXAW SET IR2 FOR BINHX ROUTINE U5C01810 0093 4400 0166R 182 | BSI L BINHX CONVERT WORD TO HEX U5C01820 0095 C02F 183 | LD D3 WORD COUNT OF 3 U5C01830 0096 D06F 184 | STO PCTR WORD COUNTER U5C01840 0097 C02E 185 | LD EXAW HEX FORMAT U5C01850 0098 D06F 186 | STO STWRD WORD TO STORED U5C01860 0099 405E 187 | BSI STORE STORING ROUTINE U5C01870 009A 6600 00CBR 188 | LDX L2 DECAW SET IR2 FOR BINDC ROUTINE U5C01880 009C 4400 01A1R 189 | BSI L BINDC CONVERT WORD TO DECIMAL U5C01890 009E C021 190 | LD D5 WORD COUNT OF 5 U5C01900 009F D066 191 | STO PCTR WORD COUNTER U5C01910 00A0 C029 192 | LD ECAW DECIMAL FORMAT U5C01920 00A1 D066 193 | STO STWRD WORDS TO BE STORED U5C01930 00A2 4055 194 | BSI STORE STORING ROUTINE U5C01940 00A3 7401 00C2R 195 | MDX L AR,1 PICKUP NEXT REGISTER U5C01950 00A5 74FF 00C1R 196 | MDX L REGCR,-1 DECREMENT REGISTER COUNTER U5C01960 00A7 70E5 197 | MDX HERE LOOP U5C01970 00A8 1765*58F1 198 | LIBF PRNT1 TO PRINTER SUBR TO U5C01980 00A9 2000 199 | DC /2000 **PRINT A LINE U5C01990 00AA 01DBR 200 | DC PRINT PRINTING AREA U5C02000 00AB 0045R 201 | DC MSTKE ERROR ADDRESS U5C02010 00AC 4400 015BR 202 | BSI L BUSY BUSY ROUTINE U5C02020 00AE C021 203 | LD ARRST RESET POINTER U5C02030 00AF D012 204 | STO AR STORE U5C02040 00B0 4400 00D1R 205 | BSI L CLBUF CLEAR BUFFER U5C02050 00B2 1765*58F1 206 | LIBF PRNT1 *TO PRINTER SUBR FOR U5C02060 00B3 3D00 207 | DC /3D00 * ONE EXTRA LINE SPACE U5C02070 00B4 4400 015BR 208 | BSI L BUSY *CHECK PRINTER BUSY U5C02080 00B6 702A 209 | MDX LNAD GO PROCESS LINE ADDRESS U5C02090 210 | * U5C02100 211 | * CONSTANTS FOR REGISTERS FORMAT U5C02110 212 | * U5C02120 213 | * U5C02130 00B8 214 | BSS E 0 U5C02140 00B8 0000 215 | AREG DC 0 *ACCUMULATOR U5C02150 00B9 0000 216 | QREG DC 0 *Q REGISTER STORED U5C02160 00BA 0000 217 | IRONE DC 0 XR1 STORED U5C02170 00BB 0000 218 | IRTWO DC 0 XR2 STORED U5C02180 00BC 0000 219 | IRTHR DC 0 XR3 STORED U5C02190 00BD 0000 220 | BEGAD DC 0 *STARTING ADDRESS U5C02200 00BE 0000 221 | ENDAD DC 0 *ENDING ADDRESS U5C02210 00BF 002C 222 | D44 DC 44 REGISTER BUFFER LENGTH U5C02220 00C0 0005 223 | D5 DC 5 DECIMAL 5 U5C02230 00C1 0000 224 | REGCR DC 0 REGISTER COUNTER U5C02240 00C2 00B8R 225 | AR DC AREG FIRST WORD U5C02250 00C3 0000 226 | HEXWD DC 0 TEMP HEX STORAGE U5C02260 00C4 0000 227 | DECWD DC 0 TEMP DEC STORAGE U5C02270 00C5 0003 228 | D3 DC 3 DECIMAL 3 U5C02280 00C6 00C7R 229 | EXAW DC HEXAW CONSTANT FOR HEX FORMAT U5C02290 00C7 0000 230 | HEXAW DC 0 FIRST SET OF HEX CHARACTERS U5C02300 00C8 0000 231 | DC 0 SECONDSET OF HEX CHARACTERS U5C02310 00C9 404D 232 | DC /404D BLANK & LEFT PAREN U5C02320 00CA 00CBR 233 | ECAW DC DECAW CONSTANT FOR DEC FORMAT U5C02330 00CB 0000 234 | DECAW DC 0 FIRST SET OF DEC CHARACTERS U5C02340 00CC 0000 235 | DC 0 SECONDSET OF DEC CHARACTERS U5C02350 00CD 0000 236 | DC 0 THIRD SET OF DEC CHARACTERS U5C02360 00CE 5D40 237 | DC /5D40 END PARENTHESIS AND SPACE U5C02370 00CF 4040 238 | DC /4040 DOUBLE SPACE U5C02380 00D0 00B8R 239 | ARRST DC AREG ADDRESS WHERE ACC STORED U5C02390 240 | * U5C02400 241 | * CLEAR BUFFER ROUTINE U5C02410 242 | * U5C02420 00D1 1000 243 | CLBUF NOP U5C02430 00D2 6500 01DAR 244 | LDX L1 PRINT-1 SETUP BUFFER ADDRESS U5C02440 00D4 C009 245 | LD CLCNT LOAD COUNT U5C02450 00D5 D009 246 | STO CLCTR WORDS TO BE CLEARED U5C02460 00D6 C009 247 | CLEAN LD D0 LOAD ZERO U5C02470 00D7 D101 248 | STO 1 1 STORE ZERO VIA IR1 U5C02480 00D8 7101 249 | MDX 1 1 INCREMENT IR1 U5C02490 00D9 74FF 00DFR 250 | MDX L CLCTR,-1 DECREMENT COUNTER U5C02500 00DB 70FA 251 | MDX CLEAN LOOP U5C02510 00DC 4C80 00D1R 252 | BSC I CLBUF EXIT U5C02520 253 | * U5C02530 254 | * CLEAR BUFFER CONSTANTS U5C02540 255 | * U5C02550 00DE 002D 256 | CLCNT DC 45 CLEAR 45 WORDS TO BLANKS U5C02560 00DF 0000 257 | CLCTR DC 0 COUNTER U5C02570 00E0 4040 258 | D0 DC /4040 BLANKS U5C02580 259 | * U5C02590 260 | * HEXADECIMAL LINE ADDRESS U5C02600 261 | * U5C02610 00E1 C0DB 262 | LNAD LD BEGAD OBTAIN LINE ADDRESS U5C02620 00E2 D0E0 263 | STO HEXWD STORE U5C02630 00E3 6500 01DBR 264 | LDX L1 PRINT SETUP BUFFER IN IX1 U5C02640 00E5 6600 00EFR 265 | LDX L2 HEXBU SET IR2 U5C02650 00E7 4400 0166R 266 | BSI L BINHX HEX CONVERSION ROUTINE U5C02660 00E9 C0DB 267 | LD D3 WORD COUNT U5C02670 00EA D01B 268 | STO PCTR WORD COUNTER U5C02680 00EB C006 269 | LD EXBU HEX FORMAT U5C02690 00EC D01B 270 | STO STWRD WORDS TO BE STORED U5C02700 00ED 400A 271 | BSI STORE STORING ROUTINE U5C02710 00EE 7004 272 | MDX MOD GO SEE MODE OF DUMP U5C02720 273 | * U5C02730 274 | * LINE ADDRESS CONSTANTS U5C02740 275 | * U5C02750 00EF 0000 276 | HEXBU DC 0 FIRST SET OF HEX CHARACTERS U5C02760 00F0 0000 277 | DC 0 SECONDSET OF HEX CHARACTERS U5C02770 00F1 4040 278 | DC /4040 DOUBLE SPACE U5C02780 00F2 00EFR 279 | EXBU DC HEXBU HEX CONSTANT U5C02790 280 | * U5C02800 281 | * TEST FOR MODE OF DUMP U5C02810 282 | * U5C02820 00F3 C003 283 | MOD LD MODE DUMP INDICATOR U5C02830 00F4 4C20 0136R 284 | BSC L DESML,Z TEST INDICATOR U5C02840 00F6 7012 285 | MDX ADLN GO DUMP IN HEX U5C02850 286 | * U5C02860 287 | * DUMP INDICATOR U5C02870 288 | * U5C02880 00F7 0000 289 | MODE DC 0 U5C02890 290 | * U5C02900 291 | * U5C02910 00F8 1000 292 | STORE NOP U5C02920 00F9 C00C 293 | LD PCTR STORING COUNT U5C02930 00FA D00C 294 | STO STCTR STORING COUNTER U5C02940 00FB C480 0108R 295 | RESWD LD I STWRD WORD TO BE STORED U5C02950 00FD D101 296 | STO 1 1 STORE VIA IR1 U5C02960 00FE 7401 0108R 297 | MDX L STWRD,1 PICKUP NEXT WORD U5C02970 0100 7101 298 | MDX 1 1 INCREMENT IR1 U5C02980 0101 74FF 0107R 299 | MDX L STCTR,-1 DECREMENT COUNTER U5C02990 0103 70F7 300 | MDX RESWD LOOP U5C03000 0104 4C80 00F8R 301 | BSC I STORE EXIT U5C03010 302 | * U5C03020 303 | * STORING ROUTINE CONSTANTS U5C03030 304 | * U5C03040 0106 0000 305 | PCTR DC 0 COUNT U5C03050 0107 0000 306 | STCTR DC 0 COUNTER U5C03060 0108 0000 307 | STWRD DC 0 WORD TO BE STORED U5C03070 308 | * U5C03080 309 | * THIS IS A HEXADECIMAL DUMP U5C03090 310 | * U5C03100 0109 C01D 311 | ADLN LD D8 NUMBER OF WORDS PER LINE U5C03110 010A D0B6 312 | STO REGCR COUNTER OF WORDS PER LINE U5C03120 010B C01C 313 | LD D27 DECIMAL 27 WORD COUNT U5C03130 010C D400 01DBR 314 | STO L PRINT STORED IN PRINT BUFFER U5C03140 010E C480 00BDR 315 | FAST LD I BEGAD START ADDRESS U5C03150 0110 D0B2 316 | STO HEXWD TEMP HEX STORAGE U5C03160 0111 6600 00EFR 317 | LDX L2 HEXBU SET IR2 U5C03170 0113 4052 318 | BSI BINHX HEX CONVERSION ROUTINE U5C03180 0114 C0B0 319 | LD D3 DECIMAL 3 U5C03190 0115 D0F0 320 | STO PCTR WORD COUNT U5C03200 0116 C0DB 321 | LD EXBU HEX FORMAT U5C03210 0117 D0F0 322 | STO STWRD WORDS TO STORED U5C03220 0118 40DF 323 | BSI STORE STORING ROUNTINE U5C03230 0119 7401 00BDR 324 | MDX L BEGAD,1 INCREMENT FOR NEXT WORD U5C03240 011B 74FF 00C1R 325 | MDX L REGCR,-1 DECREMENT COUNTER U5C03250 011D 70F0 326 | MDX FAST LOOP U5C03260 011E 1765*58F1 327 | LIBF PRNT1 PRINT A LINE U5C03270 011F 2000 328 | DC /2000 CALL PRINT FUNCTION U5C03280 0120 01DBR 329 | DC PRINT PRINTING AREA U5C03290 0121 0045R 330 | DC MSTKE ERROR ADDRESS U5C03300 0122 4400 015BR 331 | BSI L BUSY BUSY ROUTINE U5C03310 0124 4400 00D1R 332 | BSI L CLBUF CLEAR BUFFER U5C03320 0126 7002 333 | MDX EODT END OF DUMP TEST U5C03330 334 | * U5C03340 335 | * HEXADECIMAL DUMP CONSTANTS U5C03350 336 | * U5C03360 0127 0008 337 | D8 DC 8 DECIMAL 8 WDS PER LINE U5C03370 0128 001B 338 | D27 DC 27 DECIMAL 27,HEX WORD COUNT U5C03380 339 | * U5C03390 340 | * END OF DUMP TEST U5C03400 341 | * U5C03410 0129 C094 342 | EODT LD ENDAD ENDING ADDRESS U5C03420 012A 9092 343 | S BEGAD BEGIN ADDRESS U5C03430 012B 4C10 00E1R 344 | BSC L LNAD,- BR IF NOT FINISHED U5C03440 012D CC00 00B8R 345 | FINSH LDD L AREG AREG AND QREG RESTORED U5C03450 012F 6580 00BAR 346 | LDX I1 IRONE IR1 RESTORED U5C03460 0131 6680 00BBR 347 | LDX I2 IRTWO IR2 RSETORED U5C03470 0133 2000 348 | STOC LDS 0 RESTORE OVFL. AND CARRY U5C03480 0134 4C80 000BR 349 | BSC I DMPRX EXIT U5C03490 350 | * U5C03500 351 | * THIS DUMP IS DECIMAL U5C03510 352 | * U5C03520 0136 C0F0 353 | DESML LD D8 WORD PER LINE COUNT U5C03530 0137 D089 354 | STO REGCR WORD PER LINE COUNTER U5C03540 0138 C020 355 | LD D35 DECIMAL 35 U5C03550 0139 D400 01DBR 356 | STO L PRINT WORD COUNT U5C03560 013B C480 00BDR 357 | SLOW LD I BEGAD START ADDRESS U5C03570 013D D086 358 | STO DECWD DEC TEMP STORAGE U5C03580 013E 6600 0154R 359 | LDX L2 DECBU SET IR2 U5C03590 0140 4060 360 | BSI BINDC DEC CONVERSION ROUTINE U5C03600 0141 C018 361 | LD D4 DECIMAL 4 U5C03610 0142 D0C3 362 | STO PCTR WORD COUNT U5C03620 0143 C014 363 | LD ECBU DEC FORMAT U5C03630 0144 D0C3 364 | STO STWRD WORDS TO BE STORED U5C03640 0145 40B2 365 | BSI STORE STORING ROUTINE U5C03650 0146 7401 00BDR 366 | MDX L BEGAD,1 INCREMENT FOR NEXT WORD U5C03660 0148 74FF 00C1R 367 | MDX L REGCR,-1 DECREMENT COUNTER U5C03670 014A 70F0 368 | MDX SLOW LOOP U5C03680 014B 1765*58F1 369 | LIBF PRNT1 TO PRINTER SUBR TO U5C03690 014C 2000 370 | DC /2000 PRINT A LINE U5C03700 014D 01DBR 371 | DC PRINT PRINTING AREA U5C03710 014E 0045R 372 | DC MSTKE ERROR ADDRESS U5C03720 014F 4400 015BR 373 | BSI L BUSY BUSY ROUTINE U5C03730 0151 4400 00D1R 374 | BSI L CLBUF CLEAR BUFFER U5C03740 0153 70D5 375 | MDX EODT END OF DUMP TEST U5C03750 376 | * U5C03760 377 | * DECIMAL DUMP CONSTANTS U5C03770 378 | * U5C03780 0154 0000 379 | DECBU DC 0 BUFFER U5C03790 0155 0000 380 | DC 0 *FOR DECIMAL U5C03800 0156 0000 381 | DC 0 *OUTPUT U5C03810 0157 4040 382 | DC /4040 DOUBLE SPACE U5C03820 0158 0154R 383 | ECBU DC DECBU DECIMAL BUFFER ADDRESS U5C03830 0159 0023 384 | D35 DC 35 WORD COUNT FOR PRINTING U5C03840 015A 0004 385 | D4 DC 4 DECIMAL J U5C03850 386 | * U5C03860 387 | * TEST 1132 PRINTER FOR BUSY U5C03870 388 | * U5C03880 389 | * U5C03890 015B 1000 390 | BUSY NOP U5C03900 015C 1765*58F1 391 | LIBF PRNT1 CALL PRINT SUBR U5C03910 015D 0000 392 | DC /0000 BUSY TEST U5C03920 015E 70FD 393 | MDX BUSY+1 LOOP IF BUSY U5C03930 015F 4C80 015BR 394 | BSC I BUSY RETURN WHEN NOT BUSY U5C03940 395 | * U5C03950 396 | * U5C03960 397 | * SKIP TO CHANNEL ONE ROUTINE U5C03970 398 | * U5C03980 0161 1000 399 | SKIP NOP U5C03990 0162 1765*58F1 400 | LIBF PRNT1 CALL VIP ROUTINE U5C04000 0163 3100 401 | DC /3100 SKIP TO CHANNEL 1 U5C04010 0164 4C80 0161R 402 | BSC I SKIP EXIT U5C04020 403 | * U5C04030 404 | * U5C04040 405 | * BINARY TO HEXADECIMAL CONVERSION ROUTINE U5C04050 406 | * U5C04060 0166 407 | BINHX BSS 1 U5C04070 0167 C400 00C3R 408 | LD L HEXWD TEMP STORAGE U5C04080 0169 18D0 409 | RTE 16 ROTATE A+Q, A STORED IN Q U5C04090 016A C021 410 | LD D192 NO. FOR HEX CHAR. COUNT U5C04100 016B D023 411 | STO COUNT COUNT = 192 U5C04110 016C C01E 412 | LD D9 *FOR EVEN OR ODD TEST U5C04120 016D D020 413 | STO PART *PART = 9 U5C04130 016E C01B 414 | LD ZERO U5C04140 016F D200 415 | STO 2 0 CLEAR HEX BUF. 1 U5C04150 0170 D201 416 | STO 2 1 CLEAR HEX BUF. 2 U5C04160 0171 C400 018AR 417 | A1 LD L ZERO CLEAR ACC U5C04170 0173 1084 418 | SLT 4 SHIFT 1ST 4 BITS IN ACCUM. U5C04180 0174 801B 419 | A ADDR *MODIFY FOR TABLE LOOKUP U5C04190 0175 D001 420 | STO *+1 U5C04200 0176 C400 0000 421 | LD L 0 GET CHARACTER FROM TABLE U5C04210 0178 D014 422 | STO TEMPO U5C04220 0179 7401 018ER 423 | MDX L PART,1 CHECK IF RIGHT OR LEFT U5C04230 017B C012 424 | LD PART U5C04240 017C 4C04 0182R 425 | BSC L B1,E BR IF 2 CHARS TO BE PACKED U5C04250 017E 7201 426 | MDX 2 1 STEP OUTPUT POINTER U5C04260 017F C00D 427 | LD TEMPO U5C04270 0180 1008 428 | SLA 8 SHIFT IN 1ST PART U5C04280 0181 7001 429 | MDX C1 GO COMBINE CHARACTERS U5C04290 0182 C00A 430 | B1 LD TEMPO U5C04300 0183 82FF 431 | C1 A 2 -1 COMBINE 2 CHARACTERS U5C04310 0184 D2FF 432 | STO 2 -1 STORE IN HEX BUFFER U5C04320 0185 74D0 018FR 433 | MDX L COUNT,-48 DECR COUNT,SKIP IF 4 DONE U5C04330 0187 70E9 434 | MDX A1 GET NEXT CHARACTER U5C04340 0188 4C80 0166R 435 | BSC I BINHX EXIT U5C04350 018A 0000 436 | ZERO DC 0 ZERO CONSTANT U5C04360 018B 0009 437 | D9 DC 9 INIT VALUE,LEFT/RIGHT INDR U5C04370 018C 00C0 438 | D192 DC 192 COUNT FOR 4 HEX CHARS 48X4 U5C04380 018D 0000 439 | TEMPO DC 0 TEMP STORAGE U5C04390 018E 0000 440 | PART DC 0 RIGHT/LEFT INDICATOR U5C04400 018F 0000 441 | COUNT DC 0 CHARACTER COUNTER U5C04410 0190 0191R 442 | ADDR DC TYTAB *TABLES U5C04420 0191 00F0 443 | TYTAB DC 0240 NUMBER = 0 U5C04430 0192 00F1 444 | DC 0241 NUMBER = 1 U5C04440 0193 00F2 445 | DC 0242 NUMBER = 2 U5C04450 0194 00F3 446 | DC 0243 NUMBER = 3 U5C04460 0195 00F4 447 | DC 0244 NUMBER = 4 U5C04470 0196 00F5 448 | DC 0245 NUMBER = 5 U5C04480 0197 00F6 449 | DC 0246 NUMBER = 6 U5C04490 0198 00F7 450 | DC 0247 NUMBER = 7 U5C04500 0199 00F8 451 | DC 0248 NUMBER = 8 U5C04510 019A 00F9 452 | DC 0249 NUMBER = 9 U5C04520 019B 00C1 453 | DC 0193 NUMBER = A U5C04530 019C 00C2 454 | DC 0194 NUMBER = B U5C04540 019D 00C3 455 | DC 0195 NUMBER = C U5C04550 019E 00C4 456 | DC 0196 NUMBER = D U5C04560 019F 00C5 457 | DC 0197 NUMBER = E U5C04570 01A0 00C6 458 | DC 0198 NUMBER = F U5C04580 459 | * U5C04590 460 | * BINARY TO DECIMAL CONVERSION ROUTINE U5C04600 461 | * U5C04610 01A1 462 | BINDC BSS 1 U5C04620 01A2 C400 00C4R 463 | LD L DECWD TEMP STORAGE U5C04630 01A4 D0E8 464 | STO TEMPO *OF DECIMAL VALUE U5C04640 01A5 C032 465 | LD D10 SET COUNT TO U5C04650 01A6 D0E8 466 | STO COUNT *PROCESS 10 CHARACTERS U5C04660 01A7 C0E3 467 | LD D9 INITIALIZE U5C04670 01A8 D0E5 468 | STO PART RIGHT/LEFT INDICATOR U5C04680 01A9 1810 469 | SRA 16 U5C04690 01AA D200 470 | CLEAR STO 2 0 CLEAR U5C04700 01AB D201 471 | STO 2 1 *DECIMAL U5C04710 01AC D202 472 | STO 2 2 *BUFFER U5C04720 01AD C0DF 473 | LD TEMPO U5C04730 01AE 4C28 01B3R 474 | BSC L G1,+Z BR IF NUMBER IS NEG U5C04740 01B0 C028 475 | LD PLUS ITS POSITIVE U5C04750 01B1 D200 476 | STO 2 0 STORE PLUS SIGN IN BUFFER U5C04760 01B2 7007 477 | MDX H1 GO START CONVERSION U5C04770 01B3 C026 478 | G1 LD MINUS PLACE MINUS U5C04780 01B4 D200 479 | STO 2 0 SIGN IN BUFFER U5C04790 01B5 1810 480 | SRA 16 SPECIAL U5C04800 01B6 90D6 481 | S TEMPO *TREATMENT U5C04810 01B7 4808 482 | BSC + *FOR U5C04820 01B8 C01D 483 | LD H7FFF *ORIGINAL VALUE U5C04830 01B9 D0D3 484 | STO TEMPO *OF -32768 U5C04840 01BA C0D2 485 | H1 LD TEMPO PLACE NUMBER IN U5C04850 01BB 1890 486 | SRT 16 EXTENSION U5C04860 01BC A81B 487 | D D10 DIVIDE BY 10 U5C04870 01BD D0CF 488 | STO TEMPO SAVE QUOTIENT U5C04880 01BE 18D0 489 | RTE 16 GET REMAINDER U5C04890 01BF 4801 490 | BSC O ADD ONE IF OVERFLOW U5C04900 01C0 8016 491 | A D1 U5C04910 01C1 80CE 492 | A ADDR COMPUTE ADDRESS OF U5C04920 01C2 D001 493 | STO *+1 *CHARACTER IN TABLE U5C04930 01C3 C400 0000 494 | LD L 0 PICK UP REQUIRED CHAR U5C04940 01C5 18D0 495 | RTE 16 MOVE IT TO EXT U5C04950 01C6 C0C7 496 | LD PART RIGHT OR LEFT PLACEMENT U5C04960 01C7 4804 497 | BSC E SKIP IF LEFT HALF U5C04970 01C8 18C8 498 | RTE 8 NO SKIP IF RIGHT U5C04980 01C9 18C8 499 | RTE 8 U5C04990 01CA 8202 500 | A 2 2 COMBINE 2 CHARACTERS U5C05000 01CB D202 501 | STO 2 2 STORE IN BUFFER U5C05010 01CC 7401 018ER 502 | MDX L PART,1 INCREMENT RIGHT/LEFT INDR U5C05020 01CE C0BF 503 | LD PART U5C05030 01CF 4804 504 | BSC E U5C05040 01D0 72FF 505 | MDX 2 -1 STEP OUTPUT POINTER U5C05050 01D1 74FE 018FR 506 | MDX L COUNT,-2 DECR COUNT,SKIP IF 5 DONE U5C05060 01D3 70E6 507 | MDX H1 DO NEXT CHARACTER U5C05070 01D4 4C80 01A1R 508 | BSC I BINDC EXIT U5C05080 01D6 7FFF 509 | H7FFF DC /7FFF CONST FOR -32768 U5C05090 01D7 0001 510 | D1 DC 1 CONST 1 U5C05100 01D8 000A 511 | D10 DC 10 CONST FOR NO OF CHARS TO DO U5C05110 01D9 4E00 512 | PLUS DC /4E00 PLUS SIGN U5C05120 01DA 6000 513 | MINUS DC /6000 MINUS SIGN U5C05130 01DB 514 | PRINT BSS 45 PRINTING BUFFER U5C05140 0000R 515 | DMPRD EQU DMPD1 U5C05150 000BR 516 | DMPRX EQU DMPX1 U5C05160 0208 517 | END DMPD1 BRANCH TO START OF PROG. U5C05170 There were no errors in this assembly Program transfer address = 0000 === CROSS REFERENCES ========================================================== Name Val Defd Referenced A1 0171R 417 434 ADDR 0190R 442 419 492 ADLN 0109R 311 285 AQIRS 0088R 174 135 147 AR 00C2R 225 178 195 204 AREG 00B8R 215 42 60 225 239 345 ARRST 00D0R 239 203 B1 0182R 430 425 BEGAD 00BDR 220 72 84 262 315 324 343 357 366 BINDC 01A1R 462 189 360 508 BINHX 0166R 407 182 266 318 435 BUSY 015BR 390 81 97 202 208 331 373 393 394 C1 0183R 431 429 CAON 0079R 142 129 CLBUF 00D1R 243 82 205 252 332 374 CLCNT 00DER 256 245 CLCTR 00DFR 257 246 250 CLEAN 00D6R 247 251 CLEAR 01AAR 470 COUNT 018FR 441 411 433 466 506 D0 00E0R 258 247 D1 01D7R 510 491 D10 01D8R 511 465 487 D192 018CR 438 410 D2 0081R 151 122 130 136 142 D27 0128R 338 313 D3 00C5R 228 183 267 319 D35 0159R 384 355 D4 015AR 385 361 D44 00BFR 222 174 D5 00C0R 223 176 190 D8 0127R 337 311 353 D9 018BR 437 412 467 DCIND 000AR 53 45 DECAW 00CBR 234 188 233 DECBU 0154R 379 359 383 DECWD 00C4R 227 180 358 463 DESML 0136R 353 284 DMPD1 0000R 41 515 517 DMPRD 0000R 515 43 DMPRX 000BR 516 44 71 73 74 76 349 DMPX1 000BR 59 516 ECAW 00CAR 233 192 ECBU 0158R 383 363 ENDAD 00BER 221 75 83 342 EODT 0129R 342 333 375 ERMES 0052R 114 90 ERROR 0048R 104 87 114 EXAW 00C6R 229 185 EXBU 00F2R 279 269 321 FAST 010ER 315 326 FINSH 012DR 345 98 G1 01B3R 478 474 H1 01BAR 485 477 507 H7FFF 01D6R 509 483 HERE 008DR 178 197 HEXAW 00C7R 230 181 229 HEXBU 00EFR 276 265 279 317 HEXWD 00C3R 226 179 263 316 408 HXIND 0009R 52 61 IRONE 00BAR 217 63 346 IRTHR 00BCR 219 65 IRTWO 00BBR 218 64 347 LNAD 00E1R 262 209 344 MINUS 01DAR 513 478 MOD 00F3R 283 272 MODE 00F7R 289 46 62 283 MSTKE 0045R 99 96 100 201 330 372 OFCON 0083R 156 155 OFF 0082R 155 124 132 ON 0085R 161 138 144 ONCON 0086R 162 161 OVON 0070R 136 121 PART 018ER 440 413 423 424 468 496 502 503 PCTR 0106R 305 88 123 131 137 143 184 191 268 293 320 362 PLUS 01D9R 512 475 PRINT 01DBR 514 86 89 95 118 175 200 244 264 314 329 356 371 QREG 00B9R 216 REGCR 00C1R 224 177 196 312 325 354 367 RESWD 00FBR 295 300 SKIP 0161R 399 80 402 SLOW 013BR 357 368 STCTR 0107R 306 294 299 STOC 0133R 348 66 119 127 STORE 00F8R 292 92 126 134 140 146 187 194 271 301 323 365 STORY 0011R 63 47 STWRD 0108R 307 91 125 133 139 145 186 193 270 295 297 322 364 TEMPO 018DR 439 422 427 430 464 473 481 484 485 488 TSCAR 0062R 127 141 TSOFL 0053R 118 85 TYTAB 0191R 443 442 ZERO 018AR 436 414 417
ibm/ibm1130-lib/dmsr2v12/u5dmpd1_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator