Apple-2-SW/emailler
1
0
Fork 0
mirror of https://github.com/bobbimanners/emailler.git synced 2024-05-28 05:41:28 +00:00
Code Issues Projects Releases Wiki Activity

Some minor changes.

Browse Source
This commit is contained in:
Oliver Schmidt 2017-05-07 20:53:04 +02:00
parent 344d76829a
commit 2566a26253
4 changed files with 14 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
drivers/a2input.s
View File

@ -1,7 +1,7 @@
.export get_key .export get_key
.export check_for_abort_key .export check_for_abort_key
.export get_key_ip65
.export get_key_if_available .export get_key_if_available
.export get_key_ip65
.import ip65_process .import ip65_process
@ -11,17 +11,23 @@
; use Apple 2 monitor ROM function to read from keyboard ; use Apple 2 monitor ROM function to read from keyboard
; inputs: none ; inputs: none
; outputs: A contains ASCII code of key pressed ; outputs: A contains ASCII code of key pressed
get_key: get_key = $fd0c
jmp $fd0c
; inputs: none ; inputs: none
; outputs: A contains ASCII value of key just pressed (0 if no key pressed) ; outputs: A contains ASCII value of key just pressed (0 if no key pressed)
get_key_if_available: get_key_if_available:
lda $c000 ; current key pressed lda $c000 ; current key pressed
bmi :+ bmi got_key
lda #0 lda #0
rts rts
: bit $c010 ; clear the keyboard strobe
; process inbound ip packets while waiting for a keypress
get_key_ip65:
jsr ip65_process
lda $c000 ; key down?
bpl get_key_ip65
got_key:
bit $c010 ; clear the keyboard strobe
and #$7f and #$7f
rts rts
@ -38,13 +44,6 @@ check_for_abort_key:
: clc : clc
rts rts
; process inbound ip packets while waiting for a keypress
get_key_ip65:
jsr ip65_process
bit $c000 ; key down?
bpl get_key_ip65
jmp get_key
; -- LICENSE FOR a2input.s -- ; -- LICENSE FOR a2input.s --

3
drivers/a2kernal.s
View File

@ -3,8 +3,7 @@
.code .code
exit_to_basic: exit_to_basic = $3d0
jmp $3d0

3
drivers/c64kernal.s
View File

@ -4,8 +4,7 @@
.code .code
; jump to BASIC interpreter loop ; jump to BASIC interpreter loop
exit_to_basic: exit_to_basic = $a7ae
jmp $a7ae

3
drivers/vic20kernal.s
View File

@ -4,8 +4,7 @@
.code .code
; jump to BASIC interpreter loop ; jump to BASIC interpreter loop
exit_to_basic: exit_to_basic = $c7ae
jmp $c7ae