Mercurial > hg > Members > kono > os9 > sbc09

diff game09/game09.asm @ 72:3a2fb51afc4d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix lv2 cmds
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sun, 05 Aug 2018 23:01:58 +0900
parents eb9be32c701c
children ae26a881ac7a
line wrap: on
line diff
--- a/game09/game09.asm	Sun Aug 05 22:17:44 2018 +0900
+++ b/game09/game09.asm	Sun Aug 05 23:01:58 2018 +0900
@@ -877,7 +877,7 @@
         LBRA         LC5D8
 LC63F
         FCB         $D,$A
-        FCS         "*READY"
+        FCC         "*READY"
         FCB         $D,$A,0
 
 LC64A   LBRA        OUTCH
@@ -967,23 +967,28 @@
 LC6F8   CLRA 
         RTS  
 
-GETCH   LDA         #0
-        PSHS        B
+OUTCH   PSHS        X,Y
+        BRA         OUTCH1
+GETCH   
+        PSHS        B,X,Y
+GETCH0
+        LDA         #0
         LEAX        ,S
         LDY         #1
         OS9         I$Read
-        PULS        B
-        BCS         GETCH
-OUTCH   PSHS        B
+        BCS         GETCH0
+        PULS        B,X,Y,PC
+OUTCH1  PSHS        B
         LEAX        ,S
         LDA         #1
         LDY         #1
         OS9         I$Write
-        PULS        B,PC
-SENSE   LDA         #0
+        PULS        B,X,Y,PC
+SENSE   PSHS        X,Y
+        LDA         #0
         LDB         #SS.Ready
         OS9         i$GetStt
-        RTS
+        PULS        X,Y,PC