DMDRV.MAC;2/AU=DMDRV.OLD;1/-BF
\
-2,2
	.IDENT	/4.02CN/
-29
;	NAPC - IF NOT READY, WAIT UP TO 60 SECONDS
;		IN 1 SECOND INCREMENTS.
;	     - LOG ALL "NOT READY" MESSAGES AS TIMEOUTS
;
%
-386,,/;NAPC/
10$:				;REF. LABEL
-390,390,/;NAPC/
	CALL	DMDVTO		;LOG DRIVE NOT READY MESSAGE
-450,451,/;NAPC/
17$:	MOVB	#1.,S.CTM(R4)	;WAIT ONE SECOND AT A TIME
-605,606,/;NAPC/
	INCB	S.STS(R4)	;HAVE WE WAITED...
	CMPB	#60.,S.STS(R4)	;...ONE MINUTE?
	BNE	DM01		;;;IF NE, NO
	BICB	#US.SPU,U.STS(R5) ;;;RESET DRIVE SPINNING UP
	JMP	10$		;;;LOG ERROR
DM01:				;;;REF. LABEL
-609,610,/;NAPC/
30$:				;;;REF. LABEL
/