{File name:  Display.dfn
 Description: Definitions for Display Lisp Microcode,
 Created: 15-May-84 11:07:52
 }

	Set[StartVSync, 63];
	Set[EndVSync, 3];
	Set[Blank, 43];
	Set[Pic, 45];
	Set[InvPic, 4D];
	Set[NoPic, 41];
	Set[NoInvPic, 49];
	{set in dandelion.df
	  Set[PicLenShifted, 0CA]; {PicLength = 328'x = 808'd. PicLenShifted = RShift2 PicLength}}

{values relative to HibernateRet}
	Set[VSyncTime, 16'd]; {odd frame is 17'd}{NEW}
{	Set[VSyncTime, 13'd]; {odd frame is 14'd}OLD}
	Set[BotBordTime, 14'd]; 
	Set[BlankTime, 2];
	Set[OffTime, 9];

{values relative to FieldRet}
	Set[L5.FieldStart, 1];  {control goes to "FieldStart" from RET[FieldRet]}
	Set[L5.Field, 0];  {control goes to "Field" from RET[FieldRet]}

{values relative to SleepRet & DCycleRet}
	Set[L5.DCycle6, 0];
	Set[L5.DCycleA, 1];
	Set[L5.DCycle, 2];
	Set[L5.evs2, 3];
	Set[L5.tb1, 4];
	Set[L5.tb2, 5];
	Set[L5.tb5, 6];
	Set[L5.Hibernate, 7];

{Format of Display Control Block}
	{  Set[IOPageHigh, 1];}
	{  Set[IOPage, 40];}
	{  Set[DCBLoc, 0EB];}
	Set[WakeupLoc, 0];
	Set[DBitsLoc, 1];
	Set[BorderLoc, 2];
	Set[cursorXLoc, 3];
	Set[cursorYLoc, 4];
	{  Set[cursorMapLoc, 5];}



	{ E N D }