DIRECTORY
Ascii USING [BEL, ControlZ],
BasicTime USING [Now],
Convert USING [AppendCard, AppendTime],
Loader USING [BCDBuildTime],
LSEPDiagnostics USING [BuildImageSample, ImageFault, InterpretImageSample],
NSExec USING [ClientID, GetTTY, localExec, OutputHandle, PutAsyncMessage, PutMessage],
NSString USING [AppendToMesaString, CopyString, MakeString, nullString, String, StringRep, StringFromMesaString],
PaperHandling USING [PaperStacking, RavenRegLong, RavenRegShort, Registration],
PrintingState,
PrintingTypes USING [Option],
Process USING [ Abort, GetPriority, MsecToTicks, Pause, Priority, priorityForeground, SecondsToTicks, SetPriority],
PSCommand USING [ GetPrintServiceStatus, PrintFile, PrintFileOptions, PaperTray, SetRegistration],
PSExec USING [GetClientID],
PSState USING [State],
RavenBansheeMessage USING [GetNSMessage, Key],
RavenConsole USING [ BlankDisplay, Character, D1, D2, D3, D4, D5, D6, D7, D9, DC, displayAnalystLog, displayTechRepLog, DisplayCode, enterRepairMode, exitRepairMode, KeyPadCode, printAnalystLog, printTechRepLog, readRegistration, resetLog, runCommandStatusTest, runImageTest, runTestJob, setRegistration, UpdateDisplay, WaitKeyPadCode],
RavenControl USING [ EventContext, GetEngineStatus, RunTurnaroundTest, SetToCurrentEventContext, WaitEngineEvent, WaitEngineStatus],
RavenCounter USING [Get, Handle, Item, Reset],
RavenEngine USING [ --Job, SetJob, -- GetPrintingState, SetPrintingState, WaitPrintingState],
RavenTest USING [],
RefText USING [Append, AppendChar],
Rope USING [ToRefText],
StringSequence USING [Create, Delete, Handle, learSieglerStringLength],
TestPattern USING [Name, NotFound, TestPatternID],
TextInput USING [ChoiceIndex, Choices, GetChoice, GetYesNo],
ThisMachine USING [ProcessorID],
TTY USING [Handle, Rubout],
XFormat USING [CR, Handle, NSLine, NSString],
XMessage USING [Compose, StringArray];

RavenTestImpl: CEDAR PROGRAM
IMPORTS BasicTime, Convert, LSEPDiagnostics, Loader, NSExec, NSString, PSExec, PSCommand, Process, --RasterLogFont, -- RavenBansheeMessage, RavenConsole, RavenControl, RavenCounter, RavenEngine, RefText, Rope, StringSequence, TestPattern, TextInput, ThisMachine, TTY, XFormat, XMessage
EXPORTS RavenTest = BEGIN


keyPadCode: RavenConsole.KeyPadCode;

localTTY: TTY.Handle _ NSExec.GetTTY[NSExec.localExec];
localOutput: XFormat.Handle _ NSExec.OutputHandle[NSExec.localExec];


LogItem: TYPE = RECORD [counter: RavenCounter.Item, message: RavenBansheeMessage.Key];


jamList: ARRAY [0..6) OF LogItem = [
[feederFaultBottom, c4BottomFeederFault], [feederFaultTop, c4TopFeederFault], [
registrationJam, e2PostRegistrationJam], [fuserJam, e3PreExitJam], [
noExit, e4OutputTrayFullB0B1PostExitJamB2], [
outputTrayFull, f5OutputTrayFullB2]];

commandList: ARRAY [0..10) OF LogItem = [
[feedBottomAligned, feedBottomAligned], [feedBottomOffset, feedBottomOffset], [
feedTopAligned, feedTopAligned], [feedTopOffset, feedTopOffset], [
solicitStatus, solicitStatus], [solicitPaperSize, solicitPaperSize], [
display, display], [dozeOff, dozeOff], [wakeUp, wakeUp], [beep, beep]];

statusList: ARRAY [0..29) OF LogItem = [
[readyToFeed, readyToFeed], [feeding, feeding], [pageSync, pageSync], [
pageAtOutputTray, pageAtOutputTray], [fuserCold, fuserCold], [
tonerLow, tonerLow], [interlockOpen, interlockOpen], [
feedTraysNotEngaged, feedTraysNotEngaged], [
displayAcknowledge, displayAcknowledge], [aboutToDozeOff, aboutToDozeOff], [
paperSmallSmall, paperSmallSmall], [paperSmallLarge, paperSmallLarge], [
paperLargeSmall, paperLargeSmall], [paperLargeLarge, paperLargeLarge], [
key0to9, key0to9], [keyClear, keyClear], [keyTest, keyTest], [
keyOnLine, keyOnLine], [onLine, onLine], [keyOffLine, keyOffLine], [
goingOffLine, goingOffLine], [offLine, offLine], [parityError, parityError], [
illegalCharacter, illegalCharacter], [illegalSequence, illegalSequence], [
statusError, statusError], [noStatus, noStatus], [
statusOverRun, statusOverRun], [undefinedStatus, undefinedStatus]];

plateStatusList: ARRAY [0..2) OF LogItem = [
[bandOverrun, bandOverrun], [pageSyncMiss, pageSyncMiss]];

statusExtrasList: ARRAY [0..5) OF LogItem = [
[imageFault1, imageFault1], [imageFault2, imageFault2], [
imageFault3, imageFault3], [sequenceFault, sequenceFault], [
communicationFault, communicationFault]];


RunServeTestMode: PUBLIC PROCEDURE = BEGIN
ENABLE TTY.Rubout => CONTINUE;
testChoices: REF TextInput.Choices _ NEW[TextInput.Choices[6]];
testChoices.data[0] _ RavenBansheeMessage.GetNSMessage[exit];
testChoices.data[1] _ RavenBansheeMessage.GetNSMessage[commandStatusTurnaroundTest];
testChoices.data[2] _ RavenBansheeMessage.GetNSMessage[imageTest];
testChoices.data[3] _ RavenBansheeMessage.GetNSMessage[displayTechRepLog];
testChoices.data[4] _ RavenBansheeMessage.GetNSMessage[printTechRepLog];
testChoices.data[5] _ RavenBansheeMessage.GetNSMessage[resetTechRepLog];
DO
SELECT TextInput.GetChoice[
tty: localTTY, prompt: RavenBansheeMessage.GetNSMessage[selectFrom],
choices: testChoices, default: 0 ! TTY.Rubout => EXIT] FROM
0 => EXIT;
1 => BEGIN  -- command status turnaround test
localOutput.CR[];
UNTIL TextInput.GetYesNo[
tty: localTTY,  -- continue displaying prompt until response is affirmative
prompt: RavenBansheeMessage.GetNSMessage[installTurnaroundPlug],
default: yes ! TTY.Rubout => GOTO abortTests] = yes DO ENDLOOP;
DO
localOutput.CR[];
localOutput.NSString[  -- display heading
RavenBansheeMessage.GetNSMessage[commandStatusTurnaroundTest2]];
localOutput.NSLine[
RavenBansheeMessage.GetNSMessage[
IF RavenControl.RunTurnaroundTest[] THEN working ELSE failing]];
localOutput.CR[];
IF TextInput.GetYesNo[
tty: localTTY,  -- prompt for repeat test response
prompt: RavenBansheeMessage.GetNSMessage[repeatTest], default: yes !
TTY.Rubout => GOTO abortTests] = no THEN EXIT;
ENDLOOP;
localOutput.CR[];
UNTIL TextInput.GetYesNo[tty: localTTY,  -- display prompt until affirmative answer is received
prompt: RavenBansheeMessage.GetNSMessage[removeTurnaroundPlug],
default: yes ! TTY.Rubout => GOTO abortTests] = yes DO ENDLOOP;
localOutput.CR[];
UNTIL TextInput.GetYesNo[tty: localTTY,  -- display prompt until affirmative answer is received
prompt: RavenBansheeMessage.GetNSMessage[reconnectPrinter],
default: yes ! TTY.Rubout => GOTO abortTests] = yes DO ENDLOOP;
END;
2 => BEGIN  -- image test
fault: LSEPDiagnostics.ImageFault;
localOutput.CR[];
localOutput.NSString[RavenBansheeMessage.GetNSMessage[imageTest2]];
fault _ RunImageTestInternal[];
localOutput.NSLine[RavenBansheeMessage.GetNSMessage[
SELECT fault FROM
noFault => working,
fault1 => imageTestFailingCode1,
fault2 => imageTestFailingCode2,
fault3 => imageTestFailingCode3,
fault4 => imageTestFailingCode4,
fault5 => imageTestFailingCode5,
fault6 => imageTestFailingCode6,
fault7 => imageTestFailingCode7,
fault8 => imageTestFailingCode8,
aborted => imageTestAbortedOther,
ENDCASE => imageTestAbortedTPProblem]];
localOutput.CR[];
END;
3 => BEGIN  -- display tech rep log
sequence: StringSequence.Handle;
sequence _ StringSequence.Create[
sequenceLength: 68,
stringLength: StringSequence.learSieglerStringLength];
BuildTechRepLog[sequence: sequence];
FOR index: CARDINAL IN [0..sequence.length) DO
NSExec.PutMessage[
exec: NSExec.localExec,
string: NSString.StringFromMesaString[s: sequence[index]]];
ENDLOOP;
StringSequence.Delete[sequence: sequence];
END;
4 => BEGIN  -- print tech rep log
PrintTechRepLog[];
END;
5 => BEGIN  -- reset tech rep log
IF TextInput.GetYesNo[
tty: localTTY,  -- prompt for repeat test response
prompt: RavenBansheeMessage.GetNSMessage[pleaseConfirm], default: no !
TTY.Rubout => GOTO abortTests] = yes THEN BEGIN
RavenCounter.Reset;
Process.Pause[Process.SecondsToTicks[1]];
END;
END;
ENDCASE;
ENDLOOP;
EXITS abortTests => NULL;
END;  -- RunServeTestMode

WaitRepairModeRequest: PUBLIC PROCEDURE = BEGIN
DO
SELECT RavenConsole.WaitKeyPadCode[] FROM
RavenConsole.enterRepairMode => EXIT;
ENDCASE;
ENDLOOP;
END;  -- WaitRepairModeRequest

AlternateDisplay: PROCEDURE [firstCode, secondCode: RavenConsole.DisplayCode] =
BEGIN
DO
RavenConsole.UpdateDisplay[firstCode];
Process.Pause[Process.MsecToTicks[750] ! ABORTED => EXIT];
RavenConsole.UpdateDisplay[secondCode];
Process.Pause[Process.SecondsToTicks[2] ! ABORTED => EXIT];
RavenConsole.BlankDisplay;
ENDLOOP;
END;  -- AlternateDisplay

displayAlternating: PROCESS;

RunRepairMode: PUBLIC PROCEDURE = BEGIN

ListTechRepLog: PROCEDURE = BEGIN
psClientID: NSExec.ClientID _ PSExec.GetClientID[];
sequence: StringSequence.Handle;
beepClear: REF TEXT _ NEW[TEXT[2]];
line: CARDINAL _ 0;
screenLines: CARDINAL = 23;
beepClear _ RefText.AppendChar[beepClear, Ascii.BEL];
beepClear _ RefText.AppendChar[beepClear, Ascii.ControlZ];

sequence _ StringSequence.Create[
sequenceLength: 68, stringLength: StringSequence.learSieglerStringLength];
BuildTechRepLog[sequence: sequence];
DO  -- log display loop
NSExec.PutAsyncMessage[
exec: NSExec.localExec,
string: NSString.StringFromMesaString[s: beepClear], id: psClientID];
FOR index: CARDINAL IN [line..MIN[line + screenLines, sequence.length]) DO
NSExec.PutAsyncMessage[
exec: NSExec.localExec,
string: NSString.StringFromMesaString[s: sequence[index]],
id: psClientID];
Process.Pause[Process.MsecToTicks[100]];  -- for SCS bug
ENDLOOP;
IF (line _ line + screenLines) >= sequence.length THEN EXIT;
keyPadCode _ RavenConsole.WaitKeyPadCode[];
IF keyPadCode.sort = clear THEN EXIT;
ENDLOOP;
StringSequence.Delete[sequence];
END;  -- ListTechRepLog

ReadRegistration: PROCEDURE = BEGIN
state: REF raven PSState.State;
state _ NARROW[PSCommand.GetPrintServiceStatus[]];  -- get values from State record
RavenConsole.UpdateDisplay[code: RavenConsole.D7];
keyPadCode _ RavenConsole.WaitKeyPadCode[];  -- wait for test key input before displaying
SELECT keyPadCode.sort FROM
clear => RETURN;
test =>  -- display long axis registration
RavenConsole.UpdateDisplay[
code: [
LOOPHOLE[state.registration.long / 10],
LOOPHOLE[state.registration.long MOD 10]]];
ENDCASE;
keyPadCode _ RavenConsole.WaitKeyPadCode[];  -- wait for test key input before displaying
SELECT keyPadCode.sort FROM
clear => RETURN;
test =>  -- display short axis registration
RavenConsole.UpdateDisplay[
code: [
LOOPHOLE[state.registration.short / 10],
LOOPHOLE[state.registration.short MOD 10]]];
ENDCASE;
keyPadCode _ RavenConsole.WaitKeyPadCode[];
END;  -- ReadRegistration


RunCommandStatusTest: PROCEDURE = BEGIN
RavenConsole.UpdateDisplay[RavenConsole.D6];
Process.Pause[Process.SecondsToTicks[1]];
FOR character: RavenConsole.Character IN RavenConsole.Character DO
RavenConsole.BlankDisplay;
RavenConsole.UpdateDisplay[code: [character, character]];
Process.Pause[Process.SecondsToTicks[1]];
ENDLOOP;
DO
keyPadCode _ RavenConsole.WaitKeyPadCode[];
IF keyPadCode.sort = test THEN EXIT;
ENDLOOP;
END;  -- RunCommandStatusTest

RunImageTest: PROCEDURE = BEGIN
fault: LSEPDiagnostics.ImageFault;

RavenConsole.UpdateDisplay[RavenConsole.D5];
THROUGH [0..3) DO
fault _ RunImageTestInternal[];
SELECT fault FROM
notTested =>
BEGIN RavenConsole.UpdateDisplay[code: [letterF, letterE]]; EXIT; END;
aborted =>
BEGIN RavenConsole.UpdateDisplay[code: [letterE, letterE]]; EXIT; END;
ENDCASE => RavenConsole.UpdateDisplay[code: [digit0, LOOPHOLE[fault]]];
ENDLOOP;
Process.Pause[Process.SecondsToTicks[5]];
END;

RunTestJob: PROCEDURE = BEGIN
copyCount: CARDINAL;
testPatternName: NSString.String;
testPatternStacking: PaperHandling.PaperStacking;
testPatternTray: PSCommand.PaperTray;
DO  -- loop until a single, non-zero digit is entered, followed by test key 
displayAlternating _ FORK AlternateDisplay[
RavenConsole.D4, [digit0, digit1]];  -- alternate displaying "D4" and "01"
keyPadCode _ RavenConsole.WaitKeyPadCode[];
TRUSTED {Process.Abort[displayAlternating]};
SELECT keyPadCode.sort FROM
clear => RETURN;
test =>
IF keyPadCode.value IN TestPattern.TestPatternID THEN
BEGIN
testPatternName _ TestPattern.Name[
keyPadCode.value ! TestPattern.NotFound => GOTO noTestPattern];
EXIT;
END;
ENDCASE;
ENDLOOP;
DO  -- loop until one or two digits are entered for the copy count
displayAlternating _ FORK AlternateDisplay[
RavenConsole.D4, [digit0, digit2]];  -- alternate displaying  "D4" and "02"
keyPadCode _ RavenConsole.WaitKeyPadCode[];
TRUSTED {Process.Abort[displayAlternating]};
SELECT keyPadCode.sort FROM
clear => RETURN;
test =>
IF keyPadCode.value IN [1..99] THEN
BEGIN  -- changed from 0 for AR 9904; 0 copies hung
copyCount _ keyPadCode.value;
EXIT;
END;
ENDCASE;
ENDLOOP;
DO  -- loop until "1" or "2" is entered as top or bottom paper tray indicator
displayAlternating _ FORK AlternateDisplay[
RavenConsole.D4, [digit0, digit3]];  -- alternate displaying  "D4" and "03"
keyPadCode _ RavenConsole.WaitKeyPadCode[];
TRUSTED {Process.Abort[displayAlternating]};
SELECT keyPadCode.sort FROM
clear => RETURN;
test =>
SELECT keyPadCode.value FROM
1 => BEGIN testPatternTray _ top; EXIT; END;  -- Temporary?
2 => BEGIN testPatternTray _ bottom; EXIT; END;  -- Temporary?
ENDCASE;
ENDCASE;
ENDLOOP;
DO  -- loop until entry of "1", "2", or "3", indicating stacking choice
displayAlternating _ FORK AlternateDisplay[
RavenConsole.D4, [digit0, digit4]];  -- alternate displaying  "D4" and "04"
keyPadCode _ RavenConsole.WaitKeyPadCode[];
TRUSTED {Process.Abort[displayAlternating]};
SELECT keyPadCode.sort FROM
clear => RETURN;
test =>
SELECT keyPadCode.value FROM
1 => BEGIN testPatternStacking _ aligned; EXIT; END;
2 => BEGIN testPatternStacking _ documentOffset; EXIT; END;
3 => BEGIN testPatternStacking _ jobOffset; EXIT; END;
ENDCASE;
ENDCASE;
ENDLOOP;
RavenConsole.UpdateDisplay[RavenConsole.D4];  -- refresh display of "D4"
PSCommand.PrintFile[
fileName: testPatternName,
senderName: RavenBansheeMessage.GetNSMessage[repairMode],
copies: copyCount,
options: [
var: raven[tray: testPatternTray, stacking: testPatternStacking]]];
[] _ RavenEngine.WaitPrintingState[targetState: started, targetEqual: TRUE];
UNTIL RavenEngine.GetPrintingState[] = completed DO
SELECT RavenControl.GetEngineStatus[] FROM
IN [communicationFault..sequenceFault] =>  -- includes imageFault
BEGIN
RavenEngine.SetPrintingState[completed];  -- abort test job
EXIT;
END;
ENDCASE;
Process.Pause[Process.SecondsToTicks[1]];
ENDLOOP;
EXITS
noTestPattern =>
BEGIN
RavenConsole.UpdateDisplay[code: [letterF, letterE]];
Process.Pause[Process.SecondsToTicks[5]];
END;
END;  -- RunTestJob

SetRegistration: PROCEDURE =
BEGIN
r: raven PaperHandling.Registration;
DO  -- loop until a value in [10..43] is entered for the long axis registration
displayAlternating _ FORK AlternateDisplay[
RavenConsole.D3, [digit0, digit1]];  -- alternate displaying "D3" and "01"
keyPadCode _ RavenConsole.WaitKeyPadCode[];
TRUSTED {Process.Abort[displayAlternating]};
SELECT keyPadCode.sort FROM
clear => RETURN;
test =>
IF keyPadCode.value IN PaperHandling.RavenRegLong THEN
BEGIN r.reg.long _ keyPadCode.value; EXIT; END;
ENDCASE;
ENDLOOP;
DO  -- loop until a value in [1..30] is entered for the short axis registration
displayAlternating _ FORK AlternateDisplay[
RavenConsole.D3, [digit0, digit2]];  -- alternate displaying "D3" and "02"
keyPadCode _ RavenConsole.WaitKeyPadCode[];
TRUSTED {Process.Abort[displayAlternating]};
SELECT keyPadCode.sort FROM
clear => RETURN;
test =>
IF keyPadCode.value IN PaperHandling.RavenRegShort THEN
BEGIN r.reg.short _ keyPadCode.value; EXIT; END;
ENDCASE;
ENDLOOP;
RavenConsole.UpdateDisplay[RavenConsole.D3];  -- refresh display of "D3"
PSCommand.SetRegistration[r];
Process.Pause[Process.SecondsToTicks[1]];
END;  -- SetRegistration

DO
RavenConsole.UpdateDisplay[RavenConsole.DC];
keyPadCode _ RavenConsole.WaitKeyPadCode[];
SELECT keyPadCode FROM
RavenConsole.displayAnalystLog, RavenConsole.displayTechRepLog =>
BEGIN RavenConsole.UpdateDisplay[RavenConsole.D1]; ListTechRepLog[]; END;
RavenConsole.resetLog =>
BEGIN
RavenConsole.UpdateDisplay[RavenConsole.D2];
RavenCounter.Reset[];
Process.Pause[Process.SecondsToTicks[5]];
END;
RavenConsole.setRegistration => SetRegistration[];
RavenConsole.runTestJob => RunTestJob[];
RavenConsole.runImageTest => RunImageTest[];
RavenConsole.runCommandStatusTest => RunCommandStatusTest[];
RavenConsole.readRegistration => ReadRegistration[];
RavenConsole.printAnalystLog, RavenConsole.printTechRepLog =>
BEGIN
RavenConsole.UpdateDisplay[RavenConsole.D9];
PrintTechRepLog[];
END;
RavenConsole.exitRepairMode => EXIT;
ENDCASE;
ENDLOOP;
RavenConsole.BlankDisplay;
END;  -- RunRepairMode


BuildTechRepLog: PROCEDURE [sequence: StringSequence.Handle] = BEGIN
dataBase: RavenCounter.Handle;

ExpandAppendFreeBump: PROCEDURE [messageKey: RavenBansheeMessage.Key] =  BEGIN
expandedString _ XMessage.Compose[
source: RavenBansheeMessage.GetNSMessage[messageKey],
args: expansionString];
NSString.AppendToMesaString[to: sequence[index], from: expandedString];
index _ index + 1;
END;  -- ExpandAppendFreeBump

FormatLogCounterMessage: PROCEDURE [item: RavenCounter.Item,
messageKey: RavenBansheeMessage.Key] = BEGIN
mesaString.length _ 0;
mesaString _ Convert.AppendCard[mesaString, dataBase.counter[item]];
expansionString.data[1] _ mesaString;
ExpandAppendFreeBump[messageKey];
expansionString.data[1] _ NSString.nullString;
END;  -- FormatLogCounterMessage

expansionString: REF XMessage.StringArray _ NEW[XMessage.StringArray[2]];  -- for arguments to embed in message
expandedString: NSString.String;  -- string for message with embedded arguments
index: CARDINAL _ 0;


mesaString: REF TEXT _ NEW[TEXT[StringSequence.learSieglerStringLength]];
nsString: NSString.String _ NSString.MakeString[
bytes: StringSequence.learSieglerStringLength];

sDateAndTime: NSString.String _ NEW[NSString.StringRep[40]];
nsDateAndTime: NSString.String _ NSString.StringFromMesaString[sDateAndTime];

counterFieldWidth: CARDINAL = 10;

dataBase _ RavenCounter.Get[];  -- get event counts from log

expansionString.data[0] _ NSString.nullString;

nsString.length _ 0;
nsDateAndTime.length _ 0;
nsDateAndTime _ Convert.AppendTime[to: nsDateAndTime, from: BasicTime.Now[]];
expansionString.data[1] _ nsDateAndTime;
ExpandAppendFreeBump[xerox804xTechRepLogOf];

mesaString.length _ 0;
expansionString.data[1] _ Rope.ToRefText[ThisMachine.ProcessorID[$ProductSoftware]];
ExpandAppendFreeBump[host];

nsString.length _ 0;
nsDateAndTime.length _ 0;
nsDateAndTime _ Convert.AppendTime[to: nsDateAndTime, from: Loader.BCDBuildTime[], end: seconds];
expansionString.data[1] _ nsDateAndTime;
ExpandAppendFreeBump[softwareOf];

nsString.length _ 0;
nsDateAndTime.length _ 0;
nsDateAndTime _ Convert.AppendTime[to: nsDateAndTime, from: dataBase.resetTime, end: seconds];
expansionString.data[1] _ nsDateAndTime;
ExpandAppendFreeBump[lastResetOn];

mesaString.length _ 0;
mesaString _ Convert.AppendCard[mesaString, dataBase.counter[feeding]];
expansionString.data[1] _ mesaString;
ExpandAppendFreeBump[feedsSinceLastReset];
index _ index + 1;

ExpandAppendFreeBump[jamCountersTotalRate];

FOR i: CARDINAL IN [0..LENGTH[jamList]) DO
feeds: LONG CARDINAL;
feeds _
SELECT jamList[i].counter FROM
feederFaultBottom =>
dataBase.counter[feedBottomAligned] + dataBase.counter[
feedBottomOffset],
feederFaultTop =>
dataBase.counter[feedTopAligned] + dataBase.counter[feedTopOffset],
ENDCASE => dataBase.counter[feeding];
mesaString.length _ 0;
mesaString _ Convert.AppendCard[mesaString, dataBase.counter[jamList[i].counter]];
FOR character: CARDINAL IN [0..counterFieldWidth - 1) DO
IF mesaString[character] = '0 THEN mesaString[character] _ '. ELSE EXIT;
ENDLOOP;
expansionString.data[0] _ NSString.CopyString[mesaString];
mesaString.length _ 0;
IF feeds = 0 THEN mesaString _ RefText.Append[to: mesaString, from: "**********"]
ELSE BEGIN
mesaString _ Convert.AppendCard[mesaString, (dataBase.counter[jamList[i].counter] / feeds) * 1000];
FOR character: CARDINAL IN [0..counterFieldWidth - 1) DO
IF mesaString[character] = '0 THEN mesaString[character] _ '. ELSE EXIT;
ENDLOOP;
END;
expansionString.data[1] _ mesaString;
ExpandAppendFreeBump[jamList[i].message];
ENDLOOP;
expansionString.data[0] _ expansionString.data[1] _ NSString.nullString;

ExpandAppendFreeBump[rateTotalTotalFeeds];

index _ index + 1;
ExpandAppendFreeBump[commandCounters];
FOR i: CARDINAL IN [0..LENGTH[commandList]) DO
FormatLogCounterMessage[commandList[i].counter, commandList[i].message];
ENDLOOP;

index _ index + 1;
ExpandAppendFreeBump[statusCounters];
FOR i: CARDINAL IN [0..LENGTH[statusList]) DO
FormatLogCounterMessage[statusList[i].counter, statusList[i].message];
ENDLOOP;

index _ index + 1;
ExpandAppendFreeBump[plateStatusCounters];
FOR i: CARDINAL IN [0..LENGTH[plateStatusList]) DO
FormatLogCounterMessage[
plateStatusList[i].counter, plateStatusList[i].message];
ENDLOOP;

index _ index + 1;
ExpandAppendFreeBump[statusExtrasCounters];
FOR i: CARDINAL IN [0..LENGTH[statusExtrasList]) DO
FormatLogCounterMessage[
statusExtrasList[i].counter, statusExtrasList[i].message];
ENDLOOP;

END;  -- BuildTechRepLog

PrintTechRepLog: PROCEDURE = BEGIN
END;  -- PrintTechRepLog

RunImageTestInternal: PROCEDURE RETURNS [fault: LSEPDiagnostics.ImageFault] = BEGIN
eventContext: REF RavenControl.EventContext _ NEW[RavenControl.EventContext];

oldPriority: Process.Priority _ Process.GetPriority[];
Process.SetPriority[Process.priorityForeground];

TRUSTED BEGIN
RavenEngine.SetPrintingState[completed];  -- abort current job
[] _ RavenEngine.WaitPrintingState[targetState: completed, targetEqual: TRUE];
LSEPDiagnostics.BuildImageSample[phase: prePrinting];
PSCommand.PrintFile[
fileName: TestPattern.Name[9 ! TestPattern.NotFound => GOTO noTestPattern],
senderName: RavenBansheeMessage.GetNSMessage[imageTest], copies: 1,
options: [var: raven[tray: bottom, stacking: aligned]]];

DO
SELECT RavenControl.GetEngineStatus[] FROM
IN [okay..tonerLow], IN [imageFault1..sequenceFault] => EXIT;
communicationFault => GOTO testingError;  -- don't bother
ENDCASE => [] _ RavenControl.WaitEngineStatus[];
ENDLOOP;

RavenControl.SetToCurrentEventContext[eventContext];
DO
SELECT RavenControl.WaitEngineEvent[eventContext] FROM
feeding => EXIT;  -- feeding is pageSync
pageDelivery, idle, feedError, softError, hardError, timeout => EXIT;  -- image fault is hard error
ENDCASE => NULL;  -- all others loop
ENDLOOP;
LSEPDiagnostics.BuildImageSample[phase: printing];
RavenEngine.SetPrintingState[completed];  -- make sure engine is done (kill error retries)
[] _ RavenEngine.WaitPrintingState[targetState: completed, targetEqual: TRUE];
LSEPDiagnostics.BuildImageSample[phase: postPrinting];
fault _ LSEPDiagnostics.InterpretImageSample[];
EXITS noTestPattern => fault _ notTested; testingError => fault _ aborted;
END;

Process.SetPriority[oldPriority];  -- restore priority

END;  -- RunImageTestInternal

END.

LOG
When - Who - What.
18-Jun-85 23:24:58 - Strickberger - Rewrite for Raven engine driver redesign.  Eliminate automatic reboot if image test fail.  Previous log entries deleted.
12-Aug-85 21:16:32 - Strickberger - Update for Euclid interfaces. Rewrite Tech Rep Log stuff, eliminate Analyst log.  Add  Print Tech Rep Log, Display Tech Rep Log and Reste Tech Rep Log commands to RunServeTestMode.  FixArrows.
23-Aug-85 15:15:46 - Strickberger - TTY.Rubout exits RunServeTestMode.  Catch TestPattern.NotFound and display FE when specifying test pattern in RunTestJob.  Don't run image test 3 times if no test pattern or status error.
19-Sep-85 18:48:20 - Strickberger - Specify senderName when printing test pattern from Image Test.
19-Dec-85 11:57:45 - Strickberger - Base Tech Rep Log feeder jam rates on correct feed counters (AR23114).
18-Mar-86 12:29:58 - Strickberger - Modify ListTechRepLog to use PSExec.GetClientID instead of NSExec.nullClientID (AR3873).
1-Apr-86  0:35:52 - Strickberger - Change RunImageTestInternal to not wait after feeding event, as feeding event is now pageSync (AR3721).  SetPrintingState[completed] before waiting on it (AR2805).  WaitPrintingState[started], abort if image or communication fault in RunTestJob.
23-Apr-86 23:24:35 - Strickberger - SetPrintingState[completed], wait for printing state to not be started instead of completed in PrintTechRepLog.  Both printAnalystLog and printTechRepLog codes print Tech Rep Log.  Both displayAnalystLog and displayTechRepLog codes display Tech Rep Log.
14-May-86 18:50:11 - Prochaska - Update for new RavenControl, add call to RavenControl.SetToCurrentEventContext.
zRavenTestImpl.mesa
Copyright (C) Xerox Corporation 1981, 1982, 1983, 1984, 1985, 1986.  All rights reserved.
Last edited by prochaska 14-May-86 19:25:11
Tim Diebert: December 2, 1986 2:26:29 pm PST
RasterLogFont USING [TransferStringSequence],
Variables:
TYPEs:
Constants
PUBLIC PROCEDUREs:
display a list of numbered test choices and get input; default is exit
screen display loop
displays first code, then second code, then blanks display
loops until aborted
displays log, pausing at end of each screen for Raven test key
screen display loop
displays the registration values from PSCommand.State record requires input from console before displaying long and short axis registrations
displays every console character for one second each
following the display, waits for entry of test key in order to exit
builds images, prints test patterns
three print cycles, monitoring Video Data, Line Sync, and Video Clock signals
prints a test pattern
requires console input for four parameters for PrintTestPattern
this input identifies the test pattern to be printed
sets value of registration in PSState record
requires two console input items for the registation values
body of RunRepairMode
PRIVATE PROCEDUREs:
called by DisplayLog to put appropriate text into sequence
inserts arguments into a message, places the string into the string sequence, and increments the index
body of BuildTechRepLog
used for appending dates:
used for appending counters:
rateFormat: Format.NumberFormat = [
base: 10, zerofill: TRUE, unsigned: TRUE, columns: counterFieldWidth];
decFormat: Format.NumberFormat = [
base: 10, zerofill: FALSE, unsigned: TRUE, columns: 0];
hexFormat: Format.NumberFormat = [
base: 16, zerofill: FALSE, unsigned: TRUE, columns: 0];
Make "Tech Rep Log Of..." line 
appends time to nsDateAndTime
Make "Host #" line
Make "Software Of..." line
Make "Last Reset On..." line
Make "Feeds..." line
Make "Jam Counters" line
Make the Jam Counters log block
Make "Rate =..." line
Make the Command Counters log block
Make the Status Counters log block
Make the Plate Status Counters log block
Make the Status Extras Counters log block
builds and prints the tech rep log
jobData: RavenEngine.Job;
sequence: StringSequence.Handle;

sequence _ StringSequence.Create[
sequenceLength: 68, stringLength: StringSequence.learSieglerStringLength];
BuildTechRepLog[sequence: sequence];
jobData _ [
banner: suppressed, printOrder: firstPageOutFirst, copyCount: 1,
document: RasterLogFont.TransferStringSequence[sequence: sequence],
paperFeed: fromBottomOrTop, firstPage: 0, lastPage: LAST[CARDINAL],
paperStacking: aligned];
StringSequence.Delete[sequence];
RavenEngine.SetPrintingState[completed];  -- kill current job
[] _ RavenEngine.WaitPrintingState[targetState: completed, targetEqual: TRUE];
RavenEngine.SetJob[@jobData];
RavenEngine.SetPrintingState[started];
[] _ RavenEngine.WaitPrintingState[targetState: started, targetEqual: TRUE];
[] _ RavenEngine.WaitPrintingState[targetState: started, targetEqual: FALSE];
check Video Data, Line Sync, and Video Clock signals
run at priorityForeground
make sure engine is idle
wait for testable status indication
wait for page sync (feeding) or error event
Κ9˜
codeš
œ™Kš
œY™YKš
œ+™+K™,—K˜š
Οk	˜	Kšœœœ˜Kšœ
œ˜Kšœœ˜'Kšœœ˜Kšœœ6˜KKšœœJ˜VKšœ	œc˜qKšœœ<˜OK˜Kšœœ
˜Kšœœf˜sKšœ
œS˜bKšœœ˜Kšœœ	˜Kšœœ™-Kšœœ˜.Kšœ
œ<œ€˜ΠKšœ
œr˜„
Kšœ
œ˜.KšœœΟcœ8˜]Kšœ
œ˜Kšœœ˜#Kšœœ
˜Kšœœ3˜GKšœœ!˜2Kšœ
œ-˜<Kšœœ˜ Kšœ
œ˜Kšœœœ˜-Kšœ	œ˜&—K˜šΟn
œœ
˜Kšœ\žœ‘
œ˜Kšœ˜—˜Kš
œ
™
—˜K˜$—˜Kšœ
œ*˜7K˜D—˜Kš
œ™—˜Kšœ	œœ@˜V—˜Kš
œ	™	—˜šœ	œœ˜$K˜OK˜DK˜-K˜%——˜šœ
œ	œ˜)K˜OK˜BK˜FK˜G——˜šœœ	œ˜(K˜GK˜>K˜6K˜,K˜LK˜HK˜HK˜>K˜DK˜NK˜JK˜2K˜C——˜šœœœ˜,K˜:——˜šœœœ˜-K˜9K˜<K˜)——˜Kš
œ™—˜šŸœœ
	œ˜*Kšœ
œœ
˜Kšœ
œœ˜?Kš
œ=˜=Kš
œT˜TKš
œB˜BKš
œJ˜JKš
œH˜HKš
œH˜Hš
˜Kš
œF™Fšœ˜K˜DKšœ#œœ˜;Kšœœ
˜
šœœž!˜-Kšœœ˜šœ˜Kšœž;˜KK˜@Kš	œœœœ
œ
˜?—š
˜Kšœœ˜šœž˜)K˜@—˜K˜!Kšœ"œ	œ˜@—Kšœœ˜šœ˜Kšœž"˜2K˜DKšœœœ
œ
˜.—Kšœ
˜—Kšœœ˜šœ$ž6˜_K˜?Kš	œœœœ
œ
˜?—Kšœœ˜šœ$ž6˜_K˜;Kš	œœœœ
œ
˜?—Kšœ
˜—šœœž
˜K˜"Kšœœ˜K˜CK˜˜4šœ˜K˜K˜ K˜ K˜ K˜ K˜ K˜ K˜ K˜ K˜!Kšœ ˜'——Kšœœ˜Kšœ
˜—šœœž˜#K˜ ˜!K˜K˜6—K˜$šœœ
œ˜.Kš
œ™˜K˜K˜;—Kšœ
˜—K˜*Kšœ
˜—šœœž˜!K˜Kšœ
˜—šœœž˜!šœ˜Kšœž"˜2K˜Fšœœ
˜/K˜K˜)Kšœ
˜——Kšœ
˜—Kšœ
˜—Kšœ
˜—Kšœœ
˜Kšœž˜——˜šŸœœ
	œ˜/š
˜šœ˜)Kšœ œ
˜%Kšœ
˜—Kšœ
˜—Kšœž˜——˜šŸœ	œ4˜OKš
˜Kš
œ:™:Kš
œ™š
˜K˜&Kšœ)œœ˜:K˜'Kšœ*œœ˜;K˜Kšœ
˜—Kšœž˜K˜—Kšœœ
˜K˜šŸ
œœ
	œ˜'K˜šŸœ	œ˜!Kš
œ>™>K˜3K˜ Kš	œœ
œœ
œ˜#Kšœœ˜Kšœ
œ˜Kšœ0œ˜5Kš
œ:˜:K˜˜!K˜J—K˜$šœž˜˜K˜K˜E—š	œœ
œœ'˜JKš
œ™˜K˜K˜:K˜—Kšœ*ž˜8Kšœ
˜—Kšœ0œ
œ
˜<K˜+Kšœœ
œ
˜%Kšœ
˜—K˜ Kšœž˜—K˜šŸœ	œ˜#Kš
œŒ
™Œ
Kšœœ˜Kšœœ&ž˜SK˜2Kšœ-ž,˜Yšœ˜Kšœ	œ
˜šœ	ž!˜*˜K˜Kšœ˜'Kšœœ˜+——Kšœ
˜—Kšœ-ž,˜Yšœ˜Kšœ	œ
˜šœ	ž"˜+˜K˜Kšœ ˜(Kšœœ˜,——Kšœ
˜—K˜+Kšœž˜——˜K˜šŸœ	œ˜'Kš
œ4™4Kš
œC™CK˜,K˜)šœ#œ˜BK˜K˜9K˜)Kšœ
˜—š
˜K˜+Kšœœ
œ
˜$Kšœ
˜—Kšœž˜—K˜šŸœ	œ˜Kš
œ#™#K˜"K˜K˜,Kš
œM™Mšœ˜K˜šœ˜˜Kšœ7œœ
˜F—˜
Kšœ7œœ
˜F—Kšœ.œ
˜G—Kšœ
˜—K˜)Kšœ
˜—K˜šŸ
œ	œ˜Kš
œ™Kš
œ?™?Kšœœ
˜K˜!K˜1K˜%šœžH˜LKš
œ4™4šœœ˜+Kšœ%ž%˜J—K˜+Kšœ%˜,šœ˜Kšœ	œ
˜˜šœœ˜5Kš
˜˜#Kšœ+œ˜?—Kšœ
˜Kšœ
˜——Kšœ
˜—Kšœ
˜—šœž>˜Bšœœ˜+Kšœ%ž&˜K—K˜+Kšœ%˜,šœ˜Kšœ	œ
˜˜šœœ	˜#Kšœž,˜3K˜Kšœ
˜Kšœ
˜——Kšœ
˜—Kšœ
˜—šœžI˜Mšœœ˜+Kšœ%ž&˜K—K˜+Kšœ%˜,šœ˜Kšœ	œ
˜˜šœ˜Kšœœœœž
˜;Kšœœœœž
˜>Kšœ
˜——Kšœ
˜—Kšœ
˜—šœžC˜Gšœœ˜+Kšœ%ž&˜K—K˜+Kšœ%˜,šœ˜Kšœ	œ
˜˜šœ˜Kšœœ œœ
˜4Kšœœ'œœ
˜;Kšœœ"œœ
˜6Kšœ
˜——Kšœ
˜—Kšœ
˜—Kšœ.ž˜H˜K˜K˜9K˜K˜
K˜C—KšœFœ˜Lšœ,˜3šœ ˜*šœ)ž˜AKš
˜Kšœ*ž˜;Kšœ
˜Kšœ
˜—Kšœ
˜—K˜)Kšœ
˜—š
˜˜Kš
˜K˜5K˜)Kšœ
˜——Kšœž
˜—K˜šŸœ	œ˜Kš
˜Kš
œ,™,Kš
œ;™;K˜$šœžK˜Ošœœ˜+Kšœ%ž%˜J—K˜+Kšœ%˜,šœ˜Kšœ	œ
˜˜šœœ˜6Kšœ œœ
˜/——Kšœ
˜—Kšœ
˜—šœžK˜Ošœœ˜+Kšœ%ž%˜J—K˜+Kšœ%˜,šœ˜Kšœ	œ
˜˜šœœ˜7Kšœ!œœ
˜0——Kšœ
˜—Kšœ
˜—Kšœ.ž˜HK˜K˜)Kšœž˜—K˜Kš
œ™š
˜Kšœ(œ˜,K˜+šœ˜˜AKšœ@œ
˜I—˜Kš
˜K˜,K˜K˜)Kšœ
˜—K˜2K˜(K˜,K˜<K˜4˜=Kš
˜K˜,K˜Kšœ
˜—Kšœœ
˜$Kšœ
˜—Kšœ
˜—K˜Kšœž˜——˜Kš
œ™—˜šŸœ	œ$˜DKš
œ:™:K˜K˜šŸœ	œ(˜NKš
œf™f˜"K˜5Kš
œ˜—K˜GK˜Kšœž˜—K˜šŸœ	œA˜iK˜K˜DKš
œ%˜%K˜!Kš
œ.˜.Kšœž˜ —K˜Kšœœœž$˜oKšœ"ž-˜OKšœœ˜K˜K˜Kš
œ™Kš	œœ
œœ
œ*˜IK˜`K˜Kš
œ™Kšœ œ˜<K˜MK˜Kš
œ™™#Kšœœœ™F—™"Kšœœœ™7—™"Kšœœœ™7—Kšœœ˜!K˜Kšœ ž˜<K˜Kš
œ.˜.K˜Kš
œ™K˜K˜Kš
œM˜MKš
œ™Kš
œ(˜(K˜,K˜Kš
œ™K˜Kš
œT˜TK˜K˜Kš
œ™K˜K˜Kš
œa˜aKš
œ(˜(K˜!K˜Kš
œ™K˜K˜Kš
œ^˜^Kš
œ(˜(K˜"K˜Kš
œ™K˜Kš
œG˜GKš
œ%˜%K˜*K˜K˜Kš
œ™K˜+K˜Kš
œ™š	œœ
œœ˜*Kšœœ
œ
˜˜šœ˜˜˜7K˜——˜K˜C—Kšœ˜%——K˜K˜Ršœœ
œ˜8Kšœœœ
œ
˜HKšœ
˜—Kš
œ:˜:K˜šœœ@˜Qš

˜
K˜cšœœ
œ˜8Kšœœœ
œ
˜HKšœ
˜—Kšœ
˜——Kš
œ%˜%K˜)Kšœ
˜—Kš
œH˜HK˜Kš
œ™K˜*K˜Kš
œ#™#K˜K˜&š	œœ
œœ˜.K˜HKšœ
˜—K˜Kš
œ"™"K˜K˜%š	œœ
œœ˜-K˜FKšœ
˜—K˜Kš
œ(™(K˜K˜*š	œœ
œœ˜2˜K˜8—Kšœ
˜—K˜Kš
œ)™)K˜K˜+š	œœ
œœ˜3˜K˜:—Kšœ
˜—K˜Kšœž˜——˜šŸœ	œ˜"Kš
œ"™"K™K™ K™™!K™J—K™$™K™@K™CKšœ4œ
œ™CK™—K™ Kšœ*ž™=KšœHœ™NK™K™&KšœFœ™LKšœFœ™MKšœž˜——˜šŸœ	œ
œ&˜SKšœœœ˜MKš
œ4™4K˜Kš
œ™K˜6˜0K˜—šœ
˜
Kš
œ™Kšœ*ž˜>KšœHœ˜NK˜5˜Kšœ7œ˜KK˜CK˜8—K˜Kš
œ#™#š
˜šœ ˜*Kšœœ!œ
˜=Kšœœž˜9Kšœ)˜0—Kšœ
˜—K˜Kš
œ+™+K˜4š
˜šœ,˜6Kšœœž˜(Kšœ@œž˜cKšœœž˜$—Kšœ
˜—K˜2Kšœ*ž0˜ZKšœHœ˜NK˜6K˜/KšœE˜JKšœ
˜——˜Kšœ#ž˜6—˜Kšœž˜——˜Kšœ
˜—K˜š
˜K˜—K˜œ
K˜δ
Kšœ$œHœn˜ί
K˜bK˜j˜|K˜˜—K˜‘K˜p—…—^―