mirror of
https://github.com/A2osX/A2osX.git
synced 2024-09-10 22:54:59 +00:00
GUI:preliminary reorg
This commit is contained in:
parent
60be01ed6c
commit
314121b226
@ -67,6 +67,10 @@ DRV.CS.START .DA OPEN
|
|||||||
.DA VLINE
|
.DA VLINE
|
||||||
.DA BITBLT
|
.DA BITBLT
|
||||||
.DA FILLREC
|
.DA FILLREC
|
||||||
|
.DA SETCURPOS
|
||||||
|
.DA SETCUR
|
||||||
|
.DA HIDECUR
|
||||||
|
.DA SHOWCUR
|
||||||
L.DEVINFO .DA DEVINFO
|
L.DEVINFO .DA DEVINFO
|
||||||
.DA 0 end or relocation
|
.DA 0 end or relocation
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
@ -326,25 +330,76 @@ VLINE rts
|
|||||||
FILLREC rts
|
FILLREC rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* BitBlt
|
* BitBlt
|
||||||
*--------------------------------------
|
* In : YA = Ptr to Job :
|
||||||
* 0 : Operation
|
* 0 : Operation
|
||||||
* 1 - Replace
|
* %00000001 : Save
|
||||||
* 2 - Combine (Ora)
|
* %00000010 : Replace
|
||||||
* 3 - CombineEx (And with Src BitMask,Ora with Src BitMap)
|
* %00000100 : AND with Src BitMask
|
||||||
* 4 - Exchange
|
* %00001000 : ORA with Src BitMap
|
||||||
* 2 : pSrcBitMap
|
* %00010000 : XOR
|
||||||
* 4 : pSrcBitMask
|
* 2 : SavePTR
|
||||||
* 6 : pDstBitMap
|
* 4 : SrcAX
|
||||||
* 8 : SrcAX
|
* 6 : SrcAY
|
||||||
* 10 : SrcAY
|
* 8 : SrcBX
|
||||||
* 12 : SrcBX
|
* 10 : SrcBY
|
||||||
* 14 : SrcBY
|
* 12 : DestX
|
||||||
* 16 : DestX
|
* 14 : DestY
|
||||||
* 18 : DestY
|
* 16 : BM Struct
|
||||||
*
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
BITBLT >STYA ZPBitBlt
|
BITBLT >STYA ZPBitBlt
|
||||||
lda (ZPBitBlt)
|
lda (ZPBitBlt)
|
||||||
|
clc
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
SETCURPOS >STYA ZPBASE
|
||||||
|
|
||||||
|
ldy #3
|
||||||
|
.1 lda (ZPBase),y
|
||||||
|
sta CUR.X,y
|
||||||
|
dey
|
||||||
|
bpl .1
|
||||||
|
|
||||||
|
bit CUR.State
|
||||||
|
bpl .2
|
||||||
|
jsr HIDECUR.I
|
||||||
|
jsr SHOWCUR.I
|
||||||
|
.2 clc
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
SETCUR >STYA ZPBase
|
||||||
|
ldy #S.CUR-1
|
||||||
|
.1 lda (ZPBase),y
|
||||||
|
sta CUR.BitMap,y
|
||||||
|
dey
|
||||||
|
bpl .1
|
||||||
|
|
||||||
|
bit CUR.State
|
||||||
|
bpl .2
|
||||||
|
jsr HIDECUR.I
|
||||||
|
jsr SHOWCUR.I
|
||||||
|
.2 clc
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
SHOWCUR bit CUR.State
|
||||||
|
bmi .8
|
||||||
|
|
||||||
|
SHOWCUR.I lda CUR.X
|
||||||
|
|
||||||
|
|
||||||
|
sec
|
||||||
|
ror CUR.State
|
||||||
|
.8 clc
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
HIDECUR bit CUR.State
|
||||||
|
bpl .8
|
||||||
|
|
||||||
|
HIDECUR.I
|
||||||
|
|
||||||
|
|
||||||
|
clc
|
||||||
|
ror CUR.State
|
||||||
|
.8 clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DRV.CS.END
|
DRV.CS.END
|
||||||
@ -558,6 +613,16 @@ CY .BS 1
|
|||||||
COL .BS 1
|
COL .BS 1
|
||||||
GBYTE .BS 1
|
GBYTE .BS 1
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
CUR.State .BS 1
|
||||||
|
CUR.X .BS 2
|
||||||
|
CUR.Y .BS 2
|
||||||
|
CUR.BitMap .BS S.CUR
|
||||||
|
CUR.SaveCol .BS 1
|
||||||
|
CUR.SaveColCnt .BS 1
|
||||||
|
CUR.SaveRow .BS 1
|
||||||
|
CUR.SaveRowCnt .BS 1
|
||||||
|
CUR.SaveBuf .BS 3*16 MAX 3 bytes*16 rows
|
||||||
|
*--------------------------------------
|
||||||
DEVINFO .DA #S.DEVINFO.TYPE.GFX type of DEVINFO STRUCT
|
DEVINFO .DA #S.DEVINFO.TYPE.GFX type of DEVINFO STRUCT
|
||||||
DEVINFO.MODES .DA #%10000011 XOR,16 & B/W
|
DEVINFO.MODES .DA #%10000011 XOR,16 & B/W
|
||||||
DEVINFO.W .DA 560 X.SIZE
|
DEVINFO.W .DA 560 X.SIZE
|
||||||
|
@ -6,20 +6,28 @@ AUTO 6
|
|||||||
.LIST OFF
|
.LIST OFF
|
||||||
.OP 65C02
|
.OP 65C02
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
S.BITMAP.F .EQ 0
|
S.CUR.HotPointX .EQ 0
|
||||||
S.BITMAP.F.BBP1 .EQ %00000001
|
S.CUR.HotPointY .EQ 1
|
||||||
S.BITMAP.F.BBP2 .EQ %00000010
|
S.CUR.DATA .EQ 2 16x16 bits = 32 bytes
|
||||||
S.BITMAP.F.BBP4 .EQ %00000100
|
S.CUR.MASK .EQ 34
|
||||||
S.BITMAP.F.BBP8 .EQ %00001000
|
S.CUR .EQ 66
|
||||||
S.BITMAP.RowBytes .EQ 1
|
|
||||||
S.BITMAP.W .EQ 4
|
|
||||||
S.BITMAP.H .EQ 6
|
|
||||||
S.BITMAP.DATA .EQ 8
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
LIBGFX.InitDevA .EQ 4
|
S.BM.F .EQ 0
|
||||||
LIBGFX.CUR.show .EQ 6
|
S.BM.F.BBP1 .EQ %00000001
|
||||||
LIBGFX.CUR.Hide .EQ 8
|
S.BM.F.BBP2 .EQ %00000010
|
||||||
LIBGFX.CUR.Select .EQ 10
|
S.BM.F.BBP4 .EQ %00000100
|
||||||
|
S.BM.F.BBP8 .EQ %00001000
|
||||||
|
S.BM.RowBytes .EQ 1
|
||||||
|
S.BM.W .EQ 2
|
||||||
|
S.BM.H .EQ 4
|
||||||
|
S.BM.MASK.OFFSET .EQ 6
|
||||||
|
S.BM.DATA .EQ 8
|
||||||
|
*--------------------------------------
|
||||||
|
LIBGFX.InitGFXA .EQ 4
|
||||||
|
LIBGFX.SetCursorPos .EQ 6
|
||||||
|
LIBGFX.SetCursorYA .EQ 8
|
||||||
|
LIBGFX.HideCursor .EQ 10
|
||||||
|
LIBGFX.ShowCursor .EQ 12
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
MAN
|
MAN
|
||||||
SAVE INC/LIBGFX.I
|
SAVE INC/LIBGFX.I
|
||||||
|
@ -30,10 +30,11 @@ CS.START cld
|
|||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
.1 .DA LIB.LOAD
|
.1 .DA LIB.LOAD
|
||||||
.DA LIB.UNLOAD
|
.DA LIB.UNLOAD
|
||||||
.DA InitDevA
|
.DA InitGFXA
|
||||||
.DA CUR.Show
|
.DA InitCursor
|
||||||
.DA CUR.Hide
|
.DA SetCursorYA
|
||||||
.DA CUR.Select
|
.DA HideCursor
|
||||||
|
.DA ShowCursor
|
||||||
.DA 0
|
.DA 0
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
LIB.LOAD
|
LIB.LOAD
|
||||||
@ -41,7 +42,7 @@ LIB.UNLOAD clc
|
|||||||
rts
|
rts
|
||||||
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
InitDevA sta hDev
|
InitGFXA sta hDev
|
||||||
>SYSCALL SYS.GetDevInfoA
|
>SYSCALL SYS.GetDevInfoA
|
||||||
bcs .9
|
bcs .9
|
||||||
>STYA ZPPtr1
|
>STYA ZPPtr1
|
||||||
@ -59,23 +60,46 @@ InitDevA sta hDev
|
|||||||
CS.END
|
CS.END
|
||||||
hDev .BS 1
|
hDev .BS 1
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CUR.Arrow.And .DA #%00000001
|
CUR.Arrow .DA #0
|
||||||
.DA #%00000011
|
.DA #0
|
||||||
.DA #%00000101
|
CUR.Arrow.DATA .DA %00000001.000000000
|
||||||
.DA #%00001001
|
.DA %00000011.000000000
|
||||||
.DA #%00010001
|
.DA %00000101.000000000
|
||||||
.DA #%00100011
|
.DA %00001001.000000000
|
||||||
.DA #%01110101
|
.DA %00010001.000000000
|
||||||
.DA #%00011000
|
.DA %00100011.000000000
|
||||||
|
.DA %01110101.000000000
|
||||||
|
.DA %00011000.000000000
|
||||||
|
.DA %00000000.000000000
|
||||||
|
.DA %00000000.000000000
|
||||||
|
.DA %00000000.000000000
|
||||||
|
.DA %00000000.000000000
|
||||||
|
.DA %00000000.000000000
|
||||||
|
.DA %00000000.000000000
|
||||||
|
.DA %00000000.000000000
|
||||||
|
.DA %00000000.000000000
|
||||||
|
CUR.Arrow.MASK .DA %00000000.000000000
|
||||||
|
.DA %00000000.000000000
|
||||||
|
.DA %00000010.000000000
|
||||||
|
.DA %00000110.000000000
|
||||||
|
.DA %00001110.000000000
|
||||||
|
.DA %00011100.000000000
|
||||||
|
.DA %00001000.000000000
|
||||||
|
.DA %00000000.000000000
|
||||||
|
.DA %00000000.000000000
|
||||||
|
.DA %00000000.000000000
|
||||||
|
.DA %00000000.000000000
|
||||||
|
.DA %00000000.000000000
|
||||||
|
.DA %00000000.000000000
|
||||||
|
.DA %00000000.000000000
|
||||||
|
.DA %00000000.000000000
|
||||||
|
.DA %00000000.000000000
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CUR.Arrow.Ora .DA #%00000000
|
PAT.Arrow .DA #S.BITMAP.F.BBP1
|
||||||
.DA #%00000000
|
.DA #1 RowBytes
|
||||||
.DA #%00000010
|
.DA 7 W
|
||||||
.DA #%00000110
|
.DA 8 H
|
||||||
.DA #%00001110
|
.DA 0
|
||||||
.DA #%00011100
|
|
||||||
.DA #%00001000
|
|
||||||
.DA #%00000000
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
MAN
|
MAN
|
||||||
SAVE LIB/LIBGFX.S
|
SAVE LIB/LIBGFX.S
|
||||||
|
Loading…
Reference in New Issue
Block a user