empathicqubit/cc65
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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: READ:
beq right beq right
lda #%10000000
ora VIA2::PRB lda VIA2::PRB
and #%01111111
ora #%01000000
sta VIA2::PRB sta VIA2::PRB
; then read ; then read
lda VIA2::PRB lda VIA2::PRB
eor #%10011111 eor #%10011111
rts rts
right: right:
lda #%01000000 lda VIA2::PRB
ora VIA2::PRB and #%10111111
sta VIA2::PRB ora #%10000000
sta VIA2::PRB
; then read ; then read
lda VIA2::PRB lda VIA2::PRB
eor #%01011111 eor #%01011111