;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;EDMemAbortLog.MIDAS : Logger for EDMemAbort program
;;;                   By: P.Hardjadinata                                       March 25, 1980
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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


.breakpoint L X AppendOutput EDMemAbort.report;
            L A18 SkipNE ERROROVFLSET;    
            L X Skip .errorovflset;
            L A18 SkipNE ERRORDIDTRANS;    
            L X Skip .errordidtrans;
            L A18 SkipNE ERRORNOOVFL;    
            L X Skip .errornoovfl;
            L A18 SkipNE ERRORDATACOMPARE;    
            L X Skip .errordatacompare;
            L A18 SkipNE ERROR3;    
            L X Skip .error3;
            L A18 SkipNE ERROR41;    
            L X Skip .error41;
            L A18 SkipNE ERROR42;    
            L X Skip .error42;
            L A18 SkipNE ERROR51;    
            L X Skip .error51;
            L A18 SkipNE ERROR52;    
            L X Skip .error52;
            L A18 SkipNE ERROR53;    
            L X Skip .error53;
            L A18 SkipNE PAGECOUNTERROR1;    
            L X Skip .pagecounterror1;
            L A18 SkipNE PAGECOUNTERROR2;    
            L X Skip .pagecounterror2;
            L A18 SkipNE PASSED-EDMEMABORT-TEST;    
            L X Skip .passtest;

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


.errorovflset L X WriteMessage *** FAILed: at my Breakpoint  ~; 
            L X WriteMessage * ERROR OVFL SET ~; 
.bad        L X WriteMessage ' SUBTEST =    ;
            R B3 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' CURRENTPAGE =   ;
            R C11 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;

.errordidtrans L X WriteMessage *** FAILed: at my Breakpoint  ~; 
            L X WriteMessage * ERROR, DATA DID TRANSFER ~; 
            L X BackSkip .bad;

.errornoovfl L X WriteMessage *** FAILed: at my Breakpoint  ~; 
            L X WriteMessage * ERROR NO OVERFLOW ~; 
            L X BackSkip .bad;

.errordatacompare L X WriteMessage *** FAILed: at my Breakpoint  ~; 
            L X WriteMessage * ERROR DATA DONOT COMPARE ~; 
            L X BackSkip .bad;

.error3     L X WriteMessage *** FAILed: at my Breakpoint  ~; 
            L X WriteMessage * ERROR IN SUBTEST 3 ~; 
            L X BackSkip .bad;

.error41    L X WriteMessage *** FAILed: at my Breakpoint  ~; 
            L X WriteMessage * ERROR IN SUBTEST 4 FIRST PART ~; 
            L X BackSkip .bad;

.error42    L X WriteMessage *** FAILed: at my Breakpoint  ~; 
            L X WriteMessage * ERROR IN SUBTEST 4 SECOND PART ~; 
            L X BackSkip .bad;

.error51    L X WriteMessage *** FAILed: at my Breakpoint  ~; 
            L X WriteMessage * ERROR IN SUBTEST 5 FIRST PART ~; 
            L X BackSkip .bad;

.error52    L X WriteMessage *** FAILed: at my Breakpoint  ~; 
            L X WriteMessage * ERROR IN SUBTEST 5 SECOND PART ~; 
            L X BackSkip .bad;

.error53    L X WriteMessage *** FAILed: at my Breakpoint  ~; 
            L X WriteMessage * ERROR IN SUBTEST 5 THIRD PART ~; 
            L X BackSkip .bad;

.pagecounterror1 L X WriteMessage *** FAILed: at my Breakpoint  ~; 
            L X WriteMessage * ERROR IN INITIALIZING MEMORY, PAGECOUNT < 0 ~; 
            L X BackSkip .bad;

.pagecounterror2 L X WriteMessage *** FAILed: at my Breakpoint  ~; 
            L X WriteMessage * ERROR IN INITIALIZING MEMORY, PAGECOUNT > 40000 ~; 
            L X BackSkip .bad;

.passtest   L X WriteMessage ~------------  Passed EDMemAbort 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;(1270)
            L X Skip 2;
            L X ShowError Program failed to CONTINUE.;
            L X BackSkip .notmybreak;
            L X DisplayOff;
            L X BackSkip .breakpoint;