From 4491d756c4d83224814593e530c66fc983927099 Mon Sep 17 00:00:00 2001
From: j8takagi <j8takagi@nifty.com>
Date: Thu, 22 Nov 2012 11:38:16 +0900
Subject: [PATCH] =?utf8?q?CASL2=E3=83=A9=E3=82=A4=E3=83=96=E3=83=A9?=
=?utf8?q?=E3=83=AA=E3=81=AE=E4=BF=AE=E6=AD=A3?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit
---
as/casl2lib/outb.casl | 23 +++++++++--------------
1 file changed, 9 insertions(+), 14 deletions(-)
diff --git a/as/casl2lib/outb.casl b/as/casl2lib/outb.casl
index 91ee4fa..7ecb73e 100644
--- a/as/casl2lib/outb.casl
+++ b/as/casl2lib/outb.casl
@@ -1,11 +1,8 @@
;;; GR1ã«æ ¼ç´ãããå¤ãã2é²æ°å¤ã¨ãã¦è¡¨ç¤º
OUTB START
RPUSH
- LAD GR2,2 ; GR2ã«2é²æ°ã®ã2ããæ ¼ç´ã
- LAD GR0,0 ; GR0 <- 0
- XOR GR4,GR4 ; 2é²æ°å¤ã®é·ã
- AND GR1,GR1 ; GR1ããã¹ã
- JZE ZERO ; GR1ã0ã®å ´åãZEROã«ã¸ã£ã³ã
+ LD GR2,BIN ; GR2ã«2é²æ°ã®ã2ããæ ¼ç´ã
+ XOR GR4,GR4 ; GR4: 2é²æ°å¤ã®é·ã
STI CPL GR1,GR2 ; ã«ã¼ãå
é ã(GR1 < GR2)ã®å ´åã¯ãã«ã¼ãè±åº
JMI STLST ; â
CALL DIVL ; GR1ã¨GR2ã®ãåãGR0ãå°ä½ãGR3ã«æ ¼ç´
@@ -18,15 +15,11 @@ STI CPL GR1,GR2 ; ã«ã¼ãå
é ã(GR1 < GR2)ã®å ´åã¯ã
STLST LD GR1,NCHAR,GR1 ; GR1ãæåã«å¤æ
ST GR1,STR,GR4 ; (STR + GR4) <- GR1
LAD GR4,1,GR4 ; GR4 <- GR4 + 1
- JUMP EMB ; EMBã«ã¸ã£ã³ã
-ZERO LD GR1,NCHAR ; ã0ããSTRé åã«æ ¼ç´
- ST GR1,STR,GR4 ; â (STR + GR4) <- GR1
- LAD GR4,1,GR4 ; â GR4 <- GR4 + 1
-EMB LD GR1,NCHAR ; GR1 <- '0'
-EMLOOP CPA GR4,DIG ; ã«ã¼ãå
é ã(GR4 = DIG)ã®å ´åã¯ãã«ã¼ãè±åº
+EMLOOP CPL GR4,DIG ; ã«ã¼ãå
é ã(GR4 = DIG)ã®å ´åã¯ãã«ã¼ãè±åº
JZE PRT ; â
- ST GR1,STR,GR4 ; â (STR + GR4) <- GR1
- LAD GR4,1,GR4 ; â GR4 <- GR4 + 1
+ LD GR1,NCHAR ; GR1 <- NCHAR:'0'
+ ST GR1,STR,GR4 ; (STR + GR4) <- GR1
+ LAD GR4,1,GR4 ; GR4 <- GR4 + 1
JUMP EMLOOP ; ã«ã¼ãçµç«¯
PRT ST GR4,LEN ; LEN <- GR4
LD GR2,LEN ; GR2ã«LENã®å¤ãæ ¼ç´
@@ -37,6 +30,8 @@ PRT ST GR4,LEN ; LEN <- GR4
RET
STR DS 17
LEN DS 1
-NCHAR DC '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
+BIN DC 2
+NCHAR DC '01'
+SPC DC ' '
DIG DC 16
END
--
2.18.0