メモリーリークを修正
[YACASL2.git] / as / exam_fe / 2018_04 / call_mult.casl
1 MAIN    START
2         LAD     GR1,WD
3         CALL    MULT
4         LD      GR1,GR0
5         LAD     GR2,STR
6         CALL    L2STR
7         ST      GR0,LEN
8         OUT     STR,LEN
9         RET
10 WD      DC      '12   45.'
11 STR     DS      5
12 LEN     DS      1