PRIENC  START
        PUSH  0,GR2      ; GR2退避
        XOR   GR3,GR3    ; 0 → 前ゼロカウンタ
D1                       ; GR2の最上位ビットを OF にセット
                         ; OF＝1 なら RET 
                         ; 前ゼロカウンタを1増やす
                         ; 前ゼロカウンタ＞16 ？
        JMI   D1
PRE     POP   GR2        ; GR2復元
        RET
        END