X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Fsample%2Fsum_10.casl;h=a7b92115c36b806eeb731e2c8bd15c545952477e;hb=8eb3172e7dbce55ff705a8ab27b50d7cacb5ca99;hp=cc88df1942f960fb7355b9b03169c7fc5c27e78c;hpb=d5687e0f30e8402985d569a595cc0bdadc89f725;p=YACASL2.git diff --git a/as/sample/sum_10.casl b/as/sample/sum_10.casl index cc88df1..a7b9211 100644 --- a/as/sample/sum_10.casl +++ b/as/sample/sum_10.casl @@ -1,8 +1,6 @@ ;;; sum_10.casl ;;; 1から10までの整数をすべて加算した値をメモリーに格納する MAIN START - PUSH 0,GR1 - PUSH 0,GR2 XOR GR2,GR2 ; GR2を初期化 LD GR1,FST ; GR1に初項をメモリーから転送 LOOP ADDL GR2,GR1 ; ループ先頭。GR2 <- GR2 + GR1 @@ -11,8 +9,6 @@ LOOP ADDL GR2,GR1 ; ループ先頭。GR2 <- GR2 + GR1 JPL FIN ; ↓ JUMP LOOP ; ループ終端 FIN ST GR2,RST ; GR2の結果をメモリーに転送 - POP GR2 - POP GR1 RET FST DC 1 ; 初項 LST DC 10 ; 末é