DIRECTORYBasics USING [BITAND, BITXOR, bitsPerWord],DoradoInputOutput USING [InputNoPE, Output],PrincOps USING [zMISC, NoTimeout],PrincOpsUtils USING [AllocateNakedCondition, ConditionPointer],Process USING [Detach, InitializeCondition, priorityRealTime, SetPriority],RasterControllerDorado,RasterControllerFace;RasterControllerHeadDorado: CEDAR MONITORIMPORTS Basics, DoradoInputOutput, PrincOpsUtils, Process, RasterControllerDorado, RasterControllerFaceEXPORTS RasterControllerFace~ BEGIN OPEN RasterControllerDorado, RasterControllerFace;hardwareScanlineWords: PUBLIC NAT _ 4096;hardwareScanlinePages: PUBLIC NAT _ hardwareScanlineWords / wordsPerPage;hardwareScanlineBits: NAT _ hardwareScanlineWords * Basics.bitsPerWord;interruptMask: WORD;ltMicrocodeCondition: PrincOpsUtils.ConditionPointer;channelProcs: ARRAY ExtendedChannel OF ChannelProc _ ALL[NIL];mrbInUse: MRBPointer _ NIL;	-- This is what we are really monitoringRegisterChannelProc: PUBLIC ENTRY PROC [channel: ExtendedChannel, proc: ChannelProc] ~ {ENABLE UNWIND => NULL;channelProcs[channel] _ proc;};StartMicrocode: PUBLIC ENTRY PROC [mrb: MRBPointer] RETURNS [ok: BOOL] ~ TRUSTED {ENABLE UNWIND => NULL;CallMicrocode: PROC [MRBPointer] RETURNS [ok: BOOL] ~ TRUSTED MACHINE CODE{PrincOps.zMISC, 245B};mrb.status _ nullLTStatus;IF ok _ CallMicrocode[mrb] THEN {mrbInUse _ mrb;Process.Detach[FORK WatchMicrocodeCondition[]];};RETURN[ok];};WatchMicrocodeCondition: ENTRY PROC ~ TRUSTED {ENABLE UNWIND => NULL;Xor: PROC [arg1, arg2: LTStatus] RETURNS [LTStatus] ~ TRUSTED INLINE {RETURN[LOOPHOLE[Basics.BITXOR[LOOPHOLE[arg1], LOOPHOLE[arg2]]]];};oldStatus, newStatus, status: LTStatus _ nullLTStatus;Process.SetPriority[Process.priorityRealTime];UNTIL newStatus.microcodeDone DO oldStatus _ newStatus;WHILE mrbInUse#NIL AND oldStatus = (newStatus _ mrbInUse.status) DOWAIT ltMicrocodeCondition;ENDLOOP;IF mrbInUse=NIL THEN EXIT;status _ Xor[oldStatus, newStatus];  -- isolate only what changedFOR chan: ExtendedChannel IN ExtendedChannel DOproc: ChannelProc _ channelProcs[chan];IF proc#NIL AND (status.channels[chan]#nullChannelStatus OR newStatus.microcodeDone) THEN proc[chan, status, newStatus];ENDLOOP;ENDLOOP;mrbInUse _ NIL;};KillMicrocodeWatcher: ENTRY PROC ~ TRUSTED {ENABLE UNWIND => NULL;IF mrbInUse#NIL THEN {mrbInUse.status.microcodeDone _ TRUE;NOTIFY ltMicrocodeCondition^;};};ResetMicrocode: PUBLIC PROC [] = TRUSTED BEGINresetAll: WORD ~ 400B;DoradoInputOutput.Output[resetAll, taskCmd];KillMicrocodeWatcher[];END;ShutupMicrocode: PUBLIC PROC [] = TRUSTED BEGINshutupAll: WORD ~ 140000B;DoradoInputOutput.Output[shutupAll, taskCmd];KillMicrocodeWatcher[];END;config0: Config0 _ [FALSE, 0, TRUE, FALSE, 0, FALSE, 0];  -- On_AHSync'dlySetUpForRealLineSync: PUBLIC PROC ~ TRUSTED {config0.AHSyncGetsROSSync _ TRUE;DoradoInputOutput.Output[LOOPHOLE[config0], config0Cmd];};SetUpForFakeLineSync: PUBLIC PROC ~ TRUSTED {config0.AHSyncGetsROSSync _ FALSE;DoradoInputOutput.Output[LOOPHOLE[config0], config0Cmd];};SetUpForRosClock: PUBLIC PROC ~ TRUSTED {config0.ABGetsAEdgeClk _ TRUE;config0.ABGetsTestClk _ FALSE;DoradoInputOutput.Output[LOOPHOLE[config0], config0Cmd];};SetUpForFakeClock: PUBLIC PROC ~ TRUSTED {config0.ABGetsAEdgeClk _ FALSE;config0.ABGetsTestClk _ FALSE;DoradoInputOutput.Output[LOOPHOLE[config0], config0Cmd];};SetUpForTestClock: PUBLIC PROC ~ TRUSTED {config0.ABGetsAEdgeClk _ FALSE;config0.ABGetsTestClk _ TRUE;DoradoInputOutput.Output[LOOPHOLE[config0], config0Cmd];};LineSync: PUBLIC PROC ~ TRUSTED {DoradoInputOutput.Output[2000B, taskCmd];};FakePixelClock: PUBLIC PROC ~ TRUSTED {DoradoInputOutput.Output[1000B, taskCmd];};CheckConfig: PUBLIC PROC RETURNS [HardwareConfig] ~ TRUSTED {RETURN[LOOPHOLE[DoradoInputOutput.InputNoPE[config1Cmd], HardwareConfig]];};InitializeMRB: PUBLIC PROC [mrb: MRBPointer,stb: STBPointer _ NIL,aRCB, bRCB, cRCB: RCBPointer _ NIL,ccb: CCBPointer _ NIL,flags: CARDINAL _ 0] ~ TRUSTED {mrb.seal _ goodMRBSeal;mrb.stb _ stb;mrb.rcb[A] _ aRCB;mrb.rcb[B] _ bRCB;mrb.rcb[C] _ cRCB;mrb.ccb _ ccb;mrb.flags _ flags;mrb.interruptMask _ interruptMask;mrb.status _ nullLTStatus;};InitializeRCB: PUBLIC PROC [rcb, next: RCBPointer _ NIL,bitmap: LONG POINTER _ NIL,activeWordsPerLine: CARDINAL _ 0,wordsPerLine: CARDINAL _ 0,lines: INTEGER _ 0,	--Total number of scans to readfMargin: CARDINAL _ 0,sRepeat, fRepeat: INTEGER _ 0,sReverse, fReverse: BOOL _ FALSE,mosaic: BOOL _ FALSE,bitsPerSample: [0..bitsPerWord] _ 1] ~ TRUSTED {samplesPerWord: CARDINAL ~ 16/bitsPerSample;indexMask: CARDINAL ~ SELECT bitsPerSample FROM1 => 177777B,2 => 177776B,4 => 177774B,8 => 177770B,10, 12, 16 => 177760B,ENDCASE => ERROR;	-- BadItemSize[bitsPerSample];bmValid: BOOL ~ bitmap#NIL;munches: INTEGER _ (activeWordsPerLine+15)/16;  --Picks up an extrarealBPS: [0..bitsPerWord] _ SELECT bitsPerSample FROM1 => 1,2 => 2,4 => 4,8 => 8,10, 12, 16 => 16,ENDCASE => ERROR;packedFMargin: CARDINAL _ fMargin*realBPS; --align it for the hardwarewordsPerLine _ RoundUpC[wordsPerLine, 16];	--Actually should generate ERROR if wordsPerLine#wordsrcb^ _ [seal: goodRCBSeal,next: next,extraLines: lines-2,repeatCnt: sRepeat-1,ccr: [itemClockRes: 15-fRepeat,reverse: fReverse,mosaic: mosaic,itemIs10Bit: bitsPerSample >= 10,itemIs12Bit: bitsPerSample >= 12,itemSize: SELECT bitsPerSample FROM1 => b1,2 => b2,4 => b4,8 => b8,10 => b10,12 => b12,16 => b12,  -- hardware can handle at most 12 bitsENDCASE => ERROR],handshake: [bmValid, 0],bitmap: IF sReverse THEN bitmap+(LONG[lines-1]*LONG[wordsPerLine]) ELSE bitmap,activeMunches: munches-1,wordsPerLine: IF sReverse THEN -wordsPerLine ELSE wordsPerLine,indexIntoBuffer: Basics.BITAND[(IF fReverseTHEN (activeWordsPerLine*16)+packedFMargin-1ELSE hardwareScanlineBits-packedFMargin), indexMask],status: [bitmapAddrValid: FALSE,ws: 0,rcbComplete: FALSE]];};InitializeCCB: PUBLIC PROC [ccb, next: CCBPointer _ NIL,bitmap: LONG POINTER _ NIL,words: CARDINAL _ 0,lines: INTEGER _ 0,	--Total number of scans to readfMargin: CARDINAL _ 0,sRepeat, fRepeat: INTEGER _ 0,sReverse, fReverse: BOOL _ FALSE,bitsPerSample: [0..bitsPerWord] _ 1,cursorCtl: CursorCtl _ defaultCursorCtl,modeCtl: ModeCtl _ defaultModeCtl,halftoneCtl: HalftoneCtl _ defaultHalftoneCtl,selCtl: SelCtl _ defaultSelCtl] ~ TRUSTED {samplesPerWord: CARDINAL ~ 16/bitsPerSample;alignedFMargin: CARDINAL ~ RoundUpC[fMargin, samplesPerWord];fMarginWords: CARDINAL ~ alignedFMargin/samplesPerWord;bmValid: BOOL ~ bitmap#NIL;munches: INTEGER _ (fMarginWords+words+15)/16;  --Picks up an extrawordsPerLine: CARDINAL _ RoundUpC[words, 16];	--Actually should generate ERROR if wordsPerLine#wordsccb^ _ [seal: goodRCBSeal,next: next,extraLines: lines-2,repeatCnt: sRepeat-1,ccr: [itemClockRes: 15-fRepeat,reverse: fReverse,itemIs10Bit: bitsPerSample >= 10,itemIs12Bit: bitsPerSample >= 12,itemSize: SELECT bitsPerSample FROM1 => b1,2 => b2,4 => b4,8 => b8,10 => b10,12 => b12,16 => b12,  -- hardware can handle at most 12 bitsENDCASE => ERROR],handshake: [bmValid, 0],bitmap: IF sReverse THEN bitmap+(LONG[lines-1]*LONG[wordsPerLine]) ELSE bitmap,activeMunches: munches-1,wordsPerLine: IF sReverse THEN -wordsPerLine ELSE wordsPerLine,indexIntoBuffer: IF fReverse THEN (wordsPerLine+fMarginWords)*16-1 ELSE 0,status: [bitmapAddrValid: FALSE,ws: 0,rcbComplete: FALSE],cursorCtl: cursorCtl,modeCtl: modeCtl,halftoneCtl: halftoneCtl,selCtl: selCtl];};BitsPerSample: PUBLIC PROC [lgBitsPerPixel: [0..4]] RETURNS [[0..bitsPerWord]] ~ {RETURN [SELECT lgBitsPerPixel FROM0 => 1,1 => 2,2 => 4,3 => 8,4 => 16,ENDCASE => ERROR];};PixelsPerWord: PROC [lgBitsPerPixel: [0..4]] RETURNS [[0..bitsPerWord]] ~ {RETURN [SELECT lgBitsPerPixel FROM0 => 16,1 => 8,2 => 4,3 => 2,4 => 1,ENDCASE => ERROR];};Init: PROC ~ TRUSTED {[ltMicrocodeCondition, interruptMask] _ PrincOpsUtils.AllocateNakedCondition[];Process.InitializeCondition[ltMicrocodeCondition, PrincOps.NoTimeout];};Init[];END.   ؛  RasterControllerHeadDorado.mesaCopyright س 1985, 1986, 1987 by Xerox Corporation.  All rights reserved.Tim Diebert, September 4, 1985 3:24:58 pm PDTEric Nickell, April 28, 1986 3:03:30 pm PDTDave Rumph, February 26, 1987 3:56:04 pm PSTStuff for the software.Stuff for the hardware.The printer microcode can be shut down by resetting the hardware:The definition of the control block stuff used by this microcode is as follows:‌ت
أ  ک ™IcodeڑœH™HK™-K™+K™,—Kک ڑدk	ک	Kڑœ‌œ‌œ‌œک+Kڑœ‌œک,Kڑœ	‌œک"Kڑœ‌œ,ک?Kڑœ‌œ>کKKڑœکKڑœک—Kک Kک Kڑذlnœ‌œ‌ک)Kڑ‌œ`کgKڑ‌œکڑœ‌œ‌œ.ک:Kک —ڑذbl™Kک Kڑœ‌œ‌œک)Kڑœ‌œ‌œ(کIKڑœ‌œ.کGKڑœ‌œکKک5Kڑ	œ‌œ‌œ‌œ‌œک>Icode2ڑœ‌œدc(کDڑدnœ‌œ‌œ‌œ2کXKڑ‌œ‌œ‌œکKکKک—Kک —K™ ڑں™™ ڑ،œ‌œ‌œ‌œ‌œ‌œ‌œکRKڑ‌œ‌œ‌œکڑ،œ‌œ‌œ‌œ‌œ‌œ‌کJKڑœک—Kکڑ‌œ‌œک!KکK•StartOfExpansion	[PROCESS]ڑœ‌œک/Kڑœک—Kڑ‌œکKک—Kک ڑ،œ‌œ‌œ‌œک/Kڑ‌œ‌œ‌œکڑ
،œ‌œ‌œ‌œ‌œکFKڑ
‌œ‌œ‌œ‌œ‌œ
ک@Kک—Kک6Kک.ڑ‌œ‌œک!Kکڑ‌œ
‌œ‌œ+‌کCKڑ‌œکKڑ‌œک—Kڑ‌œ
‌œ‌œ‌œکKڑœ% کAڑ‌œ‌œ‌ک/Kک'Kڑ
‌œ‌œ‌œ*‌œ‌œکxKڑ‌œک—Kڑ‌œک—Kڑœ‌œکKک—Lک ڑ،œ‌œ‌œ‌œک,Kڑ‌œ‌œ‌œکڑ‌œ
‌œ‌œکKڑœ ‌œک%Kڑ‌œکKک—Kک—Lک —™AKک ڑ	،œ‌œ‌œ‌œ‌ک.Kڑœ
‌œکKڑœ,ک,KکKڑ‌œک—Kک ڑ	،œ‌œ‌œ‌œ‌ک/Kڑœ‌œکKڑœ-ک-KکKڑ‌œک—Kک Kڑ
œ‌œ‌œ‌œ‌œ کJLک ڑ،œ‌œ‌œ‌œک-Lڑœ‌œک!Jڑœ‌œک8Kک—Kک ڑ،œ‌œ‌œ‌œک-Lڑœ‌œک"Jڑœ‌œک8Kک—Kک ڑ،œ‌œ‌œ‌œک)Lڑœ‌œکLڑœ‌œکJڑœ‌œک8Kک—Kک ڑ،œ‌œ‌œ‌œک*Lڑœ‌œکLڑœ‌œکJڑœ‌œک8Kک—Kک ڑ،œ‌œ‌œ‌œک*Lڑœ‌œکLڑœ‌œکJڑœ‌œک8Kک—Kک ڑ،œ‌œ‌œ‌œک!J–8[datum: WORD, register: DoradoInputOutput.IOAddress]ڑœ)ک)KکKک —ڑ،œ‌œ‌œ‌œک'J–8[datum: WORD, register: DoradoInputOutput.IOAddress]ڑœ)ک)KکKک —ڑ
،œ‌œ‌œ‌œ‌œک=Kڑ‌œ‌œ;کJKک——Jک K™Oک ڑ،œ‌œ‌œ%‌œ!‌œ‌œ	‌œ	‌œک KکKڑœکKڑœکKڑœکKڑœکKڑœکKڑœکKک"KکKکKک —ڑ$،œ‌œ‌œ‌œ
‌œ‌œ‌œ‌œ‌œ‌œ  œ	‌œ‌œ‌œ‌œ
‌œ‌œ)‌œکوKڑœ‌œک,ڑœ‌œ‌œ‌ک/KکKکKکKکKکKڑ‌œ‌œ ک0—Jڑœ	‌œ
‌œکKڑœ	‌œ3کCڑœ‌
œ‌ک5KکKکKکKکKکKڑ‌œ‌œک—Kڑœ‌œ کFKڑœ+ ذck کaڑœکKکKکKڑœکKڑœکڑœکKکKکKکKک!Kک!ڑœ
‌œ‌ک#KکKکKکKکKک
Kک
Kڑœ &ک2Kڑ‌œ‌ک—Kڑœک—KڑœکKڑœ‌œ
‌œدt‌£
‌œ£œ‌œکOKکKڑœ‌œ
‌œ‌œک?Kڑ	œ‌œ‌œ
‌œ)‌œ1کژڑœ	ک	Kڑœ‌œکKکKڑœ‌کKڑœک—Kڑœک—KکKک —ڑ،œ‌œ‌œ‌œ
‌œ‌œ‌œ	‌œ‌œ  œ	‌œ‌œ‌œ‌œؤ‌œکآKڑœ‌œک,Kڑœ‌œ%ک=Kڑœ‌œ!ک7Jڑœ	‌œ
‌œکKڑœ	‌œ3کCKڑœ‌œ ¢ کdڑœکKکKکKڑœکKڑœکڑœکKکKکKک!Kک!ڑœ
‌œ‌ک#KکKکKکKکKک
Kک
Kڑœ &ک2Kڑ‌œ‌ک—Kڑœک—KڑœکKڑœ‌œ
‌œ£‌£
‌œ£œ‌œکOKکKڑœ‌œ
‌œ‌œک?Kڑœ‌œ	‌œ"‌œکJڑœ	ک	Kڑœ‌œکKکKڑœ‌کKڑœک—Kڑœ	£œ	£کKڑœکKڑœکKڑœکKڑœک—KکKک —ڑ،œ‌œ‌œ‌œکRڑ‌œ‌œ‌ک"KکKکKکKکKکKڑ‌œ‌œک—KکKک —ڑ،œ‌œ‌œکKڑ‌œ‌œ‌ک"KکKکKکKکKکKڑ‌œ‌œک—Kک——Kک –[]ڑ،œ‌œ‌œکKکOKڑœFکFKک—Kک KکKک —Kڑ‌œک— …—    ـ  ,Y  