A2osX/SBIN/DESKTOP.S.txt

233 lines
4.2 KiB
Plaintext
Raw Normal View History

PR#3
2015-06-03 18:30:57 +00:00
PREFIX /A2OSX.SRC
NEW
INC 1
AUTO 6
.LIST OFF
.OP 65C02
.OR $2000
.TF /A2OSX.BOOT/SBIN/DESKTOP
*--------------------------------------
.INB INC/IO.I
.INB INC/MACROS.I
.INB INC/A2OSX.I
2016-06-15 06:21:42 +00:00
.INB INC/LIBGFX.I
*--------------------------------------
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
.DA CS.END-CS.START
.DA 0
.DA 0
.DA 0
*--------------------------------------
* Relocation Table
*--------------------------------------
.1 .DA CS.INIT
.DA CS.RUN
.DA CS.DOEVENT
.DA CS.QUIT
2016-06-15 06:21:42 +00:00
L.LIBGFX .DA LIBGFX
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
2016-07-22 14:11:13 +00:00
L.SetPixel.X .DA SetPixel.X
L.DrawLine.X1 .DA DrawLine.X1
.DA 0
*--------------------------------------
2016-06-07 06:10:18 +00:00
CS.INIT >LDYA L.MSG.INIT
>SYSCALL PrintFYA
2016-06-07 06:10:18 +00:00
2016-06-15 06:21:42 +00:00
>LDYA L.LIBGFX
>SYSCALL LoadLibYA
2016-06-15 06:21:42 +00:00
sta hLIBGFX
2016-06-07 06:10:18 +00:00
>LDYA L.DEVNAME.GFX
>SYSCALL GetDevByNameYA
bcc .10
rts
2015-06-03 18:30:57 +00:00
.10 stx hDevGFX
2016-07-22 14:11:13 +00:00
ldx pDev
phx
ldx pDev+1
phx
>STYA GoDevGFX+1
2016-07-22 14:11:13 +00:00
>STYA pDev
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
>SYSCALL GetDevByNameYA
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-07-22 14:11:13 +00:00
>STYA pDev
2016-06-07 06:10:18 +00:00
ldx #DEVMGR.OPEN
jsr GoDevMouse
2016-06-07 06:10:18 +00:00
ldx #DEVMGR.SELECT Mouse driver disturb graphic mode....
jsr GoDevGFX
2016-07-22 14:11:13 +00:00
.21 pla
2016-06-07 06:10:18 +00:00
sta pDev+1
pla
sta pDev
2016-06-15 06:21:42 +00:00
lda hDevGFX
2016-07-22 14:11:13 +00:00
>LIBCALL hLibGFX,LIBGFX.InitGFXA
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 clc
rts
*--------------------------------------
CS.DOEVENT lda KBD
bpl .1
sta KBDSTROBE
jsr Destop.Paint
.1 lda hDevMouse Mouse is active ?
beq .99 go check KB
2015-06-03 18:30:57 +00:00
2016-07-22 14:11:13 +00:00
ldy #S.EVT.hDEV
cmp (pEvent),y Event coming from Mouse ?
bne .1
2015-06-03 18:30:57 +00:00
2016-07-22 14:11:13 +00:00
lda A2osX.ASCREEN GUI screen active ?
cmp #3
bne .98 no, discard mouse event & exit
2015-06-03 18:30:57 +00:00
ldy #S.EVT.DATALO
lda (pEvent),y
and #4 mouse move
2016-06-15 06:21:42 +00:00
beq .98
2015-06-03 18:30:57 +00:00
ldy #S.EVT.DATAW2
lda (pEvent),y
2016-07-22 14:11:13 +00:00
sta SetPixel.Y
2015-06-03 18:30:57 +00:00
dey
lda (pEvent),y X.HI
2016-07-22 14:11:13 +00:00
sta SetPixel.X+1
2015-06-03 18:30:57 +00:00
dey
2016-07-22 14:11:13 +00:00
lda (pEvent),y X.LO
sta SetPixel.X
2015-06-03 18:30:57 +00:00
2016-07-22 14:11:13 +00:00
lda #4
sta SetPixel.Mode
lda #15
sta SetPixel.Color
>LDYA L.SetPixel.X
2015-06-03 18:30:57 +00:00
ldx #DEVMGR.GFX.SETPIXEL
jsr GoDevGFX
2016-06-15 06:21:42 +00:00
.98 clc
rts
2015-06-03 18:30:57 +00:00
.99 sec
rts
*--------------------------------------
CS.QUIT clc
rts
*--------------------------------------
2016-07-22 14:11:13 +00:00
Destop.Paint lda #4
sta SetPixel.Mode
lda #0
sta SetPixel.Color
lda #0
sta SetPixel.Y
.1 lda #0
sta SetPixel.X
lda /0
sta SetPixel.X+1
.2 >LDYA L.SetPixel.X
ldx #DEVMGR.GFX.SETPIXEL
jsr GoDevGFX
lda SetPixel.X
clc
adc #4
sta SetPixel.X
bcc .3
inc SetPixel.X+1
.3 lda SetPixel.X
cmp #279
lda SetPixel.X+1
sbc /279
bcc .2
inc SetPixel.Y
lda SetPixel.Y
cmp #192
beq .8
and #$7
bne .1
inc SetPixel.Color
lda SetPixel.Color
cmp #16
bne .1
.8 rts
*--------------------------------------
*--------------------------------------
*--------------------------------------
GoDevGFX jmp $ffff
GoDevMouse jmp $ffff
*--------------------------------------
CS.END
DEVNAME.GFX >PSTR "GFX"
DEVNAME.MOUSE >PSTR "MOU1"
LIBGFX >PSTR "libgfx.o"
MSG.INIT >CSTR "DESKTOP:Init...\n"
2016-06-15 06:21:42 +00:00
hLibGFX .BS 1
hDevGFX .BS 1
2015-06-03 18:30:57 +00:00
hDevMouse .BS 1
2016-07-22 14:11:13 +00:00
SetPixel.X .BS 2
SetPixel.Y .BS 2
SetPixel.Mode .BS 1
SetPixel.Color .BS 1
DrawLine.X1 .BS 2
DrawLine.Y1 .BS 2
DrawLine.X2 .BS 2
DrawLine.Y2 .BS 2
DrawLine.Mode .BS 1
DrawLine.Color .BS 1
MAN
SAVE SBIN/DESKTOP.S
ASM