From 26d2b1e3f1b8d08b4089d2442784be654cdf2226 Mon Sep 17 00:00:00 2001
From: j8takagi <j8takagi@nifty.com>
Date: Wed, 6 Jun 2018 19:16:13 +0900
Subject: [PATCH] =?utf8?q?=E6=83=85=E5=A0=B1=E5=87=A6=E7=90=86=E8=A9=A6?=
 =?utf8?q?=E9=A8=93=202011=EF=BC=88=E5=B9=B3=E6=88=9023=EF=BC=89=E5=B9=B4?=
 =?utf8?q?=E7=A7=8B=E6=9C=9F=E3=81=AE=E3=83=95=E3=82=A9=E3=83=AB=E3=83=80?=
 =?utf8?q?=E3=82=92=E6=9B=B4=E6=96=B0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 as/fe_tests/2011_10/Q12/btod1.casl     | 56 +++++++++++++-------------
 as/fe_tests/2011_10/Q12/btod2.casl     | 35 ++++++++--------
 as/fe_tests/2011_10/Q12/call_btod.casl | 10 +++++
 3 files changed, 55 insertions(+), 46 deletions(-)
 create mode 100644 as/fe_tests/2011_10/Q12/call_btod.casl

diff --git a/as/fe_tests/2011_10/Q12/btod1.casl b/as/fe_tests/2011_10/Q12/btod1.casl
index 4532738..537b16e 100644
--- a/as/fe_tests/2011_10/Q12/btod1.casl
+++ b/as/fe_tests/2011_10/Q12/btod1.casl
@@ -1,28 +1,28 @@
- BTOD    START
-             RPUSH
-             LD     GR6,GR3
-             LAD    GR7,4,GR3
-             LAD    GR3,UDAT    ; 除数の初期設定
-     LP      CALL   DIV
-             OR     ,='0'
-             ST     ,0,GR6    ; 10 進数字１文字格納
-             CPL    GR6,GR7
-             JZE    FIN
-             LAD    GR6,1,GR6
-             LD     GR1,GR4     ; 被除数の再設定
-             LD     GR2,GR5
-
-             JUMP   LP
-     FIN     RPOP
-             RET
-     UDAT    DC     0
-             DC     10000
-             DC     0
-             DC     1000
-             DC     0
-             DC     100
-             DC     0
-             DC     10
-             DC     0
-             DC     1
-             END
+BTOD    START
+        RPUSH
+        LD     GR6,GR3
+        LAD    GR7,4,GR3
+        LAD    GR3,UDAT    ; 除数の初期設定
+LP      CALL   DIV
+        OR     GR2,='0'
+        ST     GR2,0,GR6   ; 10進数字１文字格納
+        CPL    GR6,GR7
+        JZE    FIN
+        LAD    GR6,1,GR6
+        LD     GR1,GR4     ; 被除数の再設定
+        LD     GR2,GR5
+        LAD    GR3,2,GR3
+        JUMP   LP
+FIN     RPOP
+        RET
+UDAT    DC     0
+        DC     10000
+        DC     0
+        DC     1000
+        DC     0
+        DC     100
+        DC     0
+        DC     10
+        DC     0
+        DC     1
+        END
diff --git a/as/fe_tests/2011_10/Q12/btod2.casl b/as/fe_tests/2011_10/Q12/btod2.casl
index 073898e..b461463 100644
--- a/as/fe_tests/2011_10/Q12/btod2.casl
+++ b/as/fe_tests/2011_10/Q12/btod2.casl
@@ -1,18 +1,17 @@
- BTOD   START
-            RPUSH
-            LAD     GR6,4,GR3
-            LD      GR7,GR3
-            LAD     GR3,DAT
-     LP     CALL    DIV
-            OR      ,='0'
-            ST      ,0,GR6
-            CPL     GR6,GR7
-            JZE     FIN
-            LAD     GR6,-1,GR6
-            JUMP    LP
-     FIN    RPOP
-            RET
-     DAT    DC     0
-            DC     
-            END
-    
+BTOD   START
+       RPUSH
+       LAD     GR6,4,GR3
+       LD      GR7,GR3
+       LAD     GR3,DAT
+LP     CALL    DIV
+       OR      GR5,='0'
+       ST      GR5,0,GR6
+       CPL     GR6,GR7
+       JZE     FIN
+       LAD     GR6,-1,GR6
+       JUMP    LP
+FIN    RPOP
+       RET
+DAT    DC     0
+       DC     10
+       END
diff --git a/as/fe_tests/2011_10/Q12/call_btod.casl b/as/fe_tests/2011_10/Q12/call_btod.casl
new file mode 100644
index 0000000..a36354c
--- /dev/null
+++ b/as/fe_tests/2011_10/Q12/call_btod.casl
@@ -0,0 +1,10 @@
+MAIN    START
+        LAD     GR1,#0000
+        LAD     GR2,#054D
+        LAD     GR3,STR
+        CALL    BTOD
+        OUT     STR,LEN
+        RET
+STR     DS      5
+LEN     DC      5
+        END
-- 
2.18.0