From 51b01312ff7ae65f56e60147588e8bfaae865d4f Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sat, 25 Jan 2020 20:52:44 +0100
Subject: [PATCH] Reinstate features in PEEK.

DECtape, 340, PDP-6, paper tape reader, and punch.
---
 src/sysen2/peek.631 | 23 ++++++++++-------------
 1 file changed, 10 insertions(+), 13 deletions(-)

diff --git a/src/sysen2/peek.631 b/src/sysen2/peek.631
index b5bb3e63..849575ce 100755
--- a/src/sysen2/peek.631
+++ b/src/sysen2/peek.631
@@ -474,9 +474,10 @@ CHNPI:CHNPO:CHNPF:CHNSTS:CHNSNS:CHNRTR:CHNPFL:CHNPD:
 CHNABT:CHNCRC:CHNCR2:CHNWLE:CHNPLE:CHNLOS:CHNSPZ:
 CHTTBF:CHFRBF:CHQRFC:CHQLSN:CHNIPI:CHNIPO:
 TCPUP:PKBNT:PKBNF:OVHTB2:
-PKEQHF:IPOUTQ:IPOBLQ:PKETBL:]
+PKEQHF:IPOUTQ:IPOBLQ:PKETBL:
+DISUSR:LPTUSR:PDPUSR:PTPUSR:PTRUSR:]
 
-;No longer used: DISUSR:LPTUSR:NVDUSR:PDPUSR:PLTUSR:PTPUSR:PTRUSR:TABUSR:
+;No longer used: NVDUSR:PLTUSR:TABUSR:
 ;		 MSUSER:MSREAD:MSRED2:MSWRIT:MSWRT2:IMPBPQ:
 ;		 IMNOSH:IMNISH:IMPNPE:IMNSRF:IMNSRC:IMNRFN:IMPNIH:
 
@@ -495,10 +496,11 @@ XBRWND:XBSAVW:MTRCNT:MTRNAM:
 CHSUSR:CHSSTA:CHSNBF:CHSNOS:CHSFRN:CHSACK:CHSPKN:CHSWIN:CHSIBP:CHSOBP:
 IPGWTN:IPGWTG:IPGWTI:IPGWTM:SBNRUT:
 PGIHTB:SWPHTB:OVHTB1:
-IPUQHD:IPFDPE:XBITQH:XBORTQ:XBOCOS:]
+IPUQHD:IPFDPE:XBITQH:XBORTQ:XBOCOS:
+DG2:DRTM:EUPOS:UDIR:UDIRO:UGOAL:ULCTM:UTASS:UTBFS:
+UTTNO:UTUSR:UMNTR:]
 
-;No longer used: DG2:DRTM:EUPOS:UDIR:UDIRO:UGOAL:ULCTM:UTASS:UTBFS:
-;		 UTTNO:UTUSR:UMNTR:MPXBUF:
+;No longer used: MPXBUF:
 ;		 IMSOC1:IMSOC2:IMSOC3:IMSOC4:IMSOC5:IMSOC6:IMSOC7:IMSOC8:
 
 ;+SYSBEG(U)
@@ -1234,7 +1236,7 @@ IFN 0,[
 	MODEF "R,RNABLE,%MFERO,	"Running jobs"
 %MDS::	MODEF "S,SPEEK,,	"Single Tree (job#)"
 	MODEF "T,TRANPK,,	"Translations"
-IFN 0,	MODEF "U,UTPEEK,%MFERO,	"Utape??"
+	MODEF "U,UTPEEK,%MFERO,	"Utape"
 	MODEF "V,DOUSER,,	"job Variables (job#)"
 		; ULOOK checks MODE to hack this one (swap vars)
 	MODEF "W,WROUTE,,	"Internet, Chaosnet routing tables (1W is Chaos only)"
@@ -6096,7 +6098,6 @@ RESR2:	MOVEI T,"%
 	HRRZ B,@UREALT
 	CAMN U,B
 	JSP A,RESCHO            ;real time user
-IFN 0,[
 	SKIPE PDPUSR
 	CAME U,@PDPUSR
 	JRST RESR4
@@ -6106,7 +6107,6 @@ IFN 0,[
 	CONI 130,A
 	SKIPN A
 	JSP A,RESCHO            ;340 display user
-];IFN 0
 RESR4:	MOVSI B,RESTAB-RESTBE
 RESR3A:	HRRZ T,RESTAB(B)
 	SKIPN (T)
@@ -6142,12 +6142,12 @@ RESOR3:	JFCL
 ODEVER RESOR3
 
 RESTAB:	"C_11.,,@CUSER          ;core alocator user
-IFN 0,[		;Remove stuff that no longer exists
 	"D_11.,,@DISUSR         ;340 display user
 	"L_11.,,@LPTUSR         ;line printer user
 	"R_11.,,@PTRUSR         ;paper tape reader user
-	"P_11.,,@PLTUSR         ;plotter user
 	"T_11.,,@PTPUSR         ;paper tape punch user
+IFN 0,[		;Remove stuff that no longer exists
+	"P_11.,,@PLTUSR         ;plotter user
 	"V_11.,,@NVDUSR         ;tv camera user
 	"S_11.,,@TABUSR         ;tablet user
 ];IFN 0
@@ -7268,8 +7268,6 @@ LOVHMT==.-OVHMTN
 
 SUBTTL	Mode "U" - DECtape status display
 
-IFN 0,[
-
 UTPEEK:	ATYPE UTTOP
 	MOVN C,NUNITS
 	HRLZS C
@@ -7339,7 +7337,6 @@ UTTOP:	ASCIZ /Dirc Goal Pos Dg2 Dir   Umntr  Utass
 /
 UTMID:	ASCIZ /Cn Tn Uname  Jname  Dir Bufs
 /
-];IFN 0
 
 SUBTTL	Misc constants