CASL2LIBを独立させるため、削除
[YACASL2.git] / as / sample / sum_10.casl
1 ;;; sum_10.casl
2 ;;; 出力 GR0: 1から10までの整数をすべて加算した値
3 MAIN    START
4         PUSH    0,GR1
5         LAD     GR0,0           ; GR0を初期化
6         LD      GR1,FST         ; GR1に初項を転送
7 LOOP    ADDL    GR0,GR1         ; ループ先頭
8         ADDL    GR1,STEP        ; GR1 <- GR1 + 公差
9         CPL     GR1,LST         ; GR1が末項より大きい場合は終了
10         JPL     FIN             ; ↓
11         JUMP    LOOP            ; ループ終端
12 FIN     POP     GR1
13         RET
14 FST     DC      1               ; 初項
15 LST     DC      10              ; 末項
16 STEP    DC      1               ; 公差
17         END