root/as/app/fib/fib_call_io.casl

;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