L X Reset 			;  IFU midas display   June 18, 1981  10:15 AM
L X Do-it 
L X Ld ifuComplex			; load the microprogram
L B0 Addr RBASE 0	; Rbase values
L B1 Addr RBASE 17
L B0 Val 0
L B1 Val 0
L B2 Addr MEMRQ	; MIDAS MUFFLERS
L B3 Addr LOADS
L B4 Addr HJ
L B5 Addr MX
L B6 Addr JMPEXC
L B7 Addr PCJ
L B8 Addr FFK
L B9 Addr HOLD;
L B10 Addr ITESTX;	ifu test number
L B11 Addr ITESTCOUNTX;	ifujump count
L B12 Addr ICURRENTTESTLOC;	byte (memory) address of beginning of ifu test program.
L B13 Addr KLINK;		place where return link from ifu jumps is kept
L B14 Addr TPC 1;		convenient task pc we can clobber w/ KLINK contents to get pretty print
;L B15 Addr STKP
;L B15 Val 1;	initialize stkp for convenience
;L B15 Addr ;	throw it away to avoid cluttered screen
L B15 Addr STK 0
L B16 Addr STK 1
L B17 Addr STK 2
L B18 Addr STK 3
L B19 Addr STK 4
L C0 Addr R0		; display common registers
L C1 Addr STKP
L C1 Val 1;	initialize stkp for convenience
L C2 Addr EXPECTEDDISPATCH
L C3 Addr PAT16
L C4 Addr IADDRX
L C5 Addr RHIGH1
L C6 Addr RSCR
L C7 Addr RSCR2
L C8 Addr T 20
L C9 Addr FLAGS		; control for  hold, task simulator
L C10 Addr ITERATIONS	; count of iterations
L C11 Addr NEXTTASK
L C12 Addr HOLDVALUE
L C13 Addr PIPE 10
;L C14 Addr 
L A19 Addr TASK 20	; use task 0 as default
L A19 Val 0
L A7 Addr RBASE 20	; use rbase 17 as default
L A7 Val 17
L X DisplayOn		; June 18, 1981  10:14 AM
L X TimeOut 30000; 12 sec
L X Call XORHOLDSIM(; ;)
L X Skip 1
L X ShowError Timed out
L X TimeOut 100000
L X Go RESTARTDIAGNOSTIC
L X Skip 1
L X ShowError IFUcomplex Timed out