From 5d048bdd0dcd4601b013473c0455524f26545540 Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Thu, 25 Jan 2018 11:56:43 -0800
Subject: [PATCH] support Amnesia

---
 src/id/ea.a       |  7 +++++++
 src/patchers/ea.a | 20 ++++++++++++++++++++
 src/strings/en.a  |  2 +-
 3 files changed, 28 insertions(+), 1 deletion(-)

diff --git a/src/id/ea.a b/src/id/ea.a
index 053e5e7..67fd005 100644
--- a/src/id/ea.a
+++ b/src/id/ea.a
@@ -30,6 +30,13 @@ IDEA
          !byte $8D,$F4,$03,$A9,$00,$8D,$C7,$09
          !byte $AD,$E9,$C0,$A9,$B7,$48,$A9,$B0
          !byte $85,$3E,$A9,$00,$20,$00,$0C
+         bcc   +
+         lda   #$00
+         tax
+         ldy   #16
+         jsr   compare
+         !byte $01,$A5,$27,$C9,$09,$D0,$2E,$A2
+         !byte $10,$8A,$9D,$EF,$03,$CA,$D0,$F9
 +        rts
 
 foundea
diff --git a/src/patchers/ea.a b/src/patchers/ea.a
index 513fe86..4f4766e 100644
--- a/src/patchers/ea.a
+++ b/src/patchers/ea.a
@@ -285,6 +285,26 @@
          jsr   modify
          !byte $E0         ;lda from known-zero instead
 
++        ldy   #23
+         jsr   SearchTrack
+         !byte $03,$4C     ;LDI  #$00
+         !byte $06,$E1,$E0 ;STA  $39e2
+         !byte $05,$D3,$EE ;JSRA $37d0
+         !byte $05,$D3,$EE ;JSRA $37d0
+         !byte $05,$D3,$EE ;JSRA $37d0
+         !byte $05,$D3,$EE ;JSRA $37d0
+         !byte $04,$EB,$19 ;LDA  $c0e8
+         !byte $04,$E1,$E0 ;LDA  $39e2
+         bcs   +
+         pha
+         txa
+         adc   #21
+         tax
+         pla
+         ldy   #1
+         jsr   modify
+         !byte $E0         ;lda from known-zero instead
+
 +        ldy   #16
          jsr   SearchTrack
          !byte $49,$4E     ;EOR #$4E
diff --git a/src/strings/en.a b/src/strings/en.a
index 1b6dae7..d9132d2 100755
--- a/src/strings/en.a
+++ b/src/strings/en.a
@@ -138,7 +138,7 @@ StringTable
 ; can be set directly before calling PrintByID.
 ;
 .header
-         !text "Passport by 4am               2018-01-20",$00
+         !text "Passport by 4am               2018-01-25",$00
 .mainmenu
          !text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D
          !text "              "