X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=test%2Fsystem%2Fcasl2_opt%2Fopt_s%2F0.txt;h=2189d065d3fd1e4fd75325620bc9f8d1a5a26784;hp=ff737c302fc7e59013606578cfa7f9063701ffec;hb=d5687e0f30e8402985d569a595cc0bdadc89f725;hpb=a77e8363f86dfc38838990a174486166b7c5cbf2

diff --git a/test/system/casl2_opt/opt_s/0.txt b/test/system/casl2_opt/opt_s/0.txt
index ff737c3..2189d06 100644
--- a/test/system/casl2_opt/opt_s/0.txt
+++ b/test/system/casl2_opt/opt_s/0.txt
@@ -1,38 +1,46 @@
 ;;; sum_10.casl
-;;; 出力 GR0: 1から10までの整数をすべて加算した値
+;;; 1から10までの整数をすべて加算した値をメモリーに格納する
 MAIN    START
         PUSH    0,GR1
-        LAD     GR0,0           ; GR0を初期化
-        LD      GR1,FST         ; GR1に初項を転送
-LOOP    ADDL    GR0,GR1         ; ループ先頭
+        PUSH    0,GR2
+        XOR     GR2,GR2         ; GR2を初期化
+        LD      GR1,FST         ; GR1に初項をメモリーから転送
+LOOP    ADDL    GR2,GR1         ; ループ先頭。GR2 <- GR2 + GR1
         ADDL    GR1,STEP        ; GR1 <- GR1 + 公差
         CPL     GR1,LST         ; GR1が末項より大きい場合は終了
         JPL     FIN             ; ↓
         JUMP    LOOP            ; ループ終端
-FIN     POP     GR1
+FIN     ST      GR2,RST         ; GR2の結果をメモリーに転送
+        POP     GR2
+        POP     GR1
         RET
 FST     DC      1               ; 初項
 LST     DC      10              ; 末項
 STEP    DC      1               ; 公差
+RST     DS      1               ; 結果
         END
 
 Assemble ../../../../as/sample/sum_10.casl (0)
 ../../../../as/sample/sum_10.casl:    1:;;; sum_10.casl
-../../../../as/sample/sum_10.casl:    2:;;; 出力 GR0: 1から10までの整数をすべて加算した値
+../../../../as/sample/sum_10.casl:    2:;;; 1から10までの整数をすべて加算した値をメモリーに格納する
 ../../../../as/sample/sum_10.casl:    3:MAIN    START
 ../../../../as/sample/sum_10.casl:    4:        PUSH    0,GR1
-../../../../as/sample/sum_10.casl:    5:        LAD     GR0,0           ; GR0を初期化
-../../../../as/sample/sum_10.casl:    6:        LD      GR1,FST         ; GR1に初項を転送
-../../../../as/sample/sum_10.casl:    7:LOOP    ADDL    GR0,GR1         ; ループ先頭
-../../../../as/sample/sum_10.casl:    8:        ADDL    GR1,STEP        ; GR1 <- GR1 + 公差
-../../../../as/sample/sum_10.casl:    9:        CPL     GR1,LST         ; GR1が末項より大きい場合は終了
-../../../../as/sample/sum_10.casl:   10:        JPL     FIN             ; ↓
-../../../../as/sample/sum_10.casl:   11:        JUMP    LOOP            ; ループ終端
-../../../../as/sample/sum_10.casl:   12:FIN     POP     GR1
-../../../../as/sample/sum_10.casl:   13:        RET
-../../../../as/sample/sum_10.casl:   14:FST     DC      1               ; 初項
-../../../../as/sample/sum_10.casl:   15:LST     DC      10              ; 末項
-../../../../as/sample/sum_10.casl:   16:STEP    DC      1               ; 公差
-../../../../as/sample/sum_10.casl:   17:        END
+../../../../as/sample/sum_10.casl:    5:        PUSH    0,GR2
+../../../../as/sample/sum_10.casl:    6:        XOR     GR2,GR2         ; GR2を初期化
+../../../../as/sample/sum_10.casl:    7:        LD      GR1,FST         ; GR1に初項をメモリーから転送
+../../../../as/sample/sum_10.casl:    8:LOOP    ADDL    GR2,GR1         ; ループ先頭。GR2 <- GR2 + GR1
+../../../../as/sample/sum_10.casl:    9:        ADDL    GR1,STEP        ; GR1 <- GR1 + 公差
+../../../../as/sample/sum_10.casl:   10:        CPL     GR1,LST         ; GR1が末項より大きい場合は終了
+../../../../as/sample/sum_10.casl:   11:        JPL     FIN             ; ↓
+../../../../as/sample/sum_10.casl:   12:        JUMP    LOOP            ; ループ終端
+../../../../as/sample/sum_10.casl:   13:FIN     ST      GR2,RST         ; GR2の結果をメモリーに転送
+../../../../as/sample/sum_10.casl:   14:        POP     GR2
+../../../../as/sample/sum_10.casl:   15:        POP     GR1
+../../../../as/sample/sum_10.casl:   16:        RET
+../../../../as/sample/sum_10.casl:   17:FST     DC      1               ; 初項
+../../../../as/sample/sum_10.casl:   18:LST     DC      10              ; 末項
+../../../../as/sample/sum_10.casl:   19:STEP    DC      1               ; 公差
+../../../../as/sample/sum_10.casl:   20:RST     DS      1               ; 結果
+../../../../as/sample/sum_10.casl:   21:        END
 
 Assemble ../../../../as/sample/sum_10.casl (1)