root/as/sample/call_l2str.casl

/* [<][>][^][v][top][bottom][index][help] */
MAIN    START
        LD      GR1,VAL
        LAD     GR2,ADR
        CALL    L2STR
        ST      GR3,LEN
        OUT     ADR,LEN
        RET
VAL     DC      3245
ADR     DS      6
LEN     DS      1
        END

/* [<][>][^][v][top][bottom][index][help] */