test/system/casl2/lib_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      CPL     GR0,=#FFFF
  12         JZE     LENOV
  13         OUT     OVMSG,MLEN1
  14         JUMP    LOOP
  15 NAN     OUT     NANMSG,MLEN2
  16         JUMP    LOOP
  17 LENOV   OUT     LENOVMSG,MLEN3
  18 FIN     RET
  19 OVMSG   DC      'Over 65535'
  20 MLEN1   DC      10
  21 NANMSG  DC      'Not A Number'
  22 MLEN2   DC      12
  23 LENOVMSG DC     'Str too long. Stop'
  24 MLEN3   DC      18
  25         END