*  Disk-Defs.mc - last modified  December 10, 1978  6:17 PM
** stored in [ivy]<D1source>Emu.dm

	TITLE[TriconD-Defs.mc - July 11, 1984  4:08 PM];
* m[noop, ilc[(branch[.+1])]];		*Defined in Preamble.mc
* m[skipif, BRGO@[tsd@] JMP@[.+2,#1,#2]];

***** - - - - - - - - - -
	TASKN[DSK, 14];
*** TIOA values for disk

	Device[DiskControl, 10];
	Device[DiskMuff, 11];
	Device[DiskData, 12];
	Device[DiskRam, 13];
	Device[DiskTag, 14];

***** - - - - - - - - - -
*** Rm register names
RmRegion[diskrms];
	rv[Errors, 0];
	rv[KScr, 0];
	rv[KScr2, 0];
	rv[KScr3, 0];
	rv[KScr4, 0];
	rv[Count, 0];
	rv[CountS, 0];
	rv[KScrS, 0];
	rv[KScrL, 0];
	rv[DriveNumber, 0];
	rv[EMUcount, 0];
	rv[Dmux100, 0];
	rv[Dmux101, 0];
	rv[Dmux102, 0];
	rv[Dmux103, 0];
	rv[Dmux104, 0];
(635)\150b4B52b6B
***** - - - - - - - - - -
*** Muffler constants

	mc[StatusMuffs, 20];
	mc[NotReadyBit, StatusMuffs, 5];
	mc[writeErrorMuff, StatusMuffs, 16];
	mc[readErrorMuff, StatusMuffs, 17];

	mc[StateMuffs, 0];
	mc[IndexTWmuff, StateMuffs, 1];
	mc[SectorTWmuff, StateMuffs, 2];
	mc[SeekTWmuff, StateMuffs, 3];		*seek or tag TW
	mc[TagTWmuff, StateMuffs, 3];		*seek or tag TW
	mc[ReadTWmuff, StateMuffs, 4];
	mc[WriteTWmuff, StateMuffs, 5];
	mc[EnableRunMuff, StateMuffs, 10];
	mc[DiskSelectMuff, StateMuffs, 16];
	mc[DiskSelectMuff+1, DiskSelectMuff, 1];
	mc[IOBPErrMuff, StateMuffs, 34];

	mc[IndexTWBit, 20];
	mc[SectorTWBit, 10];
	mc[OtherTWBit, 4];
	mc[ReadTWBit, 2];
	mc[WriteTWBit, 1];
	mc[117D, 165];
	mc[30D, 36];
	mc[9D, 11];

	mc[RamMuffs, 40];
	mc[TagMuffs, 60];
	mc[FifoMuffs, 100];
	mc[FWAddrMuffs, 110];
	mc[FRAddrMuffs, 114];

***** - - - - - - - - - -
*** Disk Command constants
	mc[clearErrors, 400];		* = muffAddr.07
	mc[clearOTWs, 1000];		* = muffAddr.06 - clearOtherTWs
	mc[clearSTW, 2000];		* = muffAddr.05 - clearSectorTW
	mc[clearITW, 4000];		* = muffAddr.04 - clearIndexTW
	mc[clearATWs, 7000];		* = muffAddr.04, .05, .06
	mc[clearALL, 7400];		* = muffAddr.04, .05, .06, .07
	mc[clearALLbutTagTW, 6400];		* = muffAddr.04, .05, .06, .07
	mc[forceCompError, 10000];		* = muffAddr.03
	mc[clearSetCompError, 20000];		* = muffAddr.02

	mc[NoEnableRun, 2000];		* = Control.05
	mc[DebugMode, 1000];			* = Control.06
	mc[ReadyAndIndex, 400];		* = Control.07

	mc[DrvSelectTAG, 100000];		* = TAG.00
	mc[CylSelectTAG, 40000];		* = TAG.01
	mc[HeadSelectTAG, 20000]; 	* = TAG.02
	mc[ControlTag, 10000];			* = TAG.03
	mc[SectorCntEnable, 40];		* = TAG.04

	mc[ATSyncPat, 1];		* disk sync pattern to write in Alto mode
	mc[D1SyncPat, 201];		* disk sync pattern to write in D1 mode
	mc[ATSyncRead, 4000];	* Alto sync pattern to be read
	mc[D1SyncRead, 0];		* D1 sync pattern to be read
	mc[NormalRead, 104];	* control RAM entry for read command

***** - - - - - - - - - - - - - - - - - - - - -
			*  alto sub-sector count - 1
  MC[AltoCount, lshift[3,6]];
			* driveSelectTAG + (Tri sub-sector count - 1)
	mc[TriCount, 100000, lshift[14,6]];