{File name <tajo>xInitLisp.mc;    DandeLion Interlisp Emulator - Initialization
Author: Purcell
Last edited:  8-Feb-84 15:46:41 by don -- moved some stuff to lcsStartLisp
}

Set[InitVersion, 5];

EFCHaveLink:  	at[LispStart],
	Q _ InitVersion,	c1;
	Ybus _ Q xor uInitVersion, ZeroBr,	c2;
	Q _ 0, BRANCH[putMP9099, $],	c3;

{change to context Q{fxp}}
FXP:	rhTT _  INTERFACEspace,	c1;
	TT _ INTERFACEbasePage,	c2;
	TT _ TT LRot8,	c3;

FXP1:	Map _ [rhTT,TT],	c1;
	rhS _ nRhS,	c2;
	Rx _ rhRx _ MD,{ XRefBr,}	c3;

	TOSH _ 0,{sysout returns true}	c1;
	TOS _ KTval,	c2;
	Noop,	c3;

FXP2:	MAR_ [rhRx, Q + 0],	c1;
	rhPV _ nRhS,	c2;
	PV{FXP} _ MD, GOTO[RTN2],	c3;

Reset:	Noop, {CANCELBR[$, 0F],}	c1;
Reset2:	,	c2;
	Q _ ResetFXP, GOTO[FXP],	c3;

putMP9099:
	Q _ 99'd, GOTO[sink2],	c1;

LMemErr:	{come here if trap}
	BRANCH[VirtAddrErr, EmuMemErr, 1],	c1, at[1,4,CSParErr];

EmuMemErr:
	Q _ 5, GOTO[sink3],	c2;

VirtAddrErr:
	Q _ 4, GOTO[sink3],	c2;

	{ E N D }