;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;EDALULog.MIDAS : Logger for EDALU program
;;; By: J. Kellman Dec. 10 1979
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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


.breakpoint L X AppendOutput EDALU.report;

L A18 SkipNE BADNOTIFY;
L X Skip .badnotify;
L A18 SkipNE BADWAKE+2;
L X Skip .badwake;
L A18 SkipNE TFILLRER;
L X Skip .tfillrer;
L A18 SkipNE TCHKRER0;
L X Skip .tchkrer0;
L A18 SkipNE TCHKRER1;
L X Skip .tchkrer1;
L A18 SkipNE TCHKRER2;
L X Skip .tchkrer2;
L A18 SkipNE ACHKRER;
L X Skip .achkrer;
L A18 SkipNE FAIL;
L X Skip .fail;
L A18 SkipNE PASSED-EDALU-TEST;
L X Skip .passtest;

.notmybreak L X AppendOutput EDALU.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 ’ CIA = ;
R A18 Val;
L X WriteMessage;
L X WriteMessage ~;

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

L X WriteMessage ’ APCTASK = ;
R A17 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ APC = ;
R A16 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ TPC = ;
R A13 Val;
L X WriteMessage;
L X WriteMessage ~;

L X CloseOutput;
L X Exit;


.badnotify L X WriteMessage *** FAILed: at my Breakpoint Bad NOTIFY ~;
.bad L X WriteMessage ’ MCOUNT = ;
R B8 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ T 0 = ;
R B15 Val;
L X WriteMessage;
L X WriteMessage ~;

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

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

L X Skip .continue;

.badwake L X WriteMessage *** FAILed: at my Breakpoint BAD WAKE ~;
L X BackSkip .bad;

.tfillrer L X WriteMessage *** FAILed: at my Breakpoint T FILL R ERror ~;
L X BackSkip .bad;

.tchkrer0 L X WriteMessage *** FAILed: at my Breakpoint T CHECK R ERror0 ~;
L X BackSkip .bad;

.tchkrer1 L X WriteMessage *** FAILed: at my Breakpoint T CHECK R ERror1 ~;
L X BackSkip .bad;

.tchkrer2 L X WriteMessage *** FAILed: at my Breakpoint T CHECK R ERror2 ~;
L X BackSkip .bad;

.achkrer L X WriteMessage *** FAILed: at my Breakpoint Addr CHecK R ERror ~;
L X BackSkip .bad;

.fail L X WriteMessage *** FAILed: at my Breakpoint compare FAIL~;
L X BackSkip .bad;


.passtest L X WriteMessage ~------------ PASSed EDALU 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 10000000;
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;