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