2022-10-18 05:56:59 +00:00
|
|
|
|
NEW
|
|
|
|
|
AUTO 3,1
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
PTR.Update lda PTR.T
|
|
|
|
|
cmp #PTR.T.WAIT
|
|
|
|
|
bcc PTR.Set.RTS
|
|
|
|
|
|
|
|
|
|
inc
|
|
|
|
|
inc
|
|
|
|
|
cmp #PTR.T.WAIT+12
|
|
|
|
|
bne PTR.Set
|
|
|
|
|
|
|
|
|
|
lda #PTR.T.WAIT
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
* Set X2,Y2,SrcPtr
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
PTR.Set sta PTR.T
|
|
|
|
|
|
|
|
|
|
lda PTR.bVisible
|
|
|
|
|
bpl .1
|
|
|
|
|
|
|
|
|
|
jsr PTR.Hide.I
|
|
|
|
|
|
|
|
|
|
.1 ldx PTR.T
|
|
|
|
|
lda L.Cursors,x
|
|
|
|
|
sta CB.PTR+S.CB.SrcPtr
|
|
|
|
|
sta ZPPtr1
|
|
|
|
|
lda L.Cursors+1,x
|
|
|
|
|
sta CB.PTR+S.CB.SrcPtr+1
|
|
|
|
|
sta ZPPtr1+1
|
|
|
|
|
|
|
|
|
|
ldy #S.BM.W
|
|
|
|
|
lda (ZPPtr1),y
|
|
|
|
|
sta CB.PTR+S.CB.SrcW
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
adc CB.PTR+S.CB.X1
|
|
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
iny
|
|
|
|
|
lda (ZPPtr1),y
|
|
|
|
|
sta CB.PTR+S.CB.SrcW+1
|
|
|
|
|
adc CB.PTR+S.CB.X1+1
|
|
|
|
|
tax
|
|
|
|
|
pla
|
|
|
|
|
bne .2
|
|
|
|
|
|
|
|
|
|
dex
|
|
|
|
|
|
|
|
|
|
.2 dec
|
|
|
|
|
sta CB.PTR+S.CB.X2
|
|
|
|
|
stx CB.PTR+S.CB.X2+1
|
|
|
|
|
|
|
|
|
|
iny S.BM.H
|
|
|
|
|
lda (ZPPtr1),y
|
|
|
|
|
sta CB.PTR+S.CB.SrcH
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
adc CB.PTR+S.CB.Y1
|
|
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
iny
|
|
|
|
|
lda (ZPPtr1),y
|
|
|
|
|
sta CB.PTR+S.CB.SrcH+1
|
|
|
|
|
adc CB.PTR+S.CB.Y1+1
|
|
|
|
|
tax
|
|
|
|
|
pla
|
|
|
|
|
bne .3
|
|
|
|
|
|
|
|
|
|
dex
|
|
|
|
|
|
|
|
|
|
.3 dec
|
|
|
|
|
sta CB.PTR+S.CB.Y2
|
|
|
|
|
stx CB.PTR+S.CB.Y2+1
|
|
|
|
|
|
|
|
|
|
lda PTR.bVisible
|
|
|
|
|
bmi PTR.Show.I
|
|
|
|
|
|
|
|
|
|
PTR.Set.RTS rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
* Set DestX,DestY
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
PTR.SetPos >PULLW ZPPtr1
|
|
|
|
|
lda PTR.bVisible
|
|
|
|
|
bpl .1
|
|
|
|
|
|
|
|
|
|
jsr PTR.Hide.I
|
|
|
|
|
|
|
|
|
|
.1 ldy #S.POINT-1
|
|
|
|
|
|
|
|
|
|
.2 lda (ZPPtr1),y
|
|
|
|
|
sta PTR.Pos,y
|
|
|
|
|
dey
|
|
|
|
|
bpl .2
|
|
|
|
|
|
|
|
|
|
lda PTR.bVisible
|
|
|
|
|
bmi PTR.Show.I
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2022-11-02 06:54:30 +00:00
|
|
|
|
PTR.Disable bit PTR.bVisible
|
|
|
|
|
bmi PTR.Hide.I
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
PTR.Enable bit PTR.bVisible
|
|
|
|
|
bmi PTR.Show.I
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2022-10-18 05:56:59 +00:00
|
|
|
|
PTR.Hide lda PTR.bVisible
|
2022-11-02 06:54:30 +00:00
|
|
|
|
bpl .8
|
2022-10-18 05:56:59 +00:00
|
|
|
|
|
|
|
|
|
stz PTR.bVisible
|
|
|
|
|
|
2022-11-02 06:54:30 +00:00
|
|
|
|
bra PTR.Hide.I
|
|
|
|
|
|
|
|
|
|
.8 clc
|
2022-10-18 05:56:59 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
PTR.Show lda PTR.bVisible
|
2022-11-02 06:54:30 +00:00
|
|
|
|
bmi .8
|
2022-10-18 05:56:59 +00:00
|
|
|
|
|
|
|
|
|
dec PTR.bVisible
|
|
|
|
|
|
2022-11-02 06:54:30 +00:00
|
|
|
|
bra PTR.Show.I
|
|
|
|
|
|
|
|
|
|
.8 clc
|
|
|
|
|
rts
|
2022-10-18 05:56:59 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
PTR.Hide.I lda #S.CB.OP.RESTORE
|
|
|
|
|
bra PTR.Draw.I
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
PTR.Show.I ldx PTR.T
|
|
|
|
|
lda PTR.Pos+S.POINT.X
|
|
|
|
|
sec
|
|
|
|
|
sbc PTR.HotPoints,x
|
|
|
|
|
sta CB.PTR+S.CB.X1
|
|
|
|
|
|
|
|
|
|
lda PTR.Pos+S.POINT.X+1
|
|
|
|
|
sbc #0
|
|
|
|
|
sta CB.PTR+S.CB.X1+1
|
|
|
|
|
|
|
|
|
|
lda PTR.Pos+S.POINT.Y
|
|
|
|
|
sec
|
|
|
|
|
sbc PTR.HotPoints+1,x
|
|
|
|
|
sta CB.PTR+S.CB.Y1
|
|
|
|
|
|
|
|
|
|
lda PTR.Pos+S.POINT.Y+1
|
|
|
|
|
sbc #0
|
|
|
|
|
sta CB.PTR+S.CB.Y1+1
|
|
|
|
|
|
|
|
|
|
lda #S.CB.OP.ORA+S.CB.OP.MASK+S.CB.OP.SAVE
|
|
|
|
|
|
|
|
|
|
PTR.Draw.I sta CB.PTR+S.CB.OP
|
2022-11-03 06:59:03 +00:00
|
|
|
|
|
2022-10-18 05:56:59 +00:00
|
|
|
|
>LDYA L.WND.Screen
|
2022-11-03 06:59:03 +00:00
|
|
|
|
jsr CLIP.GetRect
|
2022-10-18 05:56:59 +00:00
|
|
|
|
|
|
|
|
|
>LDYA L.CB.PTR
|
2022-11-03 06:59:03 +00:00
|
|
|
|
jsr CB.GetInCache
|
|
|
|
|
|
|
|
|
|
jsr CLIP.CB.Cache
|
2022-10-18 05:56:59 +00:00
|
|
|
|
bcs .8
|
|
|
|
|
|
|
|
|
|
jsr CB.GFXWrite
|
|
|
|
|
|
|
|
|
|
.8 clc
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
MAN
|
|
|
|
|
SAVE usr/src/lib/libgui.s.ptr
|
|
|
|
|
LOAD usr/src/lib/libgui.s
|
|
|
|
|
ASM
|