From fce2a8b1ae67d8a05ebb33fcd9b84cdce5cf0931 Mon Sep 17 00:00:00 2001
From: 4am <a2_4am@sent.com>
Date: Wed, 17 Apr 2019 15:24:32 -0400
Subject: [PATCH] actually save and restore boot slot

---
 src/patchers/choplifter.a | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/patchers/choplifter.a b/src/patchers/choplifter.a
index 78abe3a..62334c9 100644
--- a/src/patchers/choplifter.a
+++ b/src/patchers/choplifter.a
@@ -356,10 +356,10 @@ ReadChoplifter
          lda   $c054
          lda   $c052
          lda   $c050
+         txa
          ldx   #$43
          txs
-         lda   $2B
-         pha
+         pha              ; save boot slot
          lda   #>(.resume-1)
          pha
          lda   #<(.resume-1)
@@ -368,7 +368,7 @@ ReadChoplifter
 
 .resume
          pla
-         sta   $2b
+         sta   $2b        ; restore boot slot
          ldx   #0
 -        lda   .stager,x
          sta   $500,x
@@ -384,6 +384,7 @@ ReadChoplifter
          sty   $807
          ldy   #$60     ; rts
          sty   $84c
+         ldx   $2b      ; SD requires X=boot slot x16
          jsr   .callSD  ; including original $8xx to $7xx
          asl   $807     ; 4xx, second table
          jmp   $500