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