










	/*
		R0 = memoff(M0, PROCLAOFF);
		if (tag (R0) == INT)
		{
			if (primhandle (val (R0)))
			{
				PC = (char *) ((int *) val (*(CL + CPOFF)));
				XC = (int *) val (*(CL + XCOFF));
				CL = (int *) val (*(CL + CLOFF));
				D = L + ACTSIZE;
				goto Copymode;
			}
			else goto Fail;
		}
	*/

	
	
	rst052:
		CONT	DA D=BR, tagmask SHL3 A=m0  NOTRS  RAMF B=R1
		CONT	DA D=BR, proclaoff A=R1  ADD  LVAR
		CONT	D=TB  LBR  ADDR
		CJS	RFLT, rcache  LOCK
		LDCT	fix052  RD
		CONT	DZ D=BR, tagmask SHL3  OR  RAMF B=R0
		LDCT	cexit  DA D=BUS A=R0  AND  RAMF B=R0
		CONT	NZ  DA D=BR, inttag SHL3 A=R0  EXOR
		CJP	LC, arrive4  DZ D=BUS  OR  RAMF B=R0
		CONT	DA D=BR, tagmask SHL3 A=R0  NOTRS  RAMF B=R0
		JRP	F  DZ D=BR, primhandleCode SHL1  OR  QREG
		CONT	DQ D=BR, 00  OR  QREG
	rst000:
		CJP	Z, Fail  ZA A=R0  OR
		CONT	DA D=BR, cpoff A=cl  ADD  LVAR
