YACAL2: CASL2処理系
[YACASL2.git] / as / add_loop.casl
1 MAIN    START
2 BEGIN   LAD     GR0,0
3         LAD     GR1,0
4 LOOP    CPA GR1,LEN
5         JZE     FIN
6     LAD GR1,1,GR1
7         ADDA    GR0,GR1
8     JUMP        LOOP
9 FIN    RET
10 LEN     DC      10
11         END