as/casl2lib/test/inl/inl.casl

   1 ;;; casl2 inl.casl ../casl2lib/inl.casl ../casl2lib/outl.casl
   2 MAIN    START
   3 LOOP    CALL    INL             ; GR1に数値、GR0に文字列の長さ
   4         JOV     OV
   5         AND     GR0,GR0
   6         JZE     FIN
   7         CPL     GR0,=#FFFF
   8         JZE     NAN
   9         CALL    OUTL
  10         JUMP    LOOP
  11 OV      OUT     OVMSG,MLEN1
  12         JUMP    LOOP
  13 NAN     OUT     NANMSG,MLEN2
  14         JUMP    LOOP
  15 FIN     RET
  16 OVMSG   DC      'Over 65535'
  17 MLEN1   DC      10
  18 NANMSG  DC      'Not A Number'
  19 MLEN2   DC      12
  20         END