Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-11-25 10:30:50 +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
.proc SetKeyEventImpl
params := $82
PARAM_BLOCK params, $82
handle_keys: .res 1
END_PARAM_BLOCK
asl check_kbd_flag
ror params
ror params::handle_keys
ror check_kbd_flag
rts
.endproc
@ -6021,9 +6023,8 @@ which_key: .byte 0
key_mods: .byte 0
END_PARAM_BLOCK
lda params::which_key
cmp #$1B ; escape key
cmp #CHAR_ESCAPE
bne :+
lda params::key_mods
@ -6031,7 +6032,6 @@ key_mods: .byte 0
jsr KeyboardMouse
jmp MenuSelectImpl
: lda #find_mode_by_shortcut
jsr find_menu
beq not_found