;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;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;(635)
            L X Skip 2;
            L X ShowError Program failed to CONTINUE.;
            L X BackSkip .notmybreak;
            L X DisplayOff;
            L X BackSkip .breakpoint;