ER[DGIMH];

%TEST HIGH REGION OF IM WITH PROGRAM RUNNING IN LOWER IM

TO ASSEMBLE:	MICRO/L LANG DGIMH -OR- MICRO/L LANG2 DGIMH
TO RUN:		MIDAS DGIMH
		START;G
%

IM[ILC,0]; TARGET[ILC];
REPEAT[20,ILC[BRKP[1]]];

LM[LLC,36]; RM[RLC,36];
LV[LADDR,600];
*! MAXC1 ONLY
RV[HADDR,3777];
*!
*~ MAXC2 ONLY
RV[HADDR,7777];
*~

INSERT[DGISDM.MC];

IFG[IP[ILC],577,ER[LADDR-TOO-SMALL-FOR-PROGRAM]];