doc/casl2lib/inl/call_inl.casl

   1 ;;; casl2 -M1024 call_inl.casl $CASL2LIB/inl.casl $CASL2LIB/str2l.casl  $CASL2LIB/mull.casl \
   2 ;;; $CASL2LIB/outl.casl $CASL2LIB/divl.casl $CASL2LIB/rev.casl
   3 MAIN    START
   4 LOOP    CALL    INL             ; GR1に数値、GR0に文字列の長さ
   5         JOV     OV
   6         AND     GR0,GR0
   7         JZE     FIN
   8         CPL     GR0,=#FFFF
   9         JZE     NAN
  10         CALL    OUTL
  11         JUMP    LOOP
  12 OV      CPL     GR0,=#FFFF
  13         JZE     LENOV
  14         OUT     OVMSG,MLEN1
  15         JUMP    LOOP
  16 NAN     OUT     NANMSG,MLEN2
  17         JUMP    LOOP
  18 LENOV   OUT     LENOVMSG,MLEN3
  19 FIN     RET
  20 OVMSG   DC      'Over 65535'
  21 MLEN1   DC      10
  22 NANMSG  DC      'Not integer'
  23 MLEN2   DC      11
  24 LENOVMSG DC     'Str too long. Stop'
  25 MLEN3   DC      18
  26         END