This commit is contained in:
jede
2020-05-25 22:25:14 +02:00
committed by greg-king5
parent e8b1d51d28
commit 1d358a4734

View File

@@ -91,8 +91,10 @@ 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
@@ -100,9 +102,11 @@ READ:
rts rts
right: right:
lda #%01000000 lda VIA2::PRB
ora VIA2::PRB and #%10111111
ora #%10000000
sta VIA2::PRB sta VIA2::PRB
; then read ; then read
lda VIA2::PRB lda VIA2::PRB
eor #%01011111 eor #%01011111