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

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

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