Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-02-16 18:30:26 +00:00
Code Issues Projects Releases Wiki Activity

GUI:preliminary reorg

Browse Source
This commit is contained in:
Rémy GIBERT 2016-06-15 17:58:45 +02:00
parent 60be01ed6c
commit 314121b226
3 changed files with 146 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

95
DRV/DHGR.DRV.S.txt
View File

@ -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

34
INC/LIBGFX.I.txt
View File

@ -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

66
LIB/LIBGFX.S.txt
View File

@ -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