Commit | Line | Data |
---|---|---|
81e70d48 PH |
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 | DRIVE, 0 | |
17 | K0200, 0200 | |
18 | K4000, 4000 | |
19 | FLD, 0 | |
20 | SECT, 0 | |
21 | CYL, 0 | |
22 | MAXCYL, 4520 | |
23 | EXBIT, 0 | |
24 | REDDAT, 0000 | |
25 | CURENT, 3000 | |
26 | K17, 17 | |
27 | K6, 6 | |
28 | ||
29 | *200 | |
30 | CLA CLL OSR | |
31 | RAL | |
32 | AND K6 / Clear out high bits such as 0200 start address | |
33 | DCA DRIVE | |
34 | RESTRT, CLA | |
35 | DCA SECT | |
36 | DCA CYL | |
37 | DCA EXBIT | |
38 | RECAL, CLA CLL IAC | |
39 | DCLR | |
40 | TAD DRIVE | |
41 | DLDC | |
42 | CLA CLL CML RTL | |
43 | DCLR | |
44 | DSKP | |
45 | JMP .-1 | |
46 | TAD K0200 | |
47 | TAD DRIVE | |
48 | DLDC | |
49 | DSKP | |
50 | JMP .-1 | |
51 | DRST | |
52 | CIA | |
53 | TAD K4000 | |
54 | SZA CLA | |
55 | JMP BADSTA | |
56 | JMP READ | |
57 | BADSTA, HLT | |
58 | ||
59 | READ, CLA CLL IAC | |
60 | DCLR | |
61 | TAD CURENT | |
62 | DLCA | |
63 | TAD DRIVE | |
64 | TAD REDDAT | |
65 | TAD FLD | |
66 | TAD EXBIT | |
67 | DLDC | |
68 | TAD CYL | |
69 | TAD SECT | |
70 | DLAG | |
71 | TAD EXBIT | |
72 | RAR | |
73 | TAD CYL | |
74 | TAD SECT | |
75 | RAR | |
76 | DSKP | |
77 | JMP .-1 | |
78 | DRST | |
79 | CIA | |
80 | TAD K4000 | |
81 | SZA CLA | |
82 | JMP ERROR | |
83 | NEXT, CLA CLL IAC RAL | |
84 | TAD SECT | |
85 | AND K17 | |
86 | DCA SECT | |
87 | CLA CMA | |
88 | TAD SECT | |
89 | SZA | |
90 | JMP CHK0 | |
91 | CLA | |
92 | DCA SECT | |
93 | JMP INCCYL | |
94 | CHK0, IAC | |
95 | SNA | |
96 | ISZ SECT | |
97 | JMP READ | |
98 | ||
99 | INCCYL, TAD EXBIT | |
100 | SZA | |
101 | JMP CHKCYL | |
102 | INCTRK, CLA | |
103 | TAD K17 | |
104 | IAC | |
105 | TAD CYL | |
106 | DCA CYL | |
107 | TAD CYL | |
108 | SZA | |
109 | JMP READ | |
110 | ISZ EXBIT | |
111 | JMP READ | |
112 | HLT | |
113 | CHKCYL, CLA | |
114 | TAD CYL | |
115 | CIA | |
116 | TAD MAXCYL | |
117 | SZA | |
118 | JMP INCTRK | |
119 | DONE, CLA OSR | |
120 | SZA | |
121 | HLT | |
122 | JMP RESTRT | |
123 | ERROR, CLA | |
124 | DRST | |
125 | HLT | |
126 | JMP NEXT | |
127 | $ |