THF11L.MAC;2/-BF/AU:72=THF11L.MAC;1/CS:22013
\
-2,2
	.IDENT	/BV1.0/
-30
;
;	BTKB06		K.BETHE	 15-NOV-83
;	FIX TASK PAGE IN RMD TO DEAL WITH I/D SPACE F11ACP
;
%
-43,,/;BTKB06/
	.MCALL	HDRDF$
	HDRDF$
-162,163,/;BTKB06/
-175,175,/;BTKB06/
	MOV	R0,-(SP)	;; SAVE A WORK REG AND 2 D-APRS
	MOV	@#KISAR5,-(SP)
	MOV	@#KISAR6,-(SP)
	MOV	P.HDR(R1),R0	;; GET HEADER IF IN POOL
	BNE	15$		;; IT IS
	MOV	#140000,R0	;; USE APR6
	MOV	P.REL(R1),@#KISAR6 ;; TO LOOK AT HEADER
	
15$:	MOV	H.WND(R0),R1	;; GET START OF WINDOW AREA (LESS 2)
	TSTB	H.DMAP(R0)	;; IS IT AN I/D SPACE ACP?
	BEQ	17$		;; NO, USE 1ST WINDOW (MAIN TASK AREA)
	ADD	#W.BLGH,R1	;; YES, NEED 2ND WINDOW (DATA SPACE)
17$:	ADD	W.BOFF+2(R1),R3	;; GET OFFSET TO MEMORY LOC
	MOV	(SP)+,@#KISAR6	;; RESTORE D SPACE APR6
	MOV	R3,@#KISAR5	;; LOAD HEADER IN APR5

-179,183,/;BTKB06/
-192,192,/;BTKB06/
	TST	R3
	BEQ	50$
	MOV	(SP)+,@#KISAR5
	MOV	(SP)+,R0		;RESTORE R0
/