X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Fsum_10.casl;fp=as%2Fsum_10.casl;h=d691a105a267f13e5896327cdb32efda47c5acba;hb=05965ee87822b44616998d347d8f91fbf550eb2e;hp=0000000000000000000000000000000000000000;hpb=e53b9aa2cd0e67ff64c52fa1b83e16c048283dbd;p=YACASL2.git

diff --git a/as/sum_10.casl b/as/sum_10.casl
new file mode 100644
index 0000000..d691a10
--- /dev/null
+++ b/as/sum_10.casl
@@ -0,0 +1,17 @@
+;;; sum_10.casl
+;;; 出力 GR0: 1から10までの整数をすべて加算した値
+MAIN    START
+        PUSH    0,GR1
+        LAD     GR0,0           ; GR0を初期化
+        LD      GR1,FST         ; GR1に初項を転送
+LOOP    ADDL    GR0,GR1         ; ループ先頭
+        ADDL    GR1,STEP        ; GR1 <- GR1 + 公差
+        CPL     GR1,LST         ; GR1が末項より大きい場合は終了
+        JPL     FIN             ; ↓
+        JUMP    LOOP            ; ループ終端
+FIN     POP     GR1
+        RET
+FST     DC      1               ; 初項
+LST     DC      10              ; 末項
+STEP    DC      1               ; 公差
+        END