;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;EDProcLog.MIDAS : Logger for EDProc program                           ***  Rev: 1  ***
;;;       Run-Time : Loop Forever
;;;Minimum Hardware: Standard 4 CPU Boards & the 96K Memory Modules
;;;                  By: C. Tseng                                          March 25 1980
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;1. EDALU

.alustart   L X Boot;
            L X DisplayOn;
            L X Confirm
            L X Load EDALU

            L X AppendOutput EDProc.report; 
            L X WriteMessage ~**********  START EDALU Test :  ; 
            L X WriteDT; 
            L X WriteMessage   ***************~ ; 
            L X Skip .alucontinue;

.alubreak   L X AppendOutput EDProc.report; 
            L A18 SkipNE BADNOTIFY;
            L X Skip .alubadnotify;
            L A18 SkipNE BADWAKE+2;
            L X Skip .alubadwake;
            L A18 SkipNE TFILLRER;
            L X Skip .alutfillrer;
            L A18 SkipNE TCHKRER0;
            L X Skip .alutchkrer0;
            L A18 SkipNE TCHKRER1;
            L X Skip .alutchkrer1;
            L A18 SkipNE TCHKRER2;
            L X Skip .alutchkrer2;
            L A18 SkipNE ACHKRER;
            L X Skip .aluachkrer;
            L A18 SkipNE FAIL;
            L X Skip .alufail;
            L A18 SkipNE PASSED-EDALU-TEST;    
            L X Skip .passalutest;

.notalubreak L X AppendOutput EDProc.report; 
            L X WriteMessage *** FAILed: Not at EDALU 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;

.alubadnotify  L X WriteMessage *** FAILed: at EDALU Breakpoint  Bad NOTIFY ~;
.alubad     L X WriteMessage ' MCOUNT =   ;
            R B8 Val;
            L X WriteMessage;
            L X WriteMessage ~;

            L X WriteMessage ' T  0 =   ;
            R B15 Val;
            L X WriteMessage;
            L X WriteMessage ~;

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

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

            L X Skip .alucontinue;

.alubadwake L X WriteMessage *** FAILed: at EDALU Breakpoint  BAD WAKE ~;
            L X BackSkip .alubad;

.alutfillrer L X WriteMessage *** FAILed: at EDALU Breakpoint  T FILL R ERror ~;
            L X BackSkip .alubad;

.alutchkrer0 L X WriteMessage *** FAILed: at EDALU Breakpoint  T CHECK R ERror0 ~;
            L X BackSkip .alubad;

.alutchkrer1 L X WriteMessage *** FAILed: at EDALU Breakpoint  T CHECK R ERror1 ~;
            L X BackSkip .alubad;

.alutchkrer2 L X WriteMessage *** FAILed: at EDALU Breakpoint  T CHECK R ERror2 ~;
            L X BackSkip .alubad;

.aluachkrer L X WriteMessage *** FAILed: at EDALU Breakpoint  Addr CHecK R ERror ~;
            L X BackSkip .alubad;

.alufail    L X WriteMessage *** FAILed: at EDALU Breakpoint  compare FAIL~;
            L X BackSkip .alubad;

.passalutest L X WriteMessage ~----------  PASSed EDALU Test :  ; 
            L X WriteDT; 
            L X WriteMessage   ----------------~ ; 
            L X WriteMessage ~; 
            L X Skip .rmexstart;

.alucontinue  L X CloseOutput;
            L X DisplayOn;
            L X Confirm;
            L X TimeOut 100000;
            L X Go START;(635)
            L X Skip 2;
            L X ShowError EDALU failed to START.;
            L X BackSkip .notalubreak;
            L X DisplayOff;
            L X BackSkip .alubreak;


;2. EDRMEx

.rmexstart  L X Boot;
            L X DisplayOn;
            L X Confirm
            L X Load EDRMEx

            L X AppendOutput EDProc.report; 
            L X WriteMessage ~**********  START EDRMEx Test :  ; 
            L X WriteDT; 
            L X WriteMessage   ***************~ ; 
            L X Skip .rmexcontinue;

.rmexbreak  L X AppendOutput EDProc.report; 
            L A18 SkipNE WORDBAD;    
            L X Skip .rmexwordbad;
            L A18 SkipNE PASSED-EDRMEX-TEST;    
            L X Skip .passrmextest;

.notrmexbreak L X AppendOutput EDProc.report; 
            L X WriteMessage *** FAILed: Not at EDRMEx 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;

.rmexwordbad  L X WriteMessage *** FAILed: at EDRMEx Breakpoint ~; 
            L X WriteMessage *           WORDBAD ~; 
            L X WriteMessage ' SUBTEST =    ;
            R B4 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' CURRENTLOC =   ;
            R B15 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

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

            L X Skip .rmexcontinue;

.passrmextest L X WriteMessage ~----------  PASSed EDRMEx Test :  ; 
            L X WriteDT; 
            L X WriteMessage   ----------------~ ; 
            L X WriteMessage ~; 
            L X Skip .csexstart;

.rmexcontinue L X CloseOutput;
            L X DisplayOn;
            L X Confirm;
            L X TimeOut 100000;
            L X Go START;
            L X Skip 2;
            L X ShowError EDRMEx failed to START.;
            L X BackSkip .notrmexbreak;
            L X DisplayOff;
            L X BackSkip .rmexbreak;


;3. EDCSEx

.csexstart  L X Boot;
            L X DisplayOn;
            L X Confirm
            L X Load EDCSEx

            L X AppendOutput EDProc.report; 
            L X WriteMessage ~**********  START EDCSEx Test :  ; 
            L X WriteDT; 
            L X WriteMessage   ***************~ ; 
            L X Skip .csexcontinue;

.csexbreak  L X AppendOutput EDProc.report; 
            L A18 SkipNE WORD0BAD;    
            L X Skip .csexword0bad;
            L A18 SkipNE WORD1BAD;    
            L X Skip .csexword1bad;
            L A18 SkipNE WORD2BAD;    
            L X Skip .csexword2bad;
            L A18 SkipNE WORD0BADREAD;    
            L X Skip .csexword0badread;
            L A18 SkipNE WORD1BADREAD;    
            L X Skip .csexword1badread;
            L A18 SkipNE WORD2BADREAD;    
            L X Skip .csexword2badread;
            L A18 SkipNE PASSED-EDCSEX-TEST;    
            L X Skip .passcsextest;

.notcsexbreak L X AppendOutput EDProc.report; 
            L X WriteMessage *** FAILed: Not at EDCSEx 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;

.csexword0bad L X WriteMessage *** FAILed: at EDCSEx Breakpoint ~; 
            L X WriteMessage *           WORD 0 Bad ~; 

.csexbad    L X WriteMessage ' SUBTEST =    ;
            R B4 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' CURRENTLOC =   ;
            R C11 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

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

            L X Skip .csexcontinue;

.csexword1bad   L X WriteMessage *** FAILed: at EDCSEx Breakpoint ~; 
            L X WriteMessage *           WORD 1 Bad ~; 
            L X BackSkip .csexbad;

.csexword2bad   L X WriteMessage *** FAILed: at EDCSEx Breakpoint ~; 
            L X WriteMessage *           WORD 2 Bad ~; 
            L X BackSkip .csexbad;

.csexword0badread   L X WriteMessage *** FAILed: at EDCSEx Breakpoint ~; 
            L X WriteMessage     *           WORD 0 READ Bad ~; 
            L X BackSkip .csexbad;

.csexword1badread   L X WriteMessage *** FAILed: at EDCSEx Breakpoint ~; 
            L X WriteMessage     *           WORD 1 READ Bad ~; 
            L X BackSkip .csexbad;

.csexword2badread   L X WriteMessage *** FAILed: at EDCSEx Breakpoint ~; 
            L X WriteMessage     *           WORD 2 READ Bad ~; 
            L X BackSkip .csexbad;

.passcsextest   L X WriteMessage ~----------  PASSed EDCSEx Test :  ; 
            L X WriteDT; 
            L X WriteMessage   ----------------~ ; 
            L X WriteMessage ~; 
            L X Skip .smallstart;

.csexcontinue L X CloseOutput;
            L X DisplayOn;
            L X Confirm;
            L X TimeOut 100000;
            L X Go START;
            L X Skip 2;
            L X ShowError EDCSEx failed to START.;
            L X BackSkip .notcsexbreak;
            L X DisplayOff;
            L X BackSkip .csexbreak;


;4. EDSmallMemLog.MIDAS : Logger for EDSmallMem program

.smallstart  L X Boot;
            L X DisplayOn;
            L X Confirm
            L X Load EDSmallMem

            L X AppendOutput EDProc.report; 
            L X WriteMessage ~**********  START EDSmallMem Test :  ; 
            L X WriteDT; 
            L X WriteMessage   ***************~ ; 
            L X Skip .smallcontinue;

.smallbreak L X AppendOutput EDProc.report; 
            L A18 SkipNE BADT;    
            L X Skip .smallbadt;
            L A18 SkipNE PATTERNERROR;    
            L X Skip .smallpaterror;
            L A18 SkipNE PASSED-EDSMALLMEM-TEST;    
            L X Skip .passsmalltest;

.notsmallbreak L X AppendOutput EDProc.report; 
            L X WriteMessage *** FAILed: Not at EDSmallMem 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;

.smallbadt  L X WriteMessage *** FAILed: at EDSmallMem Breakpoint ~; 
            L X WriteMessage *           T register index miscompared ~; 
.smallbad   L X WriteMessage ' SUBTEST =    ;
            R B4 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' MEMADDR =   ;
            R C11 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

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

            L X Skip .smallcontinue;

.smallpaterror  L X WriteMessage *** FAILed: at EDSmallMem Breakpoint ~; 
            L X WriteMessage *           RESULT read did not match PATTERN written ~; 
            L X BackSkip .smallbad;

.passsmalltest  L X WriteMessage ~----------  PASSed EDSmallMem Test :  ; 
            L X WriteDT; 
            L X WriteMessage   ----------------~ ; 
            L X WriteMessage ~; 
            L X Skip .fieldstart;

.smallcontinue  L X CloseOutput;
            L X DisplayOn;
            L X Confirm;
            L X TimeOut 100000;
            L X Go START;
            L X Skip 2;
            L X ShowError EDSmallMem failed to START.;
            L X BackSkip .notsmallbreak;
            L X DisplayOff;
            L X BackSkip .smallbreak;


;5. EDField

.fieldstart L X Boot;
            L X DisplayOn;
            L X Confirm
            L X Load EDField

            L X AppendOutput EDProc.report; 
            L X WriteMessage ~**********  START EDField Test :  ; 
            L X WriteDT; 
            L X WriteMessage   ***************~ ; 
            L X Skip .fieldcontinue;

.fieldbreak L X AppendOutput EDProc.report; 
            L A18 SkipNE RFBAD;
            L X Skip .fieldrfbad;
            L A18 SkipNE WFABAD;
            L X Skip .fieldwfabad;
            L A18 SkipNE WFBBAD;
            L X Skip .fieldwfbbad;
            L A18 SkipNE PASSED-EDFIELD-TEST;    
            L X Skip .passfieldtest;

.notfieldbreak L X AppendOutput EDProc.report; 
            L X WriteMessage *** FAILed: Not at EDField 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;

.fieldrfbad L X WriteMessage *** FAILed: at EDField Breakpoint  RF BAD ~;
.fieldbad   L X WriteMessage ' PASSCOUNT =   ;
            R B2 Val;
            L X WriteMessage;
            L X WriteMessage ~;

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

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

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

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

            L X WriteMessage ' ENDBIT =   ;
            R B10 Val;
            L X WriteMessage;
            L X WriteMessage ~;

            L X WriteMessage ' CURRENTPATTERN =   ;
            R B14 Val;
            L X WriteMessage;
            L X WriteMessage ~;

            L X WriteMessage ' XB =   ;
            R B15 Val;
            L X WriteMessage;
            L X WriteMessage ~;

            L X Skip .fieldcontinue;

.fieldwfabad  L X WriteMessage *** FAILed: at EDField Breakpoint  WFA BAD ~;
            L X BackSkip .fieldbad;

.fieldwfbbad  L X WriteMessage *** FAILed: at EDField Breakpoint  WFB BAD ~;
            L X BackSkip .fieldbad;

.passfieldtest  L X WriteMessage ~----------  PASSed EDField Test :  ; 
            L X WriteDT; 
            L X WriteMessage   ----------------~ ; 
            L X WriteMessage ~; 
            L X Skip .cymstart;

.fieldcontinue  L X WriteMessage ~; 
            L X CloseOutput;
            L X DisplayOn;
            L X Confirm;
            L X TimeOut 100000;
            L X Go START;
            L X Skip 2;
            L X ShowError EDField failed to START.;
            L X BackSkip .notfieldbreak;
            L X DisplayOff;
            L X BackSkip .fieldbreak;


;6. EDCyM


.cymstart   L X Boot;
            L X DisplayOn;
            L X Confirm
            L X Load EDCym

            L X AppendOutput EDProc.report; 
            L X WriteMessage ~**********  START EDCyM Test :  ; 
            L X WriteDT; 
            L X WriteMessage   ***************~ ; 
            L X Skip .cymcontinue;

.cymbreak   L X AppendOutput EDProc.report; 
            L A18 SkipNE RESULTBAD;    
            L X Skip .cymResultBad;
            L A18 SkipNE APCBAD;    
            L X Skip .cymAPCBad;    
            L A18 SkipNE PASSED-EDCYM-TEST;    
            L X Skip .passcymtest;

.notcymbreak L X AppendOutput EDProc.report; 
            L X WriteMessage *** FAILed: Not at EDCyM 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;

.cymResultBad  L X WriteMessage *** FAILed: at EDCyM Breakpoint ~; 
            L X WriteMessage *           Result does not equal to myResult ~;
            L X WriteMessage ' Result =    ;
            R C9 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
            L X WriteMessage ' myResult =    ;
            R C8 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
 
.cymbad     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 Skip .cymcontinue;

.cymAPCBad  L X WriteMessage *** FAILed: at EDCyM Breakpoint ~; 
            L X WriteMessage     *           APCResult does not equal to myResult ~;
            L X WriteMessage ' APCResult =    ;
            R C10 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
            L X WriteMessage ' myResult =    ;
            R C8 Val; 
            L X WriteMessage;
            L X WriteMessage ~; 
            L X BackSkip .cymbad;

.passcymtest  L X WriteMessage ~----------  Passed EDCyM Test :  ; 
            L X WriteDT; 
            L X WriteMessage   ----------------~ ; 
            L X WriteMessage ~; 
            L X Skip .tnfstart;

.cymcontinue  L X CloseOutput;
            L X DisplayOn;
            L X Confirm;
            L X TimeOut 100000;
            L X Go START;
            L X Skip 2;
            L X ShowError EDCyM failed to START.;
            L X BackSkip .notcymbreak;
            L X DisplayOff;
            L X BackSkip .cymbreak;


;7. EDTNF

.tnfstart   L X Boot;
            L X DisplayOn;
            L X Confirm
            L X Load EDTNF

            L X AppendOutput EDProc.report; 
            L X WriteMessage ~**********  START EDTNF Test :  ; 
            L X WriteDT; 
            L X WriteMessage   ***************~ ; 
            L X Skip .tnfcontinue;

.tnfbreak   L X AppendOutput EDProc.report; 

            L A18 SkipNE SHOULDHAVEBUTDIDNT;
            L X Skip .tnfshouldhave;
            L A18 SkipNE SHOULDNTHAVEBUTDID;
            L X Skip .tnfshouldnthave;
            L A18 SkipNE INTPBAD1;
            L X Skip .tnfintpbad1;
            L A18 SkipNE INTPBAD;
            L X Skip .tnfintpbad;
            L A18 SkipNE TARGET377;
            L X Skip .tnftarget377;
            L A18 SkipNE WRONGPLACE;
            L X Skip .tnfwrongplace;
            L A18 SkipNE CIAFAILED;
            L X Skip .tnfciafailed;
            L A18 SkipNE APCFAILED;
            L X Skip .tnfapcfailed;
            L A18 SkipNE H2B8STUCKLOW;
            L X Skip .tnfh2b8stuck0;
            L A18 SkipNE H2B8STUCKHIGH;
            L X Skip .tnfh2b8stuck1;
            L A18 SkipNE FIXVABAD;
            L X Skip .tnffixvabad;
            L A18 SkipNE FORM2BAD;
            L X Skip .tnfform2bad;
            L A18 SkipNE FORM4BAD;
            L X Skip .tnfform4bad;
            L A18 SkipNE FORM5BAD;
            L X Skip .tnfform5bad;
            L A18 SkipNE FORM6BAD;
            L X Skip .tnfform6bad;
            L A18 SkipNE FORM10BAD;
            L X Skip .tnfform10bad;
            L A18 SkipNE FORMMINUS2BAD;
            L X Skip .tnfformmi2bad;
            L A18 SkipNE FORMMINUS3BAD;
            L X Skip .tnfformmi3bad;
            L A18 SkipNE FORMMINUS4BAD;
            L X Skip .tnfformmi4bad;
            L A18 SkipNE FORMMINUS5BAD;
            L X Skip .tnfformmi5bad;
            L A18 SkipNE FORMMINUS6BAD;
            L X Skip .tnfformmi6bad;
            L A18 SkipNE FORMMINUS7BAD;
            L X Skip .tnfformmi7bad;
            L A18 SkipNE FORMMINUS10BAD;
            L X Skip .tnfformmi10bad;
            L A18 SkipNE F356BAD;
            L X Skip .tnff356bad;
            L A18 SkipNE PASSED-EDTNF-TEST;    
            L X Skip .passtnftest;

.nottnfbreak L X AppendOutput EDProc.report; 
            L X WriteMessage *** FAILed: Not at EDTNF 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;

.tnfshouldhave  L X WriteMessage *** FAILed: at EDTNF Breakpoint  SHOULD HAVE BUT DIDNT ~;
.tnfbad     L X WriteMessage ' RSTACK =   ;
            R B9 Val;
            L X WriteMessage;
            L X WriteMessage ~;

            L X WriteMessage ' TPAGE =   ;
            R B10 Val;
            L X WriteMessage;
            L X WriteMessage ~;

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

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

            L X Skip .tnfcontinue;

.tnfshouldnthave  L X WriteMessage *** FAILed: at EDTNF Breakpoint  SHOULDNT HAVE BUT DID ~;
            L X BackSkip .tnfbad;

.tnfintpbad1   L X WriteMessage *** FAILed: at EDTNF Breakpoint  INTP(ending bit) BAD 1 ~;
            L X BackSkip .tnfbad;

.tnfintpbad   L X WriteMessage *** FAILed: at EDTNF Breakpoint  INTP(ending bit) BAD ~;
            L X BackSkip .tnfbad;

.tnftarget377   L X WriteMessage *** FAILed: at EDTNF Breakpoint  (bad niret to)TARGET377 ~;
            L X BackSkip .tnfbad;

.tnfwrongplace   L X WriteMessage *** FAILed: at EDTNF Breakpoint  (nextinst went to) WRONG PLACE ~;
            L X BackSkip .tnfbad;

.tnfciafailed   L X WriteMessage *** FAILed: at EDTNF Breakpoint  CIA FAILED ~;
            L X BackSkip .tnfbad;

.tnfapcfailed    L X WriteMessage *** FAILed: at EDTNF Breakpoint  APC FAILED ~;
            L X BackSkip .tnfbad;

.tnfh2b8stuck0  L X WriteMessage *** FAILed: at EDTNF Breakpoint H2Bit8 STUCK LOW ~;
            L X BackSkip .tnfbad;

.tnfh2b8stuck1  L X WriteMessage *** FAILed: at EDTNF Breakpoint  H2Bit8 STUCK HIGH ~;
            L X BackSkip .tnfbad;

.tnffixvabad    L X WriteMessage *** FAILed: at EDTNF Breakpoint  FIXVA BAD ~;
            L X BackSkip .tnfbad;

.tnfform2bad    L X WriteMessage *** FAILed: at EDTNF Breakpoint  FORM 2 BAD ~;
            L X BackSkip .tnfbad;

.tnfform4bad    L X WriteMessage *** FAILed: at EDTNF Breakpoint  FORM 4 BAD ~;
            L X BackSkip .tnfbad;

.tnfform5bad    L X WriteMessage *** FAILed: at EDTNF Breakpoint  FORM 5 BAD ~;
            L X BackSkip .tnfbad;

.tnfform6bad    L X WriteMessage *** FAILed: at EDTNF Breakpoint  FORM 6 BAD ~;
            L X BackSkip .tnfbad;

.tnfform10bad    L X WriteMessage *** FAILed: at EDTNF Breakpoint  FORM 10 BAD ~;
            L X BackSkip .tnfbad;

.tnfformmi2bad    L X WriteMessage *** FAILed: at EDTNF Breakpoint  FORM MINUS 2 BAD ~;
            L X BackSkip .tnfbad;

.tnfformmi3bad    L X WriteMessage *** FAILed: at EDTNF Breakpoint  FORM MINUS 3 BAD ~;
            L X BackSkip .tnfbad;

.tnfformmi4bad    L X WriteMessage *** FAILed: at EDTNF Breakpoint  FORM MINUS 4 BAD ~;
            L X BackSkip .tnfbad;

.tnfformmi5bad    L X WriteMessage *** FAILed: at EDTNF Breakpoint  FORM MINUS 5 BAD ~;
            L X BackSkip .tnfbad;

.tnfformmi6bad    L X WriteMessage *** FAILed: at EDTNF Breakpoint  FORM MINUS 6 BAD ~;
            L X BackSkip .tnfbad;

.tnfformmi7bad    L X WriteMessage *** FAILed: at EDTNF Breakpoint  FORM MINUS 7 BAD ~;
            L X BackSkip .tnfbad;

.tnfformmi10bad    L X WriteMessage *** FAILed: at EDTNF Breakpoint  FORM MINUS 10 BAD ~;
            L X BackSkip .tnfbad;

.tnff356bad    L X WriteMessage *** FAILed: at EDTNF Breakpoint  F(ield) 356 BAD ~;
            L X BackSkip .tnfbad;

.passtnftest  L X WriteMessage ~----------  PASSed EDTNF Test :  ; 
            L X WriteDT; 
            L X WriteMessage   ----------------~ ; 
            L X WriteMessage ~; 
            L X Skip .bitstart;

.tnfcontinue  L X CloseOutput;
            L X DisplayOn;
            L X Confirm;
            L X TimeOut 100000;
            L X Go START;
            L X Skip 2;
            L X ShowError EDTNF failed to START.;
            L X BackSkip .nottnfbreak;
            L X DisplayOff;
            L X BackSkip .tnfbreak;



;8. EDBitBlt

.bitstart   L X Boot;
            L X DisplayOn;
            L X Confirm
            L X Load EDBitBlt

            L X AppendOutput EDProc.report; 
            L X WriteMessage ~**********  START EDBitBlt Test :  ; 
            L X WriteDT; 
            L X WriteMessage   ***************~ ; 
            L X Skip .bitcontinue;

.bitbreak   L X AppendOutput EDProc.report; 
            L A18 SkipNE ERROR1;    
            L X Skip .biterror1;
            L A18 SkipNE ERROR2;    
            L X Skip .biterror2;
            L A18 SkipNE ERROR3;    
            L X Skip .biterror3;
            L A18 SkipNE ERROR4;    
            L X Skip .biterror4;
            L A18 SkipNE ERROR5;    
            L X Skip .biterror5;
            L A18 SkipNE ERROR6;    
            L X Skip .biterror6;
            L A18 SkipNE ERROR7;    
            L X Skip .biterror7;
            L A18 SkipNE ERROR10;    
            L X Skip .biterror10;
            L A18 SkipNE ERROR11;    
            L X Skip .biterror11;
            L A18 SkipNE PASSED-EDBITBLT-TEST;    
            L X Skip .passbittest;

.notbitbreak L X AppendOutput EDProc.report; 
            L X WriteMessage *** FAILed: Not at EDBitBlt 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;

.biterror1  L X WriteMessage *** FAILed: at EDBitBlt Breakpoint ~; 
            L X WriteMessage *           LoopCount does not equal to SimLoopCount ~;
            L X WriteMessage ' LoopCount =    ;
            R B14 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
            L X WriteMessage ' SimLoopCount =    ;
            R B15 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
 
.bitbad     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 Skip .bitcontinue;

.biterror2  L X WriteMessage *** FAILed: at EDBitBlt Breakpoint ~; 
            L X WriteMessage     *           Result does not equal to SimResult ~;
            L X WriteMessage ' Result =    ;
            R B16 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
            L X WriteMessage ' SimResult =    ;
            R B17 Val; 
            L X WriteMessage;
            L X WriteMessage ~; 
            L X BackSkip .bitbad;

.biterror3  L X WriteMessage *** FAILed: at EDBitBlt Breakpoint ~; 
            L X WriteMessage     *           Dest0 does not equal to SimDest0 ~;
            L X WriteMessage ' Dest0 =    ;
            R B6 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
            L X WriteMessage ' SimDest0 =    ;
            R B7 Val; 
            L X WriteMessage;
            L X WriteMessage ~; 
            L X BackSkip .bitbad;

.biterror4  L X WriteMessage *** FAILed: at EDBitBlt Breakpoint ~; 
            L X WriteMessage     *           Dest1 does not equal to SimDest1 ~;
            L X WriteMessage ' Dest1 =    ;
            R B8 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
            L X WriteMessage ' SimDest1 =    ;
            R B9 Val; 
            L X WriteMessage;
            L X WriteMessage ~; 
            L X BackSkip .bitbad;

.biterror5  L X WriteMessage *** FAILed: at EDBitBlt Breakpoint ~; 
            L X WriteMessage     *           Dest2 does not equal to SimDest2 ~;
            L X WriteMessage ' Dest2 =    ;
            R B10 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
            L X WriteMessage ' SimDest2 =    ;
            R B11 Val; 
            L X WriteMessage;
            L X WriteMessage ~; 
            L X BackSkip .bitbad;

.biterror6  L X WriteMessage *** FAILed: at EDBitBlt Breakpoint ~; 
            L X WriteMessage     *           Dest3 does not equal to SimDest3 ~;
            L X WriteMessage ' Dest3 =    ;
            R B12 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
            L X WriteMessage ' SimDest3 =    ;
            R B13 Val; 
            L X WriteMessage;
            L X WriteMessage ~; 
            L X BackSkip .bitbad;

.biterror7  L X WriteMessage *** FAILed: at EDBitBlt Breakpoint ~; 
            L X WriteMessage     *           MNBR does not equal to SimNBR ~;
            L X WriteMessage ' MNBR =    ;
            R B18 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
            L X WriteMessage ' SimNBR =    ;
            R B19 Val; 
            L X WriteMessage;
            L X WriteMessage ~; 
            L X BackSkip .bitbad;

.biterror10 L X WriteMessage *** FAILed: at EDBitBlt Breakpoint ~; 
            L X WriteMessage     *           SB does not equal to SimSB ~;
            L X WriteMessage ' SB =    ;
            R C6 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
            L X WriteMessage ' SimSB =    ;
            R C7 Val; 
            L X WriteMessage;
            L X WriteMessage ~; 
            L X BackSkip .bitbad;

.biterror11 L X WriteMessage *** FAILed: at EDBitBlt Breakpoint ~; 
            L X WriteMessage     *           DB does not equal to SimDB ~;
            L X WriteMessage ' DB =    ;
            R C8 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
            L X WriteMessage ' SimDB =    ;
            R C9 Val; 
            L X WriteMessage;
            L X WriteMessage ~; 
            L X BackSkip .bitbad;

.passbittest  L X WriteMessage ~----------  PASSed EDBitBlt Test :  ; 
            L X WriteDT; 
            L X WriteMessage   ----------------~ ; 
            L X WriteMessage ~; 
            L X Skip .timstart;

.bitcontinue L X CloseOutput;
            L X DisplayOn;
            L X Confirm;
            L X TimeOut 100000;
            L X Go START;
            L X Skip 2;
            L X ShowError EDBitBlt failed to START.;
            L X BackSkip .notbitbreak;
            L X DisplayOff;
            L X BackSkip .bitbreak;


;9. EDTimEx

.timstart   L X Boot;
            L X DisplayOn;
            L X Confirm
            L X Load EDTimEx

            L X AppendOutput EDProc.report; 
            L X WriteMessage ~**********  START EDTimEx Test :  ; 
            L X WriteDT; 
            L X WriteMessage   ***************~ ; 
            L X Skip .timcontinue;

.timbreak   L X AppendOutput EDProc.report; 
            L A18 SkipNE WRONGSLOTEXPIRED;    
            L X Skip .timwslotex;
            L A18 SkipNE FAIL;    
            L X Skip .timfail;
            L A18 SkipNE PASSED-EDTIMEX-TEST;    
            L X Skip .passtimtest;

.nottimbreak   L X AppendOutput EDProc.report; 
            L X WriteMessage *** FAILed: Not at EDTimEx 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;

.timwslotex L X WriteMessage *** FAILed: at EDTimEx Breakpoint ~; 
            L X WriteMessage *           Wrong Slot Expired ~; 
.timbad     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 ' INNERCOUNT =    ;
            R B6 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X Skip .timcontinue;

.timfail  L X WriteMessage *** FAILed: at EDTimEx Breakpoint ~; 
            L X WriteMessage *           Timer Not Restarted ~; 
            L X BackSkip .timbad;

.passtimtest  L X WriteMessage ~----------  PASSed EDTimEx Test :  ; 
            L X WriteDT; 
            L X WriteMessage   ----------------~ ; 
            L X WriteMessage ~; 
            L X Skip .taskstart;

.timcontinue  L X CloseOutput;
            L X DisplayOn;
            L X Confirm;
            L X TimeOut 100000;
            L X Go START;
            L X Skip 2;
            L X ShowError EDTimEx failed to START.;
            L X BackSkip .nottimbreak;
            L X DisplayOff;
            L X BackSkip .timbreak;


;10. EDTask

.taskstart  L X Boot;
            L X DisplayOn;
            L X Confirm
            L X Load EDTask

            L X AppendOutput EDProc.report; 
            L X WriteMessage ~**********  START EDTask Test :  ; 
            L X WriteDT; 
            L X WriteMessage   ***************~ ; 
            L X Skip .taskcontinue;

.taskbreak  L X AppendOutput EDProc.report; 
            L A18 SkipNE READFAIL;    
            L X Skip .taskreadfail;
            L A18 SkipNE STACKFAIL;    
            L X Skip .taskstackfail;
            L A18 SkipNE WRITEFAIL;    
            L X Skip .taskwritefail;
            L A18 SkipNE PASSED-EDTASK-TEST;    
            L X Skip .passtasktest;

.nottaskbreak L X AppendOutput EDProc.report; 
            L X WriteMessage *** FAILed: Not at EDTask 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;

.taskreadfail   L X WriteMessage *** FAILed: at EDTask Breakpoint ~; 
            L X WriteMessage *      Result of the register read does not match the TargetValue ~;
            L X WriteMessage ' Result =    ;
            R B17 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
            L X WriteMessage ' TargetValue =    ;
            R B18 Val; 
            L X WriteMessage;
            L X WriteMessage ~;
 
.taskbad    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 Skip .taskcontinue;

.taskstackfail  L X WriteMessage *** FAILed: at EDTask Breakpoint ~; 
            L X WriteMessage *      ExpectedStkp does not match the value of the STKP found ~ ;
            L X WriteMessage *      immediately after the read or write instruction (SaveStkp) ~;
            L X BackSkip .taskbad;

.taskwritefail  L X WriteMessage *** FAILed: at EDTask Breakpoint ~; 
            L X WriteMessage *      The contents (t) of the register written (TargetRegister) ~ ;
            L X WriteMessage *      do not match the TargetValue ~; 
            L X BackSkip .taskbad;

.passtasktest   L X WriteMessage ~----------  PASSed EDTask Test :  ; 
            L X WriteDT; 
            L X WriteMessage   ----------------~ ; 
            L X WriteMessage ~; 
            L X Skip .memstart;

.taskcontinue L X CloseOutput;
            L X DisplayOn;
            L X Confirm;
            L X TimeOut 100000;
            L X Go START;
            L X Skip 2;
            L X ShowError EDTask failed to START.;
            L X BackSkip .nottaskbreak;
            L X DisplayOff;
            L X BackSkip .taskbreak;


;11. EDMemEx

.memstart   L X Boot;
            L X DisplayOn;
            L X Confirm
            L X Load EDMemEx

            L X AppendOutput EDProc.report; 
            L X WriteMessage ~**********  START EDMemEx Test :  ; 
            L X WriteDT; 
            L X WriteMessage   ***************~ ; 
            L X Skip .memcontinue;

.membreak   L X AppendOutput EDProc.report; 
            L A18 SkipNE A96KNOTFULL;    
            L X Skip .memnotfull;
            L A18 SkipNE FOUND.NO.96K;    
            L X Skip .memfound0;
            L A18 SkipNE FOUND.ONE.96K;    
            L X Skip .memfound1;
            L A18 SkipNE FOUND.TWO.96K;    
            L X Skip .memfound2;
            L A18 SkipNE FOUND.THREE.96K;    
            L X Skip .memfound3;
            L A18 SkipNE FOUND.FOUR.96K;    
            L X Skip .memfound4;
            L A18 SkipNE FOUND.FIVE.96K;    
            L X Skip .memfound5;
            L A18 SkipNE FOUND.SIX.96K;    
            L X Skip .memfound6;
            L A18 SkipNE FOUND.SEVEN.96K;    
            L X Skip .memfound7;
            L A18 SkipNE FOUND.EIGHT.96K;    
            L X Skip .memfound8;
            L A18 SkipNE FOUND.TOOMANY.96K;    
            L X Skip .memfound9+;
            L A18 SkipNE WORDBAD;    
            L X Skip .memwordbad;
            L A18 SkipNE MEMFAULT;    
            L X Skip .memfault;
            L A18 SkipNE PASSED-EDMEMEX-TEST;    
            L X Skip .passmemtest;

.notmembreak L X AppendOutput EDProc.report; 
            L X WriteMessage *** FAILed: Not at EDMemEx 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;

.memwordbad L X WriteMessage *** FAILed: at EDMemEx Breakpoint ~; 
            L X WriteMessage *           WORDBAD ~; 
.membad     L X WriteMessage ' SUBTEST =    ;
            R B5 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' CURRENTLOC =   ;
            R C12 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

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

            L X Skip .memcontinue;

.memfault   L X WriteMessage *** FAILed: at EDMemEx Breakpoint ~; 
            L X WriteMessage *           MEMFAULT ~; 

            L X WriteMessage ' CRASHCODE =    ;
            R C7 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' SYNDROME =   ;
            R C8 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

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

            L X WriteMessage ' CARDNUMBER =   ;
            R C10 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X BackSkip .membad;

.memnotfull L X WriteMessage *** FAILed: at EDMemEx Breakpoint ~; 
            L X WriteMessage *           A96KNOTFULL ~; 
            L X BackSkip .membad;

.memfound0  L X WriteMessage *** FAILed: at EDMemEx Breakpoint ~; 
            L X WriteMessage *           FOUND.NO.96K ~; 
            L X UnBreak IMX 1400
            L X BackSkip .membad;

.memfound9+ L X WriteMessage *** FAILed: at EDMemEx Breakpoint ~; 
            L X WriteMessage *           FOUND.TOOMANY.96K ~; 
            L X UnBreak IMX 1417
            L X BackSkip .membad;

.memfound1  L X WriteMessage *           FOUND.ONE.96K ~; 
            L X UnBreak IMX 1401
            L X Skip .memcontinue;

.memfound2  L X WriteMessage *           FOUND.TWO.96K ~; 
            L X UnBreak IMX 1402
            L X Skip .memcontinue;

.memfound3  L X WriteMessage *           FOUND.THREE.96K ~; 
            L X UnBreak IMX 1403
            L X Skip .memcontinue;

.memfound4  L X WriteMessage *           FOUND.FOUR.96K ~; 
            L X UnBreak IMX 1404
            L X Skip .memcontinue;

.memfound5  L X WriteMessage *           FOUND.FIVE.96K ~; 
            L X UnBreak IMX 1405
            L X Skip .memcontinue;

.memfound6  L X WriteMessage *           FOUND.SIX.96K ~; 
            L X UnBreak IMX 1406
            L X Skip .memcontinue;

.memfound7  L X WriteMessage *           FOUND.SEVEN.96K ~; 
            L X UnBreak IMX 1407
            L X Skip .memcontinue;

.memfound8  L X WriteMessage *           FOUND.EIGHT.96K ~; 
            L X UnBreak IMX 1410
            L X Skip .memcontinue;

.passmemtest   L X WriteMessage ~----------  PASSed EDMemEx Test :  ; 
            L X WriteDT; 
            L X WriteMessage   ----------------~ ; 
            L X WriteMessage ~; 
            L X Skip .abortstart;

.memcontinue  L X CloseOutput;
            L X DisplayOn;
            L X Confirm;
            L X TimeOut 10000000;
            L X Go START;
            L X Skip 2;
            L X ShowError EDMemEx failed to START.;
            L X BackSkip .notmembreak;
            L X DisplayOff;
            L X BackSkip .membreak;


;12. EDMemAbort

.abortstart L X Boot;
            L A19 Val 0 
            L X DisplayOff
            L X Confirm
            L X LdData EDMEMEX

            L B3 Addr RM 20		; MAXMAPPASS
            L B3 Val 1 
            L B3 Addr    

            L X Break IMX 1522		; FINISHED-MAPINIT
            L X TimeOut 100000
            L X Go IMX 427		; GO
            L X Skip 1
            L X ShowError TIMED OUT

            L X UnBreak IMX 1455	; A96KNOTFULL  - Clear all assembled-in breakpoints in memex
            L X UnBreak IMX 1522	; FINISHED.MAPINIT
            L X UnBreak IMX 1400	; FOUND.NO.96K
            L X UnBreak IMX 1401	; FOUND.ONE.96K
            L X UnBreak IMX 1402	; FOUND.TWO.96K
            L X UnBreak IMX 1403	; FOUND.THREE.96K
            L X UnBreak IMX 1404	; FOUND.FOUR.96K
            L X UnBreak IMX 1405	; FOUND.FIVE.96K
            L X UnBreak IMX 1406	; FOUND.SIX.96K
            L X UnBreak IMX 1407	; FOUND.SEVEN.96K
            L X UnBreak IMX 1410	; FOUND.EIGHT.96K
            L X UnBreak IMX 1417	; FOUND.TOOMANY.96K
            L X UnBreak IMX 1014	; MEMFAULT
            L X UnBreak IMX 1016	; WORDBAD
            L X UnBreak IMX 544		; PASSED-EDMEMEX-TEST

            L X DisplayOn;
            L X Confirm
            L X Load EDMEMABORT

            L X AppendOutput EDProc.report; 
            L X WriteMessage ~**********  START EDMemAbort Test :  ; 
            L X WriteDT; 
            L X WriteMessage   ***************~ ; 
            L X Skip .abortcontinue;

.abortbreak L X AppendOutput EDProc.report; 
            L A18 SkipNE ERROROVFLSET;    
            L X Skip .abortovflset;
            L A18 SkipNE ERRORDIDTRANS;    
            L X Skip .abortdidtrans;
            L A18 SkipNE ERRORNOOVFL;    
            L X Skip .abortnoovfl;
            L A18 SkipNE ERRORDATACOMPARE;    
            L X Skip .abortdatacomp;
            L A18 SkipNE ERROR3;    
            L X Skip .aborterror3;
            L A18 SkipNE ERROR41;    
            L X Skip .aborterror41;
            L A18 SkipNE ERROR42;    
            L X Skip .aborterror42;
            L A18 SkipNE ERROR51;    
            L X Skip .aborterror51;
            L A18 SkipNE ERROR52;    
            L X Skip .aborterror52;
            L A18 SkipNE ERROR53;    
            L X Skip .aborterror53;
            L A18 SkipNE PAGECOUNTERROR1;    
            L X Skip .abortpagec1;
            L A18 SkipNE PAGECOUNTERROR2;    
            L X Skip .abortpagec2;
            L A18 SkipNE PASSED-EDMEMABORT-TEST;    
            L X Skip .passaborttest;

.notabortbreak L X AppendOutput EDProc.report; 
            L X WriteMessage *** FAILed:  Not at EDMemAbort 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;

.abortovflset L X WriteMessage *** FAILed: at EDMemAbort Breakpoint ~; 
            L X WriteMessage   *           OVFL SET ~;
.abortbad   L X WriteMessage ' SUBTEST =    ;
            R B3 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' CURRENTPAGE =   ;
            R C11 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

            L X WriteMessage ' CURRENTLOC =   ;
            R C12 Val; 
            L X WriteMessage; 
            L X WriteMessage ~; 

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

            L X Skip .abortcontinue;

.abortdidtrans L X WriteMessage *** FAILed: at EDMemAbort Breakpoint ~; 
            L X WriteMessage    *           DATA DID TRANSFER ~; 
            L X BackSkip .abortbad;

.abortnoovfl L X WriteMessage *** FAILed: at EDMemAbort Breakpoint ~; 
            L X WriteMessage  *           NO OVERFLOW ~; 
            L X BackSkip .abortbad;

.abortdatacomp L X WriteMessage *** FAILed: at EDMemAbort Breakpoint ~; 
            L X WriteMessage    *           DATA DONOT COMPARE ~; 
            L X BackSkip .abortbad;

.aborterror3     L X WriteMessage *** FAILed: at EDMemAbort Breakpoint ~; 
            L X WriteMessage      *           IN SUBTEST 3 ~; 
            L X BackSkip .abortbad;

.aborterror41    L X WriteMessage *** FAILed: at EDMemAbort Breakpoint ~; 
            L X WriteMessage      *           IN SUBTEST 4 FIRST PART ~; 
            L X BackSkip .abortbad;

.aborterror42    L X WriteMessage *** FAILed: at EDMemAbort Breakpoint ~; 
            L X WriteMessage      *           IN SUBTEST 4 SECOND PART ~; 
            L X BackSkip .abortbad;

.aborterror51    L X WriteMessage *** FAILed: at EDMemAbort Breakpoint ~; 
            L X WriteMessage      *           IN SUBTEST 5 FIRST PART ~; 
            L X BackSkip .abortbad;

.aborterror52    L X WriteMessage *** FAILed: at EDMemAbort Breakpoint ~; 
            L X WriteMessage      *           IN SUBTEST 5 SECOND PART ~; 
            L X BackSkip .abortbad;

.aborterror53    L X WriteMessage *** FAILed: at EDMemAbort Breakpoint ~; 
            L X WriteMessage      *           IN SUBTEST 5 THIRD PART ~; 
            L X BackSkip .abortbad;

.abortpagec1 L X WriteMessage *** FAILed: at EDMemAbort Breakpoint ~; 
            L X WriteMessage  *           IN INITIALIZING MEMORY, PAGECOUNT < 0 ~; 
            L X BackSkip .abortbad;

.abortpagec2 L X WriteMessage *** FAILed: at EDMemAbort Breakpoint ~; 
            L X WriteMessage  *           IN INITIALIZING MEMORY, PAGECOUNT>40000 ~; 
            L X BackSkip .abortbad;

.passaborttest   L X WriteMessage ~----------  Passed EDMemAbort Test :  ; 
            L X WriteDT; 
            L X WriteMessage   ----------------~ ; 
            L X WriteMessage ~; 
            L X BackSkip .alustart;

.abortcontinue  L X CloseOutput;
            L X DisplayOn;
            L X Confirm;
            L X TimeOut 10000000;
            L X Go START;(1270)
            L X Skip 2;
            L X ShowError EDMemAbort failed to START.;
            L X BackSkip .notabortbreak;
            L X DisplayOff;
            L X BackSkip .abortbreak;