-48
;	R. ULESKI	03-APR-1985	5.X1
;		XXX1 -- FIX I/D CODE FOR EMMULEX DH11 ON Q BUS
-173
	.IF DF	K$$DAS
	MOV	(R4)+,-(SP)	;;;GET BUFFER ADDRESS -START OF XXX1
	CMP	@SP,#120000	;;;IN SYSTEM POOL?
	BLO	15$		;;;Y - VIRTUAL ADDRESS OFFSET, JUMP
	ADD	RELCV+2,@SP	;;;ADD RELOCATION CONSTANT TO VIRT ADDR.
	MOV	RELCV,-(SP)	;;;
	ADC	@SP		;;;ADD CARRY
11$:	ASL	@SP		;;;ADJUST FOR A16, A17
	ASL	@SP
	ASL	@SP
	ASL	@SP
	BIC	#^C<60>,@SP	;;;NORMALIZE HIGH 2 BITS
	BISB	(SP)+,@R3	;;;LOAD 2 HIGH BITS OF 18-BIT ADDRESS
	MOV	(SP)+,CAR(R3)	;;;SET LOW 16 BITS OF DMA ADDRESS
	BR	20$
15$:	ADD	RELCV+6,@SP	;;;ADD POOL RELOC CONSTANT
	MOV	RELCV+4,-(SP)
	ADC	@SP
	BR	11$		;;;END OF XXX1

	.ENDC	;K$$DAS

/