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

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