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

diff -r 7aad8084a784 -r 6462dc3978f1 game09/game09.asm
--- a/game09/game09.asm	Mon Aug 06 21:40:55 2018 +0900
+++ b/game09/game09.asm	Tue Aug 07 10:37:59 2018 +0900
@@ -20,8 +20,7 @@
 dpage    rmb   $96
 
 DP00     equ     $00
-DP04     equ     $04
-DP06     equ     $06          variabble A-Z (until DP36)
+DP04     equ     $04          variabble base A-Z (until DP36)
 DP42     equ     $42          program copy pointer
 DP46     equ     $46
 DP4A     equ     $4A          input lineno
@@ -71,7 +70,7 @@
         LDA         #$FF
         STA         ,X
 LC014   LDU         <DPWORK
-        LEAX        DP06-24*2,U
+        LEAX        DP04,U
         STX         <DP04
         LEAX        linebuf-1,U
         STX         <lineb0
@@ -335,7 +334,7 @@
         PULS        X
         LEAX        +$01,X
         RTS  
-        LEAX        +$01,X
+LC22A   LEAX        +$01,X
         BRA         LC1F6
 LC22E   BSR         LC287
         CMPA        #$3A
@@ -361,14 +360,14 @@
         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      -
+        fdb         LC22E-LC251       ffdd      &
+        fdb         LC545-LC251       02f3      '
+        fdb         LC22A-LC251       ffd9      (
+        fdb         LC22E-LC251       ffdd      )
+        fdb         LC22E-LC251       ffdd      *
+        fdb         LC52D-LC251       02dc      +
+        fdb         LC22E-LC251       ffdd      ,
+        fdb         LC529-LC251       02d8      -
 
 LC269   BSR         LC279
         LEAY        D,Y
@@ -732,14 +731,14 @@
 LC521   LBSR        LC373
         BCS         LC532
         LBRA        LC23F
-        BSR         LC51F
+LC529   BSR         LC51F        -
         BRA         LC4F3
-        BSR         LC51F
+LC52D   BSR         LC51F        +
         TSTA 
         BMI         LC4F3
 LC532   RTS  
-        BSR         LC51F
-LC535   PSHS        B,A
+LC535   BSR         LC51F
+        PSHS        B,A
         LDD         ,S++
         LBNE        LC2E4
         INCB 
@@ -752,7 +751,6 @@
         PSHU        B,A
         LDD         <$52
         PSHU        B,A
-LC54E
         LDD         #$3D09
         LBSR        LC319
         ADDD        #1
@@ -793,9 +791,8 @@
         ADDB        #$07
 LC598   ADDB        #$30
         LBRA        LC412
-        CLRA 
+LC5A1   CLRA 
         BSR         LC5BD
-LC5A1
         LBCC        LC64D
 LC5A4   PSHS        B
         BSR         LC5BD
@@ -983,18 +980,18 @@
         LDY         #1
         OS9         I$Write
         PULS        B,X,Y,PC
-SENSE   PSHS        X,Y
+SENSE   PSHS        X,Y,D
         LDA         #0
         LDB         #SS.Ready
-        OS9         i$GetStt
+        OS9         I$GetStt
         CMPB        #$F6       Not Ready
         BNE         RSENSE
         CLRB
-        BRA         RNSENSE
+        PULS        X,Y,D,PC
 RSENSE
         ORCC        #1        set carry to indicate ready
 RNSENSE
-        PULS        X,Y,PC
+        PULS        X,Y,D,PC