;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;EDCSExLog.MIDAS : Logger for EDCSex program
;;; By: C. Tseng Nov. 20 1979
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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


.breakpoint L X AppendOutput EDCSEx.report;
L A18 SkipNE WORD0BAD;
L X Skip .word0bad;
L A18 SkipNE WORD1BAD;
L X Skip .word1bad;
L A18 SkipNE WORD2BAD;
L X Skip .word2bad;
L A18 SkipNE WORD0BADREAD;
L X Skip .word0badread;
L A18 SkipNE WORD1BADREAD;
L X Skip .word1badread;
L A18 SkipNE WORD2BADREAD;
L X Skip .word2badread;
L A18 SkipNE PASSED-EDCSEX-TEST;
L X Skip .passtest;

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


.word0bad L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * WORD 0 Bad ~;
.bad L X WriteMessage ’ SUBTEST = ;
R B4 Val;
L X WriteMessage;
L X WriteMessage ~;

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

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

L X Skip .continue;

.word1bad L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * WORD 1 Bad ~;
L X BackSkip .bad;

.word2bad L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * WORD 2 Bad ~;
L X BackSkip .bad;

.word0badread L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * WORD 0 READ Bad ~;
L X BackSkip .bad;

.word1badread L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * WORD 1 READ Bad ~;
L X BackSkip .bad;

.word2badread L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * WORD 2 READ Bad ~;
L X BackSkip .bad;

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