;L X DisplayOn		; October 12, 1979  5:59 PM
L X Reset 			;  event counters midas display
L X Do-it 
L X Ld eventCounters			; load the microprogram
L B0 Addr RBASE 0	; Rbase values
L B1 Addr RBASE 17
L B0 Val 17
L B1 Val 17
;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 
L B11 Addr 
L B12 Addr 
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 B16 Addr ;CTRLO
L C0 Addr R0		; display common registers
L C1 Addr CTRLO
L C2 Addr CTRHI
L C3 Addr 
L C4 Addr 
L C5 Addr 
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 
L C14 Addr 
L C15 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			; May 18, 1981  11:43 AM
L X TimeOut 100000
L X Go BEGIN
L X Skip 1
L X ShowError Timed out