;*** *** ***     Revision 1.1    *** *** *** ***       RUN-TIME : Forever  *** *** ***

;***************************************************************************************
;** EDPROC.midas : Processor Exerciser Midas code, ED revision  
;**   Purpose  : This Midas program link ALL individual microcodes together to exercise
;**              the whole system; starting from CPU to memory, then loops. 
;**   Hardware Configuration  : 8G Configuration
;**   Written by  : C. Thacker,				Dec. 12, 1978
;**   Modified by : C. Tseng,  				Mar. 28, 1980
;**         to standardize title page,format.
;**         to update each microdiagnostics & rearrange sequence.
;**   Modified by : C. Thacker,  				May 3, 1980
;**         to remove absolutely placed breakpoints.
;***************************************************************************************   


;******  1. EDALU.midas  ********
.procstart L X Boot
L A19 Val 0			;A19=CTASK=0
L X Confirm
L X Load EDALU

L B0 Addr REVISION
L B1 Addr RUN-TIME
L B2 Addr PASSCOUNT;
L B3 Addr MAXPASS;
L B8 Addr MCOUNT
L B15 Addr T 0
L B16 Addr S0
L B17 Addr S1

L X DisplayOn;
L X TimeOut 100000
L X Go START
L X Skip 1
L X ShowError EDALU didn't halt		;Timed out
L A18 SkipE PASSED-EDALU-TEST		;A18=CIA
L X ShowError EDALU failed


;******  2. EDRMEX.midas  ********
L X Boot
L A19 Val 0
L X Confirm
L X Load EDRMEX

L B0 Addr REVISION
L B1 Addr RUN-TIME
L B2 Addr PASSCOUNT
L B3 Addr MAXPASS
L B4 Addr SUBTEST

L B9 Addr WD0;
L B10 Addr RD0;
L B11 Addr MD0;
L B13 Addr LOWLOC;
L B14 Addr HIGHLOC;
L B15 Addr CURRENTLOC;

L C9 Addr LOOPCONTROL
L C10 Addr PATTERNCHOICE
L C11 Addr SHORTLOOP

L X DisplayOn;
L X TimeOut 100000
L X Go START
L X Skip 1
L X ShowError EDRMEX didn't halt
L A18 SkipE PASSED-EDRMEX-TEST	
L X ShowError EDRMEX failed


;******  3. EDCSEX.midas  ********
L X Boot
L A19 Val 0
L X Confirm
L X Load EDCSEX;

L B0 Addr REVISION
L B1 Addr RUN-TIME
L B2 Addr PASSCOUNT
L B3 Addr MAXPASS
L B4 Addr SUBTEST

L B9 Addr MD0;
L B10 Addr WD0;
L B11 Addr RD0;
L B13 Addr MD1;
L B14 Addr WD1;
L B15 Addr RD1;
L B17 Addr MD2;
L B18 Addr WD2;
L B19 Addr RD2;

L C9 Addr LOWLOC;
L C10 Addr HIGHLOC;
L C11 Addr CURRENTLOC;

L C13 Addr LOOPCONTROL
L C14 Addr PATTERNCHOICE
L C15 Addr SHORTLOOP

L X DisplayOn;
L X TimeOut 100000
L X Go START
L X Skip 1
L X ShowError EDCSEX didn't halt
L A18 SkipE PASSED-EDCSEX-TEST
L X ShowError EDCSEX failed


;******  4. EDSMALLMEM.midas  ********
L X Boot
L A19 Val 0
L X Confirm
L X Load EDSMALLMEM;

L B0 Addr REVISION
L B1 Addr RUN-TIME
L B2 Addr PASSCOUNT
L B3 Addr MAXPASS
L B4 Addr SUBTEST;
L B9 Addr XA;
L B10 Addr TESTCOUNTER;
L B11 Addr CURRENTPATTERN;
L B16 Addr CS0TEST;
L B17 Addr CS1TEST
L B18 Addr CS2TEST
L B19 Addr TMEMTEST

L C9 Addr PATTERN
L C10 Addr RESULT
L C11 Addr MEMADDR
L C13 Addr STARTWORD
L C14 Addr ENDWORD
L C16 Addr PATTERNCHOICE;
L C17 Addr SHORTLOOP;

L X DisplayOn;
L X TimeOut 100000
L X Go START
L X Skip 1
L X ShowError EDSMALLMEM didn't halt
L A18 SkipE PASSED-EDSMALLMEM-TEST
L X ShowError EDSMALLMEM failed


;******  5. EDFIELD.midas  ********
L X Boot
L A19 Val 0
L X Confirm
L X Load EDFIELD;

L B0 Addr REVISION
L B1 Addr RUN-TIME
L B2 Addr PASSCOUNT
L B3 Addr MAXPASS
L B4 Addr SUBTEST
L B5 Addr INNERLOOPCOUNTER
L B8 Addr FDESCR
L B9 Addr STARTBIT
L B10 Addr ENDBIT
L B11 Addr LENGTH
L B14 Addr CURRENTPATTERN
L B15 Addr XB
L B16 Addr SIMRESULT
L B17 Addr RESULT

L C13 Addr RANDFLAG
L C15 Addr LOOPWITHIN

L X DisplayOn;
L X TimeOut 100000
L X Go START
L X Skip 1
L X ShowError EDFIELD didn't halt
L A18 SkipE PASSED-EDFIELD-TEST
L X ShowError EDFIELD failed


;******  6. EDCYM.midas  ********
L X Boot
L A19 Val 0
L X Confirm
L X Load EDCYM;

L B0 Addr REVISION;
L B1 Addr RUN-TIME;
L B2 Addr PASSCOUNT;
L B3 Addr MAXPASS;
L B4 Addr SUBTEST;
L B7 Addr XA;
L B8 Addr FNUM;
L B9 Addr OPERAND;
L B11 Addr INNERLOOPCOUNTER;
L B14 Addr LDFTEST;
L B15 Addr DISPATCHTEST;
L B16 Addr LSHTEST;
L B17 Addr LCYTEST;
L B18 Addr LHMASKTEST;
L B19 Addr ZEROTEST;

L C7 Addr MYRESULT;
L C8 Addr RESULT;
L C9 Addr APCRESULT;
L C11 Addr CS0;
L C12 Addr CS1;
L C13 Addr CS2;
L C14 Addr CSP;
L C16 Addr SHORTLOOP;

L X DisplayOn;
L X TimeOut 100000
L X Go START
L X Skip 1
L X ShowError EDCYM didn't halt
L A18 SkipE PASSED-EDCYM-TEST	
L X ShowError EDCYM failed


;******  7. EDTNF.midas  ********
L X Boot
L A19 Val 0
L X Confirm
L X Load EDTNF;

L B0 Addr REVISION;
L B1 Addr RUN-TIME;
L B2 Addr PASSCOUNT;
L B3 Addr MAXPASS;

L B9 Addr RSTACK;
L B10 Addr TPAGE;
L B11 Addr CSADDRESS;
L B12 Addr RESULT;
L B13 Addr BYTECODE;
L B14 Addr SHOULDBE;
L B15 Addr FLAGR;

L X DisplayOn;
L X TimeOut 100000
L X Go START
L X Skip 1
L X ShowError EDTNF didn't halt
L A18 SkipE PASSED-EDTNF-TEST	
L X ShowError EDTNF failed



;******  8. EDBITBLT.midas  ********
L X Boot
L A19 Val 0
L X Confirm
L X Load EDBITBLT;

L B0 Addr REVISION;
L B1 Addr RUN-TIME;
L B2 Addr PASSCOUNT;
L B3 Addr MAXPASS;
L B4 Addr SUBTEST;
L B6 Addr DEST0;
L B7 Addr SIMDEST0;
L B8 Addr DEST1;
L B9 Addr SIMDEST1;
L B10 Addr DEST2;
L B11 Addr SIMDEST2;
L B12 Addr DEST3;
L B13 Addr SIMDEST3;
L B14 Addr LOOPCOUNT;
L B15 Addr SIMLOOPCOUNT;
L B16 Addr RESULT;
L B17 Addr SIMRESULT;
L B18 Addr MNBR;
L B19 Addr SIMNBR;

L C6 Addr SBREG;
L C7 Addr SIMSB;
L C8 Addr DBREG;
L C9 Addr SIMDB;
L C12 Addr SRC0;
L C13 Addr SRC1;
L C14 Addr SRC2;
L C15 Addr SRC3;
L C18 Addr LOOPON;

L X DisplayOn;
L X TimeOut 100000
L X Go START
L X Skip 1
L X ShowError EDBITBLT didn't halt
L A18 SkipE PASSED-EDBITBLT-TEST
L X ShowError EDBITBLT failed


;******  9. EDTimEx.midas  ********
L X Boot
L A19 Val 0 
L X Confirm
L X Load EDTIMEX;

L B0 Addr REVISION
L B1 Addr RUN-TIME
L B2 Addr PASSCOUNT
L B3 Addr MAXPASS
L B4 Addr SUBTEST
L B6 Addr INNERCOUNT
L B7 Addr MAXINNERCOUNT
L B9 Addr TSLOT0
L B10 Addr TSLOT
L B11 Addr EXPECTEDSLOT
L B12 Addr RTIMER

L X DisplayOn;
L X TimeOut 100000
L X Go START
L X Skip 1
L X ShowError EDTIMEX didn't halt
L A18 SkipE PASSED-EDTIMEX-TEST
L X ShowError EDTIMEX failed


;******  10. EDTASK.midas  ********
L X Boot
L A19 Val 0
L X Confirm
L X Load EDTASK;

L B0 Addr REVISION;
L B1 Addr RUN-TIME;
L B2 Addr PASSCOUNT;
L B3 Addr MAXPASS;
L B4 Addr SUBTEST;
L B6 Addr DBTEST;
L B7 Addr MISCTEST;
L B8 Addr PCFTEST;
L B9 Addr RRTEST;
L B10 Addr SBTEST;
L B11 Addr STKTEST;
L B13 Addr FIELDMASK;
L B14 Addr INITIALSTKP;
L B16 Addr EXPECTEDSTKP;
L B17 Addr RESULT;
L B18 Addr TARGETVALUE;

L C16 Addr SHORTLOOP;
L C17 Addr NEWRAND;

L X DisplayOn;
L X TimeOut 100000
L X Go START
L X Skip 1
L X ShowError EDTASK didn't halt
L A18 SkipE PASSED-EDTASK-TEST
L X ShowError EDTASK failed


;******  11. EDMemEx.midas  ********
L X Boot
L A19 Val 0
L X Confirm
L X Load EDMEMEX;

L B0 Addr REVISION;
L B1 Addr RUN-TIME;
L B2 Addr PASSCOUNT;
L B3 Addr MAXMAPPASS;
L B4 Addr MAXMEMPASS;
L B5 Addr SUBTEST;
L B7 Addr LOWMAPADDR;
L B8 Addr HIGHMAPADDR;
L B9 Addr LOWMEMADDR;
L B10 Addr HIGHMEMADDR;
L B12 Addr WBUF0;
L B13 Addr RBUF0;
L B14 Addr WBUF1;
L B15 Addr RBUF1;
L B16 Addr WBUF2;
L B17 Addr RBUF2;
L B18 Addr WBUF3;
L B19 Addr RBUF3;

L C7 Addr CRASHCODE;
L C8 Addr SYNDROME;
L C9 Addr BLOCK;
L C10 Addr CARDNUMBER;
L C12 Addr CURRENTLOC;
L C13 Addr CURRENTPAGE;
L C14 Addr CURRENTPATTERN;
L C15 Addr PAGECOUNT;
L C17 Addr CONTROLREG;
L C18 Addr PATTERNCHOICE
L C19 Addr SHORTLOOP;

L X DisplayOn;
L X TimeOut 100000000
L X Go START
L X Skip 1
L X ShowError EDMEMEX didn't halt

             L A18 SkipE FOUND.ONE.96K
             L X Skip .mem2;
             L X Skip .mempass  ; delete for edproc
             L X ShowError FOUND.ONE.96K
             L X Skip .mempass  ;

.mem2        L A18 SkipE FOUND.TWO.96K
             L X Skip .mem3;
             L X Skip .mempass  ; delete for edproc
             L X ShowError FOUND.TWO.96K
             L X Skip .mempass  ;

.mem3        L A18 SkipE FOUND.THREE.96K
             L X Skip .mem4;
             L X Skip .mempass  ; delete for edproc
             L X ShowError FOUND.THREE.96K
             L X Skip .mempass  ;

.mem4        L A18 SkipE FOUND.FOUR.96K
             L X Skip .mem5;
             L X Skip .mempass  ; delete for edproc
             L X ShowError FOUND.FOUR.96K
             L X Skip .mempass  ;

.mem5        L A18 SkipE FOUND.FIVE.96K
             L X Skip .mem6;
             L X Skip .mempass  ; delete for edproc
             L X ShowError FOUND.FIVE.96K
             L X Skip .mempass  ;

.mem6        L A18 SkipE FOUND.SIX.96K
             L X Skip .mem7;
             L X Skip .mempass  ; delete for edproc
             L X ShowError FOUND.SIX.96K
             L X Skip .mempass  ;

.mem7        L A18 SkipE FOUND.SEVEN.96K
             L X Skip .mem8;
             L X Skip .mempass  ; delete for edproc
             L X ShowError FOUND.SEVEN.96K
             L X Skip .mempass  ;

.mem8        L A18 SkipE FOUND.EIGHT.96K
             L X Skip .memsick;
             L X Skip .mempass  ; delete for edproc
             L X ShowError FOUND.EIGHT.96K
             L X Skip .mempass  ;

.memsick     L X ShowError INCORRECT.NO.OF.STORAGE.BOARDS

.mempass     L X TimeOut 100000000
             L X Continue
             L X Skip 1
             L X ShowError EDMEMEX didn't halt
             L A18 SkipE PASSED-EDMEMEX-TEST
             L X ShowError EDMEMEX failed


;******  12. EDMemAbort.midas  ********
;NOTE: Since EDMemEx was just run, we don't need to run it.  The map is set up
.memabortstart  L X Run-Prog NULL  ;  Clear the breakpoint and symbol tables in Midas
L X Confirm
L X Load EDMEMABORT;
L X DisplayOn;

L B0 Addr REVISION;
L B1 Addr RUN-TIME;
L B2 Addr PASSCOUNT;
L B3 Addr MAXPASS;
L B4 Addr SUBTEST;
L B5 Addr TESTCOUNTER;

L C11 Addr CURRENTPAGE;
L C12 Addr CURRENTLOC;
L C13 Addr XA;
L C14 Addr TYPEREG;
L C16 Addr EXPSTACK;
L C17 Addr TEMPREG;
L C18 Addr PAGECOUNT; 
L C19 Addr SHORTLOOP;

L X DisplayOn;
L X TimeOut 1000000
L X Go START
L X Skip 1
L X ShowError EDMEMABORT didn't halt
L A18 SkipE PASSED-EDMEMABORT-TEST
L X ShowError EDMEMABORT failed


;******  13. EDPackets.midas  ********


;******  14. EDRDCD.midas ********


;******  15. EDUTVFC1.midas ********


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;passed completed EDPROC test
;L X ShowError PASSED-EDPROC-TEST


;Loop back for over-night test
L X BackSkip .procstart;

(1792)