バージョンv0.5p16
[YACASL2.git] / as / sample / call_l2str.casl
1 MAIN    START
2         LD      GR1,VAL
3         LAD     GR2,ADR
4         CALL    L2STR
5         ST      GR3,LEN
6         OUT     ADR,LEN
7         RET
8 VAL     DC      3245
9 ADR     DS      6
10 LEN     DS      1
11         END