1 FIELD 0; *0 2 /Pre-canned Restart vectors 3 000000 0000 00000 /LA 4 000001 0000 00000 /LEA GO 5 000002 0200 00200 /LA 6 000003 0000 00000 /LEA GO 7 000004 2000 02000 /LA 8 000005 0000 00000 /LEA GO 9 000006 4200 04200 /LA 10 000007 0000 00000 /LEA GO 11 12 /Bootstrap 1: High or low speed paper tape 13 000010 7737 07737 /LA 14 000011 0000 00000 /LEA 15 RELOC 07737 16 /Start the high speed reader 17 007737* 6014 START1, RFC /06014 /DEP 18 007740* 3376 DCA PTR /03376 /DEP 19 /Spin to let reader possibly come ready 20 007741* 7326 LOOP, CLA CLL CML RTL /07326 /DEP 21 007742* 1337 TAD START1 /01337 /DEP 22 007743* 2376 ISZ PTR /02376 /DEP 23 007744* 5341 JMP LOOP /05341 /DEP 24 /If it came ready, patch for LSR 25 007745* 6011 KRSF, RSF /06011 /DEP 26 007746* 5356 JMP UKCC /05356 /DEP 27 007747* 3361 DCA UKRB /03361 /DEP 28 007750* 1361 TAD UKRB /01361 /DEP 29 007751* 3371 DCA UKRS /03371 /DEP 30 007752* 1345 TAD KRSF /01345 /DEP 31 007753* 3357 DCA UKSF1 /03357 /DEP 32 007754* 1345 TAD KRSF /01345 /DEP 33 007755* 3367 DCA UKSF2 /03367 /DEP 34 /Code either runs as is, or was patched above. 35 007756* 6032 UKCC, KCC /06032 /DEP 36 007757* 6031 UKSF1, KSF /06031 /DEP 37 007760* 5357 JMP .-1 /05357 /DEP 38 007761* 6036 UKRB, KRB /06036 /DEP 39 007762* 7106 CLL RTL /07106 /DEP 40 007763* 7006 RTL /07006 /DEP 41 /Ignore if leader/trailer (0200 was punched) 42 007764* 7510 SPA /07510 /DEP 43 007765* 5374 JMP IGNR /05374 /DEP 44 /Finish rotate six and get low six 45 007766* 7006 RTL /07006 /DEP 46 007767* 6031 UKSF2, KSF /06031 /DEP 47 007770* 5367 JMP .-1 /05367 /DEP 48 007771* 6034 UKRS, KRS /06034 /DEP 49 007772* 7420 SNL /07420 /DEP 50 007773* 3776 DCA I PTR /03776 /DEP 51 007774* 3376 IGNR, DCA PTR /03376 /DEP 52 007775* 5356 JMP UKCC /05356 /DEP 53 PTR, 54 007776* 7737 07737 /LA GO 55 56 /Bootstrap 2: RK8E 57 007777* 0023 00023 /LA 58 000000* 0000 00000 /LEA 59 RELOC 00023 60 DLAG= 6743 61 DRST= 6745 62 /Not sure how this helps. 63 000023* 2200 02200 /DEP 64 /Read status 65 000024* 6745 START2, DRST /06745 /DEP 66 /Harmless AND instruction. 67 000025* 0023 START2-1 /00023 /DEP 68 /Wait for reasonable status. 69 000026* 7640 SZA CLA /07640 /DEP 70 000027* 5024 JMP START2 /05024 /DEP 71 /Start a read. AC==0, so block zero. 72 000030* 6743 DLAG /06743 /DEP 73 /Hang waiting for read to overlay us. 74 000031* 5031 JMP . /05031 /DEP 75 000032* 0024 00024 /LA GO 76 77 /Bootstrap 3: RX8E 78 000033* 0024 00024 /LA 79 000034* 0000 00000 /LEA 80 RELOC 00024 81 LCD= 6751 /Load Command Register 82 XDR= 6752 /Transfer Data Register 83 STR= 6753 /Skip if Transfer Requested 84 SER= 6754 /Skip if Error 85 SDN= 6755 /Skip if Done 86 000024* 7126 CLL CML RTL /07126 /DEP 87 000025* 1060 01060 /DEP 88 000026* 6751 LCD /06751 /DEP 89 000027* 7201 CLA IAC /07201 /DEP 90 000030* 4053 04053 /DEP 91 000031* 4053 04053 /DEP 92 000032* 7104 CLL RAL /07104 /DEP 93 000033* 6755 START3, SDN /06755 /DEP 94 000034* 5054 05054 /DEP 95 000035* 6754 SER /06754 /DEP 96 000036* 7450 SNA /07450 /DEP 97 000037* 7610 CLA SKP /07610 /DEP 98 000040* 5046 05046 /DEP 99 000041* 1060 01060 /DEP 100 000042* 7041 CIA /07041 /DEP 101 000043* 1061 01061 /DEP 102 000044* 3060 03060 /DEP 103 000045* 5024 05024 /DEP 104 000046* 6751 LCD /06751 /DEP 105 000047* 4053 04053 /DEP 106 000050* 3002 03002 /DEP 107 000051* 2050 02050 /DEP 108 000052* 5047 05047 /DEP 109 000053* 0000 00000 /DEP 110 000054* 6753 STR /06753 /DEP 111 000055* 5033 05033 /DEP 112 000056* 6752 XDR /06752 /DEP 113 000057* 5453 05453 /DEP 114 000060* 7024 CML RAL /07024 /DEP 115 000061* 6030 06030 /DEP 116 000062* 0033 00033 /LA GO 117 118 /Bootstrap 4: RF08/DF32 119 000063* 7750 07750 /LA 120 000064* 0000 00000 /LEA 121 RELOC 07750 122 DMAR= 6603 /Begin a Read 123 DFSC= 6622 /Skip if Complete 124 007750* 7600 START4, CLA 0400 /07600 /DEP 125 007751* 6603 DMAR /06603 /DEP 126 007752* 6622 DFSC /06622 /DEP 127 007753* 5352 JMP .-1 /05352 /DEP 128 007754* 5752 JMP I .-2 /05752 /DEP 129 007755* 7750 07750 /LA GO 130 131 /Bootstrap 5: TA8E 132 007756* 4000 04000 /LA 133 007757* 0000 00000 /LEA 134 RELOC 04000 135 004000* 1237 START5, 01237 /DEP 136 004001* 1206 01206 /DEP 137 004002* 6704 06704 /DEP 138 004003* 6706 06706 /DEP 139 004004* 6703 06703 /DEP 140 004005* 5204 05204 /DEP 141 004006* 7264 07264 /DEP 142 004007* 6702 06702 /DEP 143 004010* 7610 07610 /DEP 144 004011* 3211 03211 /DEP 145 004012* 3636 03636 /DEP 146 004013* 1205 01205 /DEP 147 004014* 6704 06704 /DEP 148 004015* 6706 06706 /DEP 149 004016* 6701 06701 /DEP 150 004017* 5216 05216 /DEP 151 004020* 7002 07002 /DEP 152 004021* 7430 07430 /DEP 153 004022* 1636 01636 /DEP 154 004023* 7022 07022 /DEP 155 004024* 3636 03636 /DEP 156 004025* 7420 07420 /DEP 157 004026* 2236 02236 /DEP 158 004027* 2235 02235 /DEP 159 004030* 5215 05215 /DEP 160 004031* 7346 07346 /DEP 161 004032* 7002 07002 /DEP 162 004033* 3235 03235 /DEP 163 004034* 5201 05201 /DEP 164 004035* 7737 07737 /DEP 165 004036* 3557 03557 /DEP 166 004037* 7730 07730 /DEP 167 004040* 4000 04000 /LA GO 168 $ DFSC 6622 DLAG 6743 DMAR 6603 DRST 6745 IGNR 7774 KRSF 7745 LCD 6751 LOOP 7741 PTR 7776 SDN 6755 SER 6754 START1 7737 START2 0024 START3 0033 unreferenced START4 7750 unreferenced START5 4000 unreferenced STR 6753 UKCC 7756 UKRB 7761 UKRS 7771 UKSF1 7757 UKSF2 7767 XDR 6752