Advertisement
AnthonyCagliano

Untitled

Jan 14th, 2017
173
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.27 KB | None | 0 0
  1. KeyGetLoop:
  2. ld hl, $F50000 \ ld a, 1
  3. ld (hl), a ; Set indiscriminate scan mode
  4. Key_WaitLoop
  5. call prng24
  6. ld hl, $f50008
  7. bit 2, (hl) \ jr nz, Key_WaitLoop
  8. call _kbdscan
  9. ld a, (kbdScanCode)
  10. Key_WaitRelease:
  11. ld hl, $f50008
  12. bit 2, (hl) \ jr z, Key_WaitLoop
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement