Runer112

Untitled

Jul 3rd, 2011
160
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.45 KB | None | 0 0
  1. IntHandler:
  2. jp (iy)
  3.  
  4. Gray1:
  5. exx
  6. ex af,af'
  7. ld a,(hl)
  8. inc l
  9. xor (hl)
  10. and c
  11. xor (hl)
  12. inc hl
  13. out ($11),a
  14. ex af,af'
  15. exx
  16. .db $FD
  17. ld l,Gray2
  18. ret
  19.  
  20. Gray2:
  21. exx
  22. ex af,af'
  23. ld a,(hl)
  24. inc l
  25. xor (hl)
  26. and d
  27. xor (hl)
  28. inc hl
  29. out ($11),a
  30. ex af,af'
  31. exx
  32. .db $FD
  33. ld l,Gray3
  34. ret
  35.  
  36. Gray3:
  37. exx
  38. ex af,af'
  39. ld a,(hl)
  40. inc l
  41. xor (hl)
  42. and e
  43. xor (hl)
  44. inc hl
  45. out ($11),a
  46. ex af,af'
  47. exx
  48. .db $FD
  49. ld l,Gray1
  50. ret
Add Comment
Please, Sign In to add comment