;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;EDTNFLog.MIDAS : Logger for EDTNF program
;;; By: J. Kellman Dec. 20 1979
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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


.breakpoint L X AppendOutput EDTNF.report;

L A18 SkipNE SHOULDHAVEBUTDIDNT;
L X Skip .shouldhavebutdidnt;
L A18 SkipNE SHOULDNTHAVEBUTDID;
L X Skip .shouldnthavebutdid;
L A18 SkipNE INTPBAD1;
L X Skip .intpbad1;
L A18 SkipNE INTPBAD;
L X Skip .intpbad;
L A18 SkipNE TARGET377;
L X Skip .target377;
L A18 SkipNE WRONGPLACE;
L X Skip .wrongplace;
L A18 SkipNE CIAFAILED;
L X Skip .ciafailed;
L A18 SkipNE APCFAILED;
L X Skip .apcfailed;
L A18 SkipNE H2B8STUCKLOW;
L X Skip .h2b8stucklow;
L A18 SkipNE H2B8STUCKHIGH;
L X Skip .h2b8stuckhigh;
L A18 SkipNE FIXVABAD;
L X Skip .fixvabad;
L A18 SkipNE FORM2BAD;
L X Skip .form2bad;
L A18 SkipNE FORM4BAD;
L X Skip .form4bad;
L A18 SkipNE FORM5BAD;
L X Skip .form5bad;
L A18 SkipNE FORM6BAD;
L X Skip .form6bad;
L A18 SkipNE FORM10BAD;
L X Skip .form10bad;
L A18 SkipNE FORMMINUS2BAD;
L X Skip .formminus2bad;
L A18 SkipNE FORMMINUS3BAD;
L X Skip .formminus3bad;
L A18 SkipNE FORMMINUS4BAD;
L X Skip .formminus4bad;
L A18 SkipNE FORMMINUS5BAD;
L X Skip .formminus5bad;
L A18 SkipNE FORMMINUS6BAD;
L X Skip .formminus6bad;
L A18 SkipNE FORMMINUS7BAD;
L X Skip .formminus7bad;
L A18 SkipNE FORMMINUS10BAD;
L X Skip .formminus10bad;
L A18 SkipNE F356BAD;
L X Skip .f356bad;
L A18 SkipNE PASSED-EDTNF-TEST;
L X Skip .passtest;

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


.shouldhavebutdidnt L X WriteMessage *** FAILed: at my Breakpoint SHOULD HAVE BUT DIDNT ~;
.bad L X WriteMessage ’ RSTACK = ;
R B9 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ TPAGE = ;
R B10 Val;
L X WriteMessage;
L X WriteMessage ~;

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

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

L X Skip .continue;

.shouldnthavebutdid L X WriteMessage *** FAILed: at my Breakpoint SHOULDNT HAVE BUT DID ~;
L X BackSkip .bad;

.intpbad1 L X WriteMessage *** FAILed: at my Breakpoint INTP(ending bit) BAD 1 ~;
L X BackSkip .bad;

.intpbad L X WriteMessage *** FAILed: at my Breakpoint INTP(ending bit) BAD ~;
L X BackSkip .bad;

.target377 L X WriteMessage *** FAILed: at my Breakpoint (bad niret to)TARGET377 ~;
L X BackSkip .bad;

.wrongplace L X WriteMessage *** FAILed: at my Breakpoint (nextinst went to) WRONG PLACE ~;
L X BackSkip .bad;

.ciafailed L X WriteMessage *** FAILed: at my Breakpoint CIA FAILED ~;
L X BackSkip .bad;

.apcfailed L X WriteMessage *** FAILed: at my Breakpoint APC FAILED ~;
L X BackSkip .bad;

.h2b8stucklow L X WriteMessage *** FAILed: at my Breakpoint H2Bit8 STUCK LOW ~;
L X BackSkip .bad;

.h2b8stuckhigh L X WriteMessage *** FAILed: at my Breakpoint H2Bit8 STUCK HIGH ~;
L X BackSkip .bad;

.fixvabad L X WriteMessage *** FAILed: at my Breakpoint FIXVA BAD ~;
L X BackSkip .bad;

.form2bad L X WriteMessage *** FAILed: at my Breakpoint FORM 2 BAD ~;
L X BackSkip .bad;

.form4bad L X WriteMessage *** FAILed: at my Breakpoint FORM 4 BAD ~;
L X BackSkip .bad;

.form5bad L X WriteMessage *** FAILed: at my Breakpoint FORM 5 BAD ~;
L X BackSkip .bad;

.form6bad L X WriteMessage *** FAILed: at my Breakpoint FORM 6 BAD ~;
L X BackSkip .bad;

.form10bad L X WriteMessage *** FAILed: at my Breakpoint FORM 10 BAD ~;
L X BackSkip .bad;

.formminus2bad L X WriteMessage *** FAILed: at my Breakpoint FORM MINUS 2 BAD ~;
L X BackSkip .bad;

.formminus3bad L X WriteMessage *** FAILed: at my Breakpoint FORM MINUS 3 BAD ~;
L X BackSkip .bad;

.formminus4bad L X WriteMessage *** FAILed: at my Breakpoint FORM MINUS 4 BAD ~;
L X BackSkip .bad;

.formminus5bad L X WriteMessage *** FAILed: at my Breakpoint FORM MINUS 5 BAD ~;
L X BackSkip .bad;

.formminus6bad L X WriteMessage *** FAILed: at my Breakpoint FORM MINUS 6 BAD ~;
L X BackSkip .bad;

.formminus7bad L X WriteMessage *** FAILed: at my Breakpoint FORM MINUS 7 BAD ~;
L X BackSkip .bad;

.formminus10bad L X WriteMessage *** FAILed: at my Breakpoint FORM MINUS 10 BAD ~;
L X BackSkip .bad;

.f356bad L X WriteMessage *** FAILed: at my Breakpoint F(ield) 356 BAD ~;
L X BackSkip .bad;


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