CASLファイルのフォルダを変更

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

diff --git a/as/FUNC/fib_outl.casl b/as/FUNC/fib_outl.casl
deleted file mode 100644 (file)
index f97220f..0000000
--- a/as/FUNC/fib_outl.casl
+++ /dev/null
@@ -1,18 +0,0 @@
-;;; 0〜65535の範囲で、フィボナッチ数列を表示する
-MAIN    START
-        LAD     GR1,0           ; GR1は、第n項
-        LAD     GR2,0           ; GR2は、インデックス
-BEGIN   CPL     GR2,=1          ; GR2が1以下の場合、SUMP2へジャンプ
-        JPL     SUMP2           ; ↓
-        LD      GR1,GR2         ; GR1にGR2をロード
-        JUMP    FOUT            ; FOUTへジャンプ
-SUMP2   LD      GR1,GR3         ; GR1にGR3をロード
-        ADDL    GR1,GR4         ; GR1 <- GR1 + GR4
-        JOV     FIN             ; オーバーフローした場合は終了
-FOUT    CALL    OUTL            ; GR1の数値を表示
-        LD      GR4,GR3         ; GR4にGR3をロード
-        LD      GR3,GR1         ; GR3にGR1をロード
-        LAD     GR2,1,GR2       ; GR2 <- GR2 + 1
-        JUMP    BEGIN
-FIN     RET
-        END