ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:11 2020
Source File: \zdumpcd2.asm
1 | *************************************************** ZD200010
2 | * * ZD200020
3 | * STATUS- VERSION 2, MODIFICATION 11 * ZD200024
4 | * * ZD200026
5 | * PROGRAM NAME- 1403/1132 STAND ALONE CORE DUMP,* ZD200030
6 | * PHASE 2. * ZD200040
7 | * * ZD200050
8 | * FUNCTION/OPERATION- * ZD200060
9 | * THIS PHASE OVERLAYS PHASE 1 WHEN LOADED, * ZD200070
10 | * AND USES THE INFORMATION FROM THE FIRST * ZD200080
11 | * PHASE (CORE SIZE, AND ON-LINE PRINTER). * ZD200090
12 | * IT DUMPS CORE TO THE PRINTER,STARTING AT * ZD200100
13 | * HEX 1E0. WORDS /20 THROUGH /27 ARE USED * ZD200110
14 | * AS THE PRINTER SCAN FIELD. * ZD200120
15 | * * ZD200130
16 | * INPUT- CORE-SIZE-DEPENDANT PRINTER LINE CNT * ZD200140
17 | * IN LOC /04 * ZD200150
18 | * PRINTER INDR IN LOC /26-- 0=1403 * ZD200160
19 | * NON-ZERO=1132 * ZD200170
20 | * * ZD200180
21 | * OUTPUT- * ZD200190
22 | * EACH LINE PRINTED IS MADE UP OF AN ADDRESS * ZD200200
23 | * OF THE FIRST WD ON THE LEFT,THEN 16 CORE * ZD200210
24 | * WORDS OUTPUT IN BLOCKS OF 4. * ZD200220
25 | * * ZD200230
26 | * EXTERNAL REFERENCES- * ZD200240
27 | * LOC /04 -- PRINTER LINE COUNT * ZD200250
28 | * LOC /26 -- PRINT DVC INDR * ZD200260
29 | * * ZD200270
30 | * ERROR CONDITIONS- NONE * ZD200280
31 | * * ZD200290
32 | * NOTES- * ZD200300
33 | * *THIS PROGRAM MUST BE CONVERTED TO 8/8 * ZD200302
34 | * FORMAT WITH DATA IN COLUMNS 1 THRU 72. * ZD200304
35 | * COLUMNS 73 THRU 80 ARE TO CONTAIN THE * ZD200306
36 | * SEQUENCE NUMBERS. * ZD200308
37 | * *THE PROGRAM IS LOADED INTO CORE BY THE * ZD200310
38 | * 2-CARD BOOTSTRAP LOADER. * ZD200312
39 | * * ZD200315
40 | *************************************************** ZD200320
1403/1132 STAND ALONE CORE DUMP,PH 2
42 | ABS ZD200340
0074 43 | ORG /74 ZD200350
0074 6300 44 | START LDX 3 0 XR3=0--FOR SHORT INSTR ZD200360
45 | * ZD200370
46 | *RESTORE WORDS /1E0-/1E3 WHICH WERE OVERLAYED WHEN ZD200380
47 | *LOADING THIS PHASE.THEY WERE SAVED BY FIRST PHASE ZD200390
48 | *IN THE BOOTSTRAP AREA. ZD200400
49 | * ZD200410
0075 C8A8 50 | LDD /1E ZD200420
0076 DC00 01E0 51 | STD L /1E0 ZD200430
0078 C8A7 52 | LDD /20 ZD200440
0079 DC00 01E2 53 | STD L /1E2 ZD200450
54 | * ZD200460
55 | * TEST FOR 1403 OR 1132 PRINTER--IF PRNSW ZERO, ZD200470
56 | * DUMP IS ON 1403,OTHERWISE ON 1132 ZD200480
57 | * ZD200490
007B C326 58 | LD 3 PRNSW IS INDR WD NON-ZERO ZD200500
007C 4C20 010B 59 | BSC L D1132,Z YES,BR FOR 1132.OTHERWISE ZD200510
007E C016 60 | D1403 LD INTA4 *SET UP 1403 INTERRUPT SUB- ZD200520
007F D30C 61 | STO 3 TWLVE *ROUTINE ADDR IN WD. 12 ZD200530
62 | * ZD200540
0080 61C4 63 | LDX1 LDX 1 -60 SET CTR TO SET 120 CHARS ZD200550
0081 C014 64 | LD BLNK *TO BLANKS FOR 1403 ZD200560
0082 D14A 65 | CLRR STO 1 BUFER+60 STORE 2 BLANKS ZD200570
0083 7101 66 | MDX 1 1 DECR CTR ZD200580
0084 70FD 67 | MDX CLRR IF NOT DONE,REPEAT ZD200590
0085 7410 0166 68 | MDX L ADDRS,16 *INCREMENT ADDRESS ZD200600
0087 1000 69 | NOP ZD200610
0088 74FF 0004 70 | MDX L CTR,-1 SKIP IF ALL LINES PRINTED ZD200620
008A 7023 71 | MDX CONP CONTINUE PRINTING ZD200630
008B 3000 72 | WAIT END OF DUMP ZD200640
008C 70FE 73 | MDX *-2 ZD200650
74 | * ZD200660
75 | *PRINTER INTERRUPT ROUTINE ZD200670
76 | * ZD200680
008D 0000 77 | INT4 DC 0 SAVE RET ADDR ZD200690
008E D0E5 78 | STO SAV SAVE ACC ZD200700
008F 080A 79 | XIO SENS3 SENSE WITH RESET ZD200710
0090 100C 80 | SLA 12 CHANNEL 12 INDR TO SIGN BIT ZD200720
0091 D0E3 81 | STO SKPIN SET SKIP SWITCH ZD200730
0092 C0E1 82 | LD SAV RESTORE ACC ZD200740
0093 4CC0 008D 83 | BOSC I INT4 TURN OFF INTRPT AND RET ZD200750
84 | * ZD200760
85 | *CONSTANTS AND BUFFER AREA ZD200770
86 | * ZD200780
0074 87 | SAV EQU START TEMP STG TO SAVE ACC ZD200790
0075 88 | SKPIN EQU START+1 SKIP-TO-CHANNEL-1 SWITCH ZD200800
89 | * 2-11 ZD200804
0095 008D 90 | INTA4 DC INT4 ADDR OF ILS04 2-11 ZD200808
0096 91 | BSS E 0 ZD200810
0096 7F7F 92 | SPAC3 DC /7F7F SPACE CHARS FOR 1403 ZD200820
0097 AC00 93 | DC /AC00 IOCC TO SPACE 1403 ZD200830
0098 000E 94 | PRNT DC 14 USED FOR O/P BUFFER(LOC 14) ZD200840
0099 AD00 95 | DC /AD00 IOCC TO PR ON 1403 ZD200850
009A 0000 96 | SENS3 DC 0 ZD200860
009B AF01 97 | DC /AF01 IOCC TO SENSE 1403 W/RESET ZD200870
009C 009E 98 | SKP DC SKON ZD200880
009D A900 99 | DC /A900 IOCC TO SKIP TO CHAN 1 ZD200890
009E 0800 100 | SKON DC /0800 ZD200900
101 | * 1 CONSTANT MOVED 2-11 ZD200910
009F 1001 102 | COREL DC /1001 CORE LOC BUFFER (NOW 4097) ZD200920
009A 103 | LTRT EQU SENS3 ADDR OF LEFT-RT CHAR INDR ZD200930
0096 104 | BLNK EQU SPAC3 ADDR OF 1403 BLANK CHARS ZD200940
105 | * ZD200950
106 | *THIS SECTION DOES THE SPACE OPERATIONS ZD200960
107 | * ZD200970
00A0 0100 108 | DOSPC DC 256 SAVE RET ADDR ZD200980
00A1 08F8 109 | XIO SENS3 CHECK FOR READY ZD200990
00A2 100D 110 | SLA 13 ZD201000
00A3 4C20 00A1 111 | BSC L DOSPC+1,Z IF NOT READY,LOOP ZD201010
00A5 C0CF 112 | LD SKPIN ZD201020
00A6 4810 113 | BSC - SHALL WE SKIP ZD201030
00A7 08EE 114 | XIO SPAC3 NO, DO ONE SPACE ZD201040
00A8 4828 115 | BSC +Z *AND EXIT ZD201050
00A9 08F2 116 | XIO SKP YES, SKIP TO CHANNEL 1 ZD201060
00AA 68CA 117 | STX SKPIN TURN OFF SKIP SWITCH ZD201070
00AB 4C80 00A0 118 | BSC I DOSPC RETURN ZD201080
0004 119 | CTR EQU /0004 ADDR OF NO. OF LINES TO PR ZD201090
0026 120 | PRNSW EQU /26 ADDR OF PR DVC INDR ZD201100
00AD 0001 121 | READ DC 1 CTR FOR EXTRA SP ZD201110
122 | * ZD201120
123 | *THIS SECTION SETS UP THE PRINT FOR THE 1403 ZD201130
124 | * ZD201140
00AE C0E9 125 | CONP LD BUFFR INITIALIZE ADDRESS TO ZD201150
00AF D0C6 126 | STO BUFAD *OUTPUT BUFFER ZD201160
00B0 7410 00B8 127 | MDX L LOOP+1,16 INCREMENT FOR NEXT LINE ZD201170
00B2 1000 128 | NOP ZD201180
00B3 63EF 129 | LDX 3 -17 SEVENTEEN WORDS PER LINE ZD201190
00B4 C400 0166 130 | LD L ADDRS DUMP THE ADDRESS FIRST ZD201200
00B6 7002 131 | MDX *+2 ZD201210
00B7 C700 01E0 132 | LOOP LD L3 /01E0 FIRST WORD TO BE DUMPED ZD201220
00B9 6104 133 | LDX 1 4 SET TO GET FOUR CHARACTERS ZD201230
00BA 1890 134 | SRT 16 PUT THE WD INTO Q REG ZD201240
00BB 1010 135 | CHAR1 SLA 16 ZERO ACCUMULATOR AND ZD201250
00BC 6200 136 | LDX 2 0 *XR2 AS A CTR ZD201260
00BD 1084 137 | SLT 4 GET ONE CHAR INTO A REG ZD201270
00BE 4804 138 | BSC E IS THE NUMBER ODD ZD201280
00BF 7208 139 | MDX 2 8 YES, SET XR2 TO GET RIGHT ZD201290
140 | * CHARACTER IN TABLE. OTHERWISE LEFT CHARACTER ZD201300
00C0 1801 141 | SRA 1 SET UP REF TO TBL ZD201310
00C1 8032 142 | A TABAD ZD201320
00C2 D001 143 | STO *+1 ZD201330
00C3 C400 0000 144 | LD L *-* GET PROPER WD FROM TBL ZD201340
00C5 1200 145 | SLA 2 0 SHIFT LEFT 8 IF RT CHAR ZD201350
00C6 E02E 146 | AND XFF00 SAVE ONLY LEFT 8 BITS ZD201360
00C7 7400 009A 147 | MDX L LTRT,0 DOES CHAR BELONG ON RIGHT ZD201370
00C9 7003 148 | MDX RIGHT YES,GO TO SHIFT IT RIGHT ZD201380
00CA D0AC 149 | STO KEEP NO,SAVE TO PUT W/NEXT CHAR ZD201390
00CB 68CE 150 | STX LTRT SET INDR TO RIGHT CHAR ZD201400
00CC 7008 151 | MDX CHAR2 GET NEXT CHARACTER ZD201410
00CD 1808 152 | RIGHT SRA 8 DO SHIFT IF RIGHT CHAR ZD201420
00CE E8A8 153 | OR KEEP PUT TWO CHARS TOGETHER ZD201430
00CF D480 0076 154 | STO I BUFAD INTO THE OUTPUT BUFFER ZD201440
00D1 7401 0076 155 | MDX L BUFAD,1 UP BUFFER ADDRESS BY 1 ZD201450
00D3 1010 156 | SLA 16 SET LEFT-RT INDR TO LEFT ZD201460
00D4 D0C5 157 | STO LTRT ZD201470
00D5 71FF 158 | CHAR2 MDX 1 -1 ARE 4 CHARS OUTPUT ZD201480
00D6 70E4 159 | MDX CHAR1 NO, GET NEXT CHARACTER ZD201490
00D7 7401 0076 160 | MDX L BUFAD,1 YES, UP BUFFER FOR SPACE ZD201500
00D9 74FF 00AD 161 | MDX L READ,-1 EXTRA SPACE ZD201510
00DB 7004 162 | MDX OUTX *AFTER EVERY ZD201520
00DC 7401 0076 163 | MDX L BUFAD,1 *FOUR ZD201530
00DE 7404 00AD 164 | MDX L READ,4 *WORDS ZD201540
00E0 7301 165 | OUTX MDX 3 1 POINT AT NEXT WORD ZD201550
00E1 70D5 166 | MDX LOOP NOT DONE WITH PRINT LINE ZD201560
00E2 74FD 00AD 167 | MDX L READ,-3 DONE,SET EXTRA SPACE INDR ZD201570
00E4 1000 168 | D4096 NOP *MAY SKIP ZD201580
00E5 7400 0164 169 | MDX L FURST,0 WAS LAST LINE A DUPLICATE ZD201590
00E7 40B8 170 | BSI DOSPC YES,DO CARRIAGE SPACE ZD201600
00E8 7004 171 | MDX DOPRN NO,GO DO PRINT ZD201610
00E9 40B6 172 | SPCE BSI DOSPC *AND THEN DO SPACE ZD201620
173 | * ZD201630
00EA 4046 174 | BSI COMP GO CHECK FOR LIKE LINES ZD201640
00EB 00B8 175 | DC LOOP+1 1403 DUMP PARAMETER ZD201650
00EC 7093 176 | MDX LDX1 GO CLEAR THE PRINT BUFFER ZD201660
177 | * ZD201670
00ED 08AC 178 | DOPRN XIO SENS3 SENSE 1403 W/RESET ZD201680
00EE 100F 179 | SLA 15 ZD201690
00EF 4810 180 | BSC - LOOP IF BUSY ZD201700
00F0 4802 181 | BSC C LOOP IF NOT READY ZD201710
00F1 70FB 182 | MDX DOPRN LOOP IF NOT READY OR BUSY ZD201720
00F2 08A5 183 | XIO PRNT DO PRINT ZD201730
00F3 70F5 184 | MDX SPCE RETURN ZD201740
185 | * ZD201750
186 | *EQUATE STATEMENTS, AND 1403 CODE HEXADECIMAL ZD201760
187 | *CHARACTER TABLE. ZD201770
188 | * ZD201780
00F4 00F6 189 | TABAD DC TABL TABLE ADDRESS ZD201790
190 | * ZD201800
0098 191 | BUFFR EQU PRNT ADDR OF O/P BUFFER ZD201810
000E 192 | BUFER EQU 14 O/P BUFFER ZD201820
000C 193 | TWLVE EQU 12 INTRPT LEVEL 4 BR WD ZD201830
194 | * ZD201840
00F5 FF00 195 | XFF00 DC /FF00 LOW BIT MASK ZD201850
196 | *1403 CODE HEX DIGITS LEFT HALF RIGHT HALF ZD201860
00F6 4940 197 | TABL DC /4940 0 1 ZD201870
00F7 0102 198 | DC /0102 2 3 ZD201880
00F8 4304 199 | DC /4304 4 5 ZD201890
00F9 4546 200 | DC /4546 6 7 ZD201900
00FA 0708 201 | DC /0708 8 9 ZD201910
00FB 6425 202 | DC /6425 A B ZD201920
00FC 2667 203 | DC /2667 C D ZD201930
00FD 6829 204 | DC /6829 E F ZD201940
205 | * ZD201950
206 | *CLEAR THE PRINT BUFFER (WORDS /20 TO /27) ZD201960
207 | * ZD201970
00FE 0100 208 | CLEAR DC 256 SAVE RETURN ADDRESS ZD201980
00FF 6300 209 | LDX 3 0 XR3=0 FOR SHORT INST ZD201990
0100 10A0 210 | SLT 32 CLEAR A AND Q REGS ZD202000
0101 DB20 211 | STD 3 /20 CLERA /20-/21 ZD202010
0102 DB22 212 | STD 3 /22 CLEAR /22-/23 ZD202020
0103 DB24 213 | STD 3 /24 CLEAR /24-/25 ZD202030
0104 DB26 214 | STD 3 /26 CLEAR /26-/27 ZD202040
0105 7401 0027 215 | MDX L /27,+1 SET SCAN BUFFER CMPLT 2-11 ZD202045
0107 4C80 00FE 216 | BSC I CLEAR RETURN ZD202050
217 | * ZD202060
218 | *CONSTANTS AND EQUATE STATEMENTS ZD202070
219 | * ZD202080
0109 010F 220 | INTAD DC INT ADDR OF INTRPT LEVEL 2 ZD202090
221 | * *SERVICING ROUTINE ZD202100
010A 0000 222 | PACK DC 0 TEMPORARY STORAGE ZD202110
0009 223 | NINE EQU 9 ADDR OF INTRPT LEVEL BR WD ZD202120
0076 224 | BUFAD EQU START+2 BUFFER FOR O/P AREA ADDR ZD202130
0077 225 | KEEP EQU START+3 TEMP STG FOR HEX CHARS ZD202140
226 | * ZD202150
227 | *THIS SECTION DOES THE DUMP ON THE 1132 ZD202160
228 | * ZD202170
010B C0FD 229 | D1132 LD INTAD SET UP 1132 INTERRUPT SUB- ZD202180
010C D309 230 | STO 3 NINE *ROUTINE ADDR IN WD. 9 ZD202190
010D 40F0 231 | BSI CLEAR CLEAR WDS /20-/27 ZD202200
010E 0857 232 | XIO ADDRS START PRINTER ZD202210
0020 233 | MASK1 EQU /0020 PRINTER SCAN FIELD ADDR ZD202220
010B 234 | CTR16 EQU D1132 ZD202230
235 | * ZD202240
236 | * INTERRUPT LEVEL 1 SERVICING ROUTINE (1132) ZD202250
237 | * ZD202260
010F 0001 238 | INT DC 1 INTRPT ADDR SAVED HERE ZD202270
0110 0857 239 | XIO SENS2 SENSE DEVICE WITH RESET ZD202280
0111 4C28 011B 240 | BSC L INT1,+Z BR IF READ EMITTER INTRPT ZD202290
0113 7400 011A 241 | MDX L JOHN,0 SHALL WE SPACE ZD202300
0115 0854 242 | XIO SPACE YES, GO AHEAD AND SPACE ZD202310
0116 1010 243 | SLA 16 NO, SET SPACE ZD202320
0117 D002 244 | STO JOHN *SWITCH ZD202330
0118 4CC0 010F 245 | BOSC I INT TURN OFF INTRPT LEVEL,EXIT ZD202340
011A 0000 246 | JOHN DC 0 DO SPACE INDR (0=YES) ZD202350
247 | * ZD202360
248 | * CLEAR SCAN AREA ZD202370
249 | * ZD202380
011B 40E2 250 | INT1 BSI CLEAR GO CLEAR SCAN AREA ZD202390
011C 0853 251 | XIO RDMT READ EMITTER ZD202400
252 | * ZD202410
253 | * TEST IF E REQUIRED ZD202420
254 | * STRSW = 0 IF WAITING FOR E ZD202430
255 | * ZD202440
011D C054 256 | LD STRSW ARE WE WAITING FOR E ZD202450
011E 4C18 0173 257 | BSC L YES,+- YES,GO CHK EMITTED CHARS ZD202460
258 | * ZD202470
259 | * E IS NOT REQUIRED (NOT BEGINNING OF PRINT CYCLE) ZD202480
260 | * ZD202490
0120 74FF 0172 261 | MDX L STRSW,-1 DECR CHAR PR CNT.IS IT ZERO ZD202500
0122 7004 262 | MDX WOOD NO,CHK EMITTED CHAR ZD202510
0123 400D 263 | BSI COMP YES,GO CHK FOR LIKE LINES ZD202520
0124 019D 264 | DC LOOPO+1 1132 PARAMETER ZD202530
0125 4C00 01B6 265 | INT2 BSC L BO GO TURN OFF INTRPT 2-11 ZD202540
266 | * ZD202550
267 | * TEST IF 0-9, A-D, F ZD202560
268 | * ZD202570
0127 C03F 269 | WOOD LD EMIT GET PRESENT WHEEL CHAR ZD202580
0128 180C 270 | SRA 12 ISOLATE THE 1ST 4 BITS 2-11 ZD202590
0129 100C 271 | SLA 12 *OF THE CHAR CODE 2-11 ZD202600
012A 903D 272 | S SENS2 2-11 ZD202605
012B 4C18 0188 273 | BSC L COMON,+- BR IF NUMERIC CHAR 2-11 ZD202610
012D 803E 274 | A STPPR 2-11 ZD202615
012E 4C18 0188 275 | BSC L COMON,+- BR IF CHAR = A THRU I 2-11 ZD202620
0130 70F4 276 | MDX INT2 BR TO EXIT INTRPT LVL 2-11 ZD202630
277 | *************************************************** ZD202640
278 | *THIS SECTION COMPARES CORE WDS FOR LIKE LINES. IF* ZD202650
279 | *THE SAME, IT DOES A PTR SPACE,THEN WAITS TO PR * ZD202660
280 | *NEXT LINE THATS DIFFERENT. * ZD202670
281 | *************************************************** ZD202680
0131 0000 282 | COMP DC *-* SAVE RETURN ADDR ZD202690
0132 6580 0166 283 | LDX I1 ADDR LD ADDR OF LAST LINE TO XR1 ZD202700
0134 C480 0131 284 | LD I COMP INITLZ INST TO MODIFY LAST ZD202710
0136 D018 285 | STO INKAD+1 *LINE DUMP ADDR ZD202720
0137 1010 286 | SLA 16 ZD202730
0138 D02B 287 | STO FURST ZERO THE LIKE LINE INDR ZD202740
0139 6210 288 | LDX 2 16 SET LINE ADDR DIFFERENCE ZD202750
013A 6A03 289 | STX 2 TEST+1 *TO 16 IF ONLY 1 LINE SAME ZD202760
013B 290 | MORE EQU * ZD202770
013B 6210 291 | LDX 2 16 SET WD CTR FOR LINE ZD202780
013C 6ACE 292 | STX 2 CTR16 *TO 16 ZD202790
013D 293 | TEST EQU * ZD202800
013D C500 0010 294 | LD L1 16 CHANGED IF MORE THAN 1 SAME ZD202810
295 | * LINE ZD202820
013F F500 0000 296 | EOR L1 DO CMP W/LAST LINE WD ZD202830
0141 4C20 0152 297 | BSC L RETRN,Z EXIT IF NOT SAME ZD202840
0143 7101 298 | MDX 1 1 OTHERWISE,INCR PTR ZD202850
0144 74FF 010B 299 | MDX L CTR16,-1 DECR WD CNT FOR CHK ZD202860
0146 70F6 300 | MDX TEST RET TO TEST NEXT WD ZD202870
301 | * ZD202880
302 | * ALL 16 WORDS ARE THE SAME ZD202890
303 | * ZD202900
0147 681C 304 | STX FURST SET LIKE LINE INDR NON-ZERO ZD202910
0148 305 | SAME EQU * ZD202920
0148 74FF 0004 306 | MDX L CTR,-1 IS IT THE FINAL LINE ZD202930
014A 7001 307 | MDX MEXT NO,GO SET UP NEXT CMP ZD202940
014B 7036 308 | MDX STOP YES,GO STOP PTR ZD202950
014C 309 | MEXT EQU * ZD202960
014C 7410 0166 310 | MDX L ADDR,16 INCR FIRST LIKE LINE ADDR ZD202970
014E 7410 0000 311 | INKAD MDX L *-*,16 INCR COMPARE ADDR ZD202980
0150 1000 312 | NOP MAY SKIP ZD202990
0151 70E9 313 | MDX MORE RET TO CMP NEXT WD ZD203000
0152 7401 0131 314 | RETRN MDX L COMP,1 SET UP EXIT ADDRESS ZD203010
0154 4C80 0131 315 | BSC I COMP EXIT ZD203020
316 | * ZD203030
317 | * ROUTINE TO INSERT MASK WORD ZD203040
318 | * ZD203050
0156 4C00 0000 319 | EXIT BSC L *-* RETURN TO GET ANOTHER BIT ZD203060
0157 320 | OVER EQU *-1 ENTRY BY BSI ZD203070
0158 1081 321 | SLT 1 POSITION WD FOR NEXT BIT ZD203080
0159 72FF 322 | MDX 2 -1 DECR BIT CNT. IS IT ZERO ZD203090
015A 70FB 323 | MDX EXIT NO,RETURN ZD203100
015B 6210 324 | LDX 2 16 YES,RESET XR2 FOR 16 BITS ZD203110
015C 18D1 325 | RTE 17 PUT MASK WD IN A REG ZD203120
015D D400 0020 326 | STO STO L MASK1 STORE MASK WORD ZD203130
015F 7401 015E 327 | MDX L STO+1,1 AUGMENT FOR NEXT MASK WORD ZD203140
0161 18CF 328 | RTE 15 RESTORE ACCUMULATOR ZD203150
0162 70F3 329 | MDX EXIT RETURN ZD203160
330 | * ZD203170
331 | *CONSTANTS,IOCC WDS,AND EQUATE STATEMENTS ZD203180
332 | * ZD203190
0163 0000 333 | BLOCK DC 0 CTR FOR BLOCKS OF 4 WDS O/P ZD203200
0164 0001 334 | FURST DC 1 LIKE LINE INDR (0=OFF) ZD203210
0165 9000 335 | K9000 DC /9000 CON TO CHK CHARS ZD203220
0166 336 | BSS E 0 ZD203230
0166 01D0 337 | ADDRS DC /01E0-/0010 STARTING ADDRESS - /0010 ZD203240
0167 3480 338 | DC /3480 START PRINTER ZD203250
0168 F000 339 | SENS2 DC /F000 CARRY SET IF DIGIT NOT CMP ZD203260
0169 3701 340 | DC /3701 SENSE DEVICE WITH RESET ZD203270
016A C500 341 | SPACE DC /C500 CODE FOR E ZD203280
016B 3401 342 | DC /3401 1 LINE FEED ZD203290
343 | * ZD203300
016C 3000 344 | STPPR DC /3000 USED TO CHK FOR 0-9 2-11 ZD203310
016D 3440 345 | DC /3440 STOP PRINTER ZD203320
346 | * 1 IOCC MOVED 2-11 ZD203330
016E 0000 347 | KON1 DC 0 DOYBLE WD ONE TO SET UP ZD203350
016F 0001 348 | ONE DC 1 *BITS IN Q REG FOR SCAN ZD203360
0170 0167 349 | RDMT DC EMIT LOC OF EMITTED CHAR 2-11 ZD203364
0171 3200 350 | DC /3200 READ EMITTER 2-11 ZD203366
0172 0000 351 | STRSW DC 0 PR CYCLE INDR (0=WAITING) ZD203370
0166 352 | ADDR EQU ADDRS ADDR BUFFER ZD203380
0167 353 | EMIT EQU ADDRS+1 STG FOR EMITTED WHEEL CHAR ZD203390
354 | * ZD203400
355 | *WAITING FOR E CHAR ON WHEEL TO START PR CYCLE ZD203410
356 | * ZD203420
0173 C0F3 357 | YES LD EMIT GET CHAR JUST EMITTED ZD203430
0174 F0F5 358 | EOR SPACE IS IT E (C5) ZD203440
0175 4C20 01B6 359 | BSC L BO,Z NO,GO TURN OFF INTRPT ZD203450
0177 7400 0164 360 | MDX L FURST,0 YES,IS LIKE LINE INDR SET ZD203460
0179 68A0 361 | STX JOHN *NO,SET INDR FOR NO SPACE ZD203470
017A 742F 0172 362 | YES1 MDX L STRSW,+47 *YES, RESET CYCLE CTR 2-11 ZD203480
017C 7410 0166 363 | MDX L ADDRS,16 INCR ADDR FOR NEXT LINE ZD203490
017E 1000 364 | NOP *MAY SKIP ZD203500
017F 365 | NOCHG EQU * ZD203510
017F 74FF 0004 366 | MDX L CTR,-1 SKIP IF ALL LINES PRINTED ZD203520
0181 7002 367 | MDX SPCOP CONT TO PRINT MORE LINES ZD203530
0182 08E9 368 | STOP XIO STPPR STOP PRINTER END OF DUMP ZD203540
0183 3000 369 | WAIT ZD203550
0184 08E5 370 | SPCOP XIO SPACE INITIATE SPACE OPERATION ZD203560
0185 7410 019D 371 | MDX L LOOPO+1,+16 INCREMENT FOR NEXT LINE ZD203570
0187 1000 372 | NOP *IN CASE OF SKIP ZD203580
373 | * ZD203590
374 | * CHARACTER EMITTED WAS 0-9, A-D, F ZD203600
375 | * ZD203610
0188 63EF 376 | COMON LDX 3 -17 ADDR WD + 16 DATA WDS PER L ZD203620
0189 6210 377 | LDX 2 16 SET 16 BITS PER MASK WORD ZD203630
018A C0DC 378 | LD EMIT GET EMITTED CHAR ZD203640
018B 1084 379 | SLT 4 IS CHAR NUMERIC ZD203650
018C 4C02 0191 380 | BSC L JUMP1,C YES,BR(TEST SETS CARRY OFF) ZD203660
018E 80D6 381 | A K9000 NO ADD 9 ZD203670
018F 4C02 01B6 382 | BSC L BO,C GO WAIT IF CHAR IS G,H,I ZD203680
383 | * ZD203690
0191 D0D5 384 | JUMP1 STO EMIT FILL ZD203700
0192 1804 385 | SRA 4 *EMIT ZD203710
0193 E8D3 386 | OR EMIT *WITH ZD203720
0194 D0D2 387 | STO EMIT *CHARACTER CODE ZD203730
0195 1808 388 | SRA 8 ZD203740
0196 E8D0 389 | OR EMIT EXAMPEL ZD203750
0197 D0CF 390 | STO EMIT *(EMIT)=EEEE FOR E CHAR ZD203760
0198 C0D6 391 | LD ONE SET BLOCK INDR ZD203770
0199 D0C9 392 | STO BLOCK *FOR ADDR ZD203780
019A C0CB 393 | LD ADDRS GET PRESENT DUMP ADDR ZD203790
019B 7002 394 | MDXFI MDX FIRST-1 GO SET SCAN FOR ADDR FIELD ZD203800
395 | * ZD203810
396 | *LOOP TO SET UP THE PRINT SCAN FIELD ZD203820
397 | * ZD203830
019C C700 01E0 398 | LOOPO LD L3 /1E0 FIRST WORD TO BE DUMPED ZD203840
019E 6104 399 | LDX 1 4 SET FOR 4 CHARS PER WD ZD203850
019F F0C7 400 | FIRST EOR EMIT COMPARE WITH EMITTED CHAR ZD203860
01A0 80C7 401 | LOOPI A SENS2 DID CHAR COMPARE ZD203870
01A1 4C02 01A4 402 | BSC L SKIP,C NO, SKIP ZD203880
01A3 88CA 403 | AD KON1 YES,INSERT BIT IN Q REG ZD203890
01A4 40B2 404 | SKIP BSI OVER GO TO POSITION BIT ZD203900
01A5 1003 405 | SLA 3 POSITION NEXT CHAR FOR CHK ZD203910
01A6 71FF 406 | MDX 1 -1 DECR CHAR CNT(SKIP IF DONE) ZD203920
01A7 70F8 407 | MDX LOOPI NOT DONE,CHK NEXT CHAR ZD203930
408 | * ZD203940
409 | * END OF SCAN FOR WORD ZD203950
410 | * ZD203960
01A8 40AE 411 | CONTU BSI OVER SPACE BETWEEN WORDS ZD203970
01A9 74FF 0163 412 | MDX L BLOCK,-1 DECR BLOCK WD CNT ZD203980
01AB 7003 413 | MDX MDX31 NOT DONE WITH BLOCK,CONT ZD203990
01AC 40AA 414 | BSI OVER DONE W/BLOCK--EXTRA SPACE ZD204000
01AD 7404 0163 415 | MDX L BLOCK,4 SET NEXT BLOCK TO 4 WDS ZD204010
01AF 7301 416 | MDX31 MDX 3 1 POINT AT NEXT WORD ZD204020
01B0 70EB 417 | MDX LOOPO GET NEXT WORD ZD204030
418 | * ZD204040
419 | * END OF LINE ZD204050
420 | * ZD204060
01B1 421 | SLT EQU * ZD204070
01B1 1095 422 | SLT 21 POSITION LAST 10 SCAN BITS ZD204080
01B2 D400 0025 423 | STO L MASK1+5 STORE LAST SCAN BITS ZD204090
01B4 74FB 015E 424 | MDX L STO+1,-5 RESET STORE INSTRUCTION ZD204100
01B6 4C40 016E 425 | BO BOSC L KON1 TURN OFF INTRPT,WAIT UNTIL ZD204110
426 | * NEXT INTRPT OCCURS ZD204120
01B8 427 | END START ZD204130
There were no errors in this assembly
Program transfer address = 0074
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
ADDR 0166 352 283 310
ADDRS 0166 337 68 130 232 352 353 363 393
BLNK 0096 104 64
BLOCK 0163 333 392 412 415
BO 01B6 425 265 359 382
BUFAD 0076 224 126 154 155 160 163
BUFER 000E 192 65
BUFFR 0098 191 125
CHAR1 00BB 135 159
CHAR2 00D5 158 151
CLEAR 00FE 208 216 231 250
CLRR 0082 65 67
COMON 0188 376 273 275
COMP 0131 282 174 263 284 314 315
CONP 00AE 125 71
CONTU 01A8 411
COREL 009F 102
CTR 0004 119 70 306 366
CTR16 010B 234 292 299
D1132 010B 229 59 234
D1403 007E 60
D4096 00E4 168
DOPRN 00ED 178 171 182
DOSPC 00A0 108 111 118 170 172
EMIT 0167 353 269 349 357 378 384 386 387 389 390 400
EXIT 0156 319 323 329
FIRST 019F 400 394
FURST 0164 334 169 287 304 360
INKAD 014E 311 285
INT 010F 238 220 245
INT1 011B 250 240
INT2 0125 265 276
INT4 008D 77 83 90
INTA4 0095 90 60
INTAD 0109 220 229
JOHN 011A 246 241 244 361
JUMP1 0191 384 380
K9000 0165 335 381
KEEP 0077 225 149 153
KON1 016E 347 403 425
LDX1 0080 63 176
LOOP 00B7 132 127 166 175
LOOPI 01A0 401 407
LOOPO 019C 398 264 371 417
LTRT 009A 103 147 150 157
MASK1 0020 233 326 423
MDX31 01AF 416 413
MDXFI 019B 394
MEXT 014C 309 307
MORE 013B 290 313
NINE 0009 223 230
NOCHG 017F 365
ONE 016F 348 391
OUTX 00E0 165 162
OVER 0157 320 404 411 414
PACK 010A 222
PRNSW 0026 120 58
PRNT 0098 94 183 191
RDMT 0170 349 251
READ 00AD 121 161 164 167
RETRN 0152 314 297
RIGHT 00CD 152 148
SAME 0148 305
SAV 0074 87 78 82
SENS2 0168 339 239 272 401
SENS3 009A 96 79 103 109 178
SKIP 01A4 404 402
SKON 009E 100 98
SKP 009C 98 116
SKPIN 0075 88 81 112 117
SLT 01B1 421
SPAC3 0096 92 104 114
SPACE 016A 341 242 358 370
SPCE 00E9 172 184
SPCOP 0184 370 367
START 0074 44 87 88 224 225 427
STO 015D 326 327 424
STOP 0182 368 308
STPPR 016C 344 274 368
STRSW 0172 351 256 261 362
TABAD 00F4 189 142
TABL 00F6 197 189
TEST 013D 293 289 300
TWLVE 000C 193 61
WOOD 0127 269 262
XFF00 00F5 195 146
YES 0173 357 257
YES1 017A 362