;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;EDPacketsLog.MIDAS : Logger for EDPackets program
;;; By: F. Itami/P.Hardjadinata February 28, 1980
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

.breakpoint L X AppendOutput EDPackets.report;
L X WriteMessage *** Breakpoint ~;
L A18 SkipNE BADDATACOMPARE;
L X Skip .BadDataCompare;
L A18 SkipNE BADINCOUNT;
L X Skip .BadInCount;
L A18 SkipNE BADINSTATUS;
L X Skip .BadInStatus;
L A18 SkipNE BADOUTSTATUS;
L X Skip .BadOutStatus;
L A18 SkipNE BOARDNOTFOUND;
L X Skip .BoardNotFound;
L A18 SkipNE INOUTHANG;
L X Skip .InOutHang;
L A18 SkipNE INPACKETSIZE;
L X Skip .InPacketSize;
L A18 SkipNE INRANAGAIN;
L X Skip .InRanAgain;
L A18 SkipNE NOOUTATTN;
L X Skip .NoOutAttn;
L A18 SkipNE NOOVERRUN;
L X Skip .NoOverRun;
L A18 SkipNE BADOUTTASK;
L X Skip .BadOutTask;
L A18 SkipNE NOOUTWAKEUP;
L X Skip .NoOutWakeup;
L A18 SkipNE NOTRANSMIT;
L X Skip .NoTransmit;
L A18 SkipNE NOUNDERRUN;
L X Skip .NoUnderRun;
L A18 SkipNE OUTIDNEWWRONG;
L X Skip .OutIDNewWrong;
L A18 SkipNE OUTIDWRONG;
L X Skip .OutIDWrong;
L A18 SkipNE OUTRANAGAIN;
L X Skip .OutRanAgain;;
L A18 SkipNE PASSED-EDPACKETS-TEST;
L X Skip .passtest;
L A18 SkipNE STATENOTRESET;
L X Skip .StateNotReset;
L A18 SkipNE STATENOTSET;
L X Skip .StateNotSet;
L A18 SkipNE STATENOTZERO;
L X Skip .StateNotZero;

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


.BadDataCompare L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * Input and transmitted data word not equal ~;

.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 WriteMessage ’ PKTCOUNT = ;
R C15 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ TESTFLAG = ;
R C14 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ LOOPMODE = ;
R C16 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ PKTSIZE = ;
R C17 Val;
L X WriteMessage;
L X WriteMessage ~;

L X WriteMessage ’ SIZEDATA = ;
R C18 Val;
L X WriteMessage;
L X WriteMessage ~;

L X Skip .continue

.BadInCount L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * Received and xmitted packet size not equal ~;
L X BackSkip .bad;

.BadInStatus L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * Packet has bas input status ~;
L X BackSkip .bad;

.BadOutStatus L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * Packet has bad output status ~;
L X BackSkip .bad;

.BoardNotFound L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * EtherNet board not found ~;
L X BackSkip .bad;

.InOutHang L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * No Input or Output WakeUp ~;
L X BackSkip .bad;

.InPacketSize L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * In packet too big ~;
L X BackSkip .bad;

.InRanAgain L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * Input task ran again ~;
L X BackSkip .bad;

.NoOutAttn L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * Attention should be high ~;
L X BackSkip .bad;

.NoOverRun L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * OverRunbit not set ~;
L X BackSkip .bad;

.BadOutTask L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * Output task didn’t task ~;
L X BackSkip .bad;

.NoOutWakeup L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * Output task did’t wakeup ~;
L X BackSkip .bad;

.NoTransmit L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * Output is hung up ~;
L X BackSkip .bad;

.NoUnderRun L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * UnderRun not set ~;
L X BackSkip .bad;

.OutIDNewWrong L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * Output Device ID wrong (New board) ~;
L X BackSkip .bad;

.OutIDWrong L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * Output Device ID wrong ~;
L X BackSkip .bad;

.OutRanAgain L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * Output Task ran ~;
L X BackSkip .bad;

.StateNotReset L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * State Register not reset ~;
L X BackSkip .bad;

.StateNotSet L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * State Register not set ~;
L X BackSkip .bad;

.StateNotZero L X WriteMessage *** FAILed: at my Breakpoint ~;
L X WriteMessage * Nonzero State & Status read ~;
L X BackSkip .bad;

.passtest L X WriteMessage ~------------ PASSED EDPackets 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;