;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;EDRDCDLog.MIDAS : Logger for EDRDCD program
;;;                   By: T. Henning             March 25, 1980  9:05 AM
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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


.breakpoint L X AppendOutput EDRDCD.report;  
            L A2 SkipNE PASSED-EDRDCD-TEST;     
            L X Skip .passdone; 
            L A2 SkipNE DEVICEERROR;     
            L X Skip .deviceerror; 
            L A2 SkipNE TIMERHALT;     
            L X Skip .timerhalt; 
            L A2 SkipNE DATAERROR;     
            L X Skip .dataerror; 
            L A2 SkipNE NOIDHERE;     
            L X Skip .noid; 
            L A2 SkipNE IDER;     
            L X Skip .ider; 
            L A2 SkipNE SETPARAMETERS;     
            L X Skip .setparameters; 
            L A2 SkipNE BADPHASE;     
            L X Skip .badphase; 
            L A2 SkipNE NOPHASE;     
            L X Skip .nophase;

.notmybreak L X AppendOutput EDRDCD.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 ' CTASK =  ;
            R A1 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' CIA =  ;
            R A2 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' PHASE =    ;
            R B2 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' OBSERVED =   ;
            R B4 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' EXPECTED =    ;
            R B5 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' ADDRESS =    ;
            R B6 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' DISKSTATUS =    ;
            R B8 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' ERRORF =    ;
            R B9 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' COMMAND =    ;
            R B11 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' STP =    ;
            R B12 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' RANDOM =    ;
            R B13 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' DTYPE =    ;
            R B16 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' SEED =    ;
            R B17 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' BLOCK =    ;
            R B19 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' CMDPOINTER =    ;
            R C16 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X CloseOutput;
            L X Exit;


.deviceerror   L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage ' Device reported error ~; 
.bad        L X WriteMessage ' PHASE =    ;
            R B2 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' OBSERVED =   ;
            R B4 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' EXPECTED =    ;
            R B5 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' ADDRESS =    ;
            R B6 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' DISKSTATUS =    ;
            R B8 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' ERRORF =    ;
            R B9 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' COMMAND =    ;
            R B11 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' STP =    ;
            R B12 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' RANDOM =    ;
            R B13 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' DTYPE =    ;
            R B16 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' SEED =    ;
            R B17 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' BLOCK =    ;
            R B19 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' CMDPOINTER =    ;
            R C16 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X Skip .continue;

.dataerror   L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage ' Data error detected by diag ~; 
            L X BackSkip .bad;

.timerhalt   L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage ' CONTROLER TIMED OUT(DEVICE ERROR NEXT) ~; 
            L X BackSkip .bad;

.noid   L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage     ' Did not find I.D. ~; 
            L X BackSkip .bad;

.ider   L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage     ' I.D. found was incorrect ~; 
            L X BackSkip .bad;

.setparameters   L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage     ' SETPARAMETERS breakpoint encountered ~; 
            L X BackSkip .bad;

.badphase   L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage     ' BADPHASE, RUNPHASES value not valid ~; 
            L X BackSkip .bad;

.nophase   L X WriteMessage *** FAILed: at my Breakpoint ~; 
            L X WriteMessage     ' NOPHASE, RUNPHASES value is zero, not valid ~; 
            L X BackSkip .bad;

.passdone   L X WriteMessage ~------------  PASSed EDRDCD 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 10000000000;
            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;