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

change for new connection

Browse Source
This commit is contained in:
matthias@rpi 2023-12-04 20:56:16 +01:00
parent 182b8a2d75
commit e295c5549a
1 changed files with 17 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
system/keypad.s65
View File

@ -60,33 +60,33 @@ RBUF_MEM_END = RBUF_MEM_START + KP_BUF_SIZE - 1
;******************************************************************************** ;********************************************************************************
.proc kp_read_on_irq .proc kp_read_on_irq
; test each "row" and check which column is 1 ; test each "row" and check which column is 1
; todo dont check every column if the value has been found ; TODO dont check every column if the value has been found
lda #%11100000 lda #%11100000
ldx #$00 ldx #$00
jsr @kp_read_column jsr @kp_read_column
lda #%11010000 lda #%11010000
ldx #$08 ldx #$04
jsr @kp_read_column jsr @kp_read_column
lda #%10110000 lda #%10110000
ldx #$04 ldx #$08
jsr @kp_read_column jsr @kp_read_column
lda #%01110000 lda #%01110000
ldx #$0c ldx #$0c
jsr @kp_read_column jsr @kp_read_column
stz KP_IO+IO::RA stz KP_IO+IO::RA
lda KP_IO+IO::RA ; todo: verify that this is necessary so that rows 1-3 dont refire immediately after they are armed again because of stz lda KP_IO+IO::RA ; clear interrupt flag again beceause it might be set again through the above tests
rts rts
@kp_read_column: @kp_read_column:
sta KP_IO+IO::RA sta KP_IO+IO::RA
lda KP_IO+IO::RA lda KP_IO+IO::RA
sta _KP_COLUMN ; store result in zeropage so that bbr can be used sta _KP_COLUMN ; store result in zeropage so that bbr can be used
bbr4 _KP_COLUMN,@kp_write bbr0 _KP_COLUMN,@kp_write ; row 1
inx inx
bbr5 _KP_COLUMN,@kp_write bbr1 _KP_COLUMN,@kp_write ; row 3
inx inx
bbr6 _KP_COLUMN,@kp_write bbr2 _KP_COLUMN,@kp_write ; row 2
inx inx
bbr7 _KP_COLUMN,@kp_write bbr3 _KP_COLUMN,@kp_write ; row 4
rts rts
@kp_write: @kp_write:
lda _KP_VALUES,x lda _KP_VALUES,x
@ -96,6 +96,13 @@ RBUF_MEM_END = RBUF_MEM_START + KP_BUF_SIZE - 1
.rodata .rodata
_KP_VALUES: _KP_VALUES:
; TODO change to literal .byte "174*"
.byte "123A", "456B", "789C", "*0#D" .byte "396#"
.byte "2850"
.byte "ABCD"
; keypad conencted so that
; row 1 = PA0
; row 2 = PA2
; row 3 = PA1
; row 4 = PA3
.endif .endif