情報処理試験2011年秋の問題を追加

[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
new file mode 100644 (file)
index 0000000..073898e
--- /dev/null
+++ b/as/fe_tests/2011_10/Q12/btod2.casl
@@ -0,0 +1,18 @@
+ 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
+