lda #%10000000 ; cia 2 port B Data-Direction
sta CIA2_DDRB ; bit 7: out bit 6-0: in
lda #%10000000 ; cia 2 port B Data-Direction
sta CIA2_DDRB ; bit 7: out bit 6-0: in
lda #$80 ; cia 2 port B read/write
sta CIA2_PRB ; (output one at PB7)
lda CIA2_PRB ; cia 2 port B read/write
and #$1f ; get bit 4-0 (PB4-PB0)
lda #$80 ; cia 2 port B read/write
sta CIA2_PRB ; (output one at PB7)
lda CIA2_PRB ; cia 2 port B read/write
and #$1f ; get bit 4-0 (PB4-PB0)
-joy4: lda #%10000000 ; cia 2 port B Data-Direction
- sta CIA2_DDRB ; bit 7: out bit 6-0: in
-
lda #$00 ; cia 2 port B read/write
sta CIA2_PRB ; (output zero at PB7)
lda #$00 ; cia 2 port B read/write
sta CIA2_PRB ; (output zero at PB7)
and #%00100000 ; get bit 5 (PB5)
lsr
ora tmp1
and #%00100000 ; get bit 5 (PB5)
lsr
ora tmp1
lda VIA1_PRB ; via port B read/write
and #$1f ; get bit 4-0 (PB4-PB0)
lda VIA1_PRB ; via port B read/write
and #$1f ; get bit 4-0 (PB4-PB0)
and #%00100000 ; get bit 5 (PB5)
lsr
ora tmp1
and #%00100000 ; get bit 5 (PB5)
lsr
ora tmp1