as/app/fib/fib_call0.casl

   1 ;;; FIBの結果を表示
   2 MAIN    START
   3         LD      GR1,NUM
   4         CALL    FIB
   5 FIN     RET
   6 NUM     DC      4
   7         END