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

diff --git a/as/fe_tests/2011_10/Q12/div.casl b/as/fe_tests/2011_10/Q12/div.casl
new file mode 100644
index 0000000..bfc5630
--- /dev/null
+++ b/as/fe_tests/2011_10/Q12/div.casl
@@ -0,0 +1,26 @@
+DIV     START                     ; 減算を用いた 32 ビット除算
+    PUSH    0,GR6
+    PUSH    0,GR7
+    LD      GR6,GR1
+    LD      GR7,GR2
+    LD      GR1,=#FFFF        ; 商の初期化
+    LD      GR2,=#FFFF
+    LP      LD      GR4,GR6
+    LD      GR5,GR7
+    ADDL    GR2,=1            ; 商のカウントアップ
+    JOV     ADJ1
+    JUMP    CONT
+    ADJ1    
+    CONT    SUBL    GR6,0,GR3
+    J0V     FIN
+    SUBL    GR7,1,GR3
+    
+    JUMP    LP
+    ADJ2    SUBL    GR6,=1
+    J0V     FIN
+    JUMP    LP
+    FIN     POP     GR7
+    POP     GR6
+    RET
+    END
+