Revive PEEK mode I to display IMX input values.

src/sysen2/peek.631

@@ -498,9 +498,9 @@ IPGWTN:IPGWTG:IPGWTI:IPGWTM:SBNRUT:
 PGIHTB:SWPHTB:OVHTB1:
 IPUQHD:IPFDPE:XBITQH:XBORTQ:XBOCOS:
 DG2:DRTM:EUPOS:UDIR:UDIRO:UGOAL:ULCTM:UTASS:UTBFS:
-UTTNO:UTUSR:UMNTR:]
+UTTNO:UTUSR:UMNTR:MPXBUF:]
 
-;No longer used: MPXBUF:
+;No longer used: 
 ;		 IMSOC1:IMSOC2:IMSOC3:IMSOC4:IMSOC5:IMSOC6:IMSOC7:IMSOC8:
 
 ;+SYSBEG(U)
@@ -1115,14 +1115,12 @@ BEG1:	SETZM TOPFLG
 	PUSHJ P,TMPT	;OUTPUT HH:MM:SS
 	PUSHJ P,CRR
 BEG1LN:	HRRZ D,MODE	;GET MODE
-IFN 0,[
 	SKIPGE XCHFLG
 	 JRST [	CAIN D,%MDMPX	; Mplxrs open, skip if should be off
 		 JRST .+1	; Still on, OK.
 		.CLOSE IMXC,	; We were interrupted out of mplxr mode
 		SETZM XCHFLG	; to another mode, so turn mplxrs off.
 		JRST .+1]
-];IFN 0
 	CAIE D,%MDOVH
 	 SETOM OVHTIM		;Allow for RHIST to get clobbered
 	MOVE A,MDTAB(D)	; Get mode dispatch table entry
@@ -1224,9 +1222,7 @@ MDTAB:
 %MD1LN::MODEF "F,1PEEK,,	"Fast 1-line (job#)"
 %MDSCH::MODEF "G,NORMAL,,	"Swap variables"
 	MODEF "H,MEML,%MFERO,	"Histogram of mem usage"
-IFN 0,[
-%MDMPX::MODEF "I,MPXR,,		"IMX??"
-];IFN 0
+%MDMPX::MODEF "I,MPXR,,		"IMX"
 %MDJHK::MODEF "J,JHACK,,	"Joint S+C+A (job#)"
 %MDCHA::MODEF "K,KAOS,,		"Chaosnet connections"
 	MODEF "L,LINES,,	"tty Lines (job#)"
@@ -2692,8 +2688,6 @@ UMSPLS:	ATYPE [ASCIZ /MSP: LOSER??/]
 
 SUBTTL	Mode "I" - IMX/OMX display (obsolete)
 
-IFN 0,[
-
 ;INPUT AND OUTPUT MULTIPLEXORS DISPLAY
 MPXR:	SKIPL XCHFLG
 	 JRST [	SKIPE CRASHF
@@ -2729,7 +2723,6 @@ MPXRL2:	ILDB B,X
 MPXRL3:	ONUM 5,B
 	AOBJN D,MPXRL1
 	RET
-];IFN 0
 
 SUBTTL	Mode "nmM" - Job memory map display