X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Fapp%2Ffib_outl.casl;fp=as%2Fapp%2Ffib_outl.casl;h=f97220fdee503f54a189f1a42d55837400df1995;hb=330f6a8723886b86e745e91ffc3479eda9159b8d;hp=0000000000000000000000000000000000000000;hpb=a0b34ca06b5e92ee139895159dbced007b276384;p=YACASL2.git

diff --git a/as/app/fib_outl.casl b/as/app/fib_outl.casl
new file mode 100644
index 0000000..f97220f
--- /dev/null
+++ b/as/app/fib_outl.casl
@@ -0,0 +1,18 @@
+;;; 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