.TITLE	DEMOBG
	.IDENT	/V05.00/
; DEMONSTRATION PROGRAM TO PRINT DEMONSTRATION MESSAGE, THEN
; RING BELL IF FG JOB SENDS A MESSAGE.

	.MCALL	.RCVDC,.PRINT

START::	.RCVDC	#AREA,#BUFFER,#400,#MSGIN ;POST REQUEST FOR MESSAGE
	.PRINT	#MSG			;PRINT DEMONSTRATION MESSAGE
	BR	.			;AND LOOP

;	COMPLETION ROUTINE ENTERED WHEN FG SENDS MESSAGE

MSGIN:	.PRINT	#BELL			;RING BELL IN RESPONSE TO MESSAGE
	.RCVDC	#AREA,#BUFFER,#400,#MSGIN ;POST ANOTHER MESSAGE REQUEST
	RETURN				;AND RETURN FROM COMPLETION ROUTINE

;	ASCII MESSAGES
	.NLIST BEX
BELL:	.BYTE	7,200			;MESSAGE THAT RINGS BELL

MSG:	.ASCII	/RT-11 DEMONSTRATION PROGRAM/<15><12>
	.ASCII	/IF INCORRECTLY EDITED,THIS IS THE LAST LINE./<15><12>
;	.ASCII	/WELL DONE./
	.BYTE	0

AREA:	.BLKW 6				;EMT ARGUMENT AREA
BUFFER:					;RCVDC MESSAGE AREA
	.END	START