mirror of
https://github.com/mi57730/a2d.git
synced 2024-09-29 16:54:56 +00:00
Identify GET_INT_HANDLER
This commit is contained in:
parent
4f4d40a5b8
commit
41eb9f237d
5
a2d.inc
5
a2d.inc
@ -206,6 +206,11 @@ A2D_HOOK_MOUSE := $20 ; Install mouse hook; A=0 on success, $95 if mou
|
||||
;; .addr hook Mouse hook routine to install
|
||||
;; .addr mouse_state (out) Address of mouse state (.word x, y; .byte status)
|
||||
|
||||
A2D_GET_INT_HANDLER := $24 ; Get address of interrupt handler
|
||||
;; (input length 0)
|
||||
;; (output length 2 bytes)
|
||||
;; .addr handler (out) Address of interrupt handler (after cld)
|
||||
|
||||
A2D_SET_CURSOR := $24 ; Set cursor definition
|
||||
;; (input not copied)
|
||||
;; .res 24 bitmap 2x12 byte bitmap
|
||||
|
@ -320,7 +320,7 @@ a2d_jump_table:
|
||||
.addr HOOK_MOUSE_IMPL ; $20 HOOK_MOUSE
|
||||
.addr L8427 ; $21
|
||||
.addr L7D61 ; $22
|
||||
.addr L6747 ; $23
|
||||
.addr GET_INT_HANDLER_IMPL; $23 GET_INT_HANDLER
|
||||
.addr SET_CURSOR_IMPL ; $24 SET_CURSOR
|
||||
.addr SHOW_CURSOR_IMPL ; $25 SHOW_CURSOR
|
||||
.addr HIDE_CURSOR_IMPL ; $26 HIDE_CURSOR
|
||||
@ -408,7 +408,7 @@ param_lengths:
|
||||
PARAM_DEFN 2, $82, 0 ; $20 HOOK_MOUSE
|
||||
PARAM_DEFN 2, $82, 0 ; $21
|
||||
PARAM_DEFN 1, $82, 0 ; $22
|
||||
PARAM_DEFN 0, $00, 0 ; $23
|
||||
PARAM_DEFN 0, $00, 0 ; $23 GET_INT_HANDLER
|
||||
PARAM_DEFN 0, $00, 0 ; $24 SET_CURSOR
|
||||
PARAM_DEFN 0, $00, 0 ; $25 SHOW_CURSOR
|
||||
PARAM_DEFN 0, $00, 0 ; $26 HIDE_CURSOR
|
||||
@ -4661,6 +4661,8 @@ int_stash_rd80store:
|
||||
.proc interrupt_handler
|
||||
cld ; required for interrupt handlers
|
||||
|
||||
body: ; returned by A2D_GET_INT_HANDLER
|
||||
|
||||
lda RDPAGE2 ; record softswitch state
|
||||
sta int_stash_rdpage2
|
||||
lda RD80STORE
|
||||
@ -4703,15 +4705,15 @@ rloop: lda int_stash_zp,x
|
||||
|
||||
;;; ==================================================
|
||||
|
||||
;;; $23 IMPL
|
||||
;;; GET_INT_HANDLER IMPL
|
||||
|
||||
L6747:
|
||||
.proc GET_INT_HANDLER_IMPL
|
||||
lda L6750
|
||||
ldx L6751
|
||||
ldx L6750+1
|
||||
jmp store_xa_at_params
|
||||
|
||||
L6750: .byte $F9
|
||||
L6751: .byte $66
|
||||
L6750: .addr interrupt_handler::body
|
||||
.endproc
|
||||
|
||||
;;; ==================================================
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user