;----------------------------------------------------------------------
; Test Routine #2 (Phase lock loop test)
;---------------------------------------
;
PATC21: LD	IX,BASEIX
	LD	IY,(BASEIX)
	LD	A,40H		;Set mode to read disk data
	LD	(4007H),A
	LD	A,64H		;Single Density 5 1/4"
	LD	(4006H),A
	CALL	HSPIN		;Wait for input to go active
	LD	A,44H		;Single Density 8"
	LD	(4006H),A
	CALL	HSPIN		;Wait for input to go active
	LD	A,04H		;Double Density 8"
	LD	(4006H),A
	CALL	HSPIN		;Wait for input to go active
	LD	A,44H		;Single Density 8"
	LD	(4006H),A
	CALL	HSPIN		;Wait for input to go active
	LD	A,64H		;Single Density 5 1/4"
	LD	(4006H),A
	JP	HSPIN		;Wait for input to go active