;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;EDMemExLog.MIDAS : Logger for EDMemEx program
;;; By: T. Henning Feb 12, 1980
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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


.breakpoint L X AppendOutput EDMemEx.report;
L A18 SkipNE A96KNOTFULL;
L X Skip .notfull;
L A18 SkipNE FOUND.NO.96K;
L X Skip .found0;
L A18 SkipNE FOUND.ONE.96K;
L X Skip .found1;
L A18 SkipNE FOUND.TWO.96K;
L X Skip .found2;
L A18 SkipNE FOUND.THREE.96K;
L X Skip .found3;
L A18 SkipNE FOUND.FOUR.96K;
L X Skip .found4;
L A18 SkipNE FOUND.FIVE.96K;
L X Skip .found5;
L A18 SkipNE FOUND.SIX.96K;
L X Skip .found6;
L A18 SkipNE FOUND.SEVEN.96K;
L X Skip .found7;
L A18 SkipNE FOUND.EIGHT.96K;
L X Skip .found8;
L A18 SkipNE FOUND.TOOMANY.96K;
L X Skip .found9+;
L A18 SkipNE WORDBAD;
L X Skip .wordbad;
L A18 SkipNE MEMFAULT;
L X Skip .memfault;
L A18 SkipNE PASSED-EDMEMEX-TEST;
L X Skip .passtest;

.notmybreak L X AppendOutput EDMemEx.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;


.wordbad L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * WORDBAD ~;
.bad L X WriteMessage ’ SUBTEST = ;
R B5 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ CURRENTLOC = ;
R C12 Val;
L X WriteMessage;
L X WriteMessage ~;

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

L X Skip .continue;

.memfault L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * MEMFAULT ~;

L X WriteMessage ’ CRASHCODE = ;
R C7 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ SYNDROME = ;
R C8 Val;
L X WriteMessage;
L X WriteMessage ~;

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

L X WriteMessage ’ CARDNUMBER = ;
R C10 Val;
L X WriteMessage;
L X WriteMessage ~;

L X BackSkip .bad;

.notfull L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * A96KNOTFULL ~;
L X BackSkip .bad;

.found0 L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * FOUND.NO.96K ~;
L X BackSkip .bad;

.found9+ L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * FOUND.TOOMANY.96K ~;
L X BackSkip .bad;

.found1 L X WriteMessage * FOUND.ONE.96K ~;
L X Skip .continue;

.found2 L X WriteMessage * FOUND.TWO.96K ~;
L X Skip .continue;

.found3 L X WriteMessage * FOUND.THREE.96K ~;
L X Skip .continue;

.found4 L X WriteMessage * FOUND.FOUR.96K ~;
L X Skip .continue;

.found5 L X WriteMessage * FOUND.FIVE.96K ~;
L X Skip .continue;

.found6 L X WriteMessage * FOUND.SIX.96K ~;
L X Skip .continue;

.found7 L X WriteMessage * FOUND.SEVEN.96K ~;
L X Skip .continue;

.found8 L X WriteMessage * FOUND.EIGHT.96K ~;
L X Skip .continue;

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