mirror of
https://github.com/A2osX/A2osX.git
synced 2024-08-14 13:29:02 +00:00
Kernel 0.9.1 : GUI, debugging....
This commit is contained in:
parent
60ea43c5e5
commit
f20065ed25
Binary file not shown.
Binary file not shown.
@ -30,8 +30,8 @@ HLINE.MONO >LDYA CB.Cache+S.CB.X1
|
|||||||
.1 ldx LBUF.C1
|
.1 ldx LBUF.C1
|
||||||
|
|
||||||
.2 tya
|
.2 tya
|
||||||
and LBUF.AND,x
|
and LBUF.MASK,x
|
||||||
sta LBUF.ORA,x
|
sta LBUF.DATA,x
|
||||||
inx
|
inx
|
||||||
cpx LBUF.C2
|
cpx LBUF.C2
|
||||||
bcs .2
|
bcs .2
|
||||||
@ -39,7 +39,8 @@ HLINE.MONO >LDYA CB.Cache+S.CB.X1
|
|||||||
ldy CB.Cache+S.CB.Y1
|
ldy CB.Cache+S.CB.Y1
|
||||||
jmp LBUF.DrawAtY
|
jmp LBUF.DrawAtY
|
||||||
|
|
||||||
HLINE.C16 lda CB.Cache+S.CB.X1
|
HLINE.C16 >DEBUG
|
||||||
|
lda CB.Cache+S.CB.X1
|
||||||
and #%11111100
|
and #%11111100
|
||||||
tay
|
tay
|
||||||
lda CB.Cache+S.CB.X1+1
|
lda CB.Cache+S.CB.X1+1
|
||||||
@ -71,8 +72,8 @@ HLINE.C16 lda CB.Cache+S.CB.X1
|
|||||||
tay
|
tay
|
||||||
lda (ZPPalettePtr),y
|
lda (ZPPalettePtr),y
|
||||||
|
|
||||||
and LBUF.AND,x
|
and LBUF.MASK,x
|
||||||
sta LBUF.ORA,x
|
sta LBUF.DATA,x
|
||||||
cpx LBUF.C2
|
cpx LBUF.C2
|
||||||
inx
|
inx
|
||||||
bcc .1
|
bcc .1
|
||||||
|
@ -18,11 +18,11 @@ FILLRECT jsr HLINE
|
|||||||
inc CB.Cache+S.CB.Y1
|
inc CB.Cache+S.CB.Y1
|
||||||
ldy CB.Cache+S.CB.Y1
|
ldy CB.Cache+S.CB.Y1
|
||||||
cpy CB.Cache+S.CB.Y2
|
cpy CB.Cache+S.CB.Y2
|
||||||
bcc .8
|
bcs .8
|
||||||
|
|
||||||
.2 jsr LBUF.DrawAtY
|
.2 jsr LBUF.DrawAtY
|
||||||
ldy CB.Cache+S.CB.Y1
|
|
||||||
inc CB.Cache+S.CB.Y1
|
inc CB.Cache+S.CB.Y1
|
||||||
|
ldy CB.Cache+S.CB.Y1
|
||||||
cpy CB.Cache+S.CB.Y2
|
cpy CB.Cache+S.CB.Y2
|
||||||
bcc .2
|
bcc .2
|
||||||
|
|
||||||
|
@ -110,9 +110,6 @@ OPEN sta A2osX.SCRNDEVS+2 DEV.ID in A
|
|||||||
inx
|
inx
|
||||||
cpx #3
|
cpx #3
|
||||||
bne .1
|
bne .1
|
||||||
|
|
||||||
.8 clc
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CONTROL sta CLRTEXT
|
CONTROL sta CLRTEXT
|
||||||
sta CLRMIXED
|
sta CLRMIXED
|
||||||
@ -141,6 +138,7 @@ CLOSE clc
|
|||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
WRITE >STYA ZPCmdPtr
|
WRITE >STYA ZPCmdPtr
|
||||||
|
|
||||||
|
sta SETHIRES Make sure SET80STORE active a $2000
|
||||||
sta SET80STORE
|
sta SET80STORE
|
||||||
|
|
||||||
lda (ZPCmdPtr) Get Cmd
|
lda (ZPCmdPtr) Get Cmd
|
||||||
@ -157,7 +155,7 @@ WRITE >STYA ZPCmdPtr
|
|||||||
|
|
||||||
sta CLR80STORE
|
sta CLR80STORE
|
||||||
|
|
||||||
.8 clc
|
clc
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.10 jmp (J.Cmds,x)
|
.10 jmp (J.Cmds,x)
|
||||||
@ -172,8 +170,8 @@ LBUF.SetBounds1YA
|
|||||||
sta LBUF.C1
|
sta LBUF.C1
|
||||||
tay
|
tay
|
||||||
|
|
||||||
lda Mono.Head,x
|
lda C1.MASK,x
|
||||||
sta LBUF.AND,y
|
sta LBUF.MASK,y
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
LBUF.SetBounds2YA
|
LBUF.SetBounds2YA
|
||||||
@ -184,20 +182,20 @@ LBUF.SetBounds2YA
|
|||||||
cmp LBUF.C1
|
cmp LBUF.C1
|
||||||
beq .2
|
beq .2
|
||||||
|
|
||||||
lda Mono.Tail,x
|
lda C2.MASK,x
|
||||||
sta LBUF.AND,y
|
sta LBUF.MASK,y
|
||||||
|
|
||||||
lda #0
|
lda #0
|
||||||
|
|
||||||
.1 dey
|
.1 dey
|
||||||
cpy LBUF.C1
|
cpy LBUF.C1
|
||||||
beq .8
|
beq .8
|
||||||
sta LBUF.AND,y
|
sta LBUF.MASK,y
|
||||||
bra .1
|
bra .1
|
||||||
|
|
||||||
.2 lda Mono.Head,x
|
.2 lda C1.MASK,x
|
||||||
and Mono.Tail,x
|
and C2.MASK,x
|
||||||
sta LBUF.AND,y
|
sta LBUF.MASK,y
|
||||||
.8 rts
|
.8 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
LBUF.SetOPA
|
LBUF.SetOPA
|
||||||
@ -214,9 +212,9 @@ LBUF.DrawAtY lda BASEL,y setup line Base Ptr
|
|||||||
sta $C000,x
|
sta $C000,x
|
||||||
|
|
||||||
lda (ZPBasePtr),y
|
lda (ZPBasePtr),y
|
||||||
and LBUF.AND,y
|
and LBUF.MASK,y
|
||||||
|
|
||||||
ora LBUF.ORA,y
|
ora LBUF.DATA,y
|
||||||
lda #$ff
|
lda #$ff
|
||||||
sta (ZPBasePtr),y
|
sta (ZPBasePtr),y
|
||||||
|
|
||||||
@ -231,9 +229,9 @@ LBUF.DrawAtY.XOR
|
|||||||
sta $C000,x
|
sta $C000,x
|
||||||
|
|
||||||
lda (ZPBasePtr),y
|
lda (ZPBasePtr),y
|
||||||
and LBUF.AND,y
|
and LBUF.MASK,y
|
||||||
|
|
||||||
eor LBUF.ORA,y
|
eor LBUF.DATA,y
|
||||||
sta (ZPBasePtr),y
|
sta (ZPBasePtr),y
|
||||||
|
|
||||||
iny
|
iny
|
||||||
@ -288,9 +286,9 @@ MOD7.lo .BS 3
|
|||||||
MOD7.hi .BS 3
|
MOD7.hi .BS 3
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
LBUF.C1 .BS 1
|
LBUF.C1 .BS 1
|
||||||
LBUF.C2 .BS 1
|
LBUF.C2 .BS 1 C1 C2
|
||||||
LBUF.ORA .BS 80
|
LBUF.MASK .BS 80 Bits to CLR in VMEM & LBUF.DATA from C1 to C2 : 11100000 00000000 00111111
|
||||||
LBUF.AND .BS 80
|
LBUF.DATA .BS 80 Bits to SET/ORA/XOR in VMEM from C1 to C2 : 000ccccc cccccccc cc000000
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
XDIV7 .BS 1
|
XDIV7 .BS 1
|
||||||
XMOD7 .BS 1
|
XMOD7 .BS 1
|
||||||
|
@ -21,15 +21,17 @@ Mono.Masks .DA #%00000001
|
|||||||
.DA #%00100000
|
.DA #%00100000
|
||||||
.DA #%01000000
|
.DA #%01000000
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
Mono.Head .DA #%10000000
|
C1.MASK .DA #%10000000 mod 0.....
|
||||||
.DA #%10000001
|
C2.DATA .DA #%10000001 ->C1.DATA
|
||||||
.DA #%10000011
|
.DA #%10000011
|
||||||
.DA #%10000111
|
.DA #%10000111
|
||||||
.DA #%10001111
|
.DA #%10001111
|
||||||
.DA #%10011111
|
.DA #%10011111
|
||||||
.DA #%10111111
|
.DA #%10111111 ...to 6
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
Mono.Tail .DA #%11111110
|
C1.DATA .DA #%11111111
|
||||||
|
*--------------------------------------
|
||||||
|
C2.MASK .DA #%11111110
|
||||||
.DA #%11111100
|
.DA #%11111100
|
||||||
.DA #%11111000
|
.DA #%11111000
|
||||||
.DA #%11110000
|
.DA #%11110000
|
||||||
|
@ -238,7 +238,7 @@ CS.END
|
|||||||
DEVNAME.GFX >CSTR "GFX"
|
DEVNAME.GFX >CSTR "GFX"
|
||||||
DEVNAME.MOUSE >CSTR "MOU1"
|
DEVNAME.MOUSE >CSTR "MOU1"
|
||||||
LIBGUI >CSTR "libgui.o"
|
LIBGUI >CSTR "libgui.o"
|
||||||
MSG.INIT >CSTR "DESKTOP:Init...\r\n"
|
MSG.INIT >CSTR "GUI:Init...\r\n"
|
||||||
hLIBGUI .BS 1
|
hLIBGUI .BS 1
|
||||||
hDevGFX .BS 1
|
hDevGFX .BS 1
|
||||||
hDevMouse .BS 1
|
hDevMouse .BS 1
|
||||||
|
Loading…
Reference in New Issue
Block a user