From cf93d79009694b30e98fac5bd1724821a9cd0f06 Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Mon, 9 Dec 2019 17:05:13 -0800
Subject: [PATCH] fix Stellar 7 and Serpentine

---
 src/prelaunch/serpentine.a | 6 +++---
 src/prodos.impl.lc2.a      | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/prelaunch/serpentine.a b/src/prelaunch/serpentine.a
index 200968e58..16ef002f0 100644
--- a/src/prelaunch/serpentine.a
+++ b/src/prelaunch/serpentine.a
@@ -15,10 +15,10 @@
          sta   $F1,x
          dex
          bpl   -
-         lda   #$F1       ; call patch instead of $222
-         sta   $8BE3
+         lda   #$F1       ; call patch instead of $233
+         sta   $8C96
          lda   #$00
-         sta   $8BE4
+         sta   $8C97
          jmp   $43F5      ; decompress and show title
 patch
          jsr   $0100      ; decompress
diff --git a/src/prodos.impl.lc2.a b/src/prodos.impl.lc2.a
index cd02e338d..02c8c9605 100644
--- a/src/prodos.impl.lc2.a
+++ b/src/prodos.impl.lc2.a
@@ -131,10 +131,10 @@ ProDOS_enter
          lda   ldrlo2+1
          sta   (ipacket), y
          ldy   #$13
-         lda   (bloklo), y
+         lda   (scratchlo), y
          tax
          iny
-         lda   (bloklo), y
+         lda   (scratchlo), y
          ldy   #9
          sta   (ipacket), y
          txa