From 063f4e16be777a9cdcce451e542ffb1b86312cce Mon Sep 17 00:00:00 2001
From: 4am <a2_4am@sent.com>
Date: Wed, 17 Apr 2019 15:00:26 -0400
Subject: [PATCH] save and restore boot slot across title page

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

diff --git a/src/patchers/choplifter.a b/src/patchers/choplifter.a
index 5588ba8..78abe3a 100644
--- a/src/patchers/choplifter.a
+++ b/src/patchers/choplifter.a
@@ -356,8 +356,10 @@ ReadChoplifter
          lda   $c054
          lda   $c052
          lda   $c050
-         ldx   #$42
+         ldx   #$43
          txs
+         lda   $2B
+         pha
          lda   #>(.resume-1)
          pha
          lda   #<(.resume-1)
@@ -365,6 +367,8 @@ ReadChoplifter
          jmp   $4000
 
 .resume
+         pla
+         sta   $2b
          ldx   #0
 -        lda   .stager,x
          sta   $500,x
@@ -380,7 +384,6 @@ ReadChoplifter
          sty   $807
          ldy   #$60     ; rts
          sty   $84c
-         ldx   $2b
          jsr   .callSD  ; including original $8xx to $7xx
          asl   $807     ; 4xx, second table
          jmp   $500