2018-02-23 15:36:05 +00:00
|
|
|
.include "../inc/common.inc"
|
2017-11-05 21:55:55 +00:00
|
|
|
|
2018-07-27 20:03:26 +00:00
|
|
|
.export _input_check_for_abort_key
|
|
|
|
|
.export _input_set_abort_key
|
2017-11-05 21:55:55 +00:00
|
|
|
.export _abort_key
|
|
|
|
|
|
2018-07-27 20:03:26 +00:00
|
|
|
.import check_for_abort_key
|
2017-11-05 21:55:55 +00:00
|
|
|
.import abort_key
|
|
|
|
|
.importzp abort_key_default
|
|
|
|
|
.importzp abort_key_disable
|
|
|
|
|
|
2018-07-27 20:03:26 +00:00
|
|
|
_input_check_for_abort_key:
|
|
|
|
|
jsr check_for_abort_key
|
|
|
|
|
ldx #$00
|
|
|
|
|
txa
|
|
|
|
|
rol
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
_input_set_abort_key:
|
2017-11-05 21:55:55 +00:00
|
|
|
lsr
|
|
|
|
|
lda #abort_key_default
|
|
|
|
|
bcs :+
|
|
|
|
|
lda #abort_key_disable
|
|
|
|
|
: sta abort_key
|
|
|
|
|
rts
|
2018-07-27 20:03:26 +00:00
|
|
|
|
|
|
|
|
_abort_key := abort_key
|
