Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-11-26 02:49:18 +00:00
Code Issues Projects Releases Wiki Activity

MGTK: One more PARAM_BLOCK

Browse Source
This commit is contained in:
Joshua Bell 2018-04-29 13:21:52 -07:00
parent 05f33eb0a2
commit f2f3e8467d
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
desktop/mgtk.s
View File

@ -5391,10 +5391,12 @@ ret: clc
check_kbd_flag: .byte $80 check_kbd_flag: .byte $80
.proc SetKeyEventImpl .proc SetKeyEventImpl
params := $82 PARAM_BLOCK params, $82
handle_keys: .res 1
END_PARAM_BLOCK
asl check_kbd_flag asl check_kbd_flag
ror params ror params::handle_keys
ror check_kbd_flag ror check_kbd_flag
rts rts
.endproc .endproc
@ -6021,9 +6023,8 @@ which_key: .byte 0
key_mods: .byte 0 key_mods: .byte 0
END_PARAM_BLOCK END_PARAM_BLOCK
lda params::which_key lda params::which_key
cmp #$1B ; escape key cmp #CHAR_ESCAPE
bne :+ bne :+
lda params::key_mods lda params::key_mods
@ -6031,7 +6032,6 @@ key_mods: .byte 0
jsr KeyboardMouse jsr KeyboardMouse
jmp MenuSelectImpl jmp MenuSelectImpl
: lda #find_mode_by_shortcut : lda #find_mode_by_shortcut
jsr find_menu jsr find_menu
beq not_found beq not_found