MatthiasQuintern/6502-OS
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix swapped rows

Browse Source
This commit is contained in:
matthias@rpi 2023-11-09 12:08:09 +01:00
parent db80bd9aa3
commit cb203bf62d
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
system/keypad.s65
View File

@ -18,7 +18,7 @@ INCLUDE_KEYPAD = 1
RBUF_MEM_START = $200 RBUF_MEM_START = $200
RBUF_MEM_END = $2ff RBUF_MEM_END = $208
.define RBUF_NAME "keypad" .define RBUF_NAME "keypad"
.include "buffer.s65" .include "buffer.s65"
@ -61,16 +61,15 @@ KB_VAR = $05 ; any free zp address
ldx #$00 ldx #$00
jsr @kp_read_column jsr @kp_read_column
lda #%00001101 lda #%00001101
ldx #$04 ldx #$08
jsr @kp_read_column jsr @kp_read_column
lda #%00001011 lda #%00001011
ldx #$08 ldx #$04
jsr @kp_read_column jsr @kp_read_column
lda #%00000111 lda #%00000111
ldx #$0c ldx #$0c
jsr @kp_read_column jsr @kp_read_column
stz KP_IO+IO::RB ; todo why all zero? stz KP_IO+IO::RB ; todo why all zero?
; lda KP_IO+IO::RB ; read to definetly clear the interrupt flag
rts rts
@kp_read_column: @kp_read_column:
sta KP_IO+IO::RB sta KP_IO+IO::RB