X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=doc%2Fcasl2_spec%2Fcasl2_spec.texi;fp=doc%2Fcasl2_spec%2Fcasl2_spec.texi;h=2bde49e4d47caf1b735b49d9bc357c3d6bf9790e;hp=a28ed7a9738603d94c24869dc53d53207cda6e54;hb=bce17a4fab0759bd0818c44bdf3cd17edb388267;hpb=8b9bafa8e8927ad19968969f466c756f0aeac8a3

diff --git a/doc/casl2_spec/casl2_spec.texi b/doc/casl2_spec/casl2_spec.texi
index a28ed7a..2bde49e 100644
--- a/doc/casl2_spec/casl2_spec.texi
+++ b/doc/casl2_spec/casl2_spec.texi
@@ -413,15 +413,15 @@ COUNT1  START                    ;
 ;       処理    ; GR1 中の'1'のビットの個数を求める
 ;       出力    ; GR0:GR1 中の'1'のビットの個数
         PUSH    0,GR1            ;
-        PUSH    0,GR2            ; Count = 0
-        SUBA    GR2,GR2          ; 全部のビットが'0'?
-        AND     GR1,GR1          ; 全部のビットが'0'なら終了
-        JZE     RETURN           ; Count = Count + 1
-MORE    LAD     GR2,1,GR2        ; 最下位の'1'のビット 1 個を
-        LAD     GR0,-1,GR1       ; '0'に変える
-        AND     GR1,GR0          ; '1'のビットが残っていれば繰返し
-        JNZ     MORE             ; GR0 = Count
-RETURN  LD      GR0,GR2          ;
+        PUSH    0,GR2            ;
+        SUBA    GR2,GR2          ; Count = 0
+        AND     GR1,GR1          ; 全部のビットが'0'?
+        JZE     RETURN           ; 全部のビットが'0'なら終了
+MORE    LAD     GR2,1,GR2        ; Count = Count + 1
+        LAD     GR0,-1,GR1       ; 最下位の'1'のビット 1 個を
+        AND     GR1,GR0          ; '0'に変える
+        JNZ     MORE             ; '1'のビットが残っていれば繰返し
+RETURN  LD      GR0,GR2          ; GR0 = Count
         POP     GR2              ;
         POP     GR1              ;
         RET                      ; 呼出しプログラムへ戻る