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

fixed a bug (joy #1 would never be tested)

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@2390 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
izydorst 2003-08-20 12:09:39 +00:00
parent e5613ad9eb
commit e1c6745c9a
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
libsrc/geos/devel/geos-stdjoy.s
View File

@ -89,14 +89,16 @@ COUNT:
; READ: Read a particular joystick passed in A.
;
READ: php
READ:
tax
php
sei ; disable IRQ
lda $01
pha
lda #$35
sta $01 ; enable I/O
tax ; Joystick number into X
txa ; Joystick number into X
bne joy2
; Read joystick 1
@ -105,19 +107,19 @@ joy1:
lda #$7F
sta cia1base
lda cia1base+1
back: tax
back: tay
pla
sta $01
plp
txa
tya
and #$1F
eor #$1F
ldx #0
rts
; Read joystick 2
joy2: lda #$E0
joy2: ldx #0
lda #$E0
ldy #$FF
sta cia1base+2
lda cia1base+1