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

Identify SET_KBD_FLAG

Browse Source
This commit is contained in:
Joshua Bell 2017-10-15 20:28:50 -07:00
parent 41eb9f237d
commit 6b294f4bbc
2 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
a2d.inc
View File

@ -259,6 +259,10 @@ A2D_SET_INPUT := $2D ; Set pending input state (mouse or keyboard)
;; .word xcoord ;; .word xcoord
;; .word ycoord ;; .word ycoord
A2D_SET_KBD_FLAG := $2E ; When set, keyboard is ignored in $29 calls
;; (input length 1 byte)
;; .byte flag high bit set = ignore keyboard, otherwise check
A2D_SET_MENU := $30 ; Configure (and draw) menu A2D_SET_MENU := $30 ; Configure (and draw) menu
;; (input not copied) ;; (input not copied)
;; .word count Number of top-level menus ;; .word count Number of top-level menus

23
desktop/s123_aux.s
View File

@ -331,7 +331,7 @@ a2d_jump_table:
.addr CALL_2B_IMPL ; $2B .addr CALL_2B_IMPL ; $2B
.addr L65D4 ; $2C .addr L65D4 ; $2C
.addr SET_INPUT_IMPL ; $2D SET_INPUT .addr SET_INPUT_IMPL ; $2D SET_INPUT
.addr L6814 ; $2E .addr SET_KBD_FLAG_IMPL ; $2E SET_KBD_FLAG
.addr L6ECD ; $2F .addr L6ECD ; $2F
.addr SET_MENU_IMPL ; $30 SET_MENU .addr SET_MENU_IMPL ; $30 SET_MENU
.addr MENU_CLICK_IMPL ; $31 MENU_CLICK .addr MENU_CLICK_IMPL ; $31 MENU_CLICK
@ -419,7 +419,7 @@ param_lengths:
PARAM_DEFN 0, $00, 0 ; $2B PARAM_DEFN 0, $00, 0 ; $2B
PARAM_DEFN 0, $00, 0 ; $2C PARAM_DEFN 0, $00, 0 ; $2C
PARAM_DEFN 5, $82, 0 ; $2D SET_INPUT PARAM_DEFN 5, $82, 0 ; $2D SET_INPUT
PARAM_DEFN 1, $82, 0 ; $2E PARAM_DEFN 1, $82, 0 ; $2E SET_KBD_FLAG
PARAM_DEFN 4, $82, 0 ; $2F PARAM_DEFN 4, $82, 0 ; $2F
PARAM_DEFN 0, $00, 0 ; $30 SET_MENU PARAM_DEFN 0, $00, 0 ; $30 SET_MENU
PARAM_DEFN 0, $00, 0 ; $31 MENU_CLICK PARAM_DEFN 0, $00, 0 ; $31 MENU_CLICK
@ -4598,7 +4598,7 @@ L666D:
bit mouse_status bit mouse_status
bmi end ; minus = is down bmi end ; minus = is down
bit L6813 bit check_kbd_flag
bpl L66B9 bpl L66B9
lda L7D74 lda L7D74
bne L66B9 bne L66B9
@ -4779,12 +4779,19 @@ L6811: clc
;;; 1 byte of params, copied to $82 ;;; 1 byte of params, copied to $82
L6813: .byte $80 check_kbd_flag: .byte $80
L6814:
asl L6813 .proc SET_KBD_FLAG_IMPL
ror $82 params := $82
ror L6813
asl check_kbd_flag
ror params
ror check_kbd_flag
rts rts
.endproc
;;; ==================================================
L681D: .byte $02 L681D: .byte $02
L681E: .byte $09 L681E: .byte $09