1 / RK05 READ CHECK 2 / Do a read check on all sectors. Header words should be checked in all 3 / sectors except 0. 0 probably missed since won't be first after seek 4 / To run start at 0200 with SR9-11 with drive number to test 5 / Program will halt on error, hit continue to go on to next sector. 6 / If the switch register is not zero at the end of a pass the program 7 / will halt 8 DSKP=6741 9 DCLR=6742 10 DLAG=6743 11 DLCA=6744 12 DRST=6745 13 DLDC=6746 14 15 *20 16 000020 0000 DRIVE, 0 17 000021 0200 K0200, 0200 18 000022 4000 K4000, 4000 19 000023 0000 FLD, 0 20 000024 0000 SECT, 0 21 000025 0000 CYL, 0 22 000026 4520 MAXCYL, 4520 23 000027 0000 EXBIT, 0 24 000030 0000 REDDAT, 0000 25 000031 3000 CURENT, 3000 26 000032 0017 K17, 17 27 000033 0006 K6, 6 28 29 *200 30 000200 7704 CLA CLL OSR 31 000201 7004 RAL 32 000202 0033 AND K6 / Clear out high bits such as 0200 start address 33 000203 3020 DCA DRIVE 34 000204 7200 RESTRT, CLA 35 000205 3024 DCA SECT 36 000206 3025 DCA CYL 37 000207 3027 DCA EXBIT 38 000210 7301 RECAL, CLA CLL IAC 39 000211 6742 DCLR 40 000212 1020 TAD DRIVE 41 000213 6746 DLDC 42 000214 7326 CLA CLL CML RTL 43 000215 6742 DCLR 44 000216 6741 DSKP 45 000217 5216 JMP .-1 46 000220 1021 TAD K0200 47 000221 1020 TAD DRIVE 48 000222 6746 DLDC 49 000223 6741 DSKP 50 000224 5223 JMP .-1 51 000225 6745 DRST 52 000226 7041 CIA 53 000227 1022 TAD K4000 54 000230 7640 SZA CLA 55 000231 5233 JMP BADSTA 56 000232 5234 JMP READ 57 000233 7402 BADSTA, HLT 58 59 000234 7301 READ, CLA CLL IAC 60 000235 6742 DCLR 61 000236 1031 TAD CURENT 62 000237 6744 DLCA 63 000240 1020 TAD DRIVE 64 000241 1030 TAD REDDAT 65 000242 1023 TAD FLD 66 000243 1027 TAD EXBIT 67 000244 6746 DLDC 68 000245 1025 TAD CYL 69 000246 1024 TAD SECT 70 000247 6743 DLAG 71 000250 1027 TAD EXBIT 72 000251 7010 RAR 73 000252 1025 TAD CYL 74 000253 1024 TAD SECT 75 000254 7010 RAR 76 000255 6741 DSKP 77 000256 5255 JMP .-1 78 000257 6745 DRST 79 000260 7041 CIA 80 000261 1022 TAD K4000 81 000262 7640 SZA CLA 82 000263 5333 JMP ERROR 83 000264 7305 NEXT, CLA CLL IAC RAL 84 000265 1024 TAD SECT 85 000266 0032 AND K17 86 000267 3024 DCA SECT 87 000270 7240 CLA CMA 88 000271 1024 TAD SECT 89 000272 7440 SZA 90 000273 5277 JMP CHK0 91 000274 7200 CLA 92 000275 3024 DCA SECT 93 000276 5303 JMP INCCYL 94 000277 7001 CHK0, IAC 95 000300 7450 SNA 96 000301 2024 ISZ SECT 97 000302 5234 JMP READ 98 99 000303 1027 INCCYL, TAD EXBIT 100 000304 7440 SZA 101 000305 5321 JMP CHKCYL 102 000306 7200 INCTRK, CLA 103 000307 1032 TAD K17 104 000310 7001 IAC 105 000311 1025 TAD CYL 106 000312 3025 DCA CYL 107 000313 1025 TAD CYL 108 000314 7440 SZA 109 000315 5234 JMP READ 110 000316 2027 ISZ EXBIT 111 000317 5234 JMP READ 112 000320 7402 HLT 113 000321 7200 CHKCYL, CLA 114 000322 1025 TAD CYL 115 000323 7041 CIA 116 000324 1026 TAD MAXCYL 117 000325 7440 SZA 118 000326 5306 JMP INCTRK 119 000327 7604 DONE, CLA OSR 120 000330 7440 SZA 121 000331 7402 HLT 122 000332 5204 JMP RESTRT 123 000333 7200 ERROR, CLA 124 000334 6745 DRST 125 000335 7402 HLT 126 000336 5264 JMP NEXT 127 $ BADSTA 0233 CHK0 0277 CHKCYL 0321 CURENT 0031 CYL 0025 DCLR 6742 DLAG 6743 DLCA 6744 DLDC 6746 DONE 0327 unreferenced DRIVE 0020 DRST 6745 DSKP 6741 ERROR 0333 EXBIT 0027 FLD 0023 INCCYL 0303 INCTRK 0306 K0200 0021 K17 0032 K4000 0022 K6 0033 MAXCYL 0026 NEXT 0264 READ 0234 RECAL 0210 unreferenced REDDAT 0030 RESTRT 0204 SECT 0024