From d739c08dab1a0cf417ba3353853981551f3bbc0f Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Mon, 11 Sep 2023 17:35:29 -0700
Subject: [PATCH 1/2] fix bug in ProDOS tracer (#40)

---
 src/anti-m.a   | 4 ++--
 src/idprodos.a | 6 +++++-
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/src/anti-m.a b/src/anti-m.a
index 106d723..92ae521 100644
--- a/src/anti-m.a
+++ b/src/anti-m.a
@@ -6,7 +6,7 @@
 ;-------------------------------
 ; Anti-M
 ; a 4am hack
-; (c) 2019-2022 by 4am
+; (c) 2019-2023 by 4am
 ;
 ; Permission is hereby granted, free of charge, to any
 ; person obtaining a copy of this software and associated
@@ -344,7 +344,7 @@ StringTable
          !word @mainmenu
 
 @header
-         !text "Anti-M v1.9 by 4am            2023-05-15"
+         !text "Anti-M v1.10pre by 4am        2023-09-11"
          !text "________________________________________",$8D
          !text $8D,$8D,$8D,$8D,$8D,$8D,$8D,$8D,$00
 @mainmenu
diff --git a/src/idprodos.a b/src/idprodos.a
index 88bcf35..5eb6061 100644
--- a/src/idprodos.a
+++ b/src/idprodos.a
@@ -15,7 +15,10 @@ IDProDOS
          ldx   #$60
          stx   $801
          inc   $3D
-         jsr   $865C
+         jsr   $C65C
+         dec   $27
+         dec   $3D
+         dec   $3D
          lda   #$38
          sta   $801
          lda   #9
@@ -39,6 +42,7 @@ IDProDOS
          sta   $8FD
          lda   #>@ProDOSCallbackx
          sta   $8FE
+         clc
 @exit
          rts
 

From 3a6b60cc722bf22d1b2058d7ea7bdd2f104e3634 Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Sun, 17 Sep 2023 20:41:15 -0700
Subject: [PATCH 2/2] strengthen drive 2 detection, set init A properly (fixes
 Micro League Basball) (#41)

---
 src/anti-m.a | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/anti-m.a b/src/anti-m.a
index 92ae521..2532ad7 100644
--- a/src/anti-m.a
+++ b/src/anti-m.a
@@ -175,6 +175,8 @@ CheckDrive2
          bne   --
 -        lda   $C0EC
          bpl   -
+         cmp   #$96
+         bne   --
 
 @driveoff
          lda   $C0E8
@@ -277,7 +279,7 @@ BeginTheBoot
          lda   #$11 ;Virtual II fix
          pha
          plp ;match boot-time flags and registers
-         lda   #1
+         lda   $800 ;might not be 1
          ldy   #0
          ldx   #$60
          jmp   $0801
@@ -344,7 +346,7 @@ StringTable
          !word @mainmenu
 
 @header
-         !text "Anti-M v1.10pre by 4am        2023-09-11"
+         !text "Anti-M v1.10pre by 4am        2023-09-17"
          !text "________________________________________",$8D
          !text $8D,$8D,$8D,$8D,$8D,$8D,$8D,$8D,$00
 @mainmenu