From e2771b1b3c1fbee39696e36731b6b80faf64b8ae Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Tue, 11 Aug 2020 18:36:25 -0700
Subject: [PATCH] fix World Karate Championship (#29)

---
 src/idprodos.a | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/src/idprodos.a b/src/idprodos.a
index 4bda77f..88bcf35 100644
--- a/src/idprodos.a
+++ b/src/idprodos.a
@@ -12,11 +12,27 @@ IDProDOS
          !byte $86,$43     ;STA $43
          !byte $C9,$03     ;CMP #$03
          bcs   @exit
+         ldx   #$60
+         stx   $801
+         inc   $3D
+         jsr   $865C
+         lda   #$38
+         sta   $801
+         lda   #9
+         ldx   #$48
+         ldy   #7
+         jsr   CompareMemory
+         !byte $C9,$E7     ;CMP #$E7
+         !byte $D0,$F4     ;BCS *-$0B
+         !byte $BD,$8C,$C0 ;LDA $C08C,X
+         bcc   @exit
+
          ldy   #@ProDOSCallback_e-@ProDOSCallback
 -        lda   @ProDOSCallback-1,y
          sta   @ProDOSCallbackx-1,y
          dey
          bne   -
+
          lda   #$4C
          sta   $8FC
          lda   #<@ProDOSCallbackx