{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 }