changeset 114:bc9f2f443421

fix
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Tue, 01 Jan 2019 08:55:44 +0900
parents a8b7dfc1baf5
children 54b4e3afcd0e
files game09/game09.asm
diffstat 1 files changed, 7 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- 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