mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-06-19 09:29:32 +00:00
a987c40490
It's imho in general a pretty unfortunate design to have IP65 check the keyboard during blocking operations. Rather it should call back into the application and have that decide what type of user abort it wants to offer. Anyhow I don't want to change all that - at least not now. Therefore I just added the option to influence which key is considered the abort key - and provide a key value that isn't actually used and as such disables the abort check.
83 lines
2.1 KiB
ArmAsm
83 lines
2.1 KiB
ArmAsm
.export get_key
|
|
.export check_for_abort_key
|
|
.export get_key_if_available
|
|
.export get_key_ip65
|
|
.export abort_key
|
|
.exportzp abort_key_default = $18
|
|
.exportzp abort_key_disable = $ff
|
|
|
|
.import ip65_process
|
|
|
|
|
|
.data
|
|
|
|
abort_key: .byte $18 ; RUN/STOP
|
|
|
|
|
|
.code
|
|
|
|
; use Vic 20 Kernel ROM function to read a key
|
|
; inputs: none
|
|
; outputs: A contains ASCII value of key just pressed
|
|
get_key:
|
|
ldy #0
|
|
sty $cc ; cursor on
|
|
@loop:
|
|
jsr get_key_if_available
|
|
beq @loop
|
|
ldy #1
|
|
sty $cc ; cursor off
|
|
rts
|
|
|
|
; use VIC 20 Kernel ROM function to read a key
|
|
; inputs: none
|
|
; outputs: A contains ASCII value of key just pressed (0 if no key pressed)
|
|
get_key_if_available = $f1f9 ; not officially documented - where F1f5 (GETIN) falls through to if device # is 0 (KEYBD)
|
|
|
|
; process inbound ip packets while waiting for a keypress
|
|
get_key_ip65:
|
|
jsr ip65_process
|
|
jsr get_key_if_available
|
|
beq get_key_ip65
|
|
rts
|
|
|
|
; check whether the abort key is being pressed
|
|
; inputs: none
|
|
; outputs: sec if abort key pressed, clear otherwise
|
|
check_for_abort_key:
|
|
lda $cb ; current key pressed
|
|
cmp abort_key
|
|
bne @not_abort
|
|
@flush_loop:
|
|
jsr get_key_if_available
|
|
bne @flush_loop
|
|
lda $cb ; current key pressed
|
|
cmp abort_key
|
|
beq @flush_loop
|
|
sec
|
|
rts
|
|
@not_abort:
|
|
clc
|
|
rts
|
|
|
|
|
|
|
|
; -- LICENSE FOR vic20input.s --
|
|
; The contents of this file are subject to the Mozilla Public License
|
|
; Version 1.1 (the "License"); you may not use this file except in
|
|
; compliance with the License. You may obtain a copy of the License at
|
|
; http://www.mozilla.org/MPL/
|
|
;
|
|
; Software distributed under the License is distributed on an "AS IS"
|
|
; basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
|
|
; License for the specific language governing rights and limitations
|
|
; under the License.
|
|
;
|
|
; The Original Code is ip65.
|
|
;
|
|
; The Initial Developer of the Original Code is Jonno Downes,
|
|
; jonno@jamtronix.com.
|
|
; Portions created by the Initial Developer are Copyright (C) 2009
|
|
; Jonno Downes. All Rights Reserved.
|
|
; -- LICENSE END --
|