Directory of image this file is from
This file as a plain text file

 18-FEB-78

DIR   .DI   4 08-JUN-77
TT08  .PA  47 01-APR-77
LCF   .PA  13 08-APR-77
LCLISR.PA  19 08-APR-77
KL8ISR.PA  61 08-APR-77
TSTRX2.PA  14 18-MAY-77
ESS   .PA   3 01-JUN-77
ECC   .PA   1 01-JUN-77
ECHOK1.PA   6 01-JUN-77
SENDV1.PA   5 01-JUN-77
NSP01 .PA 164 16-MAY-77
TRCISR.PA  62 01-JUN-77
TT00  .PA  50 29-MAR-77

  13 files in  449 blocks -  281 free blocks
/
/  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
$