From 085fdcf3ababbe8b47f45f139136db34baef3e7a Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sun, 26 Apr 2020 12:30:05 +0000
Subject: [PATCH] * moved the ZX Spectrum program load address lower, so we
 could fit more code and data

git-svn-id: branches/z80@45093 -
---
 compiler/systems/t_zxspectrum.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/systems/t_zxspectrum.pas b/compiler/systems/t_zxspectrum.pas
index b8ea6b29df..c94f8ac6b3 100644
--- a/compiler/systems/t_zxspectrum.pas
+++ b/compiler/systems/t_zxspectrum.pas
@@ -214,7 +214,7 @@ procedure TLinkerZXSpectrum_SdccSdld.SetDefaultInfo;
   const
     ExeName='sdldz80';
   begin
-    FOrigin:=32768;
+    FOrigin:={32768}23800;
     with Info do
      begin
        ExeCmd[1]:=ExeName+' -n $OPT -i $MAP $EXE -f $RES'