prog8/examples/cx16/keyboardhandler.p8
2022-07-08 21:50:32 +02:00

59 lines
1.3 KiB
Lua

%import textio
%zeropage basicsafe
%option no_sysinit
main {
sub start() {
txt.print("ps2 scancode handler test - press keys! esc to quit!\n")
sys.set_irqd()
uword old_keyhdl = cx16.KEYHDL
cx16.KEYHDL = &main.keyboard_scancode_handler.asm_shim
sys.clear_irqd()
bool escape_pressed
while not escape_pressed {
; just sit here
}
sys.set_irqd()
cx16.KEYHDL = old_keyhdl
sys.clear_irqd()
}
sub keyboard_scancode_handler(ubyte prefix, ubyte scancode, bool updown) {
txt.print_ubhex(prefix, true)
txt.chrout(':')
txt.print_ubhex(scancode, true)
txt.spc()
if updown
txt.chrout('u')
else
txt.chrout('d')
txt.nl()
if prefix==0 and scancode==119 and updown {
; escape was pressed! exit back to basic
main.start.escape_pressed = true
}
return
asm_shim:
%asm {{
php
pha
phx
stz updown
bcc +
inc updown
+ stx prefix
sta scancode
jsr keyboard_scancode_handler
plx
pla
plp
rts
}}
}
}