ld b,0
        ld h,b
        ld de,#xx00 ;xx=n+1 
                    ; (#09 для x=256, 
                    ; #08 для x=128
                    ; и т.д.)
        and a
lab1    sbc hl,bc
        jr nc, lab2
        add hl,bc
        scf
lab2    ccf
        rr e
        add hl,hl
        dec d
        jr nz,lab1
        ret