21 lines
243 B
ArmAsm
21 lines
243 B
ArmAsm
|
|
// Pop key out of keyboard buffer
|
|
// Disable interrupts while reading from keyboard buffer
|
|
// so that no race conditions can occur
|
|
|
|
|
|
pop_keyboard_buffer:
|
|
|
|
ldy #$01
|
|
|
|
sei
|
|
!: lda KEYD,y
|
|
sta KEYD-1,y
|
|
iny
|
|
cpy XMAX
|
|
bne !-
|
|
dec NDX
|
|
cli
|
|
|
|
rts
|