2017-11-29 16:28:13 +00:00
|
|
|
|
PR#3
|
|
|
|
|
PREFIX /A2OSX.BUILD
|
|
|
|
|
NEW
|
|
|
|
|
INC 1
|
|
|
|
|
AUTO 6
|
|
|
|
|
.LIST OFF
|
|
|
|
|
*--------------------------------------
|
2017-11-30 16:33:33 +00:00
|
|
|
|
* Set X2,Y2,SrcPtr
|
2017-11-29 16:28:13 +00:00
|
|
|
|
*--------------------------------------
|
2017-12-01 06:52:55 +00:00
|
|
|
|
SetCursor.A sta CUR.T
|
|
|
|
|
|
|
|
|
|
lda CUR.bVisible
|
2017-11-30 16:33:33 +00:00
|
|
|
|
bpl .1
|
|
|
|
|
|
|
|
|
|
jsr HideCursor
|
|
|
|
|
|
|
|
|
|
.1 ldx CUR.T
|
|
|
|
|
|
|
|
|
|
lda L.Cursors,x
|
|
|
|
|
sta CUR.CB+S.CB.SrcPtr
|
|
|
|
|
sta ZPPtr1
|
|
|
|
|
|
|
|
|
|
lda L.Cursors+1,x
|
|
|
|
|
sta CUR.CB+S.CB.SrcPtr+1
|
|
|
|
|
sta ZPPtr1+1
|
|
|
|
|
|
|
|
|
|
ldy #S.BM.W
|
|
|
|
|
|
|
|
|
|
lda #-1
|
|
|
|
|
clc
|
|
|
|
|
adc (ZPPtr1),y
|
|
|
|
|
sta CUR.CB+S.CB.X2
|
|
|
|
|
|
|
|
|
|
iny
|
|
|
|
|
|
|
|
|
|
lda /-1
|
|
|
|
|
adc (ZPPtr1),y
|
|
|
|
|
sta CUR.CB+S.CB.X2+1
|
|
|
|
|
|
|
|
|
|
iny S.BM.H
|
|
|
|
|
|
|
|
|
|
lda #-1
|
|
|
|
|
clc
|
|
|
|
|
adc (ZPPtr1),y
|
|
|
|
|
sta CUR.CB+S.CB.Y2
|
|
|
|
|
|
|
|
|
|
iny
|
|
|
|
|
|
|
|
|
|
lda /-1
|
|
|
|
|
adc (ZPPtr1),y
|
|
|
|
|
sta CUR.CB+S.CB.Y2+1
|
|
|
|
|
|
|
|
|
|
lda CUR.bVisible
|
|
|
|
|
bmi ShowCursor
|
|
|
|
|
|
|
|
|
|
rts
|
2017-11-29 16:28:13 +00:00
|
|
|
|
*--------------------------------------
|
2017-11-30 16:33:33 +00:00
|
|
|
|
* Set DestX,DestY
|
2017-11-29 16:28:13 +00:00
|
|
|
|
*--------------------------------------
|
2017-12-01 06:52:55 +00:00
|
|
|
|
SetCursorPos >PULLW ZPPtr1
|
2017-11-30 16:33:33 +00:00
|
|
|
|
|
|
|
|
|
lda CUR.bVisible
|
|
|
|
|
bpl .1
|
|
|
|
|
|
|
|
|
|
jsr HideCursor
|
|
|
|
|
|
|
|
|
|
.1 ldy #S.RECT-1
|
2017-11-29 16:28:13 +00:00
|
|
|
|
|
2017-11-30 16:33:33 +00:00
|
|
|
|
.2 lda (ZPPtr1),y
|
|
|
|
|
sta CUR.Pos,y
|
|
|
|
|
dey
|
|
|
|
|
bpl .2
|
|
|
|
|
|
|
|
|
|
ldx CUR.T
|
|
|
|
|
|
|
|
|
|
lda CUR.Pos+S.RECT.X1
|
|
|
|
|
sec
|
|
|
|
|
sbc CUR.HotPoints,x
|
|
|
|
|
sta CUR.CB+S.CB.DestX
|
|
|
|
|
|
|
|
|
|
lda CUR.Pos+S.RECT.X1+1
|
|
|
|
|
sbc #0
|
|
|
|
|
sta CUR.CB+S.CB.DestX+1
|
|
|
|
|
|
|
|
|
|
lda CUR.Pos+S.RECT.Y1
|
|
|
|
|
sec
|
|
|
|
|
sbc CUR.HotPoints+1,x
|
|
|
|
|
sta CUR.CB+S.CB.DestY
|
|
|
|
|
|
|
|
|
|
lda CUR.Pos+S.RECT.Y1+1
|
|
|
|
|
sbc #0
|
|
|
|
|
sta CUR.CB+S.CB.DestY+1
|
|
|
|
|
|
|
|
|
|
lda CUR.bVisible
|
|
|
|
|
bmi ShowCursor
|
|
|
|
|
|
2017-11-29 16:28:13 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2017-11-30 16:33:33 +00:00
|
|
|
|
HideCursor lda CUR.bVisible
|
|
|
|
|
bpl .9
|
|
|
|
|
|
|
|
|
|
lda #S.CB.OP.RESTORE
|
|
|
|
|
sta CUR.CB+S.CB.OP
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
stz CUR.bVisible
|
|
|
|
|
.9 rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
ShowCursor lda CUR.bVisible
|
|
|
|
|
bmi .9
|
|
|
|
|
|
|
|
|
|
lda #S.CB.OP.ORA+S.CB.OP.MASK+S.CB.OP.SAVE
|
|
|
|
|
sta CUR.CB+S.CB.OP
|
|
|
|
|
|
|
|
|
|
>LDYA L.CUR.CB
|
|
|
|
|
|
|
|
|
|
jsr GoDevGfx.YA
|
|
|
|
|
|
|
|
|
|
dec CUR.bVisible
|
|
|
|
|
.9 rts
|
|
|
|
|
*--------------------------------------
|
2017-11-29 16:28:13 +00:00
|
|
|
|
MAN
|
|
|
|
|
SAVE /A2OSX.SRC/LIB/LIBGUI.S.CUR
|
|
|
|
|
LOAD /A2OSX.SRC/LIB/LIBGUI.S
|
|
|
|
|
ASM
|