fix Music Construction Set

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!

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

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 "              "