X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=as%2Fmisc%2Fcount1.casl;fp=as%2Fmisc%2Fcount1.casl;h=0000000000000000000000000000000000000000;hp=52e6b03247647f1d4db39ebcbb58df7bfa7bbe4f;hb=330f6a8723886b86e745e91ffc3479eda9159b8d;hpb=a0b34ca06b5e92ee139895159dbced007b276384

diff --git a/as/misc/count1.casl b/as/misc/count1.casl
deleted file mode 100644
index 52e6b03..0000000
--- a/as/misc/count1.casl
+++ /dev/null
@@ -1,19 +0,0 @@
-;;; 「アセンブラ言語の使用」に掲載されているサンプル
-COUNT1  START
-;       入力    GR1:検索する語
-;       処理    GR1中の'1'のビットの個数を求める
-;       出力    GR0:GR1中の'1'のビットの個数
-        PUSH    0,GR1           ;
-        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                     ; 呼び出しプログラムへ戻る
-        END                     ;