mirror of
https://github.com/mi57730/a2d.git
synced 2024-06-30 23:30:32 +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 hook Mouse hook routine to install
|
||||||
;; .addr mouse_state (out) Address of mouse state (.word x, y; .byte status)
|
;; .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
|
A2D_SET_CURSOR := $24 ; Set cursor definition
|
||||||
;; (input not copied)
|
;; (input not copied)
|
||||||
;; .res 24 bitmap 2x12 byte bitmap
|
;; .res 24 bitmap 2x12 byte bitmap
|
||||||
|
|
|
@ -320,7 +320,7 @@ a2d_jump_table:
|
||||||
.addr HOOK_MOUSE_IMPL ; $20 HOOK_MOUSE
|
.addr HOOK_MOUSE_IMPL ; $20 HOOK_MOUSE
|
||||||
.addr L8427 ; $21
|
.addr L8427 ; $21
|
||||||
.addr L7D61 ; $22
|
.addr L7D61 ; $22
|
||||||
.addr L6747 ; $23
|
.addr GET_INT_HANDLER_IMPL; $23 GET_INT_HANDLER
|
||||||
.addr SET_CURSOR_IMPL ; $24 SET_CURSOR
|
.addr SET_CURSOR_IMPL ; $24 SET_CURSOR
|
||||||
.addr SHOW_CURSOR_IMPL ; $25 SHOW_CURSOR
|
.addr SHOW_CURSOR_IMPL ; $25 SHOW_CURSOR
|
||||||
.addr HIDE_CURSOR_IMPL ; $26 HIDE_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 ; $20 HOOK_MOUSE
|
||||||
PARAM_DEFN 2, $82, 0 ; $21
|
PARAM_DEFN 2, $82, 0 ; $21
|
||||||
PARAM_DEFN 1, $82, 0 ; $22
|
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 ; $24 SET_CURSOR
|
||||||
PARAM_DEFN 0, $00, 0 ; $25 SHOW_CURSOR
|
PARAM_DEFN 0, $00, 0 ; $25 SHOW_CURSOR
|
||||||
PARAM_DEFN 0, $00, 0 ; $26 HIDE_CURSOR
|
PARAM_DEFN 0, $00, 0 ; $26 HIDE_CURSOR
|
||||||
|
@ -4661,6 +4661,8 @@ int_stash_rd80store:
|
||||||
.proc interrupt_handler
|
.proc interrupt_handler
|
||||||
cld ; required for interrupt handlers
|
cld ; required for interrupt handlers
|
||||||
|
|
||||||
|
body: ; returned by A2D_GET_INT_HANDLER
|
||||||
|
|
||||||
lda RDPAGE2 ; record softswitch state
|
lda RDPAGE2 ; record softswitch state
|
||||||
sta int_stash_rdpage2
|
sta int_stash_rdpage2
|
||||||
lda RD80STORE
|
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
|
lda L6750
|
||||||
ldx L6751
|
ldx L6750+1
|
||||||
jmp store_xa_at_params
|
jmp store_xa_at_params
|
||||||
|
|
||||||
L6750: .byte $F9
|
L6750: .addr interrupt_handler::body
|
||||||
L6751: .byte $66
|
.endproc
|
||||||
|
|
||||||
;;; ==================================================
|
;;; ==================================================
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user