From e8eb90f5928278d011dedfbd72b20b9b72dc3e7f Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Sat, 4 May 2019 21:12:10 -0700
Subject: [PATCH] prevent DOS 3.3P escape

---
 src/id/trace33p.a | 22 ++++++++++++----------
 src/strings/en.a  |  2 +-
 2 files changed, 13 insertions(+), 11 deletions(-)

diff --git a/src/id/trace33p.a b/src/id/trace33p.a
index fcdddf6..90c8252 100755
--- a/src/id/trace33p.a
+++ b/src/id/trace33p.a
@@ -59,18 +59,20 @@ TraceSpecDel3
          lda   $1212
          cmp   #$D8
          bne   SDfail
-         lda   #$4C
-         sta   $10D5
+         ldy   #$00
+         lda   $10D1
+         cmp   #$A2
+         beq   +
+         ldy   #$04
++        lda   #$4C
+         sta   $10D1,Y
+         sta   $10EC,Y
          lda   #<TraceSpecDel4
-         sta   $10D6
+         sta   $10D2,Y
+         sta   $10ED,Y
          lda   #>TraceSpecDel4
-         sta   $10D7
-         lda   #$4C
-         sta   $10F0
-         lda   #<TraceSpecDel4
-         sta   $10F1
-         lda   #>TraceSpecDel4
-         sta   $10F2
+         sta   $10D3,Y
+         sta   $10EE,Y
          jmp   $1212
 
 TraceSpecDel4
diff --git a/src/strings/en.a b/src/strings/en.a
index 271a149..93a9ce4 100755
--- a/src/strings/en.a
+++ b/src/strings/en.a
@@ -280,7 +280,7 @@ StringTableHigh
 ; can be set directly before calling PrintByID.
 ;
 .header
-         !text "Passport by 4am               2019-05-03",$00
+         !text "Passport by 4am               2019-05-04",$00
 .mainmenu
          !text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D,$8D
          !text "               "