PRIEND  START
        PUSH  0,GR2       ; GR2退避
        LD    GR3,=-16    ; -16 → 前ゼロカウンタ
D1                        ; GR2の最上位ビットを OF にセット
                          ;  OF＝1 なら終了
                          ; 前ゼロカウンタを1増やす
                          ; GR3＝0なら終了
PRE     LAD   GR3,16,GR3  ; -16のバイアスを戻す
        POP   GR2         ; GR2復元
        RET
        END