log D4/D5 prologue on Pascal disks [fixes GATO v1.3]

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
+         ldx   #$4F       ; T00,S03,$4F
-         ldy   #$0A
+         jsr   -
-         jsr   compare    ; if T00,S03,$4F ==
-         !byte $BD,$8C,$C0
-         !byte $10,$FB
-         !byte $4A
-         !byte WILDCARD,$6A
-         !byte $D0,$EF
          bcc   .yeslsr    ; passport-test-suite/The Seasons.woz [C=0] matches
 ; RDOS variant
-         ldx   #$4D
+         ldx   #$4D       ; T00,S03,$4D
-         ldy   #$0A
+         jsr   -
-         jsr   compare    ; or T00,S03,$4D ==
+         bcc   .yeslsr    ; passport-test-suite/Roadwar 2000.woz [C=0] matches
-         !byte $BD,$8C,$C0
+; Pascal variant
-         !byte $10,$FB
+         lda   #$0D
-         !byte $4A
+         sta   gDisplayBytes
-         !byte WILDCARD,$6A
+         ldx   #$05       ; T00,S0D,$05
-         !byte $D0,$EF
+         jsr   -
-         bcs   .endlsr    ; passport-test-suite/Roadwar 2000.woz [C=0] matches
+         bcs   .endlsr    ; passport-test-suite/GATO v1.3.woz [C=0] matches
 .yeslsr
          lda   #s_lsr6a
          jsr   PrintByID

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