{File name:  StartLisp4K.mc
 don 29-Dec-83 10:17:06
 }

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

SetTask[0];

StartAddress[Germ];

Germ:
	rhTT _  0, CANCELBR[SetMDS,0F],	c1, at[0,2,Germ];
	rhTT _  0, CANCELBR[SetMDS,0F],	c1, at[1,2,Germ];

SetMDS:
	TT _ 0FF,	c2;
	TT{0FF00} _ TT LRot8,	c3;

	Rx _ 40,	c1;
	Rx _ Rx LRot8,	c2;
	uPageFault _ 0{notFaulting},	c3;

	Map _ [rhTT,TT],	c1;
	MDR _ Rx{4000} or {0B1}31,	c2;
	Q _ 0,	c3;

	L _ 41,	c1;
	IOPCtl _ IOPInMode,	c2;
	DCtl _ L LRot0,	c3;

	uWP _ 0, ClrIntErr,	c1;
	TOS _ 0, rhMDS _ 0	c2;
	rhTT _ TT _ uIOPage,	c3;

{set all keys up; 1403D thru 14043 _ -1}
	stackP _ 0,	c1;
	T _ 0FF LShift1, SE _ 1,	c2;
	Q _ 7,	c3;

KeyLoop:	MAR _ [rhTT,IOPage.keyBitsm1+Q], BRANCH[$,KeyDone],	c1;
	MDR _ L xor ~L, CANCELBR[$,0],	c2;
	Q _ Q - 1, ZeroBr, GOTO[KeyLoop],	c3;

KeyDone:
	KCtl _ 0, PC _ 0+0+1, CANCELBR[$,0],	c2;
	uWDC _ PC,	c3;

	MAR _ [rhTT, IOPage.DSCB.fieldCmd+0],	c1;
	MDR _ L,	c2;
	T _ T + 3,	c3;

LastChance:
	MAR _ [rhTT, IOPage.DSCB.syncCmd+0],	c1;
	MDR _ L,	c2;
	L _ 0, GOTO[EFCHaveLink],	c3;