programlibs/Hex1000/demos/keys.xtl

source · imports hx: libs/Hex1000/src/Hex1000.xtl

scan : Int

value · line 11
scan ← ʰˣa̲ssemble "wait: KNEZ   ; S: a key is down\nBR got\nBR wait\ngot: TKA    ; the key into A\nTAMIY        ; into RAM, Y + 1\nup: KNEZ     ; wait for the release\nBR up\nBR wait"

presses : Int

value · line 13
presses ← 8 2 r̲eshape 12 8 0 9 10 8 0 9 15 8 0 9 14 8 0 9

after : (Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int)

value · line 15
after ← scan ʰˣr̲unKeys (ʰˣReset, presses)