mirror of
https://github.com/A2osX/A2osX.git
synced 2024-08-13 21:29:33 +00:00
Kernel 0.9.1 : LibGui, Fonts.....
This commit is contained in:
Rémy GIBERT
parent
1d652f3ecb
commit
1543eeb518
Binary file not shown.
Binary file not shown.
@ -37,13 +37,13 @@ Shift7BitsCol2 .DA #%00000000 Useless
|
|||||||
.DA #%01111100
|
.DA #%01111100
|
||||||
.DA #%01111110
|
.DA #%01111110
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
C1.MASK .DA #%10000000 Clear (AND) Col 1 bits
|
C1.MASK .DA #%00000000 Clear (AND) Col 1 bits
|
||||||
.DA #%10000001
|
.DA #%00000001
|
||||||
.DA #%10000011
|
.DA #%00000011
|
||||||
.DA #%10000111
|
.DA #%00000111
|
||||||
.DA #%10001111
|
.DA #%00001111
|
||||||
.DA #%10011111
|
.DA #%00011111
|
||||||
.DA #%10111111
|
.DA #%00111111
|
||||||
|
|
||||||
C1.DATA .DA #%11111111 set (ORA) COL 1 bits
|
C1.DATA .DA #%11111111 set (ORA) COL 1 bits
|
||||||
.DA #%11111110
|
.DA #%11111110
|
||||||
@ -53,13 +53,13 @@ C1.DATA .DA #%11111111 set (ORA) COL 1 bits
|
|||||||
.DA #%11100000
|
.DA #%11100000
|
||||||
.DA #%11000000
|
.DA #%11000000
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
C2.MASK .DA #%11111110 Clear (AND) Col 2 bits
|
C2.MASK .DA #%01111110 Clear (AND) Col 2 bits
|
||||||
.DA #%11111100
|
.DA #%01111100
|
||||||
.DA #%11111000
|
.DA #%01111000
|
||||||
.DA #%11110000
|
.DA #%01110000
|
||||||
.DA #%11100000
|
.DA #%01100000
|
||||||
.DA #%11000000
|
.DA #%01000000
|
||||||
.DA #%10000000
|
.DA #%00000000
|
||||||
|
|
||||||
C2.DATA .DA #%10000001 set (ORA) COL 2 bits
|
C2.DATA .DA #%10000001 set (ORA) COL 2 bits
|
||||||
.DA #%10000011
|
.DA #%10000011
|
||||||
|
|||||||
@ -17,7 +17,7 @@ AUTO 6
|
|||||||
A1L .EQ $3C
|
A1L .EQ $3C
|
||||||
A2L .EQ $3E
|
A2L .EQ $3E
|
||||||
A4L .EQ $42
|
A4L .EQ $42
|
||||||
|
TXTPTR .EQ $B8
|
||||||
MoveAux .EQ $C311
|
MoveAux .EQ $C311
|
||||||
XFer .EQ $C314
|
XFer .EQ $C314
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
@ -59,9 +59,11 @@ CS.END
|
|||||||
.PH $0C00
|
.PH $0C00
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
ZPCmdPtr .EQ ZPDRV
|
ZPCmdPtr .EQ ZPDRV
|
||||||
ZPDestBMPtr .EQ ZPDRV+2
|
ZPDstBMPtr .EQ ZPDRV+2
|
||||||
ZPFontPtr .EQ ZPDRV+4
|
ZPFontPtr .EQ ZPDRV+4
|
||||||
ZPCharPtr .EQ ZPDRV+6
|
ZPCharPtr .EQ ZPDRV+6
|
||||||
|
ZPSrcBMPtr .EQ ZPDRV+8
|
||||||
|
ZPTmpPtr .EQ ZPDRV+10
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* YA =Ptr to S.CB in MAIN
|
* YA =Ptr to S.CB in MAIN
|
||||||
* X = DestBM hMem
|
* X = DestBM hMem
|
||||||
@ -86,18 +88,17 @@ GUIOSD >STYA A1L Src Start Address (MAIN)
|
|||||||
txa
|
txa
|
||||||
beq .1
|
beq .1
|
||||||
|
|
||||||
ldx #SYS.GetMemPtr.A Get AUX Stock Object
|
jsr GO.GetMemPtr.A
|
||||||
jsr $E000 with GetMem
|
|
||||||
|
|
||||||
>STYA ZPDestBMPtr
|
>STYA ZPDstBMPtr
|
||||||
|
|
||||||
ldx #0
|
ldx #0
|
||||||
|
|
||||||
.1 lda (ZPDestBMPtr)
|
.1 lda (ZPDstBMPtr)
|
||||||
sta DestBM.Cache,x
|
sta DstBM.Cache,x
|
||||||
inc ZPDestBMPtr
|
inc ZPDstBMPtr
|
||||||
bne .2
|
bne .2
|
||||||
inc ZPDestBMPtr+1
|
inc ZPDstBMPtr+1
|
||||||
.2 inx
|
.2 inx
|
||||||
cpx #S.BM
|
cpx #S.BM
|
||||||
bne .1
|
bne .1
|
||||||
@ -115,18 +116,18 @@ J.Cmds .DA SETPIXEL
|
|||||||
.DA GETRECTBUFSIZE
|
.DA GETRECTBUFSIZE
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
SETPIXEL >LDYA CB.Cache+S.CB.Y1
|
SETPIXEL >LDYA CB.Cache+S.CB.Y1
|
||||||
ldx DestBM.Cache+S.BM.RowBytes
|
ldx DstBM.Cache+S.BM.RowBytes
|
||||||
jsr YAMultX
|
jsr YAMultX
|
||||||
|
|
||||||
pha
|
pha
|
||||||
tya
|
tya
|
||||||
|
|
||||||
clc
|
clc
|
||||||
adc ZPDestBMPtr
|
adc ZPDstBMPtr
|
||||||
sta ZPDestBMPtr
|
sta ZPDstBMPtr
|
||||||
pla
|
pla
|
||||||
adc ZPDestBMPtr+1
|
adc ZPDstBMPtr+1
|
||||||
sta ZPDestBMPtr+1
|
sta ZPDstBMPtr+1
|
||||||
|
|
||||||
lda CB.Cache+S.CB.MODE
|
lda CB.Cache+S.CB.MODE
|
||||||
bit #S.CB.MODE.C16
|
bit #S.CB.MODE.C16
|
||||||
@ -144,12 +145,12 @@ SETPIXEL.MONO lda CB.Cache+S.CB.X1
|
|||||||
lsr CB.Cache+S.CB.X1
|
lsr CB.Cache+S.CB.X1
|
||||||
ror
|
ror
|
||||||
clc
|
clc
|
||||||
adc ZPDestBMPtr
|
adc ZPDstBMPtr
|
||||||
sta ZPDestBMPtr
|
sta ZPDstBMPtr
|
||||||
|
|
||||||
lda CB.Cache+S.CB.X1
|
lda CB.Cache+S.CB.X1
|
||||||
adc ZPDestBMPtr+1
|
adc ZPDstBMPtr+1
|
||||||
sta ZPDestBMPtr+1
|
sta ZPDstBMPtr+1
|
||||||
|
|
||||||
lda CB.Cache+S.CB.OP
|
lda CB.Cache+S.CB.OP
|
||||||
* cmp #S.CB.OP.XOR
|
* cmp #S.CB.OP.XOR
|
||||||
@ -159,23 +160,23 @@ SETPIXEL.MONO lda CB.Cache+S.CB.X1
|
|||||||
bne SETPIXEL.MONO.WHITE
|
bne SETPIXEL.MONO.WHITE
|
||||||
|
|
||||||
SETPIXEL.MONO.BLACK
|
SETPIXEL.MONO.BLACK
|
||||||
lda (ZPDestBMPtr)
|
lda (ZPDstBMPtr)
|
||||||
and Mono.NMasks,x
|
and Mono.NMasks,x
|
||||||
sta (ZPDestBMPtr)
|
sta (ZPDstBMPtr)
|
||||||
|
|
||||||
rts
|
rts
|
||||||
|
|
||||||
SETPIXEL.MONO.WHITE
|
SETPIXEL.MONO.WHITE
|
||||||
lda (ZPDestBMPtr)
|
lda (ZPDstBMPtr)
|
||||||
ora Mono.Masks,x
|
ora Mono.Masks,x
|
||||||
sta (ZPDestBMPtr)
|
sta (ZPDstBMPtr)
|
||||||
|
|
||||||
rts
|
rts
|
||||||
|
|
||||||
SETPIXEL.MONO.XOR
|
SETPIXEL.MONO.XOR
|
||||||
lda (ZPDestBMPtr)
|
lda (ZPDstBMPtr)
|
||||||
eor Mono.Masks,x
|
eor Mono.Masks,x
|
||||||
sta (ZPDestBMPtr)
|
sta (ZPDstBMPtr)
|
||||||
|
|
||||||
rts
|
rts
|
||||||
SETPIXEL.C16
|
SETPIXEL.C16
|
||||||
@ -205,9 +206,9 @@ BITBLT >LDYA CB.CACHE+S.CB.SrcPtr
|
|||||||
bne BITBLT.1
|
bne BITBLT.1
|
||||||
|
|
||||||
tya
|
tya
|
||||||
GO.GetMemPtr.A
|
jsr GO.GetMemPtr.A
|
||||||
|
|
||||||
BITBLT.1 >STYA ZPSrcBMDataPtr
|
BITBLT.1 >STYA ZPSrcBMPtr
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* In:
|
* In:
|
||||||
* S.CB.SrcW
|
* S.CB.SrcW
|
||||||
@ -221,9 +222,11 @@ GETRECTBUFSIZE
|
|||||||
* S.CB.S.CB.FONT : hFont
|
* S.CB.S.CB.FONT : hFont
|
||||||
* S.CB.SrcPtr : Ptr to Text
|
* S.CB.SrcPtr : Ptr to Text
|
||||||
* S.CB.DstPtr : Buffer Size (in bytes)
|
* S.CB.DstPtr : Buffer Size (in bytes)
|
||||||
|
* Out:
|
||||||
|
* A=hBM
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DRAWTEXT lda CB.Cache+S.CB.FONT
|
DRAWTEXT lda CB.Cache+S.CB.hFONT
|
||||||
GO.GetMemPtr.A
|
jsr GO.GetMemPtr.A
|
||||||
>STYA ZPFontPtr
|
>STYA ZPFontPtr
|
||||||
|
|
||||||
ldy #S.FON-1
|
ldy #S.FON-1
|
||||||
@ -244,14 +247,14 @@ DRAWTEXT lda CB.Cache+S.CB.FONT
|
|||||||
>STYA TXTPTR
|
>STYA TXTPTR
|
||||||
|
|
||||||
lda S.BM.F.BBP1
|
lda S.BM.F.BBP1
|
||||||
sta DestBM.Cache+S.BM.F
|
sta DstBM.Cache+S.BM.F
|
||||||
|
|
||||||
stz DestBM.Cache+S.BM.W
|
stz DstBM.Cache+S.BM.W
|
||||||
stz DestBM.Cache+S.BM.W+1
|
stz DstBM.Cache+S.BM.W+1
|
||||||
|
|
||||||
lda FON.Cache+S.FON.PixH
|
lda FON.Cache+S.FON.PixH
|
||||||
sta DestBM.Cache+S.BM.H
|
sta DstBM.Cache+S.BM.H
|
||||||
stz DestBM.Cache+S.BM.H+1
|
stz DstBM.Cache+S.BM.H+1
|
||||||
|
|
||||||
.3 jsr TXTPTR.GetNext
|
.3 jsr TXTPTR.GetNext
|
||||||
beq .4
|
beq .4
|
||||||
@ -259,21 +262,57 @@ DRAWTEXT lda CB.Cache+S.CB.FONT
|
|||||||
jsr FON.GetChar
|
jsr FON.GetChar
|
||||||
lda (ZPCharPtr) Get Char PixelW
|
lda (ZPCharPtr) Get Char PixelW
|
||||||
sec
|
sec
|
||||||
adc DestBM.Cache+S.BM.W
|
adc DstBM.Cache+S.BM.W
|
||||||
sta DestBM.Cache+S.BM.W
|
sta DstBM.Cache+S.BM.W
|
||||||
bcc .3
|
bcc .3
|
||||||
|
|
||||||
inc DestBM.Cache+S.BM.W+1
|
inc DstBM.Cache+S.BM.W+1
|
||||||
bra .3
|
bra .3
|
||||||
|
|
||||||
.4 jsr BM.Create
|
.4 jsr BM.Create
|
||||||
bcs .9
|
bcs .9
|
||||||
|
sta .8+1 save hBM, ZPDstBMPtr=BMData
|
||||||
|
|
||||||
|
>LDYA CB.Cache+S.CB.SrcPtr
|
||||||
|
>STYA TXTPTR
|
||||||
|
|
||||||
|
stz GWORD reset Col index in BM
|
||||||
|
stz GWORD+1 reset Bit index in Col
|
||||||
|
|
||||||
|
.5 jsr TXTPTR.GetNext
|
||||||
|
beq .8
|
||||||
|
|
||||||
|
jsr FON.GetChar
|
||||||
|
|
||||||
|
lda (ZPCharPtr) Char PixW
|
||||||
|
sta GBYTE
|
||||||
|
|
||||||
|
ldy #1 Char ByteW
|
||||||
|
lda (ZPCharPtr),y
|
||||||
|
sta GBYTE2
|
||||||
|
|
||||||
|
>LDYA ZPDstBMPtr
|
||||||
|
>STYA ZPTmpPtr
|
||||||
|
|
||||||
|
lda FON.Cache+S.FON.PixH
|
||||||
|
|
||||||
|
.6 pha
|
||||||
|
|
||||||
|
ldx GWORD+1 Get Bit Index for shifting
|
||||||
|
|
||||||
|
ldy #2
|
||||||
|
lda (ZPCharPtr),y
|
||||||
|
|
||||||
|
|
||||||
|
pla
|
||||||
|
dec
|
||||||
|
bne .6
|
||||||
|
|
||||||
|
|
||||||
|
bra .5
|
||||||
|
|
||||||
|
.8 lda #$ff SELF MODIFIED
|
||||||
|
clc
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
FON.GetChar cmp FON.Cache+S.FON.Last
|
FON.GetChar cmp FON.Cache+S.FON.Last
|
||||||
@ -299,8 +338,8 @@ FON.GetChar cmp FON.Cache+S.FON.Last
|
|||||||
inc ZPCharPtr+1
|
inc ZPCharPtr+1
|
||||||
.8 rts
|
.8 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
BM.Create lda DestBM.Cache+S.BM.W
|
BM.Create lda DstBM.Cache+S.BM.W
|
||||||
ldx DestBM.Cache+S.BM.W+1
|
ldx DstBM.Cache+S.BM.W+1
|
||||||
bit #7
|
bit #7
|
||||||
beq .1
|
beq .1
|
||||||
and #7
|
and #7
|
||||||
@ -309,18 +348,18 @@ BM.Create lda DestBM.Cache+S.BM.W
|
|||||||
bcc .1
|
bcc .1
|
||||||
inx
|
inx
|
||||||
|
|
||||||
.1 sta DestBM.Cache+S.BM.RowBytes
|
.1 sta DstBM.Cache+S.BM.RowBytes
|
||||||
txa
|
txa
|
||||||
|
|
||||||
lsr
|
lsr
|
||||||
ror DestBM.Cache+S.BM.RowBytes
|
ror DstBM.Cache+S.BM.RowBytes
|
||||||
lsr
|
lsr
|
||||||
ror DestBM.Cache+S.BM.RowBytes
|
ror DstBM.Cache+S.BM.RowBytes
|
||||||
lsr
|
lsr
|
||||||
ror DestBM.Cache+S.BM.RowBytes
|
ror DstBM.Cache+S.BM.RowBytes
|
||||||
|
|
||||||
>LDYA DestBM.Cache+S.BM.H
|
>LDYA DstBM.Cache+S.BM.H
|
||||||
ldx DestBM.Cache+S.BM.RowBytes
|
ldx DstBM.Cache+S.BM.RowBytes
|
||||||
|
|
||||||
jsr YAMultX
|
jsr YAMultX
|
||||||
|
|
||||||
@ -334,15 +373,25 @@ BM.Create lda DestBM.Cache+S.BM.W
|
|||||||
jsr GO.GetMem.YA
|
jsr GO.GetMem.YA
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>STYA ZPDestBMPtr
|
>STYA ZPDstBMPtr
|
||||||
|
|
||||||
ldy #S.BM-1
|
ldy #S.BM-1
|
||||||
|
|
||||||
.2 lda DestBM.Cache,y
|
.2 lda DstBM.Cache,y
|
||||||
sta (ZPDestBMPtr),y
|
sta (ZPDstBMPtr),y
|
||||||
dey
|
dey
|
||||||
bpl .2
|
bpl .2
|
||||||
|
|
||||||
|
lda ZPDstBMPtr
|
||||||
|
* clc
|
||||||
|
adc #S.BM
|
||||||
|
sta ZPDstBMPtr
|
||||||
|
bcc .8
|
||||||
|
|
||||||
|
inc ZPDstBMPtr+1
|
||||||
|
|
||||||
|
.8 txa hBM
|
||||||
|
|
||||||
clc
|
clc
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
@ -414,8 +463,9 @@ Mono.Masks .DA #%00000001
|
|||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CB.Cache .BS S.CB
|
CB.Cache .BS S.CB
|
||||||
FON.Cache .BS S.FON
|
FON.Cache .BS S.FON
|
||||||
DestBM.Cache .BS S.BM
|
DstBM.Cache .BS S.BM
|
||||||
GBYTE .BS 1
|
GBYTE .BS 1
|
||||||
|
GBYTE2 .BS 1
|
||||||
GWORD .BS 2
|
GWORD .BS 2
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
.EP
|
.EP
|
||||||
@ -428,5 +478,5 @@ DS.END
|
|||||||
.ED
|
.ED
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
MAN
|
MAN
|
||||||
SAVE /A2OSX.SRC/SBIN/GUIOSD
|
SAVE /A2OSX.SRC/SBIN/GUI/GUIOSD
|
||||||
ASM
|
ASM
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user