アセンブラファイルとテストの整理

[YACASL2.git] / as / FUNC / divl0.casl

diff --git a/as/FUNC/divl0.casl b/as/FUNC/divl0.casl
new file mode 100644 (file)
index 0000000..c827b9d
--- /dev/null
+++ b/as/FUNC/divl0.casl
@@ -0,0 +1,20 @@
+;;; GR1の値とGR2の値の、商をGR0、剰余をGR3に格納する
+;;; 0〜65535の範囲の数値を扱う
+DIVL    START
+        PUSH    0,GR1
+        AND     GR2,GR2         ; (GR2 = 0)の場合、DYZへジャンプ
+        JZE     DYZ             ; ↓
+        LAD     GR0,0           ; GR0を初期化
+        LD      GR3,GR1         ; GR3 <- GR1
+DLOOP   CPL     GR3,GR2         ; ループ先頭。(GR3 < GR2)の場合、終了
+        JMI     DFIN            ; ↓
+        SUBL    GR3,GR2         ; GR3 <- GR3 - GR2
+        ADDL    GR0,DONE        ; ↓
+        JUMP    DLOOP           ; ループ終端
+DYZ     LAD     GR3,#FFFF       ; 強制的にオーバーフローを発生させ、GR3 <- 0
+        ADDL    GR3,=1          ; ↓
+        JUMP    DFIN            ; DFINへジャンプ
+DFIN    POP     GR1
+        RET
+DONE    DC      1        
+        END