Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ld a,%10111110
- out (1),a ; activate key groups 0 and 6
- in a,(1) ; poll keyboard driver
- ld hl,keyReturn
- bit 3,a ; is Up arrow pressed
- jr nz,{1@}
- res movForward,(hl)
- @: bit 2,a ; is Right arrow pressed
- jr nz,{1@}
- res turnRight,(hl)
- @: bit 1,a ; is Left arrow pressed
- jr nz,{1@}
- res turnLeft,(hl)
- @: bit 0,a ; is Down arrow pressed
- jr nz,{1@}
- res movBack,(hl)
- @: bit 5,a ; is [2nd] pressed
- jr nz,{1@}
- res itemCollect,(hl)
- @: bit 6,a ; is [Mode] pressed
- jr nz,{1@}
- res toggleFlashLt,(hl)
- @: bit 7,a ; is [Del] pressed
- jr nz,{1@} ; quit game
- res quit,(hl)
- ; check secondary keys
- @: ld a,%11011111
- out (1),a
- in a,(1)
- bit 7,a ; is [Alpha] pressed
- jr nz,{1@}
- res sprintActive,(hl)
- @: ret
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement