.TITLE	RCVDA
	.MCALL	RCVD$S,SRDA$S,SETF$S,WTSE$S,ASTX$S

BUF:	.BLKW	15.		;Message buffer

START:	SRDA$S	#AST		;Specify AST
	SETF$S	#34.		;Set we are started
	WTSE$S	#1.		;Wait forever

AST:	RCVD$S	,#BUF		;Read message
	BCC	AST		; loop till no more
	ASTX$S			;Exit AST

	.END	START