Identify SET_INPUT

This commit is contained in:
Joshua Bell 2017-09-19 07:58:17 -07:00
parent 15e354c927
commit e94b6e7f2d
2 changed files with 10 additions and 3 deletions

View File

@ -208,8 +208,15 @@ A2D_UNK_2B := $2B ; Unknown - possibly "reset drawing state"
;; $2C used in DeskTop but not DAs ;; $2C used in DeskTop but not DAs
;; (input length 0 bytes) ;; (input length 0 bytes)
A2D_UNK_2D := $2D ; Unknown - used in calculator A2D_SET_INPUT := $2D ; Set pending input state (mouse or keyboard)
;; (input length 5 bytes) ;; (input length 5 bytes)
;; .byte state (A2D_INPUT_*)
;; if state is A2D_INPUT_KEY:
;; .byte key (ASCII code; high bit clear)
;; .byte modifiers (0=none, 1=open-apple, 2=closed-apple, 3=both)
;; if state otherwise:
;; .word xcoord
;; .word ycoord
A2D_CREATE_WINDOW := $38 A2D_CREATE_WINDOW := $38
;; .byte id ;; .byte id

View File

@ -799,8 +799,8 @@ init: sta ALTZPON
A2D_CALL $2B ; reset drawing state? A2D_CALL $2B ; reset drawing state?
lda #$01 lda #$01
sta input_state_params::state sta input_state_params::state
A2D_CALL $2D, input_state_params ; ??? A2D_CALL A2D_SET_INPUT, input_state_params
A2D_CALL A2D_GET_INPUT, input_state_params ; ??? A2D_CALL A2D_GET_INPUT, input_state_params
lda ROMIN2 lda ROMIN2
jsr reset_buffer2 jsr reset_buffer2
lda #window_id lda #window_id