emailler/ip65/input_c.s
2017-11-05 22:55:55 +01:00

16 lines
222 B
ArmAsm

.include "../inc/common.i"
.export _abort_key
.import abort_key
.importzp abort_key_default
.importzp abort_key_disable
_abort_key:
lsr
lda #abort_key_default
bcs :+
lda #abort_key_disable
: sta abort_key
rts