{File name: Phase0SetUReg.mc
   Last Edited: Sturgis: 29-Aug-83  7:47:56
   
   used to set up the u registers for sa1000 disk code (not sa4000)
   used when running phase 0 under Burdock
   }
   
   
SA1000SetU:
	rY ← 01,		c1;
	rY ← rY LRot8,		c2;
	dbUDataAddr ← rY,	c3; {0100}
	
	rY ← 0C,		c1;
	rY ← rY LRot8,		c2;
	rY ← rY or 24,		c3;
	
	dbUFindIndexMkCmd ← rY,	c1; {0C24}
	rY ← 0C,		c2;
	rY ← rY LRot8,		c3;
	
	rY ← rY or 20,		c1;
	dbUFindSectMkCmd ← rY,	c2; {0C20}
	rY ← 0C,		c3;
	
	rY ← rY LRot8,		c1;
	rY ← rY or 20,		c2;
	dbUFreezeCmd ← rY,	c3; {0C20}
	
	rY ← 00,		c1;
	rY ← rY LRot8,		c2;
	rY ← rY or 02,		c3;
	
	dbUHeaderAddr ← rY,	c1; {0002}
	rY ← 00,		c2;
	rY ← rY LRot8,		c3;
	
	rY ← rY or 5E,		c1;
	dbUHeaderQuitMsk ← rY,	c2; {005E}
	rY ← 08,		c3;
	
	rY ← rY LRot8,		c1;
	rY ← rY or 00,		c2;
	dbUHeadIncr ← rY,	c3; {0800}
	
	rY ← 00,		c1;
	rY ← rY LRot8,		c2;
	rY ← rY or 04,		c3;
	
	dbULabelAddr ← rY,	c1; {0004}
	rY ← 00,		c2;
	rY ← rY LRot8,		c3;
	
	rY ← rY or 1E,		c1;
	dbULabelDataQuitMsk ← rY,	c2; {001E}
	rY ← 04,		c3;
	
	rY ← rY LRot8,		c1;
	rY ← rY or 30,		c2;
	dbUReadCmd ← rY,	c3; {0430}
	
	rY ← 00,		c1;
	rY ← rY LRot8,		c2;
	rY ← rY or 1C ,		c3;
	
	dbUSectorCount ← rY,	c1; {001C}
	{noop}			c2;
	rY ← 00,		c3;
	
	rY ← rY LRot8,		c1;
	rY ← rY or 10,		c2;
	dbUSectorsLeftInTrack ← rY,	c3; {0010}
	
	rY ← 00,		c1;
	rY ← rY LRot8,		c2;
	rY ← rY or  10,		c3;
	
	dbUSectorsPerTrack ← rY,	c1; {0010}
	rY ← 0C,		c2;
	rY ← rY LRot8,		c3;
	
	rY ← rY or 22,		c1;
	dbUSeekCompleteWaitCmd ← rY,	c2; {0C22}
	rY ← 0C,		c3;
	
	rY ← rY LRot8,		c1;
	rY ← rY or 32,		c2;
	dbUVerifyCmd ← rY,	c3; {0C32}
	
	rY ← 01,		c1;
	rY ← rY LRot8,		c2;
	rY ← rY or 00,		c3;
	
	dbUHeadSect ← rY,	c1; {0100}

DoneSA1000SetU:
	{noop}			c2;
	{noop}			c3;
	
	GOTO[DoneSA1000SetU],	c1;