6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-06-07 07:29:33 +00:00
Code Issues Projects Releases Wiki Activity

Updated to use the new VIA register names

Browse Source
This commit is contained in:
Olli Savia 2018-04-20 21:25:43 +03:00
parent 7292b571de
commit c2adade8a8
2 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
libsrc/pet/joy/pet-ptvjoy.s
View File

@ -10,6 +10,7 @@
.include "joy-kernel.inc"
.include "joy-error.inc"
.include "pet.inc"
.macpack module
@ -40,10 +41,6 @@
JOY_COUNT = 2 ; Number of joysticks we support
VIA_PRA := $E841 ; Port register A
VIA_DDRA := $E843 ; Data direction register A
.code
; ------------------------------------------------------------------------
@ -89,9 +86,9 @@ READ: lda #%10000000 ; via port A Data-Direction
; Read joystick 1
joy1: lda #$80 ; via port A read/write
sta VIA_PRA ; (output one at PA7)
sta VIA_PA1 ; (output one at PA7)
lda VIA_PRA ; via port A read/write
lda VIA_PA1 ; via port A read/write
and #$1f ; get bit 4-0 (PA4-PA0)
eor #$1f
rts
@ -99,13 +96,13 @@ joy1: lda #$80 ; via port A read/write
; Read joystick 2
joy2: lda #$00 ; via port A read/write
sta VIA_PRA ; (output zero at PA7)
sta VIA_PA1 ; (output zero at PA7)
lda VIA_PRA ; via port A read/write
lda VIA_PA1 ; via port A read/write
and #$0f ; get bit 3-0 (PA3-PA0)
sta tmp1 ; joy 4 directions
lda VIA_PRA ; via port A read/write
lda VIA_PA1 ; via port A read/write
and #%00100000 ; get bit 5 (PA5)
lsr
ora tmp1

4
libsrc/pet/joy/pet-stdjoy.s
View File

@ -85,7 +85,7 @@ READ:
joy1:
lda #0
sta VIA_DDRA
lda VIA_PRA
lda VIA_PA1
and #$0f
cmp #$0c
bne @notc1
@ -102,7 +102,7 @@ joy1:
joy2:
lda #0
sta VIA_DDRA
lda VIA_PRA
lda VIA_PA1
lsr
lsr
lsr