as/casl2lib_driver/inl.casl

   1 ;;; casl2 inl.casl ../casl2lib/inl.casl ../casl2lib/outl.caslg
   2 MAIN    START
   3 LOOP    CALL    INL             ; GR1に数値、GR0に文字列の長さ
   4         JOV     NAN
   5         AND     GR0,GR0
   6         JZE     FIN
   7         CALL    OUTL
   8         JUMP    LOOP
   9 NAN     OUT     NANMSG,MLEN
  10         JUMP    LOOP
  11 FIN     RET
  12 NANMSG  DC      'Not A Number'
  13 MLEN    DC      12
  14         END