;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;EDUTVFC1Log.MIDAS : Logger for EDUTVFC1 program
;;;                   By: M. Spaur                                       April 10, 1980
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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


.breakpoint L X AppendOutput EDUTVFC1.report; 
            L A18 SkipNE BOARD-NOT-FOUND;    
            L X Skip .BoardNotFound;
            L A18 SkipNE BAD-ID;    
            L X Skip .BadID;    

.notmybreak L X AppendOutput EDUTVFC1.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 WriteMessage ~------------  *** TERMINATED EDUTVFC1 TEST ***  ; 
            L X WriteDT; 
            L X WriteMessage   ----------------~ ; 

            L X CloseOutput;
            L X Exit;


.BoardNotFound L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage *           Unable to find board with MYID ~;
            L X WriteMessage ' MYID =    ;
            R B9 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
            L X WriteMessage ' ControllerID =    ;
            R B10 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
            L X WriteMessage ' CADDR =    ;
            R B11 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
			L X Skip .continue;
 
.BadID		L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage *           Unable to find assign all CADDRS to UTVFC ~;
            L X WriteMessage ' MYID =    ;
            R B9 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
            L X WriteMessage ' ControllerID =    ;
            R B10 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
            L X WriteMessage ' CADDR =    ;
            R B11 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
 
.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;