From edb85af24b83dbcbacc02817df2807aef196e969 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Mon, 10 Dec 2018 13:30:56 +0100
Subject: [PATCH] Fix PEEK "K" mode when ITS doesn't have Chaosnet.

---
 src/sysen2/peek.630 | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/src/sysen2/peek.630 b/src/sysen2/peek.630
index 13ddd22e..8d9027c9 100755
--- a/src/sysen2/peek.630
+++ b/src/sysen2/peek.630
@@ -3624,9 +3624,15 @@ ERRDV4:	CAME X,[SIXBIT /DSK/]
 
 SUBTTL	Mode "K" - Chaosnet connections
 
-KAOS:	SKIPN JHFLAG
-	 ATYPE KTOP
-	SETZM RNDFLG
+KAOS:	SKIPE JHFLAG
+	 JRST KAOS1
+	SKIPE CHUSR
+	 JRST KAOS2
+	ATYPE [ASCIZ /
+This machine has no Chaosnet./]
+	POPJ P,
+KAOS2:	ATYPE KTOP
+KAOS1:	SETZM RNDFLG
 	MOVE C,NINDX
 KAOS0:	SOJL C,KAOS10
 	SKIPGE @CHSUSR