Advertisement
AnthonyCagliano

6-bit rendering

Jan 4th, 2016
123
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.37 KB | None | 0 0
  1. drawSprite_6_Bit:
  2. ld a,d
  3. ld b,12
  4. drawSprite_outerloop:
  5. inc a \ push af
  6. push bc
  7. ld a,e \ out ($10),a \ call lcdwait
  8. out ($10),a \ call lcdwait
  9. ld b,2
  10. drawSprite_innerloop:
  11. ld a,(hl)
  12. out ($11),a \ call lcdwait
  13. djnz drawSprite_innerloop
  14. pop bc \ pop af
  15. djnz drawSprite_outerloop
  16.  
  17. lcdwait:
  18. in a,($10) ;bit 7 set if LCD is busy
  19. rla \ jr c,lcdwait
  20. ret
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement