as/casl2lib_test/inl_call.casl

   1 ;;; casl2 inl_call.casl outl.casl
   2 MAIN    START
   3         CALL    INL
   4         JOV     NAN
   5         LD      GR1,GR0
   6         CALL    OUTL
   7         JUMP    FIN
   8 NAN     OUT     NANMSG,MLEN
   9 FIN     RET
  10 NANMSG  DC      'Not A Number'
  11 MLEN    DC      12
  12         END