-;------------------------------------------------------
-; CLEM's FIND_PIXEL
-; by Clem
-;
-; 131 cycles 28 bytes (b,c) to hl:a destroyes: none
-;------------------------------------------------------
-
-FindPixel:
- ld h,ScrBuffer/$800
- ld a,c
- add a,a
- add a,a
- ld l,a ;hl=$3f00+4*y
- ld a,b
- rra
- add hl,hl
- rra
- add hl,hl ;hl=$fc00+16*y
- add hl,hl
- rra ;a=x/8
- or l
- ld l,a
- ld a,b
- and 7
- cpl
- rlca
- rlca
- rlca
- ld (FP_Bit),a
- xor a
-FP_Bit =$+1
- set 0,a
- ret
-
-;FindPixel: ;bc to ahl + de gone