X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Ffe_tests%2F2011_10%2FQ12%2Fbtod2.casl;fp=as%2Ffe_tests%2F2011_10%2FQ12%2Fbtod2.casl;h=073898eefcc60a35876b2d3e293c153c56889c8f;hb=fe2de04b9021faae69c6b98d401797c9728e15dc;hp=0000000000000000000000000000000000000000;hpb=bf8134f388a04da9b9d768db2db6ca6076b9b8da;p=YACASL2.git

diff --git a/as/fe_tests/2011_10/Q12/btod2.casl b/as/fe_tests/2011_10/Q12/btod2.casl
new file mode 100644
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
+