X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Fcasl2lib%2Fsum.casl;h=012113404fbfde4337c965a0670767b1ce202c9c;hb=f1c529569b4b1c9b03792c1ae2fd5fd670fe7f5d;hp=b9bfe118d677a1eb6522c1aabbaead437c73271c;hpb=58ee37be62a5e359d0f6eb603cc86b5692f74b90;p=YACASL2.git

diff --git a/as/casl2lib/sum.casl b/as/casl2lib/sum.casl
index b9bfe11..0121134 100644
--- a/as/casl2lib/sum.casl
+++ b/as/casl2lib/sum.casl
@@ -1,16 +1,16 @@
 ;;; sum.casl
 ;;; 入力 GR1: 1以上の正数
-;;; 出力 GR2: 1からGR1で指定された値までの正数をすべて加算した値。
-;;;           オーバーフローした場合は、#FFFF
+;;; 出力 GR0: 1からGR1で指定された値までの正数をすべて加算した値。
+;;;           オーバーフローした場合は、0
 SUM     START
-        LAD     GR2,0
-        LAD     GR3,1
-LOOP    CPL     GR3,GR1
+        LAD     GR0,0
+        LAD     GR2,1
+LOOP    CPL     GR2,GR1
         JPL     FIN
-        ADDL    GR2,GR3
+        ADDL    GR0,GR2
         JOV     OV
-        LAD     GR3,1,GR3
+        LAD     GR2,1,GR2
         JUMP    LOOP
-OV      LAD     GR2,#FFFF
+OV      LAD     GR0,0
 FIN     RET
         END