1
0
mirror of https://github.com/cc65/cc65.git synced 2024-06-08 15:29:37 +00:00

Fixes for the ptvjoy drivers by Marco van den Heuvel.

git-svn-id: svn://svn.cc65.org/cc65/trunk@4581 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
uz 2010-02-04 21:02:00 +00:00
parent e65f966d25
commit 7d03059240
2 changed files with 9 additions and 7 deletions

View File

@ -117,24 +117,24 @@ joy2: dex
; Read joystick 3
joy3: dex
bne joy4
joy3:
lda #%10000000 ; cia 2 port B Data-Direction
sta CIA2_DDRB ; bit 7: out bit 6-0: in
dex
bne joy4
lda #$80 ; cia 2 port B read/write
sta CIA2_PRB ; (output one at PB7)
lda CIA2_PRB ; cia 2 port B read/write
and #$1f ; get bit 4-0 (PB4-PB0)
eor #$1f
rts
; Read joystick 4
joy4: lda #%10000000 ; cia 2 port B Data-Direction
sta CIA2_DDRB ; bit 7: out bit 6-0: in
joy4:
lda #$00 ; cia 2 port B read/write
sta CIA2_PRB ; (output zero at PB7)
@ -146,7 +146,7 @@ joy4: lda #%10000000 ; cia 2 port B Data-Direction
and #%00100000 ; get bit 5 (PB5)
lsr
ora tmp1
eor #$1f
ldx #0
rts

View File

@ -125,6 +125,7 @@ joy2: lda #%10000000 ; via port B Data-Direction
lda VIA1_PRB ; via port B read/write
and #$1f ; get bit 4-0 (PB4-PB0)
eor #$1f
rts
; Read joystick 3
@ -140,6 +141,7 @@ joy3: lda #$00 ; via port B read/write
and #%00100000 ; get bit 5 (PB5)
lsr
ora tmp1
eor #$1f
ldx #0
rts