LDDRV.MAC;26=LDDRV.MAC;25/-BF
\
-2,2
	.IDENT	/02.02/
-5,5
; COPYRIGHT (C) 1975,1976,1977
-30
;
;		CD030 -- CORRECT TESTS FOR PARTITION BUSY.
;
;		CD038 -- FIX BUG WHEN READING IN DRIVER IMAGE.
%
-39,,/; CD038/

	.IF DF 	M$$MGE

	.MCALL	HWDDF$
	HWDDF$			;DEFINE HARDWARE REGISTER SYMBOLS

UISAR1=UISAR0+2			;DEFINE USER APR1 ADDRESS

	.ENDC
-254,254,/; CD030/
	TSTB	P.BUSY+1(R5)	;IS PARTITION (OR ITS SUBPARTITIONS) BUSY?
-317,319,/; CD038/
	MOV	UISAR1,-(SP)	;SAVE APR1
	MOV	P.REL(R5),UISAR1  ;SET RELOCATION BIAS
	MOV	#20000,-(R0)	;USE APR1 FOR I/O TRANSFER
-331,331,/; CD038/
	MOV	(SP)+,UISAR1	;RESTORE APR1
/