Merge pull request #47 from peterferrie/master

support Amnesia

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

src/patchers/ea.a

@@ -285,6 +285,50 @@
          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   #31
+         jsr   SearchTrack
+         !byte $03,$4C     ;LDI  #$00
+         !byte $06,$E1,$7B ;STA  $a2e2
+         !byte $03,$AB     ;LDI  #$e7
+         !byte $05,$02,$78 ;JSRA $a101
+         !byte $03,$AD     ;LDI  #$e1
+         !byte $05,$02,$78 ;JSRA $a101
+         !byte $03,$AB     ;LDI  #$e7
+         !byte $05,$02,$78 ;JSRA $a101
+         !byte $03,$A9     ;LDI  #$e5
+         !byte $05,$02,$78 ;JSRA $a101
+         !byte $04,$EB,$19 ;LDA  $c0e8
+         !byte $04,$E1,$7B ;LDA  $a2e2
+         bcs   +
+         pha
+         txa
+         adc   #29
+         tax
+         pla
+         ldy   #1
+         jsr   modify
+         !byte $D1         ;lda from known-zero instead
+
 +        ldy   #16
          jsr   SearchTrack
          !byte $49,$4E     ;EOR #$4E
@@ -312,7 +356,7 @@
          !byte $D0,$FA
          !byte $C9,$A0
          !byte $F0
-         bcs   .exit
+         bcs   +
          pha
          txa
          adc   #12
@@ -322,6 +366,27 @@
          jsr   modify
          !byte $A1         ;new checksum value for eor
 
++        ldy   #25
+         jsr   SearchTrack
+         !byte $04,$4F,$D9 ;LDA $004c
+         !byte $0A,$03,$7B ;LDX ($a200,A)
+         !byte $10,$F1,$70 ;SUB $a9f2
+         !byte $06,$F1,$70 ;STA $a9f2
+         !byte $0C,$4F,$D9 ;INC $004c
+         !byte $07,$AC     ;CMP #$e0
+         !byte $0F,$E5,$71 ;BNE $a8e6
+         !byte $04,$F1,$70 ;LDA $a9f2
+         !byte $07,$AB     ;CMP #$e7
+         bcs   .exit
+         pha
+         txa
+         adc   #24
+         tax
+         pla
+         ldy   #1
+         jsr   modify
+         !byte $BB         ;new checksum value for eor
+
 .dostitles
          lda   gIsBoot0
          bne   .exit

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