# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1546298194 -32400
# Node ID a8b7dfc1baf560072f9042950f3086f4318a22ca
# Parent  348d062ee8de4b39215a9bc83bf282171c7a0a1d
program code switch in game09

diff -r 348d062ee8de -r a8b7dfc1baf5 game09/game09.asm
--- a/game09/game09.asm	Mon Dec 31 21:26:53 2018 +0900
+++ b/game09/game09.asm	Tue Jan 01 08:16:34 2019 +0900
@@ -36,7 +36,7 @@
 DP7E     equ     $7E          "=" program top
 DP82     equ     $82          "@"
 DP83     equ     $83
-DP84     equ     $84
+DP84     equ     $84          rvalue pointer
 DP86     equ     $86          input line (except lineno)
 DP88     equ     $88
 DP8A     equ     $8A
@@ -287,7 +287,7 @@
         BRA         LC1D3
 LC1B9   STX         <$84
         BSR         LC1EC
-        LBSR        LC39F
+        LBSR        LVALUE
         BSR         LC173
         LDX         <$4A
         BNE         LC1D7
@@ -309,7 +309,23 @@
         PULS        PC,B,A
 LC1E7   LDA         #$3D
         LBRA        LC4F9
-LC1EC   LDA         ,X+
+LC1EC   CMPA        #$3D
+        BNE         LC1ED
+        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
+        lbra        warmst
+LC1ED   LDA         ,X+
         BITA        #$DF
         BEQ         LC1E7
         CMPA        #$3D
@@ -547,7 +563,7 @@
         BSR         LC39D
 LC39B   LDB         #$0A
 LC39D   BRA         LC412
-LC39F   PSHS        B,A
+LVALUE   PSHS        B,A
         LDA         #$01
         STA         <$8C
         LDX         <$84
@@ -584,7 +600,7 @@
         RTS  
 LC3E4   CMPB        #$26
         BNE         LC3FA
-LC3E8   LDB         +$01,X
+        LDB         +$01,X
         CMPB        #$3D
         BNE         LC3FA
         LDD         ,S++