情報処理試験 2011（平成23）年秋期のフォルダを更新

[YACASL2.git] / as / fe_tests / 2011_10 / Q12 / btod2.casl

diff --git a/as/fe_tests/2011_10/Q12/btod2.casl b/as/fe_tests/2011_10/Q12/btod2.casl
index 073898e..b461463 100644 (file)
--- 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