A2osX/SBIN/GUI.S.txt

487 lines
9.2 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
L.Filename .DA Filename
L.BitBlT.CB .DA BitBlT.CB
L.MousePtr.CB .DA MousePtr.CB
L.BM.Arrow .DA BM.Arrow
.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
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 >PUSHW L.DrawLines.CB
>LIBCALL hLIBGUI,LIBGUI.Draw
>PUSHWI 0 Aux type
>PUSHBI $CB Type
>PUSHBI SYS.FOpen.R
>PUSHW L.FILENAME
>SYSCALL LoadFile
txa
>SYSCALL GetMemPtr.A
>STYA BitBlT.CB+S.CB.SrcPtr
>LDYAI 105
>STYA BitBlT.CB+S.CB.DestX
>PUSHW L.BitBlt.CB
>LIBCALL hLIBGUI,LIBGUI.Draw
>LDYAI 246
>STYA BitBlT.CB+S.CB.DestX
>PUSHW L.BitBlt.CB
>LIBCALL hLIBGUI,LIBGUI.Draw
>LDYAI 387
>STYA BitBlT.CB+S.CB.DestX
>PUSHW L.BitBlt.CB
2017-11-20 06:59:59 +00:00
>LIBCALL hLIBGUI,LIBGUI.Draw
>LDYA L.BM.Arrow
>STYA MousePtr.CB+S.CB.SrcPtr
>PUSHW L.MousePtr.CB
>LIBCALL hLIBGUI,LIBGUI.Draw
>LDYAI 128
>STYA MousePtr.CB+S.CB.DestX
>PUSHW L.MousePtr.CB
>LIBCALL hLIBGUI,LIBGUI.Draw
>LDYAI 182
>STYA MousePtr.CB+S.CB.DestX
>PUSHW L.MousePtr.CB
>LIBCALL hLIBGUI,LIBGUI.Draw
2017-11-20 06:59:59 +00:00
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
2017-11-20 06:59:59 +00:00
.DA #S.CB.OP.SET
2017-11-15 16:29:23 +00:00
.DA #S.CB.MODE.C16
.DA #2
.DA 0
.DA 0
.DA 559
.DA 191
.DA #S.CB.CMD.FILLRECT
2017-11-20 06:59:59 +00:00
.DA #S.CB.OP.SET
.DA #S.CB.MODE.MONO
.DA #1
.DA 10
.DA 5
.DA 549
.DA 186
.DA #S.CB.CMD.FILLRECT
.DA #S.CB.OP.SET
.DA #S.CB.MODE.C16
.DA #7
.DA 20
.DA 10
.DA 539
.DA 181
.DA #S.CB.CMD.FILLRECT
2017-11-20 06:59:59 +00:00
.DA #S.CB.OP.SET
.DA #S.CB.MODE.C16
.DA #4
2017-11-15 16:29:23 +00:00
.DA 30
.DA 15
.DA 529
.DA 176
.DA #S.CB.CMD.FILLRECT
.DA #S.CB.OP.SET
.DA #S.CB.MODE.MONO
.DA #0
.DA 40
.DA 20
.DA 519
.DA 171
2017-11-15 16:29:23 +00:00
.DA #0
*--------------------------------------
DrawLines.CB .DA #S.CB.CMD.DRAWLINE
2017-11-20 06:59:59 +00:00
.DA #S.CB.OP.SET
.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
2017-11-20 06:59:59 +00:00
.DA #S.CB.OP.SET
.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
2017-11-20 06:59:59 +00:00
.DA #S.CB.OP.SET
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
*--------------------------------------
Filename >CSTR "/A2OSX.BUILD/MARILYN"
*--------------------------------------
BitBlT.CB .DA #S.CB.CMD.BITBLT
.DA #S.CB.OP.SET
.DA #S.CB.MODE.MONO
.DA #0
.DA 0 X1
.DA 0 Y1
.DA 140 X2
.DA 149 y2
.BS 2 DestX
.DA 24 DestY
.BS 2 SrcPtr
.DA 0
.DA #0
*--------------------------------------
MousePtr.CB .DA #S.CB.CMD.BITBLT
.DA #S.CB.OP.ORA+S.CB.OP.MASK+S.CB.OP.SAVE
.DA #S.CB.MODE.MONO
.DA #0
.DA 0 X1
.DA 0 Y1
.DA 11 X2
.DA 12 y2
.DA 112 DestX
.DA 24 DestY
.BS 2 SrcPtr
.DA 0
.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
*--------------------------------------
.LIST ON
BM.Arrow .DA #S.BM.F.BBP1
.DA #2 RowBytes
.DA 12 W
.DA 13 H
.DA BM.Arrow.MASK-BM.Arrow
BM.Arrow.DATA .DA %0000.00000000
.DA %0000.00000010
.DA %0000.00000110
.DA %0000.00001110
.DA %0000.00011110
.DA %0000.00111110
.DA %0000.01111110
.DA %0000.11111110
.DA %0001.11111110
.DA %0010.01110010
.DA %0100.11110010
.DA %0000.11100000
.DA %0000.00000000
BM.Arrow.MASK .DA %1111.11111100
.DA %1111.11111000
.DA %1111.11110000
.DA %1111.11100000
.DA %1111.11000000
.DA %1111.10000000
.DA %1111.00000000
.DA %1110.00000000
.DA %1100.00000000
.DA %1000.00000000
.DA %0000.00000000
.DA %0000.00000000
.DA %1110.00001111
.LIST OFF
*--------------------------------------
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