CASLファイルの整理

[YACASL2.git] / as / app / fib / fibrec.casl

diff --git a/as/app/fib/fibrec.casl b/as/app/fib/fibrec.casl
new file mode 100644 (file)
index 0000000..4944c80
--- /dev/null
+++ b/as/app/fib/fibrec.casl
@@ -0,0 +1,23 @@
+;;; フィボナッチ数列
+;;; 入力 GR1:整数
+;;; 出力 GR0:フィボナッチ数
+FIB     START
+        PUSH    0,GR1
+        PUSH    0,GR2
+        LAD     GR0,0           ; フィボナッチ数
+        LAD     GR2,0           ; インデックス
+        CPA     GR1,=1
+        JPL     O2
+        LD      GR0,GR1
+        JUMP    FIN
+O2      LAD     GR1,-1,GR1
+        CALL    FIB
+        LD      GR2,GR0
+        LAD     GR1,-1,GR1
+        CALL    FIB
+        ADDL    GR0,GR2
+        JUMP    FIN
+FIN     POP     GR2
+        POP     GR1
+        RET
+        END