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 /This is just the stock RIM loader. It either runs as is, 35 /or was patched above. 36 007756* 6032 UKCC, KCC /06032 /DEP 37 007757* 6031 UKSF1, KSF /06031 /DEP 38 007760* 5357 JMP .-1 /05357 /DEP 39 007761* 6036 UKRB, KRB /06036 /DEP 40 007762* 7106 CLL RTL /07106 /DEP 41 007763* 7006 RTL /07006 /DEP 42 /Ignore if leader/trailer (0200 was punched) 43 007764* 7510 SPA /07510 /DEP 44 007765* 5374 JMP IGNR /05374 /DEP 45 /Finish rotate six and get low six 46 007766* 7006 RTL /07006 /DEP 47 007767* 6031 UKSF2, KSF /06031 /DEP 48 007770* 5367 JMP .-1 /05367 /DEP 49 007771* 6034 UKRS, KRS /06034 /DEP 50 007772* 7420 SNL /07420 /DEP 51 007773* 3776 DCA I PTR /03776 /DEP 52 007774* 3376 IGNR, DCA PTR /03376 /DEP 53 007775* 5356 JMP UKCC /05356 /DEP 54 PTR, 55 007776* 7737 07737 /LA GO 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 /Bootstrap 3: RX8E 79 /This is the hunting bootstrap for single or double density on drive 0 or 1. 80 /(See XRX01S.PA.) 81 000033* 0024 00024 /LA 82 000034* 0000 00000 /LEA 83 RELOC 00024 84 LCD= 6751 /Load Command Register 85 XDR= 6752 /Transfer Data Register 86 STR= 6753 /Skip if Transfer Requested 87 SER= 6754 /Skip if Error 88 SDN= 6755 /Skip if Done 89 000024* 7126 BEG, STL RTL /07126 /DEP 90 000025* 1060 TAD SELCT /01060 /DEP 91 000026* 6751 LCD /06751 /DEP 92 000027* 7201 CLA IAC /07201 /DEP 93 000030* 4053 JMS XFSUB /04053 /DEP 94 000031* 4053 JMS XFSUB /04053 /DEP 95 000032* 7104 CLL RAL /07104 /DEP 96 /Wait for done 97 000033* 6755 START3, SDN /06755 /DEP 98 000034* 5054 JMP XFSUB+1 /05054 /DEP 99 000035* 6754 SER /06754 /DEP 100 000036* 7450 SNA /07450 /DEP 101 000037* 7610 CLA SKP /07610 /DEP 102 000040* 5046 JMP UNLOAD /05046 /DEP 103 /Move on to the next drive 104 000041* 1060 TAD SELCT /01060 /DEP 105 000042* 7041 CIA /07041 /DEP 106 000043* 1061 TAD SELCTD /01061 /DEP 107 000044* 3060 DCA SELCT /03060 /DEP 108 000045* 5024 JMP BEG /05024 /DEP 109 000046* 6751 UNLOAD, LCD /06751 /DEP 110 000047* 4053 DATLP, JMS XFSUB /04053 /DEP 111 000050* 3002 DCA 2 /03002 /DEP 112 000051* 2050 ISZ .-1 /02050 /DEP 113 000052* 5047 JMP DATLP /05047 /DEP 114 /Data Transfer Subroutine 115 000053* 0000 XFSUB, 0 /00000 /DEP 116 000054* 6753 STR /06753 /DEP 117 000055* 5033 JMP START3 /05033 /DEP 118 000056* 6752 XDR /06752 /DEP 119 000057* 5453 JMP I XFSUB /05453 /DEP 120 000060* 7024 SELCT, 7024 /07024 /DEP 121 000061* 6030 SELCTD, 6030 /6030 /DEP 122 000062* 0033 00033 /LA GO 123 124 /Bootstrap 4: RF08/DF32 125 000063* 7750 07750 /LA 126 000064* 0000 00000 /LEA 127 RELOC 07750 128 DMAR= 6603 /Begin a Read 129 DFSC= 6622 /Skip if Complete 130 007750* 7600 START4, CLA 0400 /07600 /DEP 131 007751* 6603 DMAR /06603 /DEP 132 007752* 6622 DFSC /06622 /DEP 133 007753* 5352 JMP .-1 /05352 /DEP 134 007754* 5752 JMP I .-2 /05752 /DEP 135 007755* 7750 07750 /LA GO 136 137 /Bootstrap 5: TA8E/DECASSETTE 138 /This can also be found in bootv4.pa as the bootloader for /CA. 139 /Source code is in Appendix D of the CAPS Users Manual, DEC-8E-OCASA-B-D. 140 007756* 4000 04000 /LA 141 007757* 0000 00000 /LEA 142 RELOC 04000 143 KCLR= 6700 /Clear all 144 KSDR= 6701 /Skip on data flag 145 KSEN= 6702 /Skip on error 146 KSBF= 6703 /Skip on ready flag 147 KLSA= 6704 /Load status A 148 KSAF= 6705 /Skip on any flag or error 149 KGOA= 6706 /Assert status A 150 KRSB= 6707 /Read status B 151 LOC= 3602 152 004000* 1237 START5, TAD M50 /01237 /DEP 153 004001* 1206 CRCCHK, TAD L260 /01206 /DEP 154 004002* 6704 KLSA /06704 /DEP 155 004003* 6706 KGOA /06706 /DEP 156 004004* 6703 KSBF /06703 /DEP 157 004005* 5204 RDCOD, JMP .-1 /05204 /DEP 158 004006* 7264 L260, CML STA RAL /07264 /DEP 159 004007* 6702 KSEN /06702 /DEP 160 004010* 7610 SKP CLA /07610 /DEP 161 004011* 3211 DCA . /03211 /DEP 162 004012* 3636 DCA I CPTR /03636 /DEP 163 004013* 1205 TAD RDCOD /01205 /DEP 164 /Load into status register A 165 004014* 6704 KLSA /06704 /DEP 166 004015* 6706 CLOOP, KGOA /06706 /DEP 167 /Wait for data flag 168 004016* 6701 KSDR /06701 /DEP 169 004017* 5216 JMP .-1 /05216 /DEP 170 004020* 7002 BSW /07002 /DEP 171 004021* 7430 SZL /07430 /DEP 172 004022* 1636 TAD I CPTR /01636 /DEP 173 004023* 7022 CML BSW /07022 /DEP 174 004024* 3636 DCA I CPTR /03636 /DEP 175 004025* 7420 SNL /07420 /DEP 176 004026* 2236 ISZ CPTR /02236 /DEP 177 004027* 2235 ISZ KNT /02235 /DEP 178 004030* 5215 JMP CLOOP /05215 /DEP 179 004031* 7346 STA CLL RTL /07346 /DEP 180 004032* 7002 BSW /07002 /DEP 181 004033* 3235 DCA KNT /03235 /DEP 182 004034* 5201 JMP CRCCHK /05201 /DEP 183 004035* 7737 KNT, 7737 /07737 /DEP 184 004036* 3557 CPTR, LOC-23 /03557 /DEP 185 004037* 7730 M50, -50 /07730 /DEP 186 004040* 4000 04000 /LA GO 187 $ BEG 0024 CLOOP 4015 CPTR 4036 CRCCHK 4001 DATLP 0047 DFSC 6622 DLAG 6743 DMAR 6603 DRST 6745 IGNR 7774 KCLR 6700 unreferenced KGOA 6706 KLSA 6704 KNT 4035 KRSB 6707 unreferenced KRSF 7745 KSAF 6705 unreferenced KSBF 6703 KSDR 6701 KSEN 6702 L260 4006 LCD 6751 LOC 3602 LOOP 7741 M50 4037 PTR 7776 RDCOD 4005 SDN 6755 SELCT 0060 SELCTD 0061 SER 6754 START1 7737 START2 0024 START3 0033 START4 7750 unreferenced START5 4000 unreferenced STR 6753 UKCC 7756 UKRB 7761 UKRS 7771 UKSF1 7757 UKSF2 7767 UNLOAD 0046 XDR 6752 XFSUB 0053