ibm:ibm1130-lib:dmsr2v12:zdumpcd2_lst
ZDUMPCD2
| Table Of Contents |
|---|
|
- zdumpcd2.lst
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
ibm/ibm1130-lib/dmsr2v12/zdumpcd2_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator