{filed on: LispCatch0.mc
by cal:  20-Mar-84  9:33:55
}

CrossBankErrs:
	GOTO[CrossBankErr],	c3, at[BBEntry];
	GOTO[CrossBankErr],	c3, at[BBExit];
	GOTO[CrossBankErr],	c3, at[BBFault];
	GOTO[CrossBankErr],	c3, at[B1sink1];

CrossBankErr:
	XC2npcDisp,	c1, at[0F, 10];
CrossWaitforC2:
	XC2npcDisp, BRANCH[CrossWaitforC2, $, 0D],	c*;
	Q ← 66'd, CANCELBR[$, 0F],	c3;

	Bank ← 1,	c1;
	GOTO[CrossToSink],	c2;
	
	{ E N D }