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 57 /Bootstrap 2: RK8E 58 007777* 0023 00023 /LA 59 000000* 0000 00000 /LEA 60 RELOC 00023 61 DLAG= 6743 62 DRST= 6745 63 /Not sure how this helps. 64 000023* 2200 02200 /DEP 65 /Read status 66 000024* 6745 START2, DRST /06745 /DEP 67 /Harmless AND instruction. 68 000025* 0023 START2-1 /00023 /DEP 69 /Wait for reasonable status. 70 000026* 7640 SZA CLA /07640 /DEP 71 000027* 5024 JMP START2 /05024 /DEP 72 /Start a read. AC==0, so block zero. 73 000030* 6743 DLAG /06743 /DEP 74 /Hang waiting for read to overlay us. 75 000031* 5031 JMP . /05031 /DEP 76 000032* 0024 00024 /LA GO 77 78 79 /Bootstrap 3: RX8E 80 000033* 0020 00020 /LA 81 000034* 0000 00000 /LEA 82 RELOC 00020 83 LCD= 6751 /Load Command Register 84 XDR= 6752 /Transfer Data Register 85 STR= 6753 /Skip if Transfer Requested 86 SER= 6754 /Skip if Error 87 SDN= 6755 /Skip if Done 88 000020* 1061 01061 /DEP 89 000021* 1046 01046 /DEP 90 000022* 0060 00060 /DEP 91 000023* 3061 03061 /DEP 92 000024* 7327 CLA CLL CML IAC RTL /07327 /DEP 93 000025* 1061 01061 /DEP 94 000026* 6751 LCD /06751 /DEP 95 000027* 7301 CLA CLL IAC /07301 /DEP 96 000030* 4053 04053 /DEP 97 000031* 4053 04053 /DEP 98 000032* 7004 RAL /07004 /DEP 99 000033* 6755 START3, SDN /06755 /DEP 100 000034* 5054 05054 /DEP 101 000035* 6754 SER /06754 /DEP 102 000036* 7450 SNA /07450 /DEP 103 000037* 5020 05020 /DEP 104 000040* 1061 01061 /DEP 105 000041* 6751 LCD /06751 /DEP 106 000042* 1061 01061 /DEP 107 000043* 0046 00046 /DEP 108 000044* 1032 01032 /DEP 109 000045* 3060 03060 /DEP 110 000046* 0360 00360 /DEP 111 000047* 4053 04053 /DEP 112 000050* 3002 03002 /DEP 113 000051* 2050 02050 /DEP 114 000052* 5047 05047 /DEP 115 000053* 0000 00000 /DEP 116 000054* 6753 STR /06753 /DEP 117 000055* 5033 05033 /DEP 118 000056* 6752 XDR /06752 /DEP 119 000057* 5453 05453 /DEP 120 000060* 0420 00420 /DEP 121 000061* 0020 00020 /DEP 122 000062* 0033 00033 /LA GO 123 000063* 0000 00000 124 000064* 0000 00000 125 000065* 0000 00000 126 000066* 0000 00000 127 128 129 /Bootstrap 4: RL8A 130 000067* 0001 00001 /LA 131 000070* 0000 00000 /LEA 132 BSW= 7002 133 RELOC 1 134 000001* 6600 06600 /DEP 135 000002* 7201 CLA IAC /07201 /DEP 136 000003* 4027 04027 /DEP 137 000004* 1004 01004 /DEP 138 000005* 4027 04027 /DEP 139 000006* 6615 06615 /DEP 140 000007* 7002 BSW /07002 /DEP 141 000010* 7012 RTR /07012 /DEP 142 000011* 6615 06615 /DEP 143 000012* 0025 00025 /DEP 144 000013* 7004 RAL /07004 /DEP 145 000014* 6603 06603 /DEP 146 000015* 7325 CLA CLL CML IAC RAL /07325 /DEP 147 000016* 4027 04027 /DEP 148 000017* 7332 07332 /DEP 149 000020* 6605 06605 /DEP 150 000021* 1026 01026 /DEP 151 000022* 6607 06607 /DEP 152 000023* 7327 CLA CLL CML IAC RTL /07327 /DEP 153 000024* 4027 04027 /DEP 154 000025* 0377 00377 /DEP 155 000026* 7600 CLA 400 /07600 /DEP 156 000027* 0000 00000 /DEP 157 000030* 6604 06604 /DEP 158 000031* 6601 06601 /DEP 159 000032* 5031 05031 /DEP 160 000033* 6617 06617 /DEP 161 000034* 5427 05427 /DEP 162 000035* 5001 05001 /DEP 163 000036* 0001 00001 /LA GO 164 000037* 0000 00000 165 000040* 0000 00000 166 000041* 0000 00000 167 $ BSW 7002 DLAG 6743 DRST 6745 IGNR 7774 KRSF 7745 LCD 6751 LOOP 7741 PTR 7776 SDN 6755 SER 6754 START1 7737 START2 0024 START3 0033 unreferenced STR 6753 UKCC 7756 UKRB 7761 UKRS 7771 UKSF1 7757 UKSF2 7767 XDR 6752