2014-01-03 22:40:22 +00:00
|
|
|
;
|
|
|
|
|
; Default mouse callbacks for the Ataris
|
|
|
|
|
;
|
|
|
|
|
; Christian Groessler, 03.01.2014
|
|
|
|
|
;
|
|
|
|
|
; derived from Apple2 version by
|
|
|
|
|
; Oliver Schmidt, 22.09.2005
|
|
|
|
|
;
|
|
|
|
|
; All functions in this module should be interrupt safe, because they may
|
|
|
|
|
; be called from an interrupt handler
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
.export _mouse_def_callbacks
|
|
|
|
|
.importzp tmp4
|
|
|
|
|
.import mul40,loc_tmp
|
|
|
|
|
|
|
|
|
|
.include "atari.inc"
|
|
|
|
|
|
|
|
|
|
; ------------------------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
.bss
|
|
|
|
|
|
|
|
|
|
backup: .res 1
|
|
|
|
|
|
|
|
|
|
; ------------------------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
.segment "EXTZP" : zeropage
|
|
|
|
|
scrptr: .res 2
|
|
|
|
|
|
|
|
|
|
; ------------------------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.rodata
|
|
|
|
|
|
|
|
|
|
; Callback structure
|
|
|
|
|
_mouse_def_callbacks:
|
|
|
|
|
.addr hide
|
|
|
|
|
.addr show
|
|
|
|
|
.addr movex
|
|
|
|
|
.addr movey
|
|
|
|
|
|
|
|
|
|
; ------------------------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
.data
|
|
|
|
|
|
2014-01-11 00:05:13 +00:00
|
|
|
cursor = 11 ; '+' screen code'
|
2014-01-03 22:40:22 +00:00
|
|
|
|
|
|
|
|
; setcursor
|
|
|
|
|
|
|
|
|
|
getcursor:
|
|
|
|
|
column: ldy #$00 ; Patched at runtime
|
2014-01-11 00:05:13 +00:00
|
|
|
lda (scrptr),y ; Patched at runtime
|
2014-01-03 22:40:22 +00:00
|
|
|
cmp #cursor
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
setcursor:
|
|
|
|
|
lda #cursor
|
2014-01-11 00:05:13 +00:00
|
|
|
setscr: sta (scrptr),y ; Patched at runtime
|
2014-01-03 22:40:22 +00:00
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
; ------------------------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
.code
|
|
|
|
|
|
|
|
|
|
done:
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
; Hide the mouse cursor.
|
|
|
|
|
hide:
|
|
|
|
|
jsr getcursor ; Cursor visible at current position?
|
|
|
|
|
bne done ; No, we're done
|
|
|
|
|
lda backup ; Get character at cursor position
|
|
|
|
|
jmp setscr ; Draw character
|
|
|
|
|
|
|
|
|
|
; Show the mouse cursor.
|
|
|
|
|
show:
|
|
|
|
|
jsr getcursor ; Cursor visible at current position?
|
|
|
|
|
beq done ; Yes, we're done
|
|
|
|
|
sta backup ; Save character at cursor position
|
|
|
|
|
jmp setcursor ; Draw cursor
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
; Move the mouse cursor x position to the value in A/X.
|
|
|
|
|
movex:
|
|
|
|
|
cpx #1
|
|
|
|
|
ror a
|
|
|
|
|
lsr a ; convert to character position
|
|
|
|
|
lsr a
|
|
|
|
|
sta column+1
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
; Move the mouse cursor y position to the value in A/X.
|
|
|
|
|
movey:
|
|
|
|
|
tax
|
|
|
|
|
ldy tmp4 ; mul40 uses tmp4
|
|
|
|
|
lda loc_tmp ; and this local variable
|
|
|
|
|
pha
|
|
|
|
|
txa ; get parameter back
|
|
|
|
|
lsr a ; convert y position to character line
|
|
|
|
|
lsr a
|
|
|
|
|
lsr a
|
|
|
|
|
jsr mul40
|
|
|
|
|
clc
|
|
|
|
|
adc SAVMSC
|
|
|
|
|
sta scrptr
|
|
|
|
|
txa
|
|
|
|
|
adc SAVMSC+1
|
|
|
|
|
sta scrptr+1
|
|
|
|
|
pla
|
|
|
|
|
sta loc_tmp
|
|
|
|
|
sty tmp4
|
|
|
|
|
rts
|
