;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;EDTaskLog.MIDAS : Logger for EDTask program
;;;                   By: C. Chan                                       Mar. 20, 1980
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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


.breakpoint L X AppendOutput EDTask.report; 
            L A18 SkipNE READFAIL;    
            L X Skip .ReadFail;
            L A18 SkipNE STACKFAIL;    
            L X Skip .StackFail;
            L A18 SkipNE WRITEFAIL;    
            L X Skip .WriteFail;
            L A18 SkipNE PASSED-EDTASK-TEST;    
            L X Skip .passtest;

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


.ReadFail   L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage *      Result of the register read does not match the TargetValue ~;
            L X WriteMessage ' Result =    ;
            R B17 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
            L X WriteMessage ' TargetValue =    ;
            R B18 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
 
.bad        L X WriteMessage ' SUBTEST =    ;
            R B4 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

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

            L X Skip .continue;

.StackFail  L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage *      ExpectedStkp does not match the value of the STKP found ~ ;
            L X WriteMessage *      immediately after the read or write instruction (SaveStkp) ~;
            L X BackSkip .bad;

.WriteFail  L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage *      The contents (t) of the register written (TargetRegister) ~ ;
            L X WriteMessage *      do not match the TargetValue ~; 
            L X BackSkip .bad;

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