as/casl2lib/sample/call_inl.casl

   1 ;;; casl2 inl.casl ../casl2lib/inl.casl ../casl2lib/outl.casl
   2 MAIN    START
   3 LOOP    CALL    INL             ; GR1に数値、GR2に文字列の長さ
   4         JOV     NAN
   5         JMI     BIG
   6         LD      GR2,GR2
   7         JZE     FIN
   8         CALL    OUTL
   9         JUMP    LOOP
  10 NAN     OUT     NANMSG,NANLEN
  11         JUMP    LOOP
  12 BIG     OUT     BIGMSG,BIGLEN
  13         JUMP    LOOP
  14 FIN     RET
  15 NANMSG  DC      'Not a number'
  16 NANLEN  DC      12
  17 BIGMSG  DC      'Over 65535'
  18 BIGLEN  DC      10
  19         END