From 30151dd22d4c599981fb3a715e6a3c4e79f15196 Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Sun, 7 Jan 2024 17:14:25 -0800
Subject: [PATCH] fix Serpentine launch

---
 ...pentine 18k file PRODOS (san inc crack).po | Bin 819200 -> 819200 bytes
 src/prelaunch/serpentine.a                    |  25 ++++++++++++------
 2 files changed, 17 insertions(+), 8 deletions(-)

diff --git a/res/dsk/serpentine 18k file PRODOS (san inc crack).po b/res/dsk/serpentine 18k file PRODOS (san inc crack).po
index 1f369513f2760dce94d0974ea3908bb037d0eb70..67fe5a891f150853d439f702538e1f2689158209 100644
GIT binary patch
delta 100
zcmZo@FluNp+AxuYS>1qX^Ar~G$x`R}tnY~MoLiv2l566*E(wNAo>eCgOz2t0aCY+1
t>GF(co1ac^e>$BJh?#(x8Hibcm=%cGfS4VKIe?fGh`F{uoz5-&0sv>cE*by;

delta 100
zcmZo@FluNp+AxuYdA%OT<|!=VlcnDCS>F-iIk!N4CD+7vT@nnLJgZI~n9#F~;qBz3
t)8!f8Hb0%-{&YGc5HkTWGZ3=?F)I+W0Wmuea{w_X5OZyRI-Ohk1pv6}FD3v0

diff --git a/src/prelaunch/serpentine.a b/src/prelaunch/serpentine.a
index 64fba1738..1444f6dcc 100644
--- a/src/prelaunch/serpentine.a
+++ b/src/prelaunch/serpentine.a
@@ -1,5 +1,5 @@
 ;license:MIT
-;(c) 2019-2020 by 4am
+;(c) 2019-2020, 2023 by 4am and qkumba
 
 !cpu 6502
 !to "build/PRELAUNCH.INDEXED/SERPENTINE",plain
@@ -7,20 +7,29 @@
 
          !source "src/prelaunch/common.a"
 
+         +ENABLE_ACCEL
          +NEW_RESET_VECTOR $3C0
-         ldx   #$0E       ; copy patch code to zero page (stack will be destroyed by the time we need to patch)
+         ldx   #(patch_e-patch)-1
 -        lda   patch,x
-         sta   $3B0,x
+         sta   $390,x
          dex
          bpl   -
-         lda   #$B0       ; call patch instead of $233
-         sta   $8C96
+         lda   #$90       ; call patch instead of $4000
+         sta   $8C58
          lda   #$03
-         sta   $8C97
+         sta   $8C59
+         lda   #$4C
+         sta   $8CEF
          jmp   $43F5      ; decompress and show title
-patch
-         jsr   $00F0      ; decompress
+patch !pseudopc $390 {
+         +DISABLE_ACCEL
+         jsr   $4000
+         +ENABLE_ACCEL
+         jsr   $8C5A
+         +DISABLE_ACCEL
          jmp   $0800
+}
+patch_e
 
 !if * > $1C0 {
   !error "code is too large, ends at ", *