ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:05 2020
Source File: \abootpt.asm
1 | ** ABOOTPT-PAPER TAPE CORE IMAGE LOADER ABPT0000
2 | *** HDNG PT CI LOADER ABPT0010
3 | *************************************************** ABPT0020
4 | *STATUS- VERSION 2, MODIFICATION LEVEL 0 * ABPT0030
5 | * * ABPT0040
6 | *FUNCTION/OPERATION- * ABPT0050
7 | * * THE PAPER TAPE CORE IMAGE LOADER IS A STAND-* ABPT0060
8 | * ALONE TAPE USED TO LOAD DATA FROM CORE IMAGE* ABPT0070
9 | * FORMAT TAPES TO CORE LOCATIONS ABOVE 00D5. * ABPT0080
10 | * * THE CORE IMAGE LOADER OCCUPIES CORE FROM * ABPT0090
11 | * 0000 THROUGH 00D5. * ABPT0100
12 | * * ABPT0110
13 | *ENTRY POINT- CORE LOCATION 0000. * ABPT0120
14 | * * ABPT0130
15 | *INPUT- CORE IMAGE FORMAT PAPER TAPE RECORDS. * ABPT0140
16 | * * ABPT0150
17 | *OUTPUT- NONE. * ABPT0160
18 | * * ABPT0170
19 | *EXTERNAL REFERENCES- NONE. * ABPT0180
20 | * * ABPT0190
21 | *EXITS- * ABPT0200
22 | * * NORMAL- WAITS AT CORE LOCATION 00C9 BEFORE * ABPT0210
23 | * GOING TO EXECUTION OF LOADED PROGRAM. * ABPT0220
24 | * * ERROR- LOOPS AT CORE LOCATION 0033 IF CHECK-* ABPT0230
25 | * SUM ERROR. WAITS AT CORE LOCATION 00CC IF * ABPT0240
26 | * READ ERROR.WAITS AT CORE LOCATION 006C IF * ABPT0250
27 | * PAPERTAPE READER IS NOT READY * ABPT0260
28 | * * ABPT0270
29 | *TABLES/WORK AREAS- 72 WORD INPUT BUFFER LABELLED * ABPT0280
30 | * 'INPUT'. * ABPT0290
31 | * * ABPT0300
32 | *ATTRIBUTES- * ABPT0310
33 | * * STAND-ALONE * ABPT0320
34 | * * SELF-LOADING * ABPT0330
35 | * * ABPT0340
36 | *NOTES- * ABPT0350
37 | * * ERROR PROCEDURES- * ABPT0360
38 | * * IF PROGRAM LOOPS AT CHECKSUM ERROR EXIT * ABPT0370
39 | * AT CORE LOC 0033, CORRECT TAPE & RESTART.* ABPT0380
40 | * * IF PROGRAM WAITS AT READ ERROR TRAP (LOC * ABPT0390
41 | * 00CC), POSITION TAPE TO RE-READ LAST * ABPT0400
42 | * RECORD, OR RESTART. * ABPT0410
43 | *************************************************** ABPT0420
44 | * ABPT0430
45 | * PAPER TAPE CORE IMAGE LOADER ABPT0440
46 | * ABPT0450
47 | * ABPT0460
48 | * ABPT0470
49 | ABS ABPT0480
0000 50 | ORG 0 ABPT0490
0000 1000 51 | Y NOP ABPT0500
0001 7072 52 | MDX CNT-1 ABPT0510
0002 0000 53 | DC *-* RESERVED FOR XR2 ABPT0520
0003 0000 54 | DC *-* RESERVED FOR XR3 ABPT0530
0004 0000 55 | DC 0 ABPT0540
56 | * ABPT0550
57 | * ALL INTERRUPT BRANCH LOCATIONS POINT TO ABPT0560
58 | * INTER,THE PAPERTAPE INTERRUPT SERVICE ABPT0570
59 | * SUBROUTINE. * ABPT0580
60 | * CIABPT0590
0005 007B 61 | DC INTER ABPT0600
0006 007B 62 | DC INTER ABPT0610
0007 007B 63 | DC INTER ABPT0620
0008 007B 64 | DC INTER ABPT0630
0009 007B 65 | DC INTER ABPT0640
000A 007B 66 | DC INTER ABPT0650
000B 007B 67 | DC INTER ABPT0660
000C 007B 68 | DC INTER ABPT0670
000D 000E 69 | DC LEV5 PROGRAM STOP ABPT0680
70 | * ABPT0690
71 | * PROGRAM STOP INTERRUPT SERVICE. ABPT0700
72 | * ABPT0710
000E 0000 73 | LEV5 DC 0 PROGRAM STOP ENTRY ABPT0720
000F D006 74 | STO IOCCX SAVE ACCUM ABPT0730
0010 0805 75 | XIO IOCCX SENSE DSW ABPT0740
0011 4828 76 | BSC +Z CHECK PROG STOP BIT ABPT0750
0012 3000 77 | WAIT YES,WAIT OPERATOR ACTION ABPT0760
0013 C002 78 | LD IOCCX RESTORE ACCUM ABPT0770
0014 4CC0 000E 79 | BOSC I LEV5 TURN OFF LEVEL AND EXIT ABPT0780
0016 0000 80 | IOCCX DC 0 ABPT0790
0017 3F00 81 | DC /3F00 SENSE PROG STOP ABPT0800
0018 007B 82 | DC INTER ABPT0810
0019 007B 83 | DC INTER ABPT0820
001A 007B 84 | DC INTER ABPT0830
001B 007B 85 | DC INTER ABPT0840
001C 007B 86 | DC INTER ABPT0850
001D 007B 87 | DC INTER ABPT0860
001E 007B 88 | DC INTER ABPT0870
001F 007B 89 | DC INTER ABPT0880
0020 007B 90 | DC INTER ABPT0890
0021 007B 91 | DC INTER ABPT0900
0022 007B 92 | DC INTER ABPT0910
0023 C013 93 | CKSUM LD INPUT+1 TEST RECORD TYPE ABPT0920
0024 4C18 00B4 94 | BSC L DAT,+- BRANCH IF DATA RECORD ABPT0930
0026 7401 0034 95 | MDX L CDCNT,1 INCR CARD COUNT BY ONE ABPT0940
0028 6236 96 | LDX 2 54 XR2 IS SET WITH WD COUNT ABPT0950
0029 C00A 97 | LD CDCNT ABPT0960
002A 8600 0035 98 | OTTO A L2 INPUT-1 ABPT0970
002C 4802 99 | BSC C SKIP IF NO CARRY ABPT0980
002D 8007 100 | A ONE4 ABPT0990
002E 72FF 101 | MDX 2 -1 LOOP UNTIL COUNT IS ZERO ABPT1000
002F 70FA 102 | MDX OTTO ABPT1010
0030 9004 103 | S ONE4 ABPT1020
0031 4C18 00B4 104 | BSC L DAT,+- ABPT1030
0033 70FF 105 | CK3 MDX CK3 WAIT HERE IF ERROR ABPT1040
0034 0000 106 | CDCNT DC 0 ABPT1050
0035 0001 107 | ONE4 DC 1 ABPT1060
108 | * ABPT1070
109 | * PAPERTAPE INPUT AREA,DC'S USED INSTEAD OF ABPT1080
110 | * BSS BECAUSE CIL TAPE IS LOADED IN IPL MODE ABPT1090
111 | * ABPT1100
0036 0000 112 | INPUT DC 0 ABPT1110
0037 0000 113 | DC 0 ABPT1120
0038 0000 114 | DC 0 ABPT1130
0039 0000 115 | DC 0 ABPT1140
003A 0000 116 | DC 0 ABPT1150
003B 0000 117 | DC 0 ABPT1160
003C 0000 118 | DC 0 ABPT1170
003D 0000 119 | DC 0 ABPT1180
003E 0000 120 | DC 0 ABPT1190
003F 0000 121 | DC 0 ABPT1200
0040 0000 122 | DC 0 ABPT1210
0041 0000 123 | DC 0 ABPT1220
0042 0000 124 | DC 0 ABPT1230
0043 0000 125 | DC 0 ABPT1240
0044 0000 126 | DC 0 ABPT1250
0045 0000 127 | DC 0 ABPT1260
0046 0000 128 | DC 0 ABPT1270
0047 0000 129 | DC 0 ABPT1280
0048 0000 130 | DC 0 ABPT1290
0049 0000 131 | DC 0 ABPT1300
004A 0000 132 | DC 0 ABPT1310
004B 0000 133 | DC 0 ABPT1320
004C 0000 134 | DC 0 ABPT1330
004D 0000 135 | DC 0 ABPT1340
004E 0000 136 | DC 0 ABPT1350
004F 0000 137 | DC 0 ABPT1360
0050 0000 138 | DC 0 ABPT1370
0051 0000 139 | DC 0 ABPT1380
0052 0000 140 | DC 0 ABPT1390
0053 0000 141 | DC 0 ABPT1400
0054 0000 142 | DC 0 ABPT1410
0055 0000 143 | DC 0 ABPT1420
0056 0000 144 | DC 0 ABPT1430
0057 0000 145 | DC 0 ABPT1440
0058 0000 146 | DC 0 ABPT1450
0059 0000 147 | DC 0 ABPT1460
005A 0000 148 | DC 0 ABPT1470
005B 0000 149 | DC 0 ABPT1480
005C 0000 150 | DC 0 ABPT1490
005D 0000 151 | DC 0 ABPT1500
005E 0000 152 | DC 0 ABPT1510
005F 0000 153 | DC 0 ABPT1520
0060 0000 154 | DC 0 ABPT1530
0061 0000 155 | DC 0 ABPT1540
0062 0000 156 | DC 0 ABPT1550
0063 0000 157 | DC 0 ABPT1560
0064 0000 158 | DC 0 ABPT1570
0065 0000 159 | DC 0 ABPT1580
0066 0000 160 | DC 0 ABPT1590
0067 0000 161 | DC 0 ABPT1600
0068 0000 162 | DC 0 ABPT1610
0069 0000 163 | DC 0 ABPT1620
006A 0000 164 | DC 0 ABPT1630
006B 0000 165 | DC 0 ABPT1640
166 | * ABPT1650
006C 3000 167 | CNT1 WAIT P.T. NOT READY,WAIT OPER ABPT1660
006D 7007 168 | MDX CNT *ATOR ACTION AND TRY AGAIN ABPT1670
006E 6136 169 | QCNT LDX 1 54 CLEAR ABPT1680
006F 1810 170 | SRA 16 *THE ABPT1690
0070 D500 0035 171 | STO L1 INPUT-1 *PAPERTAPE ABPT1700
0072 71FF 172 | MDX 1 -1 *INPUT ABPT1710
0073 70FC 173 | MDX *-4 *AREA ABPT1720
0074 6101 174 | LDX 1 1 XR1 POINTS TO INPUT BFR ABPT1730
0075 4098 175 | CNT BSI LEV5 CHECK PROGRAM STOP ABPT1740
0076 705C 176 | MDX H6200+1 BRANCH TO SENSE DSW ABPT1750
0077 4828 177 | BSC Z+ IS READER READY ABPT1760
0078 70F3 178 | MDX CNT1 NO,WAIT ABPT1770
0079 0824 179 | STRDR XIO READS YES,START READER ABPT1780
007A 3000 180 | WAIT WAIT FOR INTERRUPT ABPT1790
007B 1010 181 | INTER SLA 16 CLEAR ABPT1800
007C D01E 182 | STO BUF BUFFER ABPT1810
007D 081E 183 | XIO IOCC MOVES CONTENTS OF HARDWARE ABPT1820
007E 0821 184 | XIO SENSE BUFFER INTO BUF AND RESET ABPT1830
007F 4C28 00CC 185 | BSC L ERROR,+Z IF READ ERROR GO TO ERROR ABPT1840
0081 C019 186 | X LD BUF ABPT1850
0082 904D 187 | S DELET TEST FRAME FOR DELETE CODE ABPT1860
0083 4C58 0075 188 | BOSC L CNT,+- BR IF DELETE CODE ABPT1870
0085 C049 189 | LD FIX FETCH MDX INSTRUCTION ABPT1880
0086 D0FA 190 | STO X CHANGE LD TO MDX INST ABPT1890
0087 C013 191 | LD BUF FETCH FRAME JUST READ IN ABPT1900
0088 1808 192 | SRA 8 RIGHT JUSTIFY ABPT1910
0089 D003 193 | STO *+3 ABPT1920
008A E847 194 | OR H6200 MODIFY ABPT1930
008B D09C 195 | STO OTTO-2 *INSTRUCTION ABPT1940
008C 6600 0000 196 | LDX L2 *-* XR2=COUNT ABPT1950
008E 4C40 0075 197 | BOSC L CNT TURN OFF LVL,RD NXT FRAME ABPT1960
0090 C011 198 | LD TEST RIGHT OR LEFT ABPT1970
0091 4C20 00A3 199 | BSC L PART2,Z HALF OF 1L BIT BINARY WORD ABPT1980
0093 C007 200 | PART1 LD BUF LEFT HALF PROCESSED HERE ABPT1990
0094 D500 0035 201 | STO L1 INPUT-1 STORE BUF,LEFT HALF OF WD ABPT2000
0096 4878 202 | BOSC +-Z TURN OFF INTERRYPT LEVEL ABPT2010
0097 0001 203 | ONE DC 1 CONSTANT ABPT2020
0098 C0FE 204 | LD ONE SET TEST TO ONE ABPT2030
0099 D008 205 | STO TEST FOR RIGHT HALF OF WORD ABPT2040
009A 70DA 206 | MDX CNT GO READ NEXT FRAME ABPT2050
207 | * ABPT2060
009B 0000 208 | BUF DC 0 ABPT2070
009C 209 | BSS E 0 I/O CONTROL WORD ABPT2080
009C 009B 210 | IOCC DC BUF ABPT2090
009D 1A00 211 | DC /1A00 READ IOCC ABPT2100
009E 0000 212 | READS DC 0 ABPT2110
009F 1C10 213 | DC /1C10 START READER ABPT2120
00A0 0000 214 | SENSE DC 0 ABPT2130
00A1 1F01 215 | DC /1F01 SENSE DSW WITH RESET ABPT2140
00A2 0000 216 | TEST DC 0 CONSTANT ABPT2150
217 | * ABPT2160
00A3 C0F7 218 | PART2 LD BUF RIGHT HALF OF WORD ABPT2170
00A4 1808 219 | SRA 8 SHIFTED OVER WILL BE ABPT2180
00A5 ED00 0035 220 | OR L1 INPUT-1 ORD IN WITH LEFT HALF ABPT2190
00A7 D500 0035 221 | STO L1 INPUT-1 ABPT2200
00A9 4878 222 | BOSC Z+- TURN OFF INTERRUPT LEVEL ABPT2210
00AA 0F00 223 | MASK DC /0F00 MASK CONSTANT ABPT2220
00AB 1810 224 | SRA 16 RESET ABPT2230
00AC D0F5 225 | STO TEST TEST ABPT2240
00AD 7101 226 | MDX 1 1 INCREMENT POINTER ABPT2250
00AE 72FF 227 | MDX 2 -1 DECREMENT COUNTER ABPT2260
00AF 70C5 228 | MDX CNT ABPT2270
00B0 C01D 229 | LD REFIX RESET X WITH LD INST ABPT2280
00B1 D0CF 230 | STO X ABPT2290
00B2 4C00 0023 231 | BSC L CKSUM ABPT2300
00B4 C083 232 | DAT LD INPUT+2 3RD WORD OF RECORD ABPT2310
00B5 E01B 233 | AND MASK1 GET CNT, MASK OUT TYPE ABPT2320
00B6 D001 234 | STO LAB+1 SETUP COUNT FOR XR2 ABPT2330
00B7 6600 0000 235 | LAB LDX L2 *-* LOAD XR2 WITH WD COUNT ABPT2340
00B9 C400 0036 236 | LD L INPUT ABPT2350
00BB 90DB 237 | S ONE ABPT2360
00BC D003 238 | STO LOOP3+3 ABPT2370
00BD C600 0038 239 | LOOP3 LD L2 INPUT+2 ABPT2380
00BF D600 0000 240 | STO L2 *-* STORE DATA WORD ABPT2390
00C1 72FF 241 | MDX 2 -1 DECR XR2, LOOP UNTIL 0 ABPT2400
00C2 70FA 242 | MDX LOOP3 ABPT2410
00C3 C400 0038 243 | LD L INPUT+2 ABPT2420
00C5 4C10 006E 244 | BSC L QCNT,- ABPT2430
00C7 6780 006A 245 | EOP LDX I3 INPUT+52 ABPT2440
00C9 3000 246 | WAIT ABPT2450
00CA 4C80 006B 247 | BSC I INPUT+53 BR TO EXECUTE LOADED PROG ABPT2460
00CC 3000 248 | ERROR WAIT READ ERROR ABPT2470
00CD 70A7 249 | MDX CNT TO READ RECORD ABPT2480
250 | * ABPT2490
00CE C019 251 | REFIX DC /C019 LOAD ACCUM INSTRUCTION ABPT2500
00CF 700E 252 | FIX DC /700E MDX INSTRUCTION ABPT2510
00D0 7F00 253 | DELET DC /7F00 PAPER TAPE DELETE CODE ABPT2520
00D1 00FF 254 | MASK1 DC /00FF CON TO MASK OUT LEFT BITS ABPT2530
00D2 6200 255 | H6200 DC /6200 LDX 2 INSTRUCTION ABPT2540
256 | * ABPT2550
00D3 08CC 257 | XIO SENSE SENSE DSW WITH RESET ABPT2560
00D4 1005 258 | SLA 5 ABPT2570
00D5 70A1 259 | MDX CNT+2 BR TO TEST IF BIT 5 ON ABPT2580
00D6 260 | END Y ABPT2590
There were no errors in this assembly
Program transfer address = 0000
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
BUF 009B 208 182 186 191 200 210 218
CDCNT 0034 106 95 97
CK3 0033 105
CKSUM 0023 93 231
CNT 0075 175 52 168 188 197 206 228 249 259
CNT1 006C 167 178
DAT 00B4 232 94 104
DELET 00D0 253 187
EOP 00C7 245
ERROR 00CC 248 185
FIX 00CF 252 189
H6200 00D2 255 176 194
INPUT 0036 112 93 98 171 201 220 221 232 236 239 243 245 247
INTER 007B 181 61 62 63 64 65 66 67 68 82 83 84 85
86 87 88 89 90 91 92
IOCC 009C 210 183
IOCCX 0016 80 74 75 78
LAB 00B7 235 234
LEV5 000E 73 69 79 175
LOOP3 00BD 239 238 242
MASK 00AA 223
MASK1 00D1 254 233
ONE 0097 203 204 237
ONE4 0035 107 100 103
OTTO 002A 98 102 195
PART1 0093 200
PART2 00A3 218 199
QCNT 006E 169 244
READS 009E 212 179
REFIX 00CE 251 229
SENSE 00A0 214 184 257
STRDR 0079 179
TEST 00A2 216 198 205 225
X 0081 186 190 230
Y 0000 51 260