TITLE[FTEST-MODEL1.MC];	*MODIFIED December 21, 1978

RMREGION[REGS];

RV[FIRSTADDR, 0];
RV[WAIT, 100];
RV[SECONDADDR, 2000];
RV[FIRSTPATRN, 0];
RV[SECONDPATRN, 0];
RV[XORPAT, 177777];
RV[FIRSTMCR, 601];
RV[SECONDMCR, 77601];
RV[RSCR, 0];
RV[RSCR2, 0];

*DEFINE NOOP
m[noop, ilc[(branch[.+1])]]
TOPLEVEL;

BEGIN:	RBASE _ RBASE[REGS];

		CALL[SETMCR], T _ FIRSTMCR;
		T _ FIRSTPATRN;
		CALL[LOADMUNCH], RSCR _ FIRSTADDR;
		CALL[SETMCR], T _ SECONDMCR;
		noop;

FETCH1:	FETCH_ SECONDADDR; *throw out the first munch

		CALL[LONGWAIT], T _ WAIT;
		CALL[SETMCR], T _ FIRSTMCR;
		T _ SECONDPATRN;
		CALL[LOADMUNCH], RSCR_ SECONDADDR;
		CALL[SETMCR], T _ SECONDMCR;
		noop;

FETCH2:	FETCH_ FIRSTADDR; *throw out second, get back first

		CALL[LONGWAIT], T _ WAIT;

		noop;
		noop;
		noop;
		noop;

		BRANCH[BEGIN];

SUBROUTINE;

SETMCR:
		noop;
		noop;
		noop;
		noop;
		noop;
		noop;
		noop;
		noop;
		noop;
		noop;
		LOADMCR[T,T];
		noop;
		RETURN;

LOADMUNCH:

		noop;

LM1:		noop;
		RSCR _ (STORE _ RSCR) + 1, DBUF _ T;
		T _ (T) # (XORPAT);
		PD _ (RSCR) AND (17C);
		GOTO[LM1, ALU #0];
		noop;
		RETURN;

LONGWAIT:

		CNT _ T;
		BRANCH[., CNT#0&-1];
		RETURN;
(1792)\268b4B