;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;EDBitBltLog.MIDAS : Logger for EDBitBlt program
;;;                   By: C. Tseng                                       Dec. 6, 1979
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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


.breakpoint L X AppendOutput EDBitBlt.report; 
            L A18 SkipNE ERROR1;    
            L X Skip .error1;
            L A18 SkipNE ERROR2;    
            L X Skip .error2;
            L A18 SkipNE ERROR3;    
            L X Skip .error3;
            L A18 SkipNE ERROR4;    
            L X Skip .error4;
            L A18 SkipNE ERROR5;    
            L X Skip .error5;
            L A18 SkipNE ERROR6;    
            L X Skip .error6;
            L A18 SkipNE ERROR7;    
            L X Skip .error7;
            L A18 SkipNE ERROR10;    
            L X Skip .error10;
            L A18 SkipNE ERROR11;    
            L X Skip .error11;
            L A18 SkipNE PASSED-EDBITBLT-TEST;    
            L X Skip .passtest;

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


.error1     L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage *           LoopCount does not equal to SimLoopCount ~;
            L X WriteMessage ' LoopCount =    ;
            R B14 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
            L X WriteMessage ' SimLoopCount =    ;
            R B15 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;

.error2     L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage     *           Result does not equal to SimResult ~;
            L X WriteMessage ' Result =    ;
            R B16 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
            L X WriteMessage ' SimResult =    ;
            R B17 Val; 
            L X WriteMessage;
            L X WriteMessage ~; 
            L X BackSkip .bad;

.error3     L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage     *           Dest0 does not equal to SimDest0 ~;
            L X WriteMessage ' Dest0 =    ;
            R B6 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
            L X WriteMessage ' SimDest0 =    ;
            R B7 Val; 
            L X WriteMessage;
            L X WriteMessage ~; 
            L X BackSkip .bad;

.error4     L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage     *           Dest1 does not equal to SimDest1 ~;
            L X WriteMessage ' Dest1 =    ;
            R B8 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
            L X WriteMessage ' SimDest1 =    ;
            R B9 Val; 
            L X WriteMessage;
            L X WriteMessage ~; 
            L X BackSkip .bad;

.error5     L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage     *           Dest2 does not equal to SimDest2 ~;
            L X WriteMessage ' Dest2 =    ;
            R B10 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
            L X WriteMessage ' SimDest2 =    ;
            R B11 Val; 
            L X WriteMessage;
            L X WriteMessage ~; 
            L X BackSkip .bad;

.error6     L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage     *           Dest3 does not equal to SimDest3 ~;
            L X WriteMessage ' Dest3 =    ;
            R B12 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
            L X WriteMessage ' SimDest3 =    ;
            R B13 Val; 
            L X WriteMessage;
            L X WriteMessage ~; 
            L X BackSkip .bad;

.error7     L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage     *           MNBR does not equal to SimNBR ~;
            L X WriteMessage ' MNBR =    ;
            R B18 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
            L X WriteMessage ' SimNBR =    ;
            R B19 Val; 
            L X WriteMessage;
            L X WriteMessage ~; 
            L X BackSkip .bad;

.error10    L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage     *           SB does not equal to SimSB ~;
            L X WriteMessage ' SB =    ;
            R C6 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
            L X WriteMessage ' SimSB =    ;
            R C7 Val; 
            L X WriteMessage;
            L X WriteMessage ~; 
            L X BackSkip .bad;

.error11    L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage     *           DB does not equal to SimDB ~;
            L X WriteMessage ' DB =    ;
            R C8 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
            L X WriteMessage ' SimDB =    ;
            R C9 Val; 
            L X WriteMessage;
            L X WriteMessage ~; 
            L X BackSkip .bad;

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