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