Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- KeyGetLoop:
- ld hl, $F50000 \ ld a, 1
- ld (hl), a ; Set indiscriminate scan mode
- Key_WaitLoop
- call prng24
- ld hl, $f50008
- bit 2, (hl) \ jr nz, Key_WaitLoop
- call _kbdscan
- ld a, (kbdScanCode)
- Key_WaitRelease:
- ld hl, $f50008
- bit 2, (hl) \ jr z, Key_WaitLoop
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement