;------------------------------------------------------
; Free Bird's Findpixel
; By Free Bird
;
; 107-209 cycles  24 bytes    (d,e) to hl:a  destroys: b
;------------------------------------------------------
FindPixel:
	ld l,e
	add hl,hl
	add hl,hl
	ld h,$fc/4   ;hl=$3f00+4*y
	ld a,d
	and 7
	inc a
	ld b,a
	ld a,d
	rra
	add hl,hl
	rra
	add hl,hl ;hl=$fc00+16*y
	rra       ;a=x/8
	or l
	ld l,a
	ld a,1
PixelLoop:
	rrca
	djnz PixelLoop
	ret