mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-07-06 19:28:56 +00:00
16 lines
222 B
ArmAsm
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
|