;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;EDRDCDLog.MIDAS : Logger for EDRDCD program
;;; By: T. Henning March 25, 1980 9:05 AM
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

.start L X AppendOutput EDRDCD.report;
L X WriteMessage ~********** START EDRDCD Test : ;
L X WriteDT;
L X WriteMessage ***************~ ;
L X UnBreak SETPARAMETERS
L X Skip .continue;


.breakpoint L X AppendOutput EDRDCD.report;
L A2 SkipNE PASSED-EDRDCD-TEST;
L X Skip .passdone;
L A2 SkipNE DEVICEERROR;
L X Skip .deviceerror;
L A2 SkipNE TIMERHALT;
L X Skip .timerhalt;
L A2 SkipNE DATAERROR;
L X Skip .dataerror;
L A2 SkipNE NOIDHERE;
L X Skip .noid;
L A2 SkipNE IDER;
L X Skip .ider;
L A2 SkipNE SETPARAMETERS;
L X Skip .setparameters;
L A2 SkipNE BADPHASE;
L X Skip .badphase;
L A2 SkipNE NOPHASE;
L X Skip .nophase;

.notmybreak L X AppendOutput EDRDCD.report;
L X WriteMessage *** FAILed: Not at my breakpoint ~;

L X WriteMessage ’ Parity = ;
R A0 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ CTASK = ;
R A1 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ CIA = ;
R A2 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ PHASE = ;
R B2 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ OBSERVED = ;
R B4 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ EXPECTED = ;
R B5 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ ADDRESS = ;
R B6 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ DISKSTATUS = ;
R B8 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ ERRORF = ;
R B9 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ COMMAND = ;
R B11 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ STP = ;
R B12 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ RANDOM = ;
R B13 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ DTYPE = ;
R B16 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ SEED = ;
R B17 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ BLOCK = ;
R B19 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ CMDPOINTER = ;
R C16 Val;
L X WriteMessage;
L X WriteMessage ~;

L X CloseOutput;
L X Exit;


.deviceerror L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage ’ Device reported error ~;
.bad L X WriteMessage ’ PHASE = ;
R B2 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ OBSERVED = ;
R B4 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ EXPECTED = ;
R B5 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ ADDRESS = ;
R B6 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ DISKSTATUS = ;
R B8 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ ERRORF = ;
R B9 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ COMMAND = ;
R B11 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ STP = ;
R B12 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ RANDOM = ;
R B13 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ DTYPE = ;
R B16 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ SEED = ;
R B17 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ BLOCK = ;
R B19 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ CMDPOINTER = ;
R C16 Val;
L X WriteMessage;
L X WriteMessage ~;

L X Skip .continue;

.dataerror L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage ’ Data error detected by diag ~;
L X BackSkip .bad;

.timerhalt L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage ’ CONTROLER TIMED OUT(DEVICE ERROR NEXT) ~;
L X BackSkip .bad;

.noid L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage ’ Did not find I.D. ~;
L X BackSkip .bad;

.ider L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage ’ I.D. found was incorrect ~;
L X BackSkip .bad;

.setparameters L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage ’ SETPARAMETERS breakpoint encountered ~;
L X BackSkip .bad;

.badphase L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage ’ BADPHASE, RUNPHASES value not valid ~;
L X BackSkip .bad;

.nophase L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage ’ NOPHASE, RUNPHASES value is zero, not valid ~;
L X BackSkip .bad;

.passdone L X WriteMessage ~------------ PASSed EDRDCD Test : ;
L X WriteDT;
L X WriteMessage ----------------~ ;
L X Skip .continue;

.continue L X WriteMessage ~;
L X CloseOutput;
L X DisplayOn;
L X Confirm;
L X TimeOut 10000000000;
L X Continue;

L X Skip 2;
L X ShowError Program failed to CONTINUE.;
L X BackSkip .notmybreak;
L X DisplayOff;
L X BackSkip .breakpoint;