.TITLE	RRSTR
	.MCALL	RRST$S,DTRG$S,SETF$S

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

START:	SETF$S	#34.		;Set we are started
LOOP:	RRST$S	#WDB		;Read message
	BCS	LOOP		; If CS - no message
	MOV	WDB+W.NRID,RDB+R.GID
	DTRG$S	#RDB		;Detach region
	BR	LOOP		; and try again

	.END	START