X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Fcasl2lib%2Faddl32.casl;h=23740bf0b84efedc505d472c29c009f999a7fc69;hb=9a90bce10b932f8aa7045b9dceb4b99156666920;hp=1282e78c53db458f9bbb30d3a6d0d1f9bb76bfe6;hpb=c1f7164cea1d3e5aebb76dc26543b1de593b92bb;p=YACASL2.git

diff --git a/as/casl2lib/addl32.casl b/as/casl2lib/addl32.casl
index 1282e78..23740bf 100644
--- a/as/casl2lib/addl32.casl
+++ b/as/casl2lib/addl32.casl
@@ -1,5 +1,5 @@
-;;; 2つの32ビット数値を加算する
-;;; 32ビットの値は、連続する2語の領域に格納
+;;; 2つの32ビット値を加算する
+;;; 32ビットの値を、連続する2語の領域に格納
 ;;; 入力 GR1:数値1の先頭アドレス GR2:数値2の先頭アドレス
 ;;; 出力 GR0:和の先頭アドレス
 ADDL32  START
@@ -36,8 +36,8 @@ OV      LAD     GR3,=#8000      ; 強制的にオーバーフロー発生
 FIN     LAD     GR0,A           ; GR0 <- A
         RPOP
         RET
-X       DS      1               ; 数値1のアドレス
-Y       DS      1               ; 数値2のアドレス
+X       DS      1               ; 数値1の先頭アドレス
+Y       DS      1               ; 数値2の先頭アドレス
 A       DS      2               ; 和
 LEN     DC      2               ; 数値の語数
         END