# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1533559255 -32400
# Node ID 7aad8084a7847e60622968b982586cb7cfdda24c
# Parent  c29030b5e4b4bdc589c88f30bb382c2327adb151
fix game09 table jump and assignment

diff -r c29030b5e4b4 -r 7aad8084a784 game09/game09.asm
--- a/game09/game09.asm	Mon Aug 06 17:36:20 2018 +0900
+++ b/game09/game09.asm	Mon Aug 06 21:40:55 2018 +0900
@@ -20,6 +20,8 @@
 dpage    rmb   $96
 
 DP00     equ     $00
+DP04     equ     $04
+DP06     equ     $06          variabble A-Z (until DP36)
 DP42     equ     $42          program copy pointer
 DP46     equ     $46
 DP4A     equ     $4A          input lineno
@@ -69,6 +71,8 @@
         LDA         #$FF
         STA         ,X
 LC014   LDU         <DPWORK
+        LEAX        DP06-24*2,U
+        STX         <DP04
         LEAX        linebuf-1,U
         STX         <lineb0
         LEAX        1,X
@@ -353,18 +357,18 @@
         LDD         B,Y
         JMP         D,Y
 
-LC251   fdb         LC6EC-*       049b
-        fdb         LC535-*       02e2
-        fdb         LC5A1-*       034c
-        fdb         LC545-*       02ee
-        fdb         LC236-*       ffdd
-        fdb         LC54E-*       02f3
-        fdb         LC236-*       ffd9
-        fdb         LC23C-*       ffdd
-        fdb         LC23E-*       ffdd
-        fdb         LC53F-*       02dc
-        fdb         LC23F-*       ffdd
-        fdb         LC53F-*       02d8
+LC251   fdb         LC6EC-LC251       049b      "
+        fdb         LC535-LC251       02e2      #
+        fdb         LC5A1-LC251       034c      $
+        fdb         LC545-LC251       02ee      %
+        fdb         LC236-LC251       ffdd      &
+        fdb         LC54E-LC251       02f3      '
+        fdb         LC236-LC251       ffd9      (
+        fdb         LC23C-LC251       ffdd      )
+        fdb         LC23E-LC251       ffdd      *
+        fdb         LC53F-LC251       02dc      +
+        fdb         LC23F-LC251       ffdd      ,
+        fdb         LC53F-LC251       02d8      -
 
 LC269   BSR         LC279
         LEAY        D,Y
@@ -392,7 +396,7 @@
 LC292   ANDB        #$3F
         CLRA 
         LSLB 
-        ADDD        <$04
+        ADDD        <DP04
         TFR         D,Y
         RTS  
 LC29C   PSHU        B,A