BITCNT  START
        PUSH   0,GR4
        LAD    GR3,0        ; GR3の初期化
LOOP1   CPA    GR2,=0       ;終了か？
        JZE    LAST         ;終了ならLASTへ
        LD     GR4,0,GR1
LOOP2   JZE    LBL2         ; 0なら1語分の処理終了
        SRL    GR4,1
        [    ( a )    ]
        JUMP   LOOP2
LBL1    LAD    GR3,1,GR3    ;ビットカウンタに1加算
        JUMP   LOOP2
LBL2    LAD    GR1,1,GR1    ;次の語の処理のための準備
        [    ( b )    ]     ; 　　〃
        JUMP   LOOP1
LAST    POP    GR4          ;レジスタの復元
        RET
        END