Advertisement
Guest User

Untitled

a guest
Mar 30th, 2015
193
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.74 KB | None | 0 0
  1. ld a,%10111110
  2. out (1),a ; activate key groups 0 and 6
  3. in a,(1) ; poll keyboard driver
  4. ld hl,keyReturn
  5. bit 3,a ; is Up arrow pressed
  6. jr nz,{1@}
  7. res movForward,(hl)
  8. @: bit 2,a ; is Right arrow pressed
  9. jr nz,{1@}
  10. res turnRight,(hl)
  11. @: bit 1,a ; is Left arrow pressed
  12. jr nz,{1@}
  13. res turnLeft,(hl)
  14. @: bit 0,a ; is Down arrow pressed
  15. jr nz,{1@}
  16. res movBack,(hl)
  17. @: bit 5,a ; is [2nd] pressed
  18. jr nz,{1@}
  19. res itemCollect,(hl)
  20. @: bit 6,a ; is [Mode] pressed
  21. jr nz,{1@}
  22. res toggleFlashLt,(hl)
  23. @: bit 7,a ; is [Del] pressed
  24. jr nz,{1@} ; quit game
  25. res quit,(hl)
  26. ; check secondary keys
  27. @: ld a,%11011111
  28. out (1),a
  29. in a,(1)
  30. bit 7,a ; is [Alpha] pressed
  31. jr nz,{1@}
  32. res sprintActive,(hl)
  33. @: ret
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement