root/as/app/fib/fib_call_io.casl

   1 ;FIB 呼び出し用メインルーチン
   2 ;1 1 2 3 5 8 13 21 34 55
   3 MAIN    START
   4 LOOP    CALL    INL
   5         JOV     OV
   6         AND     GR0,GR0
   7         JZE     FIN
   8         CPL     GR0,=#FFFF
   9         JZE     NAN
  10         CALL    FIB
  11         LD      GR1,GR0
  12         CALL    OUTL
  13         JUMP    LOOP
  14 OV      OUT     OVMSG,MLEN1
  15         JUMP    LOOP
  16 NAN     OUT     NANMSG,MLEN2
  17         JUMP    LOOP
  18 FIN     RET
  19 OVMSG   DC      'Over 65535'
  20 MLEN1   DC      10
  21 NANMSG  DC      'Not A Number'
  22 MLEN2   DC      12
  23         END