# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1533608726 -32400
# Node ID 11e19ea1a7eab1a88844f5e861bc99a516805df7
# Parent  6462dc3978f156512e7bcd4c63a7c9018db30f34
save register in outch/getch

diff -r 6462dc3978f1 -r 11e19ea1a7ea game09/game09.asm
--- a/game09/game09.asm	Tue Aug 07 10:37:59 2018 +0900
+++ b/game09/game09.asm	Tue Aug 07 11:25:26 2018 +0900
@@ -966,20 +966,20 @@
 OUTCH   PSHS        X,Y
         BRA         OUTCH1
 GETCH   
-        PSHS        B,X,Y
+        PSHS        A,B,X,Y
 GETCH0
         LDA         #0
-        LEAX        ,S
+        LEAX        1,S
         LDY         #1
         OS9         I$Read
         BCS         GETCH0
-        PULS        B,X,Y,PC
-OUTCH1  PSHS        B
-        LEAX        ,S
+        PULS        A,B,X,Y,PC
+OUTCH1  PSHS        A,B
+        LEAX        1,S
         LDA         #1
         LDY         #1
         OS9         I$Write
-        PULS        B,X,Y,PC
+        PULS        A,B,X,Y,PC
 SENSE   PSHS        X,Y,D
         LDA         #0
         LDB         #SS.Ready