ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:11 2020
Source File: \zdumpcd1.asm
1 | *************************************************** ZD100010
2 | * * ZD100020
3 | * STATUS- VERSION 2, MODIFICATION 11 * ZD100025
4 | * * ZD100030
5 | * PROGRAM NAME- STAND ALONE CORE DUMP,PHASE 1 * ZD100040
6 | * * ZD100050
7 | * FUNCTION/OPERATION- * ZD100060
8 | * THIS PHASE IS LOADED INTO CORE BY CIL-BOOT-* ZD100070
9 | * STRAP TO LOC /74. * ZD100080
10 | * IT DETERMINES THE SIZE OF CORE AND * ZD100090
11 | * SETS UP THE LINE COUNTER FOR THE PRINTER * ZD100100
12 | * ACCORDINGLY. THE ROUTINE ALSO CHECKS TO SEE* ZD100110
13 | * WHICH PRINTER IS ON THE SYSTEM. IF THE 1403* ZD100120
14 | * IS ON THE SYSTEM AND READY IT WILL BE USED.* ZD100130
15 | * * ZD100140
16 | * ENTRY POINTS- START IS THE ONLY ENTRY POINT. * ZD100150
17 | * THE PROGRAM THEN GOES TO THE LOADER (CIL- * ZD100160
18 | * BOOTSTRAP)TO BRING IN PHASE 2. * ZD100170
19 | * * ZD100180
20 | * INPUT- NONE * ZD100190
21 | * * ZD100200
22 | * OUTPUT- THE LINE COUNT FOR THE PRINTER OUTPUT * ZD100210
23 | * IS SAVED IN CORE LOCATION 4. * ZD100220
24 | * AN INDICATOR WD AT LOCATION /26 IS SET * ZD100230
25 | * AS FOLLOWS- * ZD100240
26 | * ZERO -- 1403 PRINTER USED * ZD100250
27 | * NON-ZERO -- 1132 PRINTER USED * ZD100260
28 | * * ZD100270
29 | * EXTERNAL REFERENCES- THE INTERRUPT BRANCH * ZD100280
30 | * WORDS FOR INTERRUPT LEVEL 1 (LOC 9) AND * ZD100290
31 | * INTERRUPT LEVEL 4 (LOC 12) ARE SET TO * ZD100300
32 | * THE PROGRAMS OWN ILS ROUTINES. WORDS 9 * ZD100310
33 | * AND 12 ARE RESTORED. * ZD100320
34 | * * ZD100330
35 | * ERROR CONDITIONS- NO ERRORS ARE RECOGNIZED. * ZD100340
36 | * IF NO PRINTER IS READY ON THE SYSTEM,THE * ZD100350
37 | * PROGRAM JUST LOOPS UNTIL ONE IS READY. * ZD100360
38 | * * ZD100370
39 | * NOTES- * ZD100380
40 | * *THIS PROGRAM MUST BE CONVERTED TO 8/8 * ZD100382
41 | * FORMAT WITH DATA IN COLUMNS 1 THRU 72. * ZD100384
42 | * COLUMNS 73 THRU 80 ARE TO CONTAIN THE * ZD100386
43 | * SEQUENCE NUMBERS. * ZD100388
44 | * *THE PROGRAM IS LOADED INTO CORE BY THE * ZD100390
45 | * 2-CARD BOOTSTRAP LOADER. * ZD100392
46 | * * ZD100394
47 | *************************************************** ZD100400
1403/1132 STAND ALONE CORE DUMP,PH 1
49 | ABS ZD100420
0074 50 | ORG /74 ZD100430
0074 6300 51 | START LDX 3 0 XR3=0--FOR SHORT INSTR ZD100440
52 | * ZD100450
53 | *SAVE WORDS 1E0 THRU 1E4-- THESE LOCATIONS ARE ZD100460
54 | *DESTROYED WHEN 2ND PHASE IS LOADED.THEY ARE ZD100470
55 | *RESTORED WHEN THE SECOND PHASE STARTS EXECUTION. ZD100480
56 | * ZD100490
0075 CC00 01E0 57 | LDD L /1E0 ZD100500
0077 D8A6 58 | STD /1E ZD100510
0078 CC00 01E2 59 | LDD L /1E2 ZD100520
007A D8A5 60 | STD /20 ZD100530
61 | * ZD100540
007B C309 62 | LD 3 NINE SAVE WORDA 9 AND ZD100550
007C D056 63 | STO SAV9 *12 IN BOOTSTRAP ZD100560
007D C30C 64 | LD 3 TWLVE *LOADER AREA BEFORE ZD100570
007E D055 65 | STO SAV12 *SETTINF INTRP ADDR ZD100580
007F C018 66 | LD INTA4 SET UP 1403 INTERRUPT SUB- ZD100590
0080 D30C 67 | STO 3 TWLVE *ROUTINE ADDR IN WD. 12 ZD100600
0081 C018 68 | LD INTAD SET UP 1132 INTERRUPT SUB- ZD100610
0082 D309 69 | STO 3 NINE *ROUTINE ADDR IN WD. 9 ZD100620
70 | * ZD100630
71 | * SUBROUTINE TO DETERMINE THE SIZE OF CORE AND SET ZD100640
72 | * UP THE LINE-COUNTER--CTR-- ACCORDING TO THE ZD100650
73 | * CORE-SIZE,227 LINES FOR 1ST 4K AND 256 LINES FOR ZD100660
74 | * EVERY ADDITIONAL 4K. ZD100670
75 | * ZD100680
0083 C480 00A4 76 | CORE1 LD I COREL SAVE CONTENTS OF CORE LOC ZD100690
0085 D020 77 | STO PACK *4097 ZD100700
0086 1010 78 | SLA 16 PUT ZERO IN 4097 ZD100710
0087 D480 00A4 79 | STO I COREL *IN 4097, 8193 ETC ZD100720
0089 7100 80 | MDX 1 0 IS LOC 1 ZERO ZD100730
008A 7003 81 | MDX GR4K NO ,TRY NEXT HIGHER SIZE ZD100740
008B C046 82 | LD CTR1 YES, ZD100750
008C D304 83 | STO 3 CTR *SAVE LINE CNT OF 227 ZD100760
008D 7019 84 | MDX PTEST GO DO PRINTER TEST ZD100770
008E C016 85 | GR4K LD D256 NEXT HIGHER SIZE-- INCR ZD100780
008F 8042 86 | A CTR1 LINE CTR BY 256 ZD100790
0090 D041 87 | STO CTR1 ZD100800
88 | * ZD100810
0091 C014 89 | LD PACK RESTORE LOC ZD100820
0092 D480 00A4 90 | STO I COREL *4097, 8193 ETC ZD100830
0094 C004 91 | LD D4096 MODIFY CORE ADDR BY 4096 ZD100840
0095 800E 92 | A COREL TO TRY FOR NEXT HIGHER ZD100850
0096 D00D 93 | STO COREL CORE SIZE. ZD100860
0097 70EB 94 | MDX CORE1 RET TO TRY AGAIN ZD100870
95 | * ZD100880
96 | *CONSTANTS AND BUFFER AREA ZD100890
97 | * ZD100900
0098 00D6 98 | INTA4 DC INT4 ADDR OF 1403 PRINTER ZD100910
99 | * *INTRPT ROUTINE ZD100920
0099 1000 100 | D4096 DC /1000 CONSTANT OF 4K = 4096 ZD100930
000C 101 | TWLVE EQU 12 ADDR OF INTRPT LEVEL 4 WD ZD100940
009A 00DC 102 | INTAD DC INT ZD100950
103 | * INTERUPT ROUTINE ZD100960
0009 104 | NINE EQU 9 ADDR OF INTRPT LEVEL 1 WRD ZD100970
009C 105 | BSS E 0 ZD100980
009C 0001 106 | SPAC3 DC 1 IOCC TO SPACE 1403 ZD100990
009D AC00 107 | DC /AC00 *PRINTER ZD101000
009E 0000 108 | SENS3 DC 0 IOCC TO SENSE 1403 ZD101010
009F AF01 109 | DC /AF01 *PRINTER ZD101020
00A0 F000 110 | SENS2 DC /F000 IOCC TO SENSE 1132 PRINTER ZD101030
00A1 3701 111 | DC /3701 *WITH RESET ZD101040
00A2 C500 112 | SPACE DC /C500 IOCC TO SPACE 1132 ZD101050
00A3 3401 113 | DC /3401 *PRINTER ZD101060
00A4 1001 114 | COREL DC /1001 CORE LOC BUFFER(NOW 4097) ZD101070
00A5 0100 115 | D256 DC 256 NO. OF LINES FOR ADDING 4K ZD101080
00A6 0000 116 | PACK DC 0 TEMPORARY STG FOR TEST WD ZD101090
117 | * ZD101100
118 | *TEST FOR WHICH PRINTER IS ON SYSTEM,1403 OR 1132 ZD101110
119 | *IFBOTH ARE ON SYSTEM AND BOTH ARE READY,DUMP IS ZD101120
120 | *ON 1403. ZD101130
121 | * ZD101140
00A7 08F6 122 | PTEST XIO SENS3 CHK 1403 PRINTER READY ZD101150
00A8 4804 123 | BSC E YES, SKIP ZD101160
00A9 7005 124 | MDX PT010 NO, GO CHK 1132 PRINTER ZD101170
00AA 08F1 125 | STSPC XIO SPAC3 ONE SPACE ON 1403 ZD101180
00AB 08F2 126 | XIO SENS3 SENSE FOR CARRIAGE BUSY ZD101190
00AC 1802 127 | SRA 2 ZD101200
00AD 4C04 00BF 128 | BSC L D1403,E BUSY ,START DUMP ON 1403 ZD101210
00AF 08F0 129 | PT010 XIO SENS2 NOT BUSY ,CHECK 1132 READY ZD101220
00B0 1005 130 | SLA 5 NO READY BIT TO SIGN BIT ZD101230
00B1 4C28 00A7 131 | BSC L PTEST,+Z IF NOT RDY RET TO 1403 ZD101240
00B3 08EE 132 | XIO SPACE TEST 1132 READY, DO 1 SPACE ZD101250
00B4 08EB 133 | XIO SENS2 TEST 1132 BUSY ZD101260
00B5 1003 134 | SLA 3 CARRIAGE BUSY TO SIGN BIT ZD101270
00B6 4C28 00B9 135 | BSC L D1132,+Z BUSY, START DUMP ON 1132 ZD101280
00B8 70EE 136 | MDX PTEST NOT BUSY,BACK TO 1403 TEST ZD101290
137 | * ZD101300
138 | *SET A SWITCH TO INDICATE O/P DEVICE,AND PREPARE ZD101310
139 | *TO GO TO LOADER TO GET SECOND PHASE ZD101320
140 | * ZD101330
00B9 D326 141 | D1132 STO 3 PRNSW SET 1132 SWITCH NON-ZERO ZD101340
00BA 08E5 142 | LOOP1 XIO SENS2 LOOP UNTIL 1132 ZD101350
00BB 1003 143 | SLA 3 HAS FINISHED SPACING ZD101360
00BC 4C28 00BA 144 | BSC L LOOP1,+Z ZD101370
00BE 7006 145 | MDX NXTLD PREPARE TO RET TO LOADER ZD101380
00BF 1810 146 | D1403 SRA 16 SET SWITCH TO DUMP ON ZD101390
00C0 D326 147 | STO 3 PRNSW *1403 PRINTER ZD101400
00C1 08DC 148 | LOOP2 XIO SENS3 LOOP UNTIL 1403 ZD101410
00C2 100D 149 | SLA 13 *FINISHES ZD101420
00C3 4C28 00C1 150 | BSC L LOOP2,+Z *SPACING ZD101430
00C5 C00A 151 | NXTLD LD H74 SET UP NEXT PHASE ZD101440
00C6 D08E 152 | STO BRAD BRANCH ADDRESS ZD101450
00C7 C009 153 | LD H4F ZD101460
00C8 D0A5 154 | STO ADRSS AND LOAD ADDR-/25. ZD101470
00C9 C00B 155 | LD CDNO SET UP NO. OF CARDS ZD101480
00CA D0A2 156 | STO NOCDX *LOADER IS TO READ ZD101490
00CB C007 157 | LD SAV9 ZD101500
00CC D309 158 | STO 3 NINE RESTORE INTRPT LEVEL 1 WD ZD101510
00CD C006 159 | LD SAV12 ZD101520
00CE D30C 160 | STO 3 TWLVE RESTORE INTRPT LEVEL 4 WD ZD101530
00CF 7087 161 | MDX LOAD LD. NXT.PH.OF DUMP PROGRAM ZD101540
162 | * ZD101550
163 | *CONSTANTS AND BUFFER AREA ZD101560
164 | * ZD101570
00D0 0074 165 | H74 DC /74 BR ADDR OF SECOND PHASE ZD101580
00D1 004F 166 | H4F DC /4F LOAD ADDR MINUS /25 ZD101590
00D2 00E3 167 | CTR1 DC 227 LINE COUNT ZD101600
00D3 0000 168 | SAV9 DC 0 BUFFER TO SAVE WD 9 ZD101610
00D4 0000 169 | SAV12 DC 0 BUFFER TO SAVE WD 12 ZD101620
00D5 0009 170 | CDNO DC 9 NO. CDS TO LD,SECOND PHASE ZD101630
171 | * ZD101640
172 | * BOOTSTRAP ADDRESSES ZD101650
173 | * ZD101660
0055 174 | BRAD EQU /55 BRANCH ADDRESS ZD101670
0057 175 | LOAD EQU /57 RETURN TO LOADER ZD101680
006D 176 | NOCDX EQU /6D ADDR OF NO. CDS TO LD ZD101690
006E 177 | ADRSS EQU /6E LOAD ADDRESS ZD101700
0004 178 | CTR EQU /0004 ADDR OF NO. OF LINES TO PR ZD101710
0026 179 | PRNSW EQU /26 PTR SW(0=1403,OTHER=1132) ZD101720
180 | * ZD101730
181 | * 1403 PRINTER INTERRUPT ROUTINE ZD101740
182 | * ZD101750
00D6 0000 183 | INT4 DC 0 ADDR OF RET TO LOADER ZD101760
00D7 D0CF 184 | STO SAV SAVE ACC ZD101770
00D8 08C5 185 | XIO SENS3 SENSE WITH RESET ZD101780
00D9 C0CD 186 | LD SAV RESTORE ACC ZD101790
00DA 4CC0 00D6 187 | BOSC I INT4 TURN OFF INTRPT LEVEL,RET ZD101800
00A7 188 | SAV EQU PTEST TEMPORARY STG FOR ACC ZD101810
189 | * ZD101820
190 | * 1132 PRINTER INTERRUPT ROUTINE ZD101830
191 | * ZD101840
00DC 0001 192 | INT DC 1 SAVE RETURN ADDRESS ZD101850
00DD 08C2 193 | XIO SENS2 SENSE DEVICE WITH RESET ZD101860
00DE 4CC0 00DC 194 | BOSC I INT TURN OFF INTRPT LEVEL,RET ZD101870
00E0 195 | END START ZD101880
There were no errors in this assembly
Program transfer address = 0074
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
ADRSS 006E 177 154
BRAD 0055 174 152
CDNO 00D5 170 155
CORE1 0083 76 94
COREL 00A4 114 76 79 90 92 93
CTR 0004 178 83
CTR1 00D2 167 82 86 87
D1132 00B9 141 135
D1403 00BF 146 128
D256 00A5 115 85
D4096 0099 100 91
GR4K 008E 85 81
H4F 00D1 166 153
H74 00D0 165 151
INT 00DC 192 102 194
INT4 00D6 183 98 187
INTA4 0098 98 66
INTAD 009A 102 68
LOAD 0057 175 161
LOOP1 00BA 142 144
LOOP2 00C1 148 150
NINE 0009 104 62 69 158
NOCDX 006D 176 156
NXTLD 00C5 151 145
PACK 00A6 116 77 89
PRNSW 0026 179 141 147
PT010 00AF 129 124
PTEST 00A7 122 84 131 136 188
SAV 00A7 188 184 186
SAV12 00D4 169 65 159
SAV9 00D3 168 63 157
SENS2 00A0 110 129 133 142 193
SENS3 009E 108 122 126 148 185
SPAC3 009C 106 125
SPACE 00A2 112 132
START 0074 51 195
STSPC 00AA 125
TWLVE 000C 101 64 67 160