DIRECTORY Imager USING [Context], ImagerBitmapContext USING [Brick, Create, SetBitmap, SetBrick], ImagerDevice USING [FontTuner], ImagerSample USING [Clear, GetSize, NewSampleMap, Put, RasterSampleMap, SampleMap], Loader USING [MakeProcedureResident, MakeGlobalFrameResident], LSEPFace, Process USING [Pause, Priority, GetPriority, priorityFaultHandlers, SecondsToTicks, SetPriority], PrincOps USING [bitsPerWord, wordsPerPage, PageCount], RavenCodes, RavenControl, RavenDriver, Rope USING [ROPE]; RavenDriverImpl: MONITOR IMPORTS -- FontTune, -- ImagerBitmapContext, ImagerSample, Loader, LSEPFace, Process, RavenControl EXPORTS RavenDriver ~ BEGIN OPEN RavenDriver; myPixelMap: ImagerSample.RasterSampleMap _ NIL; secondPixelMap: ImagerSample.RasterSampleMap _ NIL; GetPrinterSampleMap: PUBLIC PROC RETURNS [sampleMap: ImagerSample.RasterSampleMap] = {RETURN[myPixelMap]}; ContextFromSampleMap: PUBLIC PROC [sampleMap: ImagerSample.RasterSampleMap, fontTunerParms: Rope.ROPE _ NIL] RETURNS [context: Imager.Context] = BEGIN fontTuner: ImagerDevice.FontTuner _ NIL; context _ ImagerBitmapContext.Create[deviceSpaceSize: ImagerSample.GetSize[sampleMap], scanMode: [slow: right, fast: up], surfaceUnitsPerInch: [300, 300], pixelUnits: FALSE, fontCacheName: $PrinterBitmap, fontTuner: NIL]; ImagerBitmapContext.SetBitmap[context, sampleMap]; ImagerBitmapContext.SetBrick[context, coarseBrick]; ImagerSample.Clear[sampleMap]; END; lastPaperFeed: RavenControl.PaperTray _ top; MakeSimpleBrick: PROC [t: ARRAY [0..4) OF PACKED ARRAY [0..4) OF [0..16)] RETURNS [ImagerBitmapContext.Brick] ~ { b: ImagerSample.SampleMap ~ ImagerSample.NewSampleMap[box: [max: [4, 4]], bitsPerSample: 8]; FOR s: NAT IN [0..4) DO FOR f: NAT IN [0..4) DO ImagerSample.Put[b, [s, f], t[s][f]]; ENDLOOP; ENDLOOP; RETURN [[maxSample: 15, sampleMap: b, phase: 0]] }; coarseBrick: ImagerBitmapContext.Brick _ MakeSimpleBrick[[ [00, 01, 13, 14], [08, 02, 03, 15], [09, 10, 04, 05], [07, 11, 12, 06] ]]; SetRegistration: PUBLIC PROCEDURE [registration: RavenRegistration] = TRUSTED BEGIN DivideUp: PROCEDURE [divident, divisor: CARDINAL] RETURNS [quotient: CARDINAL] = TRUSTED INLINE BEGIN RETURN[quotient: (divident + divisor - 1) / divisor]; END; LSEPFace.SetPageOffsets[ wordsFast: DivideUp[divident: registration.long * registrationTabSize, divisor: PrincOps.bitsPerWord], linesSlow: registration.short * registrationTabSize]; END; -- SetRegistration printing: BOOL _ FALSE; PrintingError: PUBLIC ERROR = CODE; WakeUp: PUBLIC PROCEDURE[] = BEGIN RavenControl.SendEngineCommand[solicitStatus]; -- Jump start the Raven END; PrintFromSampleMap: PUBLIC PROC [sampleMap: ImagerSample.RasterSampleMap, copies: CARDINAL _ 1, paperFeed: RavenDriver.PaperFeed _ alternating] RETURNS [endingStatus: PrinterStatus, type: StatusType] = BEGIN ENABLE ABORTED => printing _ FALSE; eventContext: REF RavenControl.EventContext _ NEW[RavenControl.EventContext]; feedOkay, engineError, transferIsReady, transferWait: BOOL _ FALSE; old: Process.Priority _ Process.GetPriority[]; engineStatus: RavenControl.EngineStatus; paperTray: RavenControl.PaperTray _ SELECT paperFeed FROM bottom => bottom, top => top, alternating => IF lastPaperFeed = top THEN bottom ELSE top, ENDCASE => top; RavenControl.SetToCurrentEventContext[eventContext]; printing _ TRUE; lastPaperFeed _ paperTray; DO -- wait ok loop IF engineStatus IN [imageFault1..imageFault3] THEN engineStatus _ okay; -- clear "sticky" status with new job start SELECT RavenControl.GetEngineStatus[] FROM okay, tonerLow => EXIT; okayFlushRequired, IN [imageFault1..imageFault3] => BEGIN RavenControl.Feed[paperTray, aligned]; DO -- flush printing loop SELECT RavenControl.WaitEngineEvent[eventContext] FROM pageDelivery, idle, feedError, softError, hardError, timeout => EXIT; -- wait for these ENDCASE => LOOP; -- others are in-process ENDLOOP; -- flush printing loop LOOP; -- flushed one sheet, try again END; preRegistrationFault => {Process.Pause[Process.SecondsToTicks[1]]; LOOP}; -- Wait for someone to fix it ENDCASE => BEGIN-- wake up printer / query every second RavenControl.SendEngineCommand[solicitStatus]; Process.Pause[Process.SecondsToTicks[1]]; LOOP; END; ENDLOOP; -- wait ok loop RavenControl.PageTransferSet[sampleMap]; BEGIN ENABLE UNWIND => Process.SetPriority[old]; Process.SetPriority[Process.priorityFaultHandlers]; RavenControl.Feed[paperTray, aligned]; feedOkay _ FALSE; transferIsReady _ TRUE; DO -- page printing loop SELECT RavenControl.WaitEngineEvent[eventContext] FROM readyToFeed => {feedOkay _ TRUE; IF transferWait AND NOT transferIsReady THEN LOOP}; feeding => { -- pageFeed _ pageFeed + 1; --transferIsReady _ FALSE; LOOP}; transferReady => BEGIN transferIsReady _ TRUE; IF (NOT feedOkay) THEN LOOP; END; imaged => LOOP; imagedOverrun => {-- pageTrash _ pageTrash + 1; -- transferWait _ TRUE; LOOP}; pageSyncMiss => EXIT; pageDelivery => EXIT; -- Page is at otuput idle, timeout => EXIT; feedError => {engineError _ TRUE; EXIT}; softError => {engineError _ TRUE; EXIT}; hardError => {engineError _ TRUE; EXIT}; ENDCASE => ERROR; ENDLOOP; -- page printing loop IF engineError THEN {Process.SetPriority[old]; ERROR PrintingError}; END; Process.SetPriority[old]; END; mySP: REF StatusProc _ NIL; RegisterStatusProc: PUBLIC ENTRY PROC [sp: StatusProc] = {mySP _ NEW[StatusProc _ sp]}; UnRegisterStatusProc: PUBLIC ENTRY PROC [sp: StatusProc] = {mySP _ NIL}; activeLength: (0..PrincOps.wordsPerPage] _ ((11*300)+15)/16; Init: PROC [] = BEGIN Loader.MakeProcedureResident[PrintFromSampleMap]; Loader.MakeGlobalFrameResident[PrintFromSampleMap]; RavenControl.Initialize[16*3]; RavenControl.SetScanLineLength[activeLength]; myPixelMap _ RavenControl.GetPageMap[]; RavenControl.SendEngineCommand[solicitStatus]; -- Jump start the Raven END; Init[]; END. RavenDriverImpl.mesa Copyright س 1985, 1986, 1987 by Xerox Corporation. All rights reserved. Tim Diebert: April 9, 1987 1:24:19 pm PDT FontTune USING [CreateFontTuner], IF fontTunerParms # NIL THEN fontTuner _ FontTune.CreateFontTuner[fontTunerParms]; sets up arguments for call which will set page offsets reset counters to new starting page "Flush" the printer with a blank sheet to complete previous unfinished imaging IF (NOT transferWait) OR (NOT feedOkay) THEN LOOP; secondPixelMap _ MakePrinterPixelMap[]; ‌تؤک™IcodeڑœH™HK™)—Kکڑدk ک Kڑœ ‌œ™!Kڑœ‌œکKڑœ‌œ&ک?Kڑœ ‌œ کKڑœ ‌œAکSKڑœ‌œ2ک>Kڑœ ک Kڑœ‌œTکaKڑœ ‌œ(ک6KکKک KڑœکKڑœ‌œ‌œک—KکKکKڑذlnœ‌کKڑ‌œدcœKکbKڑ‌œکڑœ‌œ‌œ کKکKڑœ+‌œک/Kڑœ/‌œک3KکKڑ دnœ‌œ‌œ‌œ.‌œکjKکڑ œ‌œ‌œ@‌œ‌œ‌œ‌ک–Kڑœ$‌œک(Kڑ‌œ‌œ‌œ6™RK•StartOfExpansionئ[deviceSpaceSize: SF.Vec, scanMode: ImagerTransformation.ScanMode, surfaceUnitsPerInch: VEC, pixelUnits: BOOL _ FALSE, fontCacheName: ATOM _ NIL, fontTuner: ImagerDevice.FontTuner _ NIL]ڑœ§‌œ,‌œکفKڑœ2ک2Kڑœ3ک3KڑœکKڑ‌œک—KکKڑœ,ک,Kکڑ œ‌œ‌œ‌œ‌œ‌œ‌œ ‌œ کqKڑœ\ک\ڑ‌œ‌œ‌œ‌کڑ‌œ‌œ‌œ‌کKڑœ%ک%Kڑ‌œک—Kڑ‌œک—Kڑ‌œ*ک0KڑœکKک—ڑœ:ک:KڑœکKڑœکKڑœکKڑœکKک—KکKکڑ œ‌œ‌ œ%‌œ‌کSKڑ œ‌ œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ0‌œک Kڑœ6™6کKڑœfکfKڑœ5ک5—Kڑ‌œںک—KکKڑœ ‌œ‌œکKکKڑ œ‌œ‌œ‌œک#Kکڑ œ‌œ‌ œ‌ک"Kڑœ0ںکGKڑ‌œک—Kکڑ œ‌œ‌œ3‌œ6‌œ3‌کدKڑ‌œ‌œ‌œک#Kڑœ‌œ‌œکMKڑœ6‌œ‌œکCKڑœ.ک.Kڑœ(ک(ڑœ$‌œ‌ک9KکKکKڑœ‌œ‌œ‌œک;Kڑ‌œک—Kڑœ4ک4Kڑœ‌œکKڑœکڑ‌œںکKڑ‌œ‌œ‌œں+کtKڑœ#™#ڑ‌œ ‌ک*Kڑœ‌œکڑœ‌œ‌ک9KڑœN™NKڑœ&ک&ڑ‌œںکڑ‌œ+‌ک6Kڑœ?‌œںکXKڑ‌œ‌œںک*—Kڑ‌œںک —Kڑ‌œںک&Kڑ‌œک—KڑœC‌œںکgڑ‌œ‌ں'ک7Kک.Kک)Kڑ‌œکKڑ‌œک——Kڑ‌œںک—Kڑœ(ک(ڑ‌œ‌œ‌œک0Kڑœ3ک3Kڑœ&ک&Kڑœ‌œکKڑœ‌œکڑ‌œںکڑ‌œ+‌ک6ڑœ‌œ‌œک Kڑ ‌œ‌œ‌œ‌œ‌œک3—Kڑ œ ںœںœ‌œ‌œکJڑœ‌کKڑœ‌œکKڑ‌œ‌œ‌œ‌œ‌œ‌œ™2Kڑ‌œ‌œ‌œ‌œکKڑ‌œک—Kڑœ ‌œکKڑ œںœںœ‌œ‌œکNKڑœ‌œکKڑœ‌œںک*Kڑœ‌œکKڑœ‌œ‌œ‌œک(Kڑœ‌œ‌œک(Kڑœ‌œ‌œک(Kڑ‌œ‌œک—Kڑ‌œںک—Kڑ‌œ ‌œ‌œکDKڑ‌œک—Kڑœکڑ‌œکKک——ڑœ‌œ‌œکKک—Kڑ œ‌œ‌œ‌œ‌œکWKکKڑ œ‌œ‌œ‌œ‌œکHKکKڑœ<ک