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

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