as/casl2lib/sample/call_strlen.casl

   1 ;;; call_strlen.casl
   2 ;;;
   3 MAIN    START
   4         PUSH    0,GR1
   5         LAD     GR1,STR
   6         CALL    STRLEN
   7         LD      GR1,GR2
   8         CALL    OUTL
   9 FIN     POP     GR1
  10         RET
  11 STR     DC      'abcdefghij',0               ; 文字列
  12         END