# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1546300544 -32400
# Node ID bc9f2f44342155a00e0c2914296b22e120cd8f4c
# Parent  a8b7dfc1baf560072f9042950f3086f4318a22ca
fix

diff -r a8b7dfc1baf5 -r bc9f2f443421 game09/game09.asm
--- a/game09/game09.asm	Tue Jan 01 08:16:34 2019 +0900
+++ b/game09/game09.asm	Tue Jan 01 08:55:44 2019 +0900
@@ -54,7 +54,7 @@
 lineend  rmb     2      $A2
 ustack   rmb     128
 linebuf  rmb     252
-program  rmb     $8000
+program  rmb     $6000
 size     equ   .
 
 name    fcs         "Game09"
@@ -311,19 +311,17 @@
         LBRA        LC4F9
 LC1EC   CMPA        #$3D
         BNE         LC1ED
+*  = assignment ( GAME code top switch )
         leax        2,x
         lda         ,x
         lbsr        expr
         std         <$7E
         tfr         d,x
-lploop  ldd         ,x++
-        cmpd        #-1
-        beq         lpend
-lpl     tst         ,x++
-        bne         lpl
-        bra         lploop       
-lpend   leax        -2,x
-        stx         <$50
+lploop  ldd         ,x+
+        cmpd        #$00ff
+        bne         lploop
+lpend   stx         <$50
+        ldd         <$7e
         lbra        warmst
 LC1ED   LDA         ,X+
         BITA        #$DF