ER[DG2A];

TARGET[ILC];

%DG2A MUST BE ASSEMBLED WITH DG1 FOR MAXC1, DG2B WITH DG1 FOR MAXC2.
IT CONTAINS ALL THE FLAG REGISTER TEST SUBROUTINES, BASIC IM READING
AND WRITING, AND OTHER TESTS PECULIAR TO EACH MACHINE.
%

	GOTO[DG2END];

*SUBROUTINES TO TEST F-REGISTER
FZT:	P_NOT F, GOTO[NPZT];	*BREAK IF F#0 WITH WRONG BITS IN Q

NFZT:	P_NOT F, GOTO[PZT];	*BREAK WITH WRONG BITS IN Q IF F#-1

FQEQ:	P_NOT F, GOTO[PEQZ];	*BREAK IF F # Q

FQNEQ:	P_NOT F, GOTO[PQCOMP];	*BREAK IF NOT F # Q

FPEQ:	Q_NOT F, GOTO[PQCOMP];	*BREAK IF NOT F # P

F1T:	P_NOT F;
	Q_P+1, GOTO[NQZT];	*F ISN'T = 1

DG2END:	GOTO[MCYCLE];		*END OF DG2.  THIS INSTRUCTION IS
				*OVERWRITTEN IF MORE DIAGNOSTICS ARE LOADED.
IM[ILC,ADD[IP[ILC],-1]];