From 1549c913cdac6251735a2432908804aa1589f5fd Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sun, 3 Jun 2018 19:52:56 +0200
Subject: [PATCH] Bring back IMX mode in PEEK.

---
 src/sysen2/{peek.630 => peek.631} | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)
 rename src/sysen2/{peek.630 => peek.631} (99%)

diff --git a/src/sysen2/peek.630 b/src/sysen2/peek.631
similarity index 99%
rename from src/sysen2/peek.630
rename to src/sysen2/peek.631
index 13ddd22e..2f181f9a 100755
--- a/src/sysen2/peek.630
+++ b/src/sysen2/peek.631
@@ -489,7 +489,7 @@ PARERR:
 QUSR:QUDPR:QUDFPR:QSMPRP:QSMDN:
 QSBYTE:QMPBSZ:QDSKN:QFBLNO:QSCRW:QSRAC:STYSTS:OPRSXB:CALSXB:CLSTB:
 JBDEV:QSFT:QPKID:
-BUGACS:
+BUGACS:MPXBUF:
 XBUSER:XBSTAT:XBSTAU:XBCLSU:XBPORT:XBHOST:XBINBS:XBINPS:XBORTL:XBORTC:
 XBRWND:XBSAVW:MTRCNT:MTRNAM:
 CHSUSR:CHSSTA:CHSNBF:CHSNOS:CHSFRN:CHSACK:CHSPKN:CHSWIN:CHSIBP:CHSOBP:
@@ -498,7 +498,7 @@ PGIHTB:SWPHTB:OVHTB1:
 IPUQHD:IPFDPE:XBITQH:XBORTQ:XBOCOS:]
 
 ;No longer used: DG2:DRTM:EUPOS:UDIR:UDIRO:UGOAL:ULCTM:UTASS:UTBFS:
-;		 UTTNO:UTUSR:UMNTR:MPXBUF:
+;		 UTTNO:UTUSR:UMNTR:
 ;		 IMSOC1:IMSOC2:IMSOC3:IMSOC4:IMSOC5:IMSOC6:IMSOC7:IMSOC8:
 
 ;+SYSBEG(U)
@@ -1113,14 +1113,14 @@ BEG1:	SETZM TOPFLG
 	PUSHJ P,TMPT	;OUTPUT HH:MM:SS
 	PUSHJ P,CRR
 BEG1LN:	HRRZ D,MODE	;GET MODE
-IFN 0,[
+IFN 1,[
 	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
+];IFN 1
 	CAIE D,%MDOVH
 	 SETOM OVHTIM		;Allow for RHIST to get clobbered
 	MOVE A,MDTAB(D)	; Get mode dispatch table entry
@@ -1222,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 (A/D input multiplexor)"
 %MDJHK::MODEF "J,JHACK,,	"Joint S+C+A (job#)"
 %MDCHA::MODEF "K,KAOS,,		"Chaosnet connections"
 	MODEF "L,LINES,,	"tty Lines (job#)"
@@ -2690,7 +2688,7 @@ UMSPLS:	ATYPE [ASCIZ /MSP: LOSER??/]
 
 SUBTTL	Mode "I" - IMX/OMX display (obsolete)
 
-IFN 0,[
+IFN 1,[
 
 ;INPUT AND OUTPUT MULTIPLEXORS DISPLAY
 MPXR:	SKIPL XCHFLG
@@ -2727,7 +2725,7 @@ MPXRL2:	ILDB B,X
 MPXRL3:	ONUM 5,B
 	AOBJN D,MPXRL1
 	RET
-];IFN 0
+];IFN 1
 
 SUBTTL	Mode "nmM" - Job memory map display