{File name:  dbStartLisp4K.mc
 purcell 12-Jan-85 10:57:19	daybreak mapflag format {%1}
don 29-21-Jan-85 12:01:29  daybreak assembler
don 29-Dec-83 10:17:06
 }

SetTask[0];

dbinitthru:
	rhTT _  0,	c1;
	TT{0FF00} _ ~0FF,	c2;
	,	c3;

	Rx _ 40,	c1;
	Rx _ Rx LRot8,	c2;
{	omit for ldb
	,	c3;

Set[dirtyFlag1, Add[dirtyFlag, 1]];{%1}

	Map _ [rhTT,TT],	c1;
	MDR _ Rx{4000} or dirtyFlag1,	c2;{DLion 31; Dove 0C1}
	end omit}
	{IOPCtl _ IOPInMode %M},	c3;

	rhRx _ Rx _ uIOPage,	c1;
	stackP _ 0,	c2;
	Q _ 7, ClrIntErr,	c3;

{set all keys up; 1403D thru 14043 _ -1}
KeyLoop:	MAR _ [rhRx,IOPage.keyBitsm1+Q], BRANCH[$,KeyDone],	c1;
	MDR _ TT xor ~TT, CANCELBR[$,0],	c2;
	Q _ Q - 1, ZeroBr, GOTO[KeyLoop],	c3;

KeyDone:
	{KCtl _ 0, %M}TT _ 0+1, CANCELBR[$,0],	c2;
	uWDC _ TT, GOTO[EFCHaveLink],	c3;

	{ E N D }