.TITLE	BUSY
/
/  16 NOV 76 (002; PDH) PUT FPP DEFINITION IN THIS FILE
/  15 JUL 76 - PAUL HENDERSON
/
/  SHORT PROGRAM TO CONTINUOUSLY LOAD THE FMQ WITH A
/  DATA PATTERN.
/
UNDLQ=715170
/
BUSY	UNDLQ;	PATERN		/ LOAD IT
	ISZ	PATERN+2	/ CHANGE THE PATTERN SLIGHTLY
	JMP	BUSY
	IAC
	LMQ			/ CHANGE MQ PERIODICALLY
	ISZ	PATERN+1
	NOP			/ IN CASE IT EVER SKIPS
	JMP	BUSY		/ KEEP DOING IT!
/
PATERN	707070;	707070;	707070
	.END	BUSY