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

Fix bug

Browse Source
This commit is contained in:
jede 2020-05-25 22:25:14 +02:00 committed by greg-king5
parent e8b1d51d28
commit 1d358a4734
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
libsrc/telestrat/joy/telestrat-joy.s
View File

@ -91,18 +91,22 @@ COUNT:
READ:
beq right
lda #%10000000
ora VIA2::PRB
lda VIA2::PRB
and #%01111111
ora #%01000000
sta VIA2::PRB
; then read
lda VIA2::PRB
eor #%10011111
rts
right:
lda #%01000000
ora VIA2::PRB
sta VIA2::PRB
right:
lda VIA2::PRB
and #%10111111
ora #%10000000
sta VIA2::PRB
; then read
lda VIA2::PRB
eor #%01011111