ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:12 2020
Source File: \dbootcd.asm
BOOTSTRAP LOADER
2 | *************************************************** DBTC0020
3 | * * DBTC0030
4 | *FUNCTION/OPERATION - * DBTC0040
5 | * * THIS TWO CARD BOOTSTRAP LOADER LOADS ANY * DBTC0050
6 | * NUMBER OF CARDS PUNCHED IN 1800 IPL FORMAT. * DBTC0060
7 | * THE NUMBER OF CARDS, THE LOAD ADDRESS, AND * DBTC0070
8 | * THE EXECUTION BRANCH ADDRESS ARE SPECIFIED * DBTC0080
9 | * BY PUNCHING THEM INTO THE APPROPRIATE * DBTC0090
10 | * FIELDS ON THE 2ND BOOTSTRAP CARD. * DBTC0100
11 | * * DBTC0110
12 | * * THE BOOTSTRAP LOADER CAN BE IPL-ED FROM * DBTC0120
13 | * EITHER THE 2501 OR THE 1442. THE CARDS ARE * DBTC0130
14 | * LOADED FROM THE SAVE DEVICE. * DBTC0140
15 | * * DBTC0150
16 | *ENTRY POINTS - * DBTC0160
17 | * * THE ENTRY POINT IS BT000 WHICH IS LOADED * DBTC0170
18 | * AT LOCATION 0 * DBTC0180
19 | * * DBTC0190
20 | *INPUT - * DBTC0200
21 | * * THE CARDS TO BE LOADED MUST BE IN 1800 IPL * DBTC0210
22 | * FORMAT (8-8 FORMAT), 36 WORDS PER CARD. * DBTC0220
23 | * COL 73-80 ARE LEFT FOR SEQUENCE NUMBERS. * DBTC0230
24 | * * DBTC0240
25 | *OUTPUT - * DBTC0250
26 | * * N/A * DBTC0260
27 | * * DBTC0270
28 | *EXTERNAL REFERENCES - * DBTC0280
29 | * * N/A * DBTC0290
30 | * * DBTC0300
31 | *EXITS - * DBTC0310
32 | * * NORMAL - * DBTC0320
33 | * * THE ADDRESS BRANCHED TO AFTER ALL CARDS * DBTC0330
34 | * HAVE BEEN LOADED IS PUNCHED IN COLS * DBTC0340
35 | * 14-13 OF THE 2ND BOOTSTRAP CARD. * DBTC0350
36 | * * DBTC0360
37 | * * ERROR - * DBTC0370
38 | * * N/A * DBTC0380
39 | * * DBTC0390
40 | *TABLES/WORK AREAS - * DBTC0400
41 | * * N/A * DBTC0410
42 | * * DBTC0420
43 | *NOTES - * DBTC0430
44 | * * THRERE ARE NO ERROR PROCEDURES. THE PROGRAM * DBTC0440
45 | * ASSUMES THAT ALL READ OPERATIONS EXECUTE * DBTC0450
46 | * WITHOUT ERRORS * DBTC0460
47 | * * DBTC0470
48 | * * THE NUMBER OF CARDS TO BE READ PLUS ONE * DBTC0480
49 | * MUST BE PUNCHED IN COL 62-61 OF THE 2ND * DBTC0490
50 | * BOOTSTRAP CARD * DBTC0500
51 | * * DBTC0510
52 | * * THE LOAD ADDRESS MINUS /25 MUST BE PUNCHED * DBTC0520
53 | * IN COL 64-63 OF THE 2ND BOOTSTRAP CARD * DBTC0530
54 | * * THE FIRST BOOTSTRAP CARD MUST BE IN 1130 * DBTC0540
55 | * IPL FORMAT, THE 2ND CARD MUST BE IN 1800 * DBTC0550
56 | * IPL FORMAT. COLS 73-80 OF EACH CARD ARE * DBTC0560
57 | * LEFT FOR SEQUENCE NUMBERS. * DBTC0570
58 | * * DBTC0580
59 | * * THE FIRST AVAILABLE CORE LOCATION FOR THE * DBTC0590
60 | * CARDS TO BE LOADED IS /74 * DBTC0600
61 | * * DBTC0610
62 | *************************************************** DBTC0620
BOOTSTRAP LOADER
64 | ABS DBTC0640
0000 65 | ORG 0 DBTC0650
0000 C004 66 | BT000 LD S1442 (2808) 1 00 C04 DBTC0660
0001 1801 67 | SRA 1 (1404) 2 01 181 DBTC0670
0002 D002 68 | STO S1442 START 1442 IOCC 3 02 D02 DBTC0680
0003 C007 69 | LD R1442 (4810) 4 03 C07 DBTC0690
0004 7009 70 | MDX START BRANCH 5 04 709 DBTC0700
0005 2808 71 | S1442 DC /2808 INT TO /1404 6 05 288 DBTC0710
0006 0027 72 | DC /0027 INT TO ADRXX 7 06 027 DBTC0720
0007 0000 73 | S2501 DC *-* INT TO /4E00 8 07 000 DBTC0730
0008 0029 74 | DC CLINT COL INT ADR 9 08 029 DBTC0740
0009 3800 75 | T2501 DC /3800 INT TO /4F03 10 09 380 DBTC0750
000A 0000 76 | DC *-* INT TO ADRXX 11 0A 000 DBTC0760
000B 4810 77 | R1442 DC /4810 INT TO /1204 12 0B 490 DBTC0770
000C 0031 78 | DC OPINT OP INT ADR 13 0C 031 DBTC0780
000D B818 79 | T1442 DC /B818 INT TO /1703 14 0D B98 DBTC0790
000E 1802 80 | START SRA 2 (1204) 15 0E 182 DBTC0800
000F D0FB 81 | STO R1442 READ 1442 IOCC 16 0F D7B DBTC0810
0010 C0FC 82 | LD T1442 (B808) 17 10 C7C DBTC0820
0011 1803 83 | SRA 3 (1701) 18 11 183 DBTC0830
0012 D0FA 84 | STO T1442 TEST 1442 IOCC 19 12 D7A DBTC0840
0013 80F5 85 | A T2501 (4F01) 20 13 875 DBTC0850
0014 D0F4 86 | STO T2501 TEST 2501 IOCC 21 14 D74 DBTC0860
0015 C0F0 87 | LD S2501-1 (0027) 22 15 C70 DBTC0870
0016 1001 88 | SLA 1 (004E) 23 16 101 DBTC0880
0017 D0EE 89 | STO S2501-1 START 2501 ADR 24 17 D6E DBTC0890
0018 D0F1 90 | STO R1442-1 READ 1442 ADR 25 18 D71 DBTC0900
0019 D024 91 | STO AR2XX ADR IN LOAD INST 26 19 D24 DBTC0910
001A D025 92 | STO AR3XX ADR IN STORE INST 27 1A D25 DBTC0920
001B 1008 93 | SLA 8 (4E00) 28 1B 108 DBTC0930
001C D0EA 94 | STO S2501 START 2501 IOCC 29 1C D6A DBTC0940
001D C01C 95 | LD B1XXX (00C4) 30 1D C1C DBTC0950
001E 1008 96 | SLA 8 (C400) 31 1E 108 DBTC0960
001F D01A 97 | STO B1XXX LOAD LONG INST 32 1F D1A DBTC0970
0020 801E 98 | A B3XXX (D400) 33 20 81E DBTC0980
0021 D01D 99 | STO B3XXX STORE LONG INST 34 21 D1D DBTC0990
0022 801A 100 | A B2XXX (EC00) 35 22 81A DBTC1000
0023 D019 101 | STO B2XXX OR LONG INST 36 23 D19 DBTC1010
0024 C019 102 | LD AR2XX (004E) 37 24 C19 DBTC1020
0025 D028 103 | STO WDCNT INIT WORD COUNT 38 25 D28 DBTC1030
0026 1000 104 | NOP SPACE 39 26 100 DBTC1040
0027 08DC 105 | READX XIO S1442-1 START 1442 40 27 0DC DBTC1050
0028 08DD 106 | XIO S2501-1 START 2501 41 28 0DD DBTC1060
0029 70FF 107 | CLINT MDX *-1 LOOP HERE 42 29 77F DBTC1070
002A 08E1 108 | XIO T1442-1 TEST 1442 43 2A 0E1 DBTC1080
002B C0DE 109 | LD R1442-1 INCREMENT BY 1 44 2B C5E DBTC1090
002C 8003 110 | A H1XXX READ 1442 COL 45 2C 803 DBTC1100
002D D0DC 111 | STO R1442-1 ADDRESS 46 2D D5C DBTC1110
002E 08DB 112 | XIO R1442-1 REAL COL OFF 1442 47 2E 0DB DBTC1120
002F 4878 113 | BOSC +-Z TURN OFF INT 48 2F 4F8 DBTC1130
0030 0001 114 | H1XXX DC 1 CONSTANT 49 30 001 DBTC1140
0031 70FF 115 | OPINT MDX *-1 LOOP HERE 50 31 77F DBTC1150
0032 C00D 116 | LOOP1 LD AR3XX INCREMENT STORE 51 32 C0D DBTC1160
0033 80FC 117 | A H1XXX LONG INST ADR 52 33 87C DBTC1170
0034 D00B 118 | STO AR3XX BY 1 53 34 D0B DBTC1180
0035 C008 119 | LD AR2XX INCREMENT OR 54 35 C08 DBTC1190
0036 80F9 120 | A H1XXX LONG INST ADR 55 36 879 DBTC1200
0037 D003 121 | STO AR1XX BY 2 AND LOAD 56 37 D03 DBTC1210
0038 80F7 122 | A H1XXX LONG INST ADR 57 38 877 DBTC1220
0039 D004 123 | STO AR2XX BY 2 58 39 D04 DBTC1230
003A 00C4 124 | B1XXX DC /00C4 INT TO .... 59 3A 044 DBTC1240
003B 0000 125 | AR1XX DC *-* LD L *-* 60 3B 000 DBTC1250
126 | * (DD00) DBTC1260
003C 1808 127 | SRA 8 (00DD) 61 3C 188 DBTC1270
003D 1800 128 | B2XXX DC /1800 INT TO .... 62 3D 180 DBTC1280
003E 0000 129 | AR2XX DC *-* OR L *-* 63 3E 000 DBTC1290
130 | * (DDDD) DBTC1300
003F 1000 131 | B3XXX DC /1000 INT TO .... 64 3F 100 DBTC1310
0040 0000 132 | AR3XX DC *-* STO L *-* 65 40 000 DBTC1320
133 | * STORE PACKED DATA DBTC1330
0041 C005 134 | LD NOXXX DECREMENT NUMBER 66 41 C05 DBTC1340
0042 90ED 135 | S H1XXX OF COLUMNS BY 67 42 96D DBTC1350
0043 D003 136 | STO NOXXX 1 68 43 D03 DBTC1360
0044 4820 137 | BSC Z SKIP IF ZERO 69 44 4A0 DBTC1370
0045 70EC 138 | MDX LOOP1 BRANCH TO CONT. 70 45 76C DBTC1380
0046 7028 139 | MDX ENTER GO TO 2ND CARD 71 46 728 DBTC1390
0047 0028 140 | NOXXX DC /28 72 47 028 DBTC1400
0048 141 | OLDXX BSS 1 OLD WORD 48 DBTC1410
0049 142 | BSS 5 SPACE 49 DBTC1420
004E 143 | WDCNT BSS 1 WORD COUNT 4E DBTC1430
144 | * 73 L DBTC1440
145 | * 74 D DBTC1450
146 | * 75 B DBTC1460
147 | * 76 0 DBTC1470
148 | * 77 T DBTC1480
149 | * 78 H DBTC1490
150 | * 79 0 DBTC1500
151 | * 80 1 DBTC1510
152 | * DBTC1520
153 | * SECOND CARD OF BOOTSTRAP OBJ CODE DBTC1530
154 | * DBTC1540
004F 155 | ORG WDCNT+1 DBTC1550
004F C0F8 156 | GOONS LD OLDXX (XXXX) 1 4F C0F8 DBTC1560
0050 D480 0006 157 | STO I S2501-1 REPLACE OLD WORD 3 50 D480 DBTC1570
158 | * 5 51 0006 DBTC1580
0052 C01A 159 | LD NOCDX DECREMENT CARD 7 52 C01A DBTC1590
0053 90DC 160 | S H1XXX COUNT 9 53 90DC DBTC1600
0054 4C18 00F6 161 | BSC LX /F6,+- /86+/70 KNITTEL
162 | * 13 55 0000 DBTC1620
0056 D016 163 | STO NOCDX SAVE CARD COUNT 15 56 D016 DBTC1630
0057 C013 164 | LD MDXXX (70FF) 17 57 C013 DBTC1640
0058 D0D8 165 | STO OPINT RESTORE MDX *-1 19 58 D0D8 DBTC1650
0059 D0CF 166 | STO CLINT RESTORE MDX *-1 21 59 D0CF DBTC1660
005A C013 167 | LD ADRSS INCREMENT LOAD 23 5A C013 DBTC1670
005B 800E 168 | A H24XX ADDRESS BY 25 5B 800E DBTC1680
005C D011 169 | STO ADRSS 36 WORDS 27 5C D011 DBTC1690
005D D0A8 170 | STO S2501-1 INIT ADDRESS 29 5D D0A8 DBTC1700
005E D0AB 171 | STO R1442-1 INIT ADDRESS 31 5E D0AB DBTC1710
005F D0DE 172 | STO AR2XX INIT ADDRESS 33 5F D0DE DBTC1720
0060 D0DF 173 | STO AR3XX INIT ADDRESS 35 60 D0DF DBTC1730
0061 C008 174 | LD H24XX (0024) 37 61 C008 DBTC1740
0062 D0E4 175 | STO NOXXX SET COL COUNT 39 62 D0E4 DBTC1750
0063 C480 0006 176 | LD I S2501-1 (XXXX) 41 63 C480 DBTC1760
177 | * 43 64 0006 DBTC1770
0065 D0E2 178 | STO OLDXX SAVE OLD WORD 45 65 D0E2 DBTC1780
0066 C005 179 | LD H4EXX (004E) 47 66 C005 DBTC1790
0067 D480 0006 180 | STO I S2501-1 SET COL COUNT 49 67 D480 DBTC1800
181 | * FOR HDWR 51 68 0006 DBTC1810
0069 70BD 182 | MDX READX 53 69 70BD DBTC1820
006A 0024 183 | H24XX DC /24 CONSTANT 55 6A 0024 DBTC1830
006B 70FF 184 | MDXXX MDX *-1 CONSTANT 57 6B 70FF DBTC1840
006C 004E 185 | H4EXX DC /4E CONSTANT 59 6C 004E DBTC1850
006D 0006 186 | NOCDX DC 6 NO OF CARDS 61 6D 0000 DBTC1860
006E 004F 187 | ADRSS DC /4F LOAD ADDRESS-/25 (/24+1) KNITTEL
006F 089C 188 | ENTER XIO T1442-1 SENSE 1442 DSW 65 6F 089C DBTC1880
0070 0897 189 | XIO T2501-1 SENSE 2501 DSW 67 70 0897 DBTC1890
0071 4C40 004F 190 | BOSC L GOONS BR-TURN OFF INT 69 71 4C40 DBTC1900
191 | * 71 72 004F DBTC1910
192 | * 73 L DBTC1920
193 | * 74 D DBTC1930
194 | * 75 B DBTC1940
195 | * 76 0 DBTC1950
196 | * 77 T DBTC1960
197 | * 78 H DBTC1970
198 | * 79 0 DBTC1980
199 | * 80 2 DBTC1990
0073 200 | END * DBTC2000
There were no errors in this assembly
Program transfer address = 0073
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
ADRSS 006E 187 167 169
AR1XX 003B 125 121
AR2XX 003E 129 91 102 119 123 172
AR3XX 0040 132 92 116 118 173
B1XXX 003A 124 95 97
B2XXX 003D 128 100 101
B3XXX 003F 131 98 99
BT000 0000 66
CLINT 0029 107 74 166
ENTER 006F 188 139
GOONS 004F 156 190
H1XXX 0030 114 110 117 120 122 135 160
H24XX 006A 183 168 174
H4EXX 006C 185 179
LOOP1 0032 116 138
MDXXX 006B 184 164
NOCDX 006D 186 159 163
NOXXX 0047 140 134 136 175
OLDXX 0048 141 156 178
OPINT 0031 115 78 165
R1442 000B 77 69 81 90 109 111 112 171
READX 0027 105 182
S1442 0005 71 66 68 105
S2501 0007 73 87 89 94 106 157 170 176 180
START 000E 80 70
T1442 000D 79 82 84 108 188
T2501 0009 75 85 86 189
WDCNT 004E 143 103 155