.TITLE	RREFR
	.MCALL	ASTX$S,RREF$S,DTRG$S,SRRA$S,SETF$S,WTSE$S

WDB:	.BLKW	8.		;Window block
RDB:	.BLKW	8.		;Region block

START:	SRRA$S	#AST			;Declare AST
	SETF$S	#34.			;Set we are started
LOOP:	WTSE$S	#1.			;Wait forever

AST:	RREF$S	#WDB			;Read message
	BCS	9999$			; If CS - no message
	MOV	WDB+W.NRID,RDB+R.GID	;Copy region ID
	DTRG$S	#RDB			;Detach region
	BR	AST			; and try again

9999$:	ASTX$S

	.END	START