From 25bf412d761d27d8eeb8a4b16aa245cc77977997 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Tue, 25 Jun 2019 19:20:57 +0200
Subject: [PATCH] Fix SALV not to use DF10C 22-bit addressing on a KA10.

Use plain 18-bit addressing instead.
---
 src/system/{salv.313 => salv.314} | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)
 rename src/system/{salv.313 => salv.314} (99%)

diff --git a/src/system/salv.313 b/src/system/salv.314
similarity index 99%
rename from src/system/salv.313
rename to src/system/salv.314
index 1d1819d3..9b612d75 100644
--- a/src/system/salv.313
+++ b/src/system/salv.314
@@ -280,6 +280,7 @@ RP,[
 ]
 RH,[
 	.INSRT SYSTEM;RH10 >
+KA,	$DFWC==222200,,
 ]
 TS,	NTUTBL==4	;MAXIMUM NUMBER OF BLOCKS PER TUT ON ANY ITS
 
@@ -1993,7 +1994,8 @@ RHFMP2:	MOVE T,RHWC(H)
 	 AOJA B,RHFMP1
 	CAIE A,202*NSECS
 	 JRST 4,.		;WRONG AMOUNT OF CRUFT GENERATED
-	MOVE A,[-202*NSECS_4,,CYLBUF-1] ;SET UP IOWD
+KA,	MOVE A,[-202*NSECS,,CYLBUF-1] ;SET UP IOWD
+KL,	MOVE A,[-202*NSECS_4,,CYLBUF-1]
 	MOVEM A,SLVIOWD
 	SETZM SLVIOWD+1
 	MOVEI A,SLVIOWD
@@ -5755,7 +5757,8 @@ RESET5:	SKIPE MARKF
 	MOVSI A,%HRADR
 	PUSHJ P,RHSET
 	 JRST RESETL
-	MOVE A,[-2_4,,SLVIOWD-1]
+KA,	MOVE A,[-2,,SLVIOWD-1]
+KL,	MOVE A,[-2_4,,SLVIOWD-1]
 	MOVEM A,SLVICWA
 	SETZM SLVICWA+1
 KL,[	SWPUO 0