;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;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;(635)
            L X Skip 2;
            L X ShowError Program failed to CONTINUE.;
            L X BackSkip .notmybreak;
            L X DisplayOff;
            L X BackSkip .breakpoint;