Advertisement
Zeda

pxl-plot 2

Dec 14th, 2011
331
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.79 KB | None | 0 0
  1. ;D=X
  2. ;E=Y
  3. ;C=Method
  4. ; 0=test
  5. ; 1=on
  6. ; 2=invert
  7. ; 3=off
  8. srl d \ rra ;12
  9. srl d \ rra ;12
  10. srl d \ rra ;12
  11. ld b,a ;4
  12. ld a,d ;4
  13.  
  14. ld d,0 ;7
  15. ld h,d \ ld l,e ;4
  16. add hl,de ;11
  17. add hl,de ;11
  18. add hl,hl ;11
  19. add hl,hl ;11
  20. ld e,a ;4
  21. add hl,de ;11
  22. ld de,(BufPtr) ;20
  23. add hl,de ;11
  24. inc b
  25. ld a,1
  26. rrca
  27. djnz $-1
  28. ld b,a
  29. and (hl)
  30. ld e,a
  31. ld a,b
  32. ld b,c
  33. djnz $+3
  34. or (hl)
  35. djnz $+5
  36. xor (hl)
  37. djnz $+4
  38. cpl
  39. and (hl)
  40. ld (hl),a
  41. ret
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement