[pdp8.git] / sw / dumprest / original / testrk05.pal

/ RK05 SURFACE SCAN
/ Do a destructive write/read check on all sectors.  Header words should be 
/ checked in all sectors except 0.  0 probably missed since won't be first 
/ after seek.
/ For different patterns are used.
/ To run start at 0200.  It will print drive being tested to console
/ and then halt.  Set SR = 0 for continuous testing or 1 to halt after 1 pass.
        DSKP=6741
        DCLR=6742
        DLAG=6743
        DLCA=6744
        DRST=6745
        DLDC=6746

        *10
FILLOC,	0
        *20
DRIVE,  2
K0200,  0200
K4000,  4000
TRACK,  0
MAXTRK, 4537
EXBIT,  0
REDDAT, 1000
WRTDAT, 5000
WRTLOC, 3000
RDLOC,	4000
K17,    17
K6,	6
K0007,	0007
K215,	0215
K212,	0212
M4,	-4
LOOP,	0
CURPAT,	0
PATCNT,	0
FILCNT,	0
FILLEN,	-400
INCF,	INCTRK
CRLFF,	CRLF
K0077,	0077
K7700,	7700
K3740,	3740
K4100,	4100
K0240,	0240
K0377,	0377
K0001,	0001
PRTXTF,	PRTXT
FROCTF,	FROCT
PRADF,	PRAD
PATLOC,	PATS
PATS,	7777		/ Test patterns to use
	0000
	5252
	2525
NUMPAT,	4

        *200
	CLA CLL OSR
	RAL
        AND K6          / Clear out high bits such as 0200 start address
	DCA DRIVE
	TAD DRIVE
	RAR
	JMS I FROCTF
	JMS I PRTXTF
	DTXT
	JMS I CRLFF
	HLT
	CLA
	DCA LOOP
RESTRT, CLA CLL IAC
        DCLR
        TAD DRIVE
        DLDC
        CLA CLL CML RTL
        DCLR
        DSKP
        JMP .-1
        TAD K0200
        TAD DRIVE
        DLDC
        DSKP
        JMP .-1
        DRST
        CIA
        TAD K4000
        SZA CLA
        JMP BADSTA
	CLA
	TAD NUMPAT
	CMA IAC
	DCA PATCNT
	TAD PATLOC
	DCA CURPAT
FILP,	CLA
	TAD FILLEN
	DCA FILCNT
	CMA
	TAD WRTLOC
	DCA FILLOC
LP,	TAD I CURPAT
	DCA I FILLOC
	ISZ FILCNT
	JMP LP
	CLA CLL
        DCA TRACK
        DCA EXBIT
WRTPAT,	JMS WRITE
	JMS I INCF
	JMP WRTPAT
	CLA CLL
        DCA TRACK
        DCA EXBIT
RDPAT,	JMS READ
	JMS I INCF
	JMP RDPAT
	ISZ CURPAT
	ISZ PATCNT
	JMP FILP
DONE,   JMS I PRTXTF
	PSTXT
	TAD LOOP
	JMS I FROCTF
	JMS I CRLFF
	ISZ LOOP
	NOP
	CLA OSR
        SZA
        HLT
        JMP RESTRT

BADSTA, HLT

READ,   0
	CLA CLL IAC
        DCLR
        TAD RDLOC
        DLCA
        TAD DRIVE
        TAD REDDAT
        TAD EXBIT
        DLDC
        TAD TRACK
        DLAG
        TAD EXBIT
        RAR
        TAD TRACK
        RAR
        DSKP
        JMP .-1
        DRST
        CIA
        TAD K4000
        SZA CLA
        JMP ERROR
        JMP I READ
ERROR,  JMS I PRTXTF
	RERRT
	JMS I PRADF
        JMP I READ

WRITE,	0
        CLA CLL IAC     / We have one waiting, write it
        DCLR
        TAD WRTLOC
        DLCA
        TAD DRIVE
        TAD WRTDAT
        TAD EXBIT
        DLDC
        TAD TRACK
        DLAG
        TAD EXBIT
        RAR
        TAD TRACK
        RAR
        DSKP
        JMP .-1
        DRST
        CIA
        TAD K4000
        SZA CLA
        JMP ERROR2
	JMP I WRITE
ERROR2, JMS I PRTXTF
	WERRT
	JMS I PRADF
        JMP I WRITE

	
	
	PAGE
INCTRK, 0               / Increment track and exbit value for next sector
        CLA CLL         / AC non zero on return if done
        TAD EXBIT
        SZA
        JMP CHKCYL
INC2,   ISZ TRACK
        JMP I INCTRK
        ISZ EXBIT
        JMP I INCTRK
	HLT
CHKCYL, CLA
        TAD TRACK
        CIA
        TAD MAXTRK
        SNA
        JMP FIN
        CLA
        JMP INC2
FIN,    CLA IAC
	ISZ INCTRK
        JMP I INCTRK

RERRT,	TEXT "READ ERR "
WERRT,	TEXT "WRITE ERR "
PSTXT,	TEXT "PASS "
CTXT,	TEXT "CYL "
STXT,	TEXT "SECTOR "
SUTXT,	TEXT "SURFACE "
PTXT,	TEXT "PATTERN "
DTXT,	TEXT "DRIVE WILL BE R/W TESTED, SET SR"
	
	PAGE
PRTXT,	0
	CLA CLL
	TAD I PRTXT
	ISZ PRTXT
	DCA FROCT
	TAD I FROCT
	AND K7700
	SNA
	JMP PREX
	SMA
	CML
	IAC
	RTR
	RTR
	RTR
	JMS PRINT
	TAD I FROCT
	AND K0077
	SNA
	JMP PREX
	TAD K3740
	SMA
	TAD K4100
	TAD K0240
	JMS PRINT
	ISZ FROCT
	CLA CLL
	JMP PRTXT+5
PREX,	CLA CLL
	JMP I PRTXT

TOCT,	0
UPONE,	0
K0260,	0260
FROCT,	0		/ DUMP OCTAL
	RTL
	RTL
	DCA UPONE
	TAD M4
	DCA TOCT
	TAD UPONE
	AND K0007
	TAD K0260
	JMS PRINT
	TAD UPONE
	RTL
	RAL
	DCA UPONE
	ISZ TOCT
	JMP .-11
	TAD K0240
	JMS PRINT
	JMP I FROCT

PRINT,	0
	TLS
	TSF
	JMP .-1
	TCF
	CLA
	JMP I PRINT

PRAD,	0
	CLA
        DRST
	JMS FROCT
	JMS PRTXT
	CTXT
        TAD EXBIT
        RAR
        TAD TRACK
        RAR
	RTR
	RTR
	AND K0377
	JMS FROCT
	JMS PRTXT
	SUTXT
	TAD TRACK
	RTR
	RTR
	AND K0001
	JMS FROCT
	JMS PRTXT
	STXT
	TAD TRACK
	AND K17
	JMS FROCT
	JMS PRTXT
	PTXT
	TAD I WRTLOC
	JMS FROCT
	JMS CRLF
	JMP I PRAD

CRLF,	0
	TAD K215
	JMS PRINT
	TAD K212
	JMS PRINT
	JMP I CRLF
        $
Commit	Line	Data
81e70d48 PH	1	/ RK05 SURFACE SCAN
	2	/ Do a destructive write/read check on all sectors. Header words should be
	3	/ checked in all sectors except 0. 0 probably missed since won't be first
	4	/ after seek.
	5	/ For different patterns are used.
	6	/ To run start at 0200. It will print drive being tested to console
	7	/ and then halt. Set SR = 0 for continuous testing or 1 to halt after 1 pass.
	8	DSKP=6741
	9	DCLR=6742
	10	DLAG=6743
	11	DLCA=6744
	12	DRST=6745
	13	DLDC=6746
	14
	15	*10
	16	FILLOC, 0
	17	*20
	18	DRIVE, 2
	19	K0200, 0200
	20	K4000, 4000
	21	TRACK, 0
	22	MAXTRK, 4537
	23	EXBIT, 0
	24	REDDAT, 1000
	25	WRTDAT, 5000
	26	WRTLOC, 3000
	27	RDLOC, 4000
	28	K17, 17
	29	K6, 6
	30	K0007, 0007
	31	K215, 0215
	32	K212, 0212
	33	M4, -4
	34	LOOP, 0
	35	CURPAT, 0
	36	PATCNT, 0
	37	FILCNT, 0
	38	FILLEN, -400
	39	INCF, INCTRK
	40	CRLFF, CRLF
	41	K0077, 0077
	42	K7700, 7700
	43	K3740, 3740
	44	K4100, 4100
	45	K0240, 0240
	46	K0377, 0377
	47	K0001, 0001
	48	PRTXTF, PRTXT
	49	FROCTF, FROCT
	50	PRADF, PRAD
	51	PATLOC, PATS
	52	PATS, 7777 / Test patterns to use
	53	0000
	54	5252
	55	2525
	56	NUMPAT, 4
	57
	58	*200
	59	CLA CLL OSR
	60	RAL
	61	AND K6 / Clear out high bits such as 0200 start address
	62	DCA DRIVE
	63	TAD DRIVE
	64	RAR
65	JMS I FROCTF
66	JMS I PRTXTF
67	DTXT
68	JMS I CRLFF
69	HLT
70	CLA
71	DCA LOOP
72	RESTRT, CLA CLL IAC
73	DCLR
74	TAD DRIVE
75	DLDC
76	CLA CLL CML RTL
77	DCLR
78	DSKP
79	JMP .-1
80	TAD K0200
81	TAD DRIVE
82	DLDC
83	DSKP
84	JMP .-1
85	DRST
86	CIA
87	TAD K4000
88	SZA CLA
89	JMP BADSTA
90	CLA
91	TAD NUMPAT
92	CMA IAC
93	DCA PATCNT
94	TAD PATLOC
95	DCA CURPAT
96	FILP, CLA
97	TAD FILLEN
98	DCA FILCNT
99	CMA
100	TAD WRTLOC
101	DCA FILLOC
102	LP, TAD I CURPAT
103	DCA I FILLOC
104	ISZ FILCNT
105	JMP LP
106	CLA CLL
107	DCA TRACK
108	DCA EXBIT
109	WRTPAT, JMS WRITE
110	JMS I INCF
111	JMP WRTPAT
112	CLA CLL
113	DCA TRACK
114	DCA EXBIT
115	RDPAT, JMS READ
116	JMS I INCF
117	JMP RDPAT
118	ISZ CURPAT
119	ISZ PATCNT
120	JMP FILP
121	DONE, JMS I PRTXTF
122	PSTXT
123	TAD LOOP
124	JMS I FROCTF
125	JMS I CRLFF
126	ISZ LOOP
127	NOP
128	CLA OSR
129	SZA
130	HLT
131	JMP RESTRT
132
133	BADSTA, HLT
134
135	READ, 0
136	CLA CLL IAC
137	DCLR
138	TAD RDLOC
139	DLCA
140	TAD DRIVE
141	TAD REDDAT
142	TAD EXBIT
143	DLDC
144	TAD TRACK
145	DLAG
146	TAD EXBIT
147	RAR
148	TAD TRACK
149	RAR
150	DSKP
151	JMP .-1
152	DRST
153	CIA
154	TAD K4000
155	SZA CLA
156	JMP ERROR
157	JMP I READ
158	ERROR, JMS I PRTXTF
159	RERRT
160	JMS I PRADF
161	JMP I READ
162
163	WRITE, 0
164	CLA CLL IAC / We have one waiting, write it
165	DCLR
166	TAD WRTLOC
167	DLCA
168	TAD DRIVE
169	TAD WRTDAT
170	TAD EXBIT
171	DLDC
172	TAD TRACK
173	DLAG
174	TAD EXBIT
175	RAR
176	TAD TRACK
177	RAR
178	DSKP
179	JMP .-1
180	DRST
181	CIA
182	TAD K4000
183	SZA CLA
184	JMP ERROR2
185	JMP I WRITE
186	ERROR2, JMS I PRTXTF
187	WERRT
188	JMS I PRADF
189	JMP I WRITE
190
191
192
193	PAGE
194	INCTRK, 0 / Increment track and exbit value for next sector
195	CLA CLL / AC non zero on return if done
196	TAD EXBIT
197	SZA
198	JMP CHKCYL
199	INC2, ISZ TRACK
200	JMP I INCTRK
201	ISZ EXBIT
202	JMP I INCTRK
203	HLT
204	CHKCYL, CLA
205	TAD TRACK
206	CIA
207	TAD MAXTRK
208	SNA
209	JMP FIN
210	CLA
211	JMP INC2
212	FIN, CLA IAC
213	ISZ INCTRK
214	JMP I INCTRK
215
216	RERRT, TEXT "READ ERR "
217	WERRT, TEXT "WRITE ERR "
218	PSTXT, TEXT "PASS "
219	CTXT, TEXT "CYL "
220	STXT, TEXT "SECTOR "
221	SUTXT, TEXT "SURFACE "
222	PTXT, TEXT "PATTERN "
223	DTXT, TEXT "DRIVE WILL BE R/W TESTED, SET SR"
224
225	PAGE
226	PRTXT, 0
227	CLA CLL
228	TAD I PRTXT
229	ISZ PRTXT
230	DCA FROCT
231	TAD I FROCT
232	AND K7700
233	SNA
234	JMP PREX
235	SMA
236	CML
237	IAC
238	RTR
239	RTR
240	RTR
241	JMS PRINT
242	TAD I FROCT
243	AND K0077
244	SNA
245	JMP PREX
246	TAD K3740
247	SMA
248	TAD K4100
249	TAD K0240
250	JMS PRINT
251	ISZ FROCT
252	CLA CLL
253	JMP PRTXT+5
254	PREX, CLA CLL
255	JMP I PRTXT
256
257	TOCT, 0
258	UPONE, 0
259	K0260, 0260
260	FROCT, 0 / DUMP OCTAL
261	RTL
262	RTL
263	DCA UPONE
264	TAD M4
265	DCA TOCT
266	TAD UPONE
267	AND K0007
268	TAD K0260
269	JMS PRINT
270	TAD UPONE
271	RTL
272	RAL
273	DCA UPONE
274	ISZ TOCT
275	JMP .-11
276	TAD K0240
277	JMS PRINT
278	JMP I FROCT
279
280	PRINT, 0
281	TLS
282	TSF
283	JMP .-1
284	TCF
285	CLA
286	JMP I PRINT
287
288	PRAD, 0
289	CLA
290	DRST
291	JMS FROCT
292	JMS PRTXT
293	CTXT
294	TAD EXBIT
295	RAR
296	TAD TRACK
297	RAR
298	RTR
299	RTR
300	AND K0377
301	JMS FROCT
302	JMS PRTXT
303	SUTXT
304	TAD TRACK
305	RTR
306	RTR
307	AND K0001
308	JMS FROCT
309	JMS PRTXT
310	STXT
311	TAD TRACK
312	AND K17
313	JMS FROCT
314	JMS PRTXT
315	PTXT
316	TAD I WRTLOC
317	JMS FROCT
318	JMS CRLF
319	JMP I PRAD
320
321	CRLF, 0
322	TAD K215
323	JMS PRINT
324	TAD K212
325	JMS PRINT
326	JMP I CRLF
327	$