;;; call_strlen.casl
;;;
MAIN    START
        PUSH    0,GR1
        LAD     GR1,STR
        CALL    STRLEN
        LD      GR1,GR2
        CALL    OUTL
FIN     POP     GR1
        RET
STR     DC      'abcdefghij',0               ; 文字列
        END