;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;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;

L X Skip 2;
L X ShowError Program failed to CONTINUE.;
L X BackSkip .notmybreak;
L X DisplayOff;
L X BackSkip .breakpoint;