as/app/fib/fib_call_out.casl

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