Mercurial > hg > Members > kono > os9 > sbc09

changeset 77:11e19ea1a7ea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
save register in outch/getch
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Tue, 07 Aug 2018 11:25:26 +0900
parents 6462dc3978f1
children 02120537b90d
files game09/game09.asm
diffstat 1 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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