L X DisplayOn		; October 12, 1979  11:17 AM
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 
L C2 Addr 
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