DKDRV.MAC;2/AU=DKDRV.OLD;1/-BF
\
-2,2
	.IDENT	/08N/
-41
;	NAPC --  MODIFY NOT-READY WAIT TECHNIQUE
;		 LOG ALL "NOT READY" ERRORS AS TIMEOUTS
;
%
-257,,/;NAPC/
32$:				;REF. LABEL
-261,261,/;NAPC/
	CALL	$DTOER		;LOG DRIVE NOT READY ERROR
-307,308,/;NAPC/
35$:	MOVB	#1.,S.CTM(R4)	;WAIT 1 SECOND AT A TIME
-451,452,/;NAPC/
	INCB	S.STS(R4)	;;;HAVE WE WAITED...
	CMPB	#10.,S.STS(R4)	;;;...10 SECONDS?
	BNE	124$		;;;IF NE, NO
	BICB	#US.SPU,U.STS(R5)  ;;;RESET SPINUP FLAG
	JMP	32$		;;;LOG ERROR
124$:				;;;REF. LABEL
-455,456,/;NAPC/
125$:				;REF. LABEL
/