CASLファイルの整理

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

diff --git a/as/app/fib/fib_call_io.casl b/as/app/fib/fib_call_io.casl
new file mode 100644 (file)
index 0000000..7fad933
--- /dev/null
+++ b/as/app/fib/fib_call_io.casl
@@ -0,0 +1,23 @@
+;FIB 呼び出し用メインルーチン
+;1 1 2 3 5 8 13 21 34 55
+MAIN    START
+LOOP    CALL    INL
+        JOV     OV
+        AND     GR0,GR0
+        JZE     FIN
+        CPL     GR0,=#FFFF
+        JZE     NAN
+        CALL    FIB
+        LD      GR1,GR0
+        CALL    OUTL
+        JUMP    LOOP
+OV      OUT     OVMSG,MLEN1
+        JUMP    LOOP
+NAN     OUT     NANMSG,MLEN2
+        JUMP    LOOP
+FIN     RET
+OVMSG   DC      'Over 65535'
+MLEN1   DC      10
+NANMSG  DC      'Not A Number'
+MLEN2   DC      12
+        END