2018-09-17 15:34:26 +00:00
|
|
|
;Joystick Assembly Language Module for C64
|
|
|
|
|
|
2019-11-15 18:38:08 +00:00
|
|
|
JYSTKS EQU $02 ;Number of Joysticks
|
2018-09-17 15:34:26 +00:00
|
|
|
|
|
|
|
|
;Joystick Bit Masks
|
|
|
|
|
JOYUP EQU $01 ;Bit 0 - Up
|
|
|
|
|
JOYDN EQU $02 ;Bit 1 - Down
|
|
|
|
|
JOYLF EQU $04 ;Bit 2 - Left
|
|
|
|
|
JOYRT EQU $08 ;Bit 3 - Right
|
|
|
|
|
JOYB0 EQU $10 ;Bit 4 - Button
|
|
|
|
|
|
|
|
|
|
;Read Joystick
|
|
|
|
|
JOYSTK: CMP #JYSTKS ;If Invalid Joystick#
|
|
|
|
|
BCS JOYSTZ ; Return Error
|
2019-11-15 18:38:08 +00:00
|
|
|
EOR #1 ;Invert Joystick #
|
2018-11-07 05:11:09 +00:00
|
|
|
TAX ;Copy Joystick # to X
|
|
|
|
|
LDA $DC00,X ;Read Joystick Shadow Register
|
2018-09-17 15:34:26 +00:00
|
|
|
EOR #$FF ;Invert and
|
2019-11-15 18:38:08 +00:00
|
|
|
AND #$1F ;Mask Bits
|
|
|
|
|
JOYSTX: RTS
|
2018-09-17 15:34:26 +00:00
|
|
|
JOYSTZ: LDA #$FF ;Return Error
|
|
|
|
|
RTS
|
