.TITLE	RCVDE
	.MCALL	RCVD$S,SETF$S,WTSE$S,CLEF$S

BUF:	.BLKW	15.		;Message buffer

START:	SETF$S	#34.		;Set we are started
LOOP:	WTSE$S	#33.		;Wait for send signal
	CLEF$S	#33.		;Clear send flag
1000$:	RCVD$S	,#BUF		;Read message
	BCC	1000$		; loop till no more
	BR	LOOP		;Loop for next message

	.END	START