X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Fapp%2Ffib%2Ffibrec.casl;fp=as%2Fapp%2Ffib%2Ffibrec.casl;h=4944c8069f2ee38fce75859aadc9c1b050c92a86;hb=9fa44bbf51f40b1d5846696dc13a4950508e448c;hp=0000000000000000000000000000000000000000;hpb=eab172e17b436c4d80d220d42eff9d02360622ba;p=YACASL2.git

diff --git a/as/app/fib/fibrec.casl b/as/app/fib/fibrec.casl
new file mode 100644
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