;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;EDMemExLog.MIDAS : Logger for EDMemEx program
;;;                   By: T. Henning                                       Feb 12, 1980
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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


.breakpoint L X AppendOutput EDMemEx.report; 
            L A18 SkipNE A96KNOTFULL;    
            L X Skip .notfull;
            L A18 SkipNE FOUND.NO.96K;    
            L X Skip .found0;
            L A18 SkipNE FOUND.ONE.96K;    
            L X Skip .found1;
            L A18 SkipNE FOUND.TWO.96K;    
            L X Skip .found2;
            L A18 SkipNE FOUND.THREE.96K;    
            L X Skip .found3;
            L A18 SkipNE FOUND.FOUR.96K;    
            L X Skip .found4;
            L A18 SkipNE FOUND.FIVE.96K;    
            L X Skip .found5;
            L A18 SkipNE FOUND.SIX.96K;    
            L X Skip .found6;
            L A18 SkipNE FOUND.SEVEN.96K;    
            L X Skip .found7;
            L A18 SkipNE FOUND.EIGHT.96K;    
            L X Skip .found8;
            L A18 SkipNE FOUND.TOOMANY.96K;    
            L X Skip .found9+;
            L A18 SkipNE WORDBAD;    
            L X Skip .wordbad;
            L A18 SkipNE MEMFAULT;    
            L X Skip .memfault;
            L A18 SkipNE PASSED-EDMEMEX-TEST;    
            L X Skip .passtest;

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


.wordbad    L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage *           WORDBAD ~; 
.bad        L X WriteMessage ' SUBTEST =    ;
            R B5 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' CURRENTLOC =   ;
            R C12 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

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

            L X Skip .continue;

.memfault   L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage *           MEMFAULT ~; 

            L X WriteMessage ' CRASHCODE =    ;
            R C7 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' SYNDROME =   ;
            R C8 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' BLOCK =    ;
            R C9 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' CARDNUMBER =   ;
            R C10 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X BackSkip .bad;

.notfull    L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage *           A96KNOTFULL ~; 
            L X BackSkip .bad;

.found0     L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage *           FOUND.NO.96K ~; 
            L X BackSkip .bad;

.found9+    L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage *           FOUND.TOOMANY.96K ~; 
            L X BackSkip .bad;

.found1     L X WriteMessage *           FOUND.ONE.96K ~; 
            L X Skip .continue;

.found2     L X WriteMessage *           FOUND.TWO.96K ~; 
            L X Skip .continue;

.found3     L X WriteMessage *           FOUND.THREE.96K ~; 
            L X Skip .continue;

.found4     L X WriteMessage *           FOUND.FOUR.96K ~; 
            L X Skip .continue;

.found5     L X WriteMessage *           FOUND.FIVE.96K ~; 
            L X Skip .continue;

.found6     L X WriteMessage *           FOUND.SIX.96K ~; 
            L X Skip .continue;

.found7     L X WriteMessage *           FOUND.SEVEN.96K ~; 
            L X Skip .continue;

.found8     L X WriteMessage *           FOUND.EIGHT.96K ~; 
            L X Skip .continue;

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