From 667031e92d5f056d091f5e7b1bb2cd8c2ef2d179 Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Tue, 31 Jan 2017 12:53:52 -0800
Subject: [PATCH] fix Music Construction Set

---
 src/passport.a    |  2 +-
 src/patchers/ea.a | 21 +++++++++++++++++++++
 src/strings/en.a  |  2 +-
 3 files changed, 23 insertions(+), 2 deletions(-)

diff --git a/src/passport.a b/src/passport.a
index f8b0c0b..601e20b 100755
--- a/src/passport.a
+++ b/src/passport.a
@@ -94,7 +94,7 @@ flag     =     $FF        ; byte
 }
 
 ; Application constants (not zero addresses)
-RELBASE  =     $6B00      ; address to move Passport code
+RELBASE  =     $6A00      ; address to move Passport code
                           ; so that it's out of the way
 BASEPAGE =     $10        ; Special Delivery tracer assumes
                           ; this is $10, so don't change it!
diff --git a/src/patchers/ea.a b/src/patchers/ea.a
index 4fe25ef..cc139a2 100644
--- a/src/patchers/ea.a
+++ b/src/patchers/ea.a
@@ -165,6 +165,27 @@ _ea
          jsr   modify
          !byte $2C
 
++        ldy   #23
+         jsr   SearchTrack
+         ;looks like garbage because it's enciphered
+         !byte $03, $5B      ;ldi  #$00
+         !byte $06, $FF, $97 ;sta  $4ee4
+         !byte $1C, $E0, $8F ;jsra $4ce3
+         !byte $05, $FB, $95 ;jsra $4ce3
+         !byte $19, $E0, $88 ;jsra $4ce3
+         !byte $05, $FE, $95 ;jsra $4ce3
+         !byte $1B, $EB, $39 ;lda  $c0e8
+         !byte $04, $C6, $97 ;lda  $4ee4
+         bcs   .exit
+         pha
+         txa
+         adc   #21
+         tax
+         pla
+         ldy   #1
+         jsr   modify
+         !byte $C7
+
 .dostitles
          ldy   #23
          jsr   SearchTrack
diff --git a/src/strings/en.a b/src/strings/en.a
index 49ab216..ec89a78 100755
--- a/src/strings/en.a
+++ b/src/strings/en.a
@@ -188,7 +188,7 @@ StringTable
 ; can be set directly before calling PrintByID.
 ;
 .header
-         !text "Passport by 4am               2017-01-30",00
+         !text "Passport by 4am               2017-01-31",00
 .mainmenu
          !text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D
          !text "              "