DRMAP.MAC;2/AU:72.=DRMAP.MAC;1/-BF
\
-2,2
	.IDENT	/00.02/
-5,5
;COPYRIGHT (C) 1976,1977
-24,24
;VERSION 00.02
-27
;MODIFIED BY:
;
;		TM071 -- CORRECT ERROR IN MAP ALGORITHM.
;
;TMO76 -- CORRECT BUG IN GET MAPPING CONTEXT DIRECTIVE.
;
%
-345,,/; TM071/
	ADD	#200,R2		;ADVANCE APR OFFSET
-728,729,/; TM076/
	BNE	11$		;IN NE YES
	ADD 	#W.BLGH,R4	;POINT TO NEXT WINDOW BLOCK
	BR	40$		;BRANCH TO DETERMINE IF MORE BLOCKS
11$:	MOVB	(SP),(R3)+	;SET WINDOW ID (W.NID)
-763,,/; TM076/
	ADD	#W.BLGH-W.BOFF,R4	;POINT TONEXT WINDOW BLOCK
/