ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:05 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 0000 161 | BSC L *-*,+- BRANCH IF LOADED 11 54 4C18 DBTC1610 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 0000 186 | NOCDX DC *-* NO OF CARDS 61 6D 0000 DBTC1860 006E 0000 187 | ADRSS DC *-* LOAD ADDRESS 63 6E 0000 DBTC1870 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