{File name dbInitLisp4K.mc;    DandeLion Interlisp Emulator - Initialization
Author: Purcell
Last edited: 31-Jan-84 17:37:00 by don -- deleted u reg init
Last edited: 24-Jan-84 11:27:34 by don -- restored u reg init
Last edited: 19-Jan-84 15:35:14 by don -- added org for LCS and put kernel reserves here
Last edited: 17-Jan-84  9:59:07 by don -- removed u reg init
Last edited: April 6, 1983  1:35 PM; dont move display in new sysout
Created: January 17, 1983 out of NewLisp.mc
Last edited: February 5, 1983  11:42 AM
}

Reserve[0F6F]; Reserve[0F78]; Reserve[0F7F,0FFF];	{Kernel}

EFCHaveLink:  	at[LispStart],
{**************************************************
	init display stuff
	set value to MP
	STALL for burdock rendezvous 			
	start up lisp by a context switch to suspended frame
**************************************************}
	TT _ 88, CANCELBR[$, 0F],	c1;
	rhRx _ Rx _ uIOPage,	c2;
	TT _ TT LRot8,	c3;

	{display dcb in io page init}
	MAR _ [rhRx, 0EB{WakeupLoc}+0],	c1;
	MDR _ 0,	c2;
	uWP _ 0,	c3;

	MAR _ [rhRx, 0EC{DBitsLoc}+0],	c1;
	MDR _ uFF00{was 0},	c2;
	,	c3;

	MAR _ [rhRx, 0ED{BorderLoc}+0],	c1;
	MDR _ TT{8800} or 22,	c2;
	Q _ 71{was 41},	c3;

	{DCtl_Q LRot0 %M},	c1;
	TOS _ LH.FMP,	c2;{MP value}
	TOS _ TOS LRot8,	c3;

Stall:	MAR _ [rhRx, IOPage.MP+0], BRANCH[Stall0, StallContinue],	c1;
Stall0:	MDR _ TOS or RH.FMP, GOTO[StallJn],	c2;
StallJn:	TT _ TT  - 1, ZeroBr, BRANCH[Stall, StallDone],	c3;

StallContinue:
	Q _ Q - 1, ZeroBr, GOTO[StallJn],	c2;

Burdock:
	{IOPCtl _ 1, %M}CANCELBR[$, 0F],	c1;
	Rx _ 41,	c2;
	{DCtl _ Rx LRot0 %M},	c3;

StallDone:
	TOSH _ 0, CANCELBR[$],	c1;
	TOS _ KTval,	c2;
	uPageFault _ Q _ 0,	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,	c3;

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

	{comes from nano-raid, STOP key}
Reset:	Noop,	c1;
Reset2:	uPageFault _ 0,	c2;
	Q _ 1, GOTO[FXP],	c3;

	{ E N D }