nodeus

fade scr

Aug 3rd, 2012
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ORG 25000
  2. LD B,7
  3. L0  LD C,SPEED
  4. L1  HALT
  5. DEC C
  6. JR NZ,L1
  7. LD HL,23295
  8. L2  LD A,(HL)
  9. AND 56
  10. JR Z,L3
  11. SUB 8
  12. L3  LD C,A
  13. LD A,(HL)
  14. AND 7
  15. JR Z,L4
  16. DEC A
  17. L4  OR C
  18. LD (HL),A
  19. DEC HL
  20. BIT 3,H
  21. JR NZ,L2
  22. DJNZ L0
  23. RET
Advertisement
Add Comment
Please, Sign In to add comment