;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;EDFieldLog.MIDAS : Logger for EDField program
;;; By: J. Kellman Feb. 22, 1980
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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


.breakpoint L X AppendOutput EDField.report;

L A18 SkipNE RFBAD;
L X Skip .rfbad;
L A18 SkipNE WFABAD;
L X Skip .wfabad;
L A18 SkipNE WFBBAD;
L X Skip .wfbbad;
L A18 SkipNE PASSED-EDFIELD-TEST;
L X Skip .passtest;

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


.rfbad L X WriteMessage *** FAILed: at my Breakpoint RF BAD ~;
.bad L X WriteMessage ’ PASSCOUNT = ;
R B2 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ RESULT = ;
R B17 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ SIMRESULT = ;
R B16 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ FDESCR = ;
R B8 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ STARTBIT = ;
R B9 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ ENDBIT = ;
R B10 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ CURRENTPATTERN = ;
R B14 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ XB = ;
R B15 Val;
L X WriteMessage;
L X WriteMessage ~;

L X Skip .continue;

.wfabad L X WriteMessage *** FAILed: at my Breakpoint WFA BAD ~;
L X BackSkip .bad;

.wfbbad L X WriteMessage *** FAILed: at my Breakpoint WFB BAD ~;
L X BackSkip .bad;



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