From 8fe7a06cc354349a72b0558d89da19f27c644e36 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Thu, 30 Apr 2020 09:30:02 +0200
Subject: [PATCH] Backport SYMFOR from PDS-4 to PDS-1.

---
 src/imsrc/{symfor.10 => symfor.11} | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)
 rename src/imsrc/{symfor.10 => symfor.11} (99%)

diff --git a/src/imsrc/symfor.10 b/src/imsrc/symfor.11
similarity index 99%
rename from src/imsrc/symfor.10
rename to src/imsrc/symfor.11
index 5bb04f03..aeebc177 100644
--- a/src/imsrc/symfor.10
+++ b/src/imsrc/symfor.11
@@ -1,11 +1,13 @@
 TITLE NSYMFORM
 
-PDS4=1
-MAXADR=37777
+IFNDEF PDS4,PDS4=1
+MAXADR=<PDS4+1>*20000-1
 .INSRT imlac;IMDEFS >
-.insrt imlac;DISFIX >
+IFN PDS4,.insrt imlac;DISFIX >
 .ADDR.=1
 
+STARTA=<PDS4*2+1>*10000
+
 ; damn midas!
 IF1, EXPUNG HRLS HLRZ MUL
 
@@ -47,12 +49,12 @@ DEFINE DSP K,D
 TERMIN
 
 
-LOC 30000
+LOC STARTA
 
 START:	JMS RESET		; reset the world
 CONT:	JMP INIT		; so can test characters in SSV!
 
-LOC 30030
+LOC STARTA+30
 
 ; reinitialize the world
 INIT:	LAC [JMP @2]		; set up symfor interrupt dispatching
@@ -2324,4 +2326,3 @@ BUFEND:	0
 BUFFER:	0
 
 	END START
-
\ No newline at end of file