X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=test%2Fsystem%2Fcasl2_opt%2Fopt_sL%2F0.txt;fp=test%2Fsystem%2Fcasl2_opt%2Fopt_sL%2F0.txt;h=0414265b3aa7a795f7296fe4f1aaa2e339e4f03b;hp=0000000000000000000000000000000000000000;hb=473906d23322ef829ee8dad807895235d645981c;hpb=7ac339dcd755848e9820142422752fbdc8186b5c diff --git a/test/system/casl2_opt/opt_sL/0.txt b/test/system/casl2_opt/opt_sL/0.txt new file mode 100644 index 0000000..0414265 --- /dev/null +++ b/test/system/casl2_opt/opt_sL/0.txt @@ -0,0 +1,44 @@ +;;; 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 + +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: 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 + +Label:::: +MAIN ---> #0000 +MAIN.LOOP ---> #0006 +MAIN.FIN ---> #000F +MAIN.FST ---> #0011 +MAIN.LST ---> #0012 +MAIN.STEP ---> #0013