A2osX/SBIN/GUI.S.txt

374 lines
6.7 KiB
Plaintext
Raw Normal View History

PR#3
PREFIX /A2OSX.BUILD
NEW
INC 1
AUTO 6
.LIST OFF
.OP 65C02
.OR $2000
2017-11-14 16:57:34 +00:00
.TF /A2OSX.BUILD/SBIN/GUI
*--------------------------------------
.INB /A2OSX.BUILD/INC/IO.I
.INB /A2OSX.BUILD/INC/MACROS.I
.INB /A2OSX.BUILD/INC/A2OSX.I
2017-11-14 16:57:34 +00:00
.INB /A2OSX.BUILD/INC/LIBGUI.I
*--------------------------------------
ZPPtr1 .EQ ZPBIN
*--------------------------------------
2015-06-03 18:30:57 +00:00
* File Header (16 Bytes)
*--------------------------------------
CS.START cld
jmp (.1,x)
2015-06-03 18:30:57 +00:00
.DA #$61 6502,Level 1 (65c02)
.DA #1 BIN Layout Version 1
.DA 0
2017-11-15 16:29:23 +00:00
.DA CS.END-CS.START CS
.DA DS.END-DS.START DS
.DA #16 SS
.DA #2 ZP
2015-06-03 18:30:57 +00:00
.DA 0
*--------------------------------------
* Relocation Table
*--------------------------------------
.1 .DA CS.INIT
.DA CS.RUN
.DA CS.DOEVENT
.DA CS.QUIT
2017-11-15 16:29:23 +00:00
L.LIBGUI .DA LIBGUI
L.DEVNAME.GFX .DA DEVNAME.GFX
2015-06-03 18:30:57 +00:00
L.DEVNAME.MOUSE .DA DEVNAME.MOUSE
2016-06-07 06:10:18 +00:00
L.MSG.INIT .DA MSG.INIT
L.MouseClamp .DA MouseClamp
L.MouseData .DA MouseData
2017-11-15 16:29:23 +00:00
L.Rect.CB .DA Rect.CB
L.SetPixel.CB .DA SetPixel.CB
2017-11-15 16:29:23 +00:00
L.DrawLines.CB .DA DrawLines.CB
.DA 0
*--------------------------------------
2016-06-07 06:10:18 +00:00
CS.INIT >LDYA L.MSG.INIT
>SYSCALL PrintF.YA
2017-11-15 16:29:23 +00:00
>LDYA L.LIBGUI
>SYSCALL LoadLib.YA
sta hLIBGUI
2016-06-15 06:21:42 +00:00
2016-06-07 06:10:18 +00:00
>LDYA L.DEVNAME.GFX
2017-11-15 16:29:23 +00:00
>SYSCALL GetDevByName.YA
bcc .10
rts
2015-06-03 18:30:57 +00:00
.10 stx hDevGFX
2016-07-22 14:11:13 +00:00
>STYA GoDevGFX+1
2016-07-22 14:11:13 +00:00
txa
2016-07-22 14:11:13 +00:00
ldx #DEVMGR.OPEN
jsr GoDevGFX
2016-06-07 06:10:18 +00:00
2015-06-03 18:30:57 +00:00
.11 >LDYA L.DEVNAME.MOUSE
2017-11-15 16:29:23 +00:00
>SYSCALL GetDevByName.YA
2015-06-03 18:30:57 +00:00
bcc .20
inc DEVNAME.MOUSE+4
lda DEVNAME.MOUSE+4
cmp #'8'
bne .11
2016-07-22 14:11:13 +00:00
beq .21 No mouse found, skip mouse init
2015-06-03 18:30:57 +00:00
.20 stx hDevMouse
>STYA GoDevMouse+1
2016-06-07 06:10:18 +00:00
ldx #DEVMGR.OPEN
jsr GoDevMouse
2016-06-07 06:10:18 +00:00
ldx #DEVMGR.CONTROL Mouse driver disturb graphic screen....
jsr GoDevGFX
ldx #DEVMGR.STATUS get graphic mode and resolution....
jsr GoDevGFX
>STYA ZPPtr1
ldy #S.DSTAT+1
lda (ZPPtr1),y
sta MouseClamp+2
iny
lda (ZPPtr1),y
sta MouseClamp+3
iny
lda (ZPPtr1),y
sta MouseClamp+6
iny
lda (ZPPtr1),y
sta MouseClamp+7
>LDYA L.MouseClamp
ldx #DEVMGR.CONTROL
jsr GoDevMouse
.21 lda hDevGFX
2017-11-15 16:29:23 +00:00
>LIBCALL hLIBGUI,LIBGUI.InitGUI.A
2016-07-22 14:11:13 +00:00
lda (pPs)
2015-06-03 18:30:57 +00:00
ora #S.PS.F.EVENT Now accept events
sta (pPs)
2016-07-22 14:11:13 +00:00
jsr Destop.Paint
clc
2015-06-03 18:30:57 +00:00
rts
*--------------------------------------
CS.RUN lda A2osX.ASCREEN GUI screen active ?
2016-07-22 14:11:13 +00:00
cmp #3
bne .8 no, exit....
2016-07-22 14:11:13 +00:00
lda hDevMouse Mouse is active ?
beq .4 go check KB
2015-06-03 18:30:57 +00:00
>LDYA L.MouseData
ldx #DEVMGR.READBLOCK
jsr GoDevMouse
bcs .4 go check KB
lda MouseData
bit #4 mouse move
beq .1
2015-06-03 18:30:57 +00:00
lda MouseData+1
sta SetPixel.X
lda MouseData+2
2016-07-22 14:11:13 +00:00
sta SetPixel.X+1
2015-06-03 18:30:57 +00:00
lda MouseData+3
sta SetPixel.Y
lda MouseData+4
sta SetPixel.Y+1
2015-06-03 18:30:57 +00:00
lda #0 S.CB.OP.XOR
sta SetPixel.OP
lda #S.CB.MODE.MONO
2016-07-22 14:11:13 +00:00
sta SetPixel.Mode
lda #1
2016-07-22 14:11:13 +00:00
sta SetPixel.Color
2017-11-15 16:29:23 +00:00
>PUSHW L.SetPixel.CB
>LIBCALL hLIBGUI,LIBGUI.Draw
clc
rts
2015-06-03 18:30:57 +00:00
.1 bit #$20
beq .4
jsr Destop.Paint
.4
.8 clc
2015-06-03 18:30:57 +00:00
rts
*--------------------------------------
CS.DOEVENT sec
rts
*--------------------------------------
CS.QUIT clc
rts
*--------------------------------------
2017-11-15 16:29:23 +00:00
Destop.Paint >PUSHW L.Rect.CB
>LIBCALL hLIBGUI,LIBGUI.Draw
>PUSHW L.DrawLines.CB
>LIBCALL hLIBGUI,LIBGUI.Draw
2017-11-15 16:29:23 +00:00
lda #S.CB.MODE.C16
2016-07-22 14:11:13 +00:00
sta SetPixel.Mode
lda #0
sta SetPixel.Color
lda #20
2016-07-22 14:11:13 +00:00
sta SetPixel.Y
.1 lda #28
2016-07-22 14:11:13 +00:00
sta SetPixel.X
lda /28
2016-07-22 14:11:13 +00:00
sta SetPixel.X+1
2017-11-15 16:29:23 +00:00
.2 >PUSHW L.SetPixel.CB
>LIBCALL hLIBGUI,LIBGUI.Draw
2016-07-22 14:11:13 +00:00
lda SetPixel.X
clc
adc #4
sta SetPixel.X
bcc .3
inc SetPixel.X+1
.3 lda SetPixel.X
cmp #84
2016-07-22 14:11:13 +00:00
lda SetPixel.X+1
sbc /84
2016-07-22 14:11:13 +00:00
bcc .2
inc SetPixel.Y
lda SetPixel.Y
cmp #192
beq .4
2016-07-22 14:11:13 +00:00
and #$7
bne .1
inc SetPixel.Color
lda SetPixel.Color
cmp #16
bne .1
.4 rts
2016-07-22 14:11:13 +00:00
*--------------------------------------
*--------------------------------------
*--------------------------------------
GoDevGFX jmp $ffff
GoDevMouse jmp $ffff
*--------------------------------------
CS.END
2017-11-15 16:29:23 +00:00
DEVNAME.GFX >CSTR "GFX"
DEVNAME.MOUSE >CSTR "MOU1"
LIBGUI >CSTR "libgui.o"
2017-11-16 07:12:03 +00:00
MSG.INIT >CSTR "GUI:Init...\r\n"
2017-11-15 16:29:23 +00:00
hLIBGUI .BS 1
hDevGFX .BS 1
2015-06-03 18:30:57 +00:00
hDevMouse .BS 1
MouseClamp .BS 8
MouseData .BS 5
*--------------------------------------
2017-11-15 16:29:23 +00:00
Rect.CB .DA #S.CB.CMD.FILLRECT
.DA #S.CB.OP.ORA
.DA #S.CB.MODE.C16
.DA #11
.DA 0
.DA 0
.DA 559
.DA 191
.DA #S.CB.CMD.FILLRECT
.DA #S.CB.OP.ORA
.DA #S.CB.MODE.MONO
.DA #1
.DA 10
.DA 10
.DA 550
.DA 180
.DA #S.CB.CMD.FILLRECT
.DA #S.CB.OP.ORA
.DA #S.CB.MODE.C16
.DA #0
.DA 20
.DA 20
.DA 540
.DA 170
.DA #S.CB.CMD.FILLRECT
.DA #S.CB.OP.ORA
.DA #S.CB.MODE.C16
.DA #9
2017-11-15 16:29:23 +00:00
.DA 30
.DA 30
.DA 530
.DA 160
.DA #S.CB.CMD.FILLRECT
.DA #S.CB.OP.ORA
.DA #S.CB.MODE.C16
.DA #8
.DA 40
.DA 40
.DA 520
.DA 150
2017-11-15 16:29:23 +00:00
.DA #0
*--------------------------------------
DrawLines.CB .DA #S.CB.CMD.DRAWLINE
.DA #S.CB.OP.ORA
.DA #S.CB.MODE.C16
.DA #1
.DA 80
.DA 191
.DA 80+191
2017-11-15 16:29:23 +00:00
.DA 191+191
2017-11-15 16:29:23 +00:00
.DA #S.CB.CMD.DRAWLINE
2017-11-17 07:09:39 +00:00
.DA #S.CB.OP.XOR
.DA #S.CB.MODE.MONO
.DA #1
.DA 90
.DA 0
.DA 140
.DA 191
2017-11-15 16:29:23 +00:00
.DA #S.CB.CMD.DRAWLINE
.DA #S.CB.OP.ORA
.DA #S.CB.MODE.MONO
.DA #1
.DA 100
.DA 0
.DA 100+191
.DA 191
2017-11-15 16:29:23 +00:00
.DA #S.CB.CMD.DRAWLINE
.DA #S.CB.OP.ORA
2017-11-17 07:09:39 +00:00
.DA #S.CB.MODE.C16
.DA #15
.DA 110
.DA 0
.DA 559
.DA 191
2017-11-15 16:29:23 +00:00
.DA #S.CB.CMD.DRAWLINE
.DA #S.CB.OP.SET
.DA #S.CB.MODE.MONO
.DA #1
.DA 28
.DA 0
.DA 28
.DA 191
2017-11-15 16:29:23 +00:00
.DA #S.CB.CMD.DRAWLINE
.DA #S.CB.OP.SET
.DA #S.CB.MODE.MONO
.DA #1
.DA 84
.DA 0
.DA 84
.DA 191
.DA #S.CB.CMD.DRAWLINE
.DA #S.CB.OP.XOR
.DA #S.CB.MODE.MONO
.DA #1
.DA 0
.DA 92
.DA 559
.DA 92
2017-11-15 16:29:23 +00:00
.DA #0
*--------------------------------------
SetPixel.CB .DA #S.CB.CMD.SETPIXEL
SetPixel.OP .BS 1
SetPixel.Mode .BS 1
SetPixel.Color .BS 1
SetPixel.X .BS 2
SetPixel.Y .BS 2
.DA #0
*--------------------------------------
2017-11-15 16:29:23 +00:00
.DUMMY
.OR 0
DS.START
DS.END
.ED
MAN
2017-11-14 16:57:34 +00:00
SAVE /A2OSX.SRC/SBIN/GUI.S
ASM