mirror of https://github.com/A2osX/A2osX.git
333 lines
6.3 KiB
Plaintext
333 lines
6.3 KiB
Plaintext
NEW
|
||
AUTO 3,1
|
||
*--------------------------------------
|
||
CB.GetWndYCacheX
|
||
lda (ZPWNDPtr),y
|
||
sta CB.Cache,x
|
||
iny
|
||
lda (ZPWNDPtr),y
|
||
sta CB.Cache+1,x
|
||
rts
|
||
*--------------------------------------
|
||
CB.SwapX1X2 ldx CB.Cache+S.CB.X1
|
||
ldy CB.Cache+S.CB.X1+1
|
||
|
||
lda CB.Cache+S.CB.X2
|
||
sta CB.Cache+S.CB.X1
|
||
lda CB.Cache+S.CB.X2+1
|
||
sta CB.Cache+S.CB.X1+1
|
||
|
||
stx CB.Cache+S.CB.X2
|
||
sty CB.Cache+S.CB.X2+1
|
||
|
||
rts
|
||
*--------------------------------------
|
||
CB.SwapY1Y2 ldx CB.Cache+S.CB.Y1
|
||
ldy CB.Cache+S.CB.Y1+1
|
||
|
||
lda CB.Cache+S.CB.Y2
|
||
sta CB.Cache+S.CB.Y1
|
||
lda CB.Cache+S.CB.Y2+1
|
||
sta CB.Cache+S.CB.Y1+1
|
||
|
||
stx CB.Cache+S.CB.Y2
|
||
sty CB.Cache+S.CB.Y2+1
|
||
|
||
rts
|
||
*--------------------------------------
|
||
CB.BorderLineH lda #S.CB.CMD.HLINE
|
||
sta CB.Cache+S.CB.CMD
|
||
lda #S.CB.OP.SET
|
||
sta CB.Cache+S.CB.OP
|
||
lda #S.CB.M.MONO
|
||
sta CB.Cache+S.CB.M
|
||
lda PREFS.BorderColor
|
||
sta CB.Cache+S.CB.COLOR
|
||
rts
|
||
*--------------------------------------
|
||
CB.FillRectMonoA
|
||
sta CB.Cache+S.CB.COLOR
|
||
|
||
lda #S.CB.CMD.FILLRECT
|
||
sta CB.Cache+S.CB.CMD
|
||
|
||
lda #S.CB.OP.SET
|
||
sta CB.Cache+S.CB.OP
|
||
|
||
lda #S.CB.M.MONO
|
||
sta CB.Cache+S.CB.M
|
||
rts
|
||
*--------------------------------------
|
||
CB.PullY2X2Y1X1 ldx #7
|
||
bra CB.PullX
|
||
|
||
CB.PullY1X1 ldx #3
|
||
|
||
CB.PullX >PULLA
|
||
sta CB.Cache+S.CB.X1-1,x
|
||
>PULLA
|
||
sta CB.Cache+S.CB.X1,x
|
||
dex
|
||
dex
|
||
bpl CB.PullX
|
||
|
||
rts
|
||
**--------------------------------------
|
||
CB.X2ToX1 ldy CB.Cache+S.CB.X2
|
||
lda CB.Cache+S.CB.X2+1
|
||
sty CB.Cache+S.CB.X1
|
||
sta CB.Cache+S.CB.X1+1
|
||
rts
|
||
*--------------------------------------
|
||
CB.AddA2X1 clc
|
||
adc CB.Cache+S.CB.X1
|
||
sta CB.Cache+S.CB.X1
|
||
bcc .1
|
||
|
||
inc CB.Cache+S.CB.X1+1
|
||
|
||
.1 rts
|
||
*--------------------------------------
|
||
CB.IncY1 inc CB.Cache+S.CB.Y1
|
||
bne .1
|
||
|
||
inc CB.Cache+S.CB.Y1+1
|
||
|
||
.1 rts
|
||
*--------------------------------------
|
||
CB.DecY2 lda CB.Cache+S.CB.Y2
|
||
bne .1
|
||
|
||
dec CB.Cache+S.CB.Y2+1
|
||
|
||
.1 dec CB.Cache+S.CB.Y2
|
||
|
||
rts
|
||
*--------------------------------------
|
||
CB.GetObjX1Y1 ldy #S.OBJ.X1+3
|
||
ldx #3
|
||
bra CB.GetObjXY
|
||
*--------------------------------------
|
||
CB.GetObjX1Y1X2Y2
|
||
ldy #S.OBJ.X1+7
|
||
ldx #7
|
||
|
||
CB.GetObjXY lda (ZPObjPtr),y
|
||
sta CB.Cache+S.CB.X1,x
|
||
dey
|
||
dex
|
||
bpl CB.GetObjXY
|
||
|
||
rts
|
||
*--------------------------------------
|
||
CB.GetObjSrcWH ldy #S.OBJ.W+3 W,H
|
||
ldx #3
|
||
|
||
.1 lda (ZPObjPtr),y
|
||
sta CB.Cache+S.CB.SrcW,x
|
||
dey
|
||
dex
|
||
bpl .1
|
||
|
||
rts
|
||
*--------------------------------------
|
||
CB.ResetSrcXY ldx #4
|
||
|
||
.1 stz CB.Cache+S.CB.SrcX-1,x
|
||
dex
|
||
bne .1
|
||
|
||
rts
|
||
*--------------------------------------
|
||
CB.SrcWCenterH ldy #S.OBJ.W
|
||
lda (ZPObjPtr),y
|
||
sec
|
||
sbc CB.Cache+S.CB.SrcW
|
||
pha
|
||
iny
|
||
lda (ZPObjPtr),y
|
||
sbc CB.Cache+S.CB.SrcW+1
|
||
lsr
|
||
tax
|
||
pla
|
||
ror
|
||
*--------------------------------------
|
||
CB.AddAX2X1 clc
|
||
adc CB.Cache+S.CB.X1
|
||
sta CB.Cache+S.CB.X1
|
||
|
||
txa
|
||
adc CB.Cache+S.CB.X1+1
|
||
sta CB.Cache+S.CB.X1+1
|
||
|
||
rts
|
||
*--------------------------------------
|
||
CB.GetBuf clc
|
||
|
||
ldx hCBBuf
|
||
bne .9
|
||
|
||
>LDYAI 1024
|
||
>SYSCALL2 GetMem
|
||
bcs .9
|
||
|
||
stx hCBBuf
|
||
>STYA ZPCBBufPtr
|
||
|
||
.9 rts
|
||
*--------------------------------------
|
||
CB.Cache2CBBufG jsr CB.ToGlobal
|
||
*--------------------------------------
|
||
CB.Cache2CBBuf lda CB.Cache
|
||
lsr
|
||
tax
|
||
ldy CB.CmdLen-1,x
|
||
|
||
.1 lda CB.Cache,y
|
||
sta (ZPCBBufPtr),y
|
||
dey
|
||
bpl .1
|
||
*--------------------------------------
|
||
CB.BufNext lda (ZPCBBufPtr) Get Cmd
|
||
lsr
|
||
tax
|
||
lda CB.CmdLen-1,x
|
||
sec +1
|
||
adc ZPCBBufPtr
|
||
sta ZPCBBufPtr
|
||
bcc .1
|
||
|
||
inc ZPCBBufPtr+1
|
||
|
||
.1 rts
|
||
*--------------------------------------
|
||
* CLIP.Rect = Target Object
|
||
*--------------------------------------
|
||
CB.Write jsr PTR.Disable
|
||
jsr CB.GFXWriteClip
|
||
.8 jmp PTR.Enable
|
||
*--------------------------------------
|
||
* Y,A = Target Object
|
||
*--------------------------------------
|
||
CB.FlushBufToYA jsr CLIP.GetRect
|
||
|
||
CB.FlushBuf ldx hCBBuf
|
||
beq .8
|
||
|
||
jsr PTR.Disable
|
||
|
||
lda #0
|
||
sta (ZPCBBufPtr)
|
||
|
||
lda hCBBuf
|
||
>SYSCALL2 GetMemPtr
|
||
>STYA ZPCBBufPtr
|
||
*--------------------------------------
|
||
.1 lda (ZPCBBufPtr) Get Cmd
|
||
beq .7
|
||
|
||
lsr
|
||
tax
|
||
ldy CB.CmdLen-1,x
|
||
|
||
.2 lda (ZPCBBufPtr),y
|
||
sta CB.Cache,y
|
||
dey
|
||
bpl .2
|
||
|
||
* lda (ZPCBBufPtr) A = CB.CMD
|
||
|
||
cmp #S.CB.CMD.DRAWTEXT2
|
||
bne .4
|
||
|
||
lda #S.CB.CMD.DRAWTEXT+S.CB.CMD.OSD
|
||
sta CB.Cache+S.CB.CMD
|
||
ldx #0 Select CB.Cache
|
||
jsr CB.GFXWriteX Direct Write (no clip)
|
||
bcs .9
|
||
|
||
jsr CB.GFXWriteClip
|
||
|
||
lda CB.Cache+S.CB.SrcPtr
|
||
>SYSCALL2 FreeStkObj
|
||
bra .5
|
||
*--------------------------------------
|
||
.4 jsr CB.GFXWriteClip
|
||
|
||
.5 jsr CB.BufNext
|
||
bra .1
|
||
|
||
.7 lda hCBBuf
|
||
stz hCBBuf
|
||
>SYSCALL2 FreeMem
|
||
|
||
jmp PTR.Enable
|
||
|
||
.8 clc
|
||
.9 rts
|
||
*--------------------------------------
|
||
CB.ToGlobal lda ZPWNDPtr
|
||
ldx ZPWNDPtr+1
|
||
|
||
.1 sta ZPPtr1
|
||
stx ZPPtr1+1
|
||
|
||
ldy #S.WND.InnerX1
|
||
ldx #S.CB.X1
|
||
jsr CB.AddPtr1YtoCBX
|
||
|
||
ldy #S.WND.InnerY1
|
||
ldx #S.CB.Y1
|
||
jsr CB.AddPtr1YtoCBX
|
||
|
||
ldy #S.WND.InnerX1
|
||
ldx #S.CB.X2
|
||
jsr CB.AddPtr1YtoCBX
|
||
|
||
ldy #S.WND.InnerY1
|
||
ldx #S.CB.Y2
|
||
jsr CB.AddPtr1YtoCBX
|
||
|
||
ldy #S.OBJ.hPARENT+1
|
||
lda (ZPPtr1),y
|
||
beq .8 00xx = hDev
|
||
|
||
tax
|
||
dey
|
||
lda (ZPPtr1),y
|
||
bra .1
|
||
|
||
.8 clc
|
||
rts
|
||
*--------------------------------------
|
||
CB.AddPtr1YtoCBX
|
||
lda (ZPPtr1),y
|
||
clc
|
||
adc CB.Cache,x
|
||
sta CB.Cache,x
|
||
iny
|
||
lda (ZPPtr1),y
|
||
adc CB.Cache+1,x
|
||
sta CB.Cache+1,x
|
||
rts
|
||
*--------------------------------------
|
||
* CB.Cache -> CLIP.Cache
|
||
*--------------------------------------
|
||
CB.GFXWriteClip jsr CLIP.CB.Cache
|
||
bcs CB.GFXWrite.9
|
||
|
||
CB.GFXWrite ldx #2 Select CLIP.Cache
|
||
*--------------------------------------
|
||
* X=0:CB.Cache, X=2:CLIP.Cache
|
||
*--------------------------------------
|
||
CB.GFXWriteX >PUSHB WND.Screen+S.OBJ.hPARENT
|
||
>PUSHBI IOCTL.WRITE
|
||
>PUSHW L.CB.Cache,x
|
||
>SYSCALL2 IOCTL
|
||
CB.GFXWrite.9 rts
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE usr/src/lib/libgui.s.cb
|
||
LOAD usr/src/lib/libgui.s
|
||
ASM
|