getpixelloc_nobound.z80 315 B

123456789101112131415161718192021222324252627282930313233
  1. GetPixelLoc_NoBound:
  2. ld a,b
  3. ld l,c
  4. ld h,0
  5. bit 7,c
  6. jr z,+_
  7. dec h
  8. _:
  9. ld b,h
  10. add hl,hl
  11. add hl,bc
  12. add hl,hl
  13. add hl,hl
  14. ld c,a
  15. ld b,0
  16. bit 7,c
  17. jr z,+_
  18. dec b
  19. _:
  20. sra c
  21. sra c
  22. sra c
  23. add hl,bc
  24. ld bc,(gbuf_temp)
  25. add hl,bc
  26. and 7
  27. ld b,a
  28. ld a,$80
  29. ret z
  30. _:
  31. rrca
  32. djnz -_
  33. ret