From c43e056c7c89ee449ecf2aed41de371ddc338b3c Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Fri, 30 Aug 2019 08:30:04 +0200
Subject: [PATCH] Add check to DUMP that KS10P matches NEWCOD.

On a KS10, DUMP must use the NEWCOD code, and on KA10/KL10 it must not.
---
 src/syseng/{dump.445 => dump.446} | 7 +++++++
 1 file changed, 7 insertions(+)
 rename src/syseng/{dump.445 => dump.446} (99%)

diff --git a/src/syseng/dump.445 b/src/syseng/dump.446
similarity index 99%
rename from src/syseng/dump.445
rename to src/syseng/dump.446
index f138e599..a007fa1d 100644
--- a/src/syseng/dump.445
+++ b/src/syseng/dump.446
@@ -1133,6 +1133,13 @@ START:	SKIPN MYNAME		;DON'T CHANGE IF NOT JUST LOADED
 	.CORE CORSIZ
 	 JRST .-1
 	.SUSET [.SMASK,,[%PIIOC+%PITYI]]	;ALLOW IOC, TYPEIN
+	;Check that KS10P matches NEWCOD.
+	MOVE A,[SQUOZE 0,KS10P]
+	.EVAL A,
+	 MOVEI A,0
+	CAIE A,NEWCOD
+	 .VALUE [ASCII /:NEWCOD doesn't match the processor type.
+/]
 	;COPY QPKID AND QRESRV ARRAYS OUT OF ITS
 	MOVE C,[SQUOZE 0,NQS]
 	.EVAL C,