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

Identify SET_INPUT

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
desk.acc/a2d.inc
View File

@ -208,8 +208,15 @@ A2D_UNK_2B := $2B ; Unknown - possibly "reset drawing state"
;; $2C used in DeskTop but not DAs
;; (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)
;; .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
;; .byte id

4
desk.acc/calculator.s
View File

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