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

fix kp values

Browse Source
This commit is contained in:
matthias@arch 2023-12-08 00:14:02 +01:00
parent ef23ccdc15
commit 321759f70d
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
system/keypad.s65
View File

@ -18,6 +18,7 @@ INCLUDE_KEYPAD = 1
.zeropage .zeropage
_KP_COLUMN: .res 1 ; for storing stuff _KP_COLUMN: .res 1 ; for storing stuff
_KP_DEBUG_VAL: .res 1 ; for storing the last char DEBUG
.bss ; reserve space or ringbuffer .bss ; reserve space or ringbuffer
KP_BUF_SIZE = 10 KP_BUF_SIZE = 10
@ -90,6 +91,8 @@ RBUF_MEM_END = RBUF_MEM_START + KP_BUF_SIZE - 1
rts rts
@kp_write: @kp_write:
lda _KP_VALUES,x lda _KP_VALUES,x
; TODO use ringbuffer
sta _KP_DEBUG_VAL
jsr rb_keypad_write jsr rb_keypad_write
rts rts
.endproc .endproc
@ -97,9 +100,9 @@ RBUF_MEM_END = RBUF_MEM_START + KP_BUF_SIZE - 1
.rodata .rodata
_KP_VALUES: _KP_VALUES:
.byte "174*" .byte "174*"
.byte "396#"
.byte "2850" .byte "2850"
.byte "ABCD" .byte "396#"
.byte "ACBD"
; keypad conencted so that ; keypad conencted so that
; row 1 = PA0 ; row 1 = PA0
; row 2 = PA2 ; row 2 = PA2