From 61bfe699a44636994a99be58f96162bc2abe054b Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Sun, 9 Aug 2020 11:41:12 -0700
Subject: [PATCH] fix Saracen on IIGS

---
 src/prelaunch/saracen.a | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/prelaunch/saracen.a b/src/prelaunch/saracen.a
index 3d510c9e6..814ce612e 100644
--- a/src/prelaunch/saracen.a
+++ b/src/prelaunch/saracen.a
@@ -26,7 +26,11 @@ callback
          dec   $8DE       ; patch - don't decrease lives
 +
          +RESET_VECTOR $100
+         lda   $7fe       ; Saracen code
+         pha
          +DISABLE_ACCEL
+         pla
+         sta   $7fe       ; overwritten by GS acceleration
          jmp   $400
 
 !if * > $1C0 {