{File name PrLispTrap.mc -- for extra banks
Created by don --  24-Jan-84 10:48:52
Last edited: 10-Jul-85 10:01:01
}

SetTask[0];

PrLispTraps:
	Rx ← RRot1 ErrnIBnStkp, ClrIntErr, CANCELBR[$, 0F],	c1, at[0];
	Xbus ← Rx LRot0, XwdDisp,	c2;
	Xbus ← MStatus, XLDisp, DISP2[PrCSParErr],	c3;

	CANCELBR[$, 3],	c1, at[0, 4, PrCSParErr];
	Q ← 0+1, KCtl ← 0, GOTO[PrSink],	c2;{MP9001}

	DISP2[PrLispAddrErr, 1],	c1, at[1, 4, PrCSParErr];

	Q ← 4, GOTO[PrSink],	c2, at[1, 4, PrLispAddrErr];{MP9004}
	Q ← 5, GOTO[PrSink],	c2, at[3, 4, PrLispAddrErr];{MP9005}

	CANCELBR[$, 3],	c1, at[2, 4, PrCSParErr];
	Q ← 2, GOTO[PrSink],	c2;{MP9002}

	CANCELBR[$, 3],	c1, at[3, 4, PrCSParErr];
	Q ← 3, GOTO[PrSink],	c2;{MP9003}

PrSink:
	upTemp ← Q, L1 ← L1.PrSink,	c3;

	,	c1;
	PC ← PC - 1, PgCarryBr,	c2;
	TT ← upVPClo, BRANCH[PrFixIt, PrSaveVPCforUI],	c3;

	{ E N D }