/
/  BACKGROUND TIME MEASURING RPOGRAM TO REPLACE NULL8A
/
	TASK=NULL8A
	INIWT=0
	CUR=0
	FIELD	CUR%10
/
	*3400
/
START,	CLA
	DCA	OC	/ZERO OUTER LEVEL COUNTER
	CAL		/HAVE CLOCK KICK US IN ONE SECOND
	SEND
	CLOCK
	CLKMSG
LOOP1,	TAD	(-134	/INIT INNER LEVEL COUNTER
	DCA	IC
LOOP2,	TAD	CLKMSG	/CHECK TO SEE IF DONE YET
	SNA CLA		/SKIP IF NOT
	JMP	DONE	/YES SET UP TO DO IT AGAIN
	TAD	LAST	/PUT LAST RESULT TO MQ
	MQL
	ISZ	IC	/INNER LOOP CONTROL
	JMP	LOOP2	/
	ISZ	OC	/COUNTER, HOW MANY TIMES DID WE DO INNER
	JMP	LOOP1
	JMP	LOOP1	/JUST IN CASE, SHOULDN'T SKIP
DONE,	TAD	OC	/DISPLAY THIS SECOND'S RESULT FOR NEXT SECOND
	DCA	LAST
	JMP	START	/AND GO DO IT ALL AGAIN
/
IC,	0		/IINNER LOOP COUNTER 92 TIMES
OC,	0		/OUTER LOOP; COUNT PER SECOND IS MEASUREMENT
LAST,	0		/OC FOR LAST CYCLE TO DISPLAY FOR THIS CYCLE
/
CLKMSG,	ZBLOCK	3
	0		/OUR TASK
	0
	SHERTZ		/ONE SECOND
$