emailler/ip65/input_c.s
2018-02-23 16:36:05 +01:00

16 lines
224 B
ArmAsm

.include "../inc/common.inc"
.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