CASLファイルの整理

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

diff --git a/as/app/fib/fib.casl b/as/app/fib/fib.casl
new file mode 100644 (file)
index 0000000..8e0a35f
--- /dev/null
+++ b/as/app/fib/fib.casl
@@ -0,0 +1,27 @@
+;;; 入力 GR1:整数
+;;; 出力 GR0:フィボナッチ数
+FIB     START
+        PUSH    0,GR1
+        PUSH    0,GR2
+        PUSH    0,GR3
+        LAD     GR0,0           ; フィボナッチ数
+        LAD     GR2,0           ; インデックス
+LOOP    CPA     GR2,GR1
+        JZE     FIN
+        LAD     GR3,SEQ,GR2
+        AND     GR2,GR2
+        CPA     GR2,=1
+        JPL     O2
+        LAD     GR0,1
+        JUMP    STSEQ
+O2      LD      GR0,-2,GR3
+        ADDL    GR0,-1,GR3
+STSEQ   ST      GR0,0,GR3
+        LAD     GR2,1,GR2
+        JUMP    LOOP
+FIN     POP     GR3
+        POP     GR2
+        POP     GR1
+        RET
+SEQ     DS      24
+        END