From d63ced0fabada5f4cf98236d7d54019b6828286d Mon Sep 17 00:00:00 2001
From: 4am <a2_4am@sent.com>
Date: Wed, 7 Apr 2021 21:44:09 -0400
Subject: [PATCH] log D4/D5 prologue on Pascal disks [fixes GATO v1.3]

---
 src/patchers/rwtslog.a | 37 ++++++++++++++++++++-----------------
 src/strings/en.a       |  2 +-
 2 files changed, 21 insertions(+), 18 deletions(-)

diff --git a/src/patchers/rwtslog.a b/src/patchers/rwtslog.a
index 88b2119..7b6adb0 100644
--- a/src/patchers/rwtslog.a
+++ b/src/patchers/rwtslog.a
@@ -14,29 +14,32 @@
          bit   gMode      ; nothing to do here in verify mode
          bmi   +
          jmp   .exit
+-
+         ldy   #$0A
+         jsr   compare
+         !byte $BD,$8C,$C0
+         !byte $10,$FB
+         !byte $4A
+         !byte WILDCARD,$6A
+         !byte $D0,$EF
+         rts
 +
 ; DOS 3.3 variant
          lda   #$03
          sta   gDisplayBytes
-         ldx   #$4F
-         ldy   #$0A
-         jsr   compare    ; if T00,S03,$4F ==
-         !byte $BD,$8C,$C0
-         !byte $10,$FB
-         !byte $4A
-         !byte WILDCARD,$6A
-         !byte $D0,$EF
+         ldx   #$4F       ; T00,S03,$4F
+         jsr   -
          bcc   .yeslsr    ; passport-test-suite/The Seasons.woz [C=0] matches
 ; RDOS variant
-         ldx   #$4D
-         ldy   #$0A
-         jsr   compare    ; or T00,S03,$4D ==
-         !byte $BD,$8C,$C0
-         !byte $10,$FB
-         !byte $4A
-         !byte WILDCARD,$6A
-         !byte $D0,$EF
-         bcs   .endlsr    ; passport-test-suite/Roadwar 2000.woz [C=0] matches
+         ldx   #$4D       ; T00,S03,$4D
+         jsr   -
+         bcc   .yeslsr    ; passport-test-suite/Roadwar 2000.woz [C=0] matches
+; Pascal variant
+         lda   #$0D
+         sta   gDisplayBytes
+         ldx   #$05       ; T00,S0D,$05
+         jsr   -
+         bcs   .endlsr    ; passport-test-suite/GATO v1.3.woz [C=0] matches
 .yeslsr
          lda   #s_lsr6a
          jsr   PrintByID
diff --git a/src/strings/en.a b/src/strings/en.a
index d2475d7..42ac8e7 100755
--- a/src/strings/en.a
+++ b/src/strings/en.a
@@ -288,7 +288,7 @@ StringTableHigh
 ; can be set directly before calling PrintByID.
 ;
 .header
-         !text "Passport by 4am               2021-04-06",$00
+         !text "Passport by 4am               2021-04-07",$00
 .mainmenu
          !text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D,$8D
          !text "               "