глянул на код BB
Код:
			ld	d, a
			inc	d
			ld	a, #01
PreShifting:		rrca
			dec	d
			jr	nz, PreShifting
			xor	(hl)
			ld	(hl), a
а наверное, можно вот так:
inc a
ld b,a
xor a:scf
bwlp:rra:djnz bwlp