2015-03-23 07:28:03 +00:00
|
|
|
|
PR#3
|
2017-03-29 15:48:15 +00:00
|
|
|
|
PREFIX /A2OSX.BUILD
|
2015-03-23 07:28:03 +00:00
|
|
|
|
NEW
|
|
|
|
|
INC 1
|
|
|
|
|
AUTO 6
|
|
|
|
|
.LIST OFF
|
|
|
|
|
.OP 65C02
|
|
|
|
|
.OR $2000
|
2017-11-15 16:29:23 +00:00
|
|
|
|
.TF /A2OSX.BUILD/LIB/LIBGUI.O
|
2015-03-23 07:28:03 +00:00
|
|
|
|
*--------------------------------------
|
2017-03-29 15:48:15 +00:00
|
|
|
|
.INB /A2OSX.BUILD/INC/MACROS.I
|
|
|
|
|
.INB /A2OSX.BUILD/INC/A2OSX.I
|
2017-11-15 16:29:23 +00:00
|
|
|
|
.INB /A2OSX.BUILD/INC/LIBGUI.I
|
2017-11-30 16:33:33 +00:00
|
|
|
|
.INB /A2OSX.BUILD/INC/GFX.I
|
2015-03-23 07:28:03 +00:00
|
|
|
|
*--------------------------------------
|
2017-06-09 15:36:05 +00:00
|
|
|
|
.MA SWAP16
|
|
|
|
|
lda ]1
|
|
|
|
|
ldx ]2
|
|
|
|
|
stx ]1
|
|
|
|
|
sta ]2
|
|
|
|
|
lda ]1+1
|
|
|
|
|
ldx ]2+1
|
|
|
|
|
stx ]1+1
|
|
|
|
|
sta ]2+1
|
|
|
|
|
.EM
|
|
|
|
|
.MA NOT16
|
|
|
|
|
sec
|
|
|
|
|
lda #0
|
|
|
|
|
sbc ]1
|
|
|
|
|
sta ]1
|
|
|
|
|
lda #0
|
|
|
|
|
sbc ]1+1
|
|
|
|
|
sta ]1+1
|
|
|
|
|
.EM
|
2017-11-29 16:28:13 +00:00
|
|
|
|
.MA SCMPAX
|
|
|
|
|
sec
|
|
|
|
|
sbc ]1
|
|
|
|
|
txa
|
|
|
|
|
sbc ]1+1
|
|
|
|
|
bvc :1
|
|
|
|
|
eor #$80
|
|
|
|
|
:1 .EQ *
|
|
|
|
|
.EM
|
2017-06-09 15:36:05 +00:00
|
|
|
|
*--------------------------------------
|
2017-11-30 16:33:33 +00:00
|
|
|
|
ZPPtr1 .EQ ZPLIB
|
2017-06-09 15:36:05 +00:00
|
|
|
|
ZPDCPtr .EQ ZPLIB+2
|
2017-11-15 16:29:23 +00:00
|
|
|
|
ZPCmdPtr .EQ ZPLIB+4
|
2016-06-15 06:21:42 +00:00
|
|
|
|
*--------------------------------------
|
2015-08-05 20:38:05 +00:00
|
|
|
|
* File Header (16 Bytes)
|
2015-03-23 07:28:03 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.START cld
|
|
|
|
|
jmp (.1,x)
|
2015-08-05 20:38:05 +00:00
|
|
|
|
.DA #$61 6502,Level 1 (65c02)
|
|
|
|
|
.DA #1 BIN Layout Version 1
|
2015-03-23 07:28:03 +00:00
|
|
|
|
.DA 0
|
|
|
|
|
.DA CS.END-CS.START
|
|
|
|
|
.DA 0
|
2015-08-05 20:38:05 +00:00
|
|
|
|
.DA 0
|
|
|
|
|
.DA 0
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
* Relocation Table
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
.1 .DA LIB.LOAD
|
|
|
|
|
.DA LIB.UNLOAD
|
2017-11-30 16:33:33 +00:00
|
|
|
|
.DA InitGUI
|
|
|
|
|
J.Cmds .DA CloseGUI J.Cmds-12 !!!
|
2017-11-15 16:29:23 +00:00
|
|
|
|
.DA Draw
|
|
|
|
|
.DA SetCursor.A
|
|
|
|
|
.DA SetCursorPos
|
2016-06-15 15:58:45 +00:00
|
|
|
|
.DA HideCursor
|
|
|
|
|
.DA ShowCursor
|
2017-11-30 16:33:33 +00:00
|
|
|
|
.DA ReadMouse
|
2017-06-09 15:36:05 +00:00
|
|
|
|
.DA DrawLine
|
2017-11-30 16:33:33 +00:00
|
|
|
|
L.DEVNAME.GFX .DA DEVNAME.GFX
|
|
|
|
|
L.DEVNAME.MOUSE .DA DEVNAME.MOUSE
|
|
|
|
|
L.MouseClamp .DA MouseClamp
|
2017-06-09 15:36:05 +00:00
|
|
|
|
L.CB.Cache .DA CB.Cache
|
2017-11-30 16:33:33 +00:00
|
|
|
|
L.CUR.CB .DA CUR.CB
|
|
|
|
|
L.CUR.SaveBuf .DA CUR.SaveBuf
|
|
|
|
|
L.Cursors .DA CUR.Arrow
|
2015-11-29 22:19:10 +00:00
|
|
|
|
.DA 0
|
2015-03-23 07:28:03 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
LIB.LOAD
|
|
|
|
|
LIB.UNLOAD clc
|
|
|
|
|
rts
|
2016-06-15 06:21:42 +00:00
|
|
|
|
*--------------------------------------
|
2017-11-30 16:33:33 +00:00
|
|
|
|
InitGUI lda GC.Screen+S.GC.hDev
|
|
|
|
|
beq .10
|
|
|
|
|
clc
|
|
|
|
|
.9 rts
|
|
|
|
|
|
|
|
|
|
.10 >LDYA L.DEVNAME.GFX
|
|
|
|
|
>SYSCALL GetDevByName.YA
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
stx GC.Screen+S.GC.hDev
|
|
|
|
|
>STYA GoDevGfx.Jmp+1
|
|
|
|
|
|
|
|
|
|
txa
|
|
|
|
|
ldx #DEVMGR.OPEN
|
|
|
|
|
jsr GoDevGfx.Jmp
|
|
|
|
|
|
|
|
|
|
.1 >LDYA L.DEVNAME.MOUSE
|
|
|
|
|
>SYSCALL GetDevByName.YA
|
|
|
|
|
bcc .2
|
|
|
|
|
|
|
|
|
|
inc DEVNAME.MOUSE+3
|
|
|
|
|
lda DEVNAME.MOUSE+3
|
|
|
|
|
cmp #'8'
|
|
|
|
|
bne .1
|
|
|
|
|
beq .3 No mouse found, skip mouse init
|
|
|
|
|
|
|
|
|
|
.2 stx hDevMouse
|
|
|
|
|
>STYA GoDevMouse+1
|
2017-06-09 15:36:05 +00:00
|
|
|
|
|
2017-11-30 16:33:33 +00:00
|
|
|
|
txa
|
|
|
|
|
ldx #DEVMGR.OPEN
|
|
|
|
|
jsr GoDevMouse
|
|
|
|
|
|
|
|
|
|
ldx #DEVMGR.CONTROL Mouse driver disturb graphic screen....
|
|
|
|
|
jsr GoDevGfx.Jmp
|
|
|
|
|
|
|
|
|
|
ldx #DEVMGR.STATUS get graphic mode and resolution....
|
|
|
|
|
jsr GoDevGfx.Jmp
|
|
|
|
|
|
|
|
|
|
>STYA ZPPtr1
|
|
|
|
|
|
|
|
|
|
ldy #S.DSTAT.GFX.W+1
|
|
|
|
|
lda (ZPPtr1),y
|
|
|
|
|
sta GC.Screen+S.GC.W+1
|
|
|
|
|
sta MouseClamp+3
|
|
|
|
|
lsr
|
|
|
|
|
sta CUR.Pos+S.RECT.X1+1
|
|
|
|
|
|
|
|
|
|
dey
|
|
|
|
|
|
|
|
|
|
lda (ZPPtr1),y
|
|
|
|
|
sta MouseClamp+2
|
|
|
|
|
sta GC.Screen+S.GC.W
|
|
|
|
|
ror
|
|
|
|
|
sta CUR.Pos+S.RECT.X1
|
|
|
|
|
|
|
|
|
|
ldy #S.DSTAT.GFX.H+1
|
|
|
|
|
|
|
|
|
|
lda (ZPPtr1),y
|
|
|
|
|
sta MouseClamp+7
|
|
|
|
|
sta GC.Screen+S.GC.H+1
|
|
|
|
|
lsr
|
|
|
|
|
sta CUR.Pos+S.RECT.Y1+1
|
|
|
|
|
|
|
|
|
|
dey
|
|
|
|
|
|
|
|
|
|
lda (ZPPtr1),y
|
|
|
|
|
sta MouseClamp+6
|
|
|
|
|
sta GC.Screen+S.GC.H
|
|
|
|
|
ror
|
|
|
|
|
sta CUR.Pos+S.RECT.Y1
|
|
|
|
|
|
|
|
|
|
>LDYA L.MouseClamp
|
|
|
|
|
ldx #DEVMGR.CONTROL
|
|
|
|
|
jsr GoDevMouse
|
|
|
|
|
|
|
|
|
|
>LDYA L.CUR.SaveBuf
|
|
|
|
|
>STYA CUR.CB+S.CB.DstPtr
|
|
|
|
|
|
|
|
|
|
lda #CUR.T.ARROW
|
|
|
|
|
jsr SetCursor.A
|
|
|
|
|
|
|
|
|
|
jsr ShowCursor
|
|
|
|
|
|
|
|
|
|
.3
|
2016-06-15 06:21:42 +00:00
|
|
|
|
clc
|
2017-06-09 15:36:05 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2017-11-30 16:33:33 +00:00
|
|
|
|
CloseGUI lda hDevMouse
|
|
|
|
|
beq .1
|
|
|
|
|
|
|
|
|
|
ldx #DEVMGR.CLOSE
|
|
|
|
|
jsr GoDevMouse
|
|
|
|
|
|
|
|
|
|
.1 stz GC.Screen+S.GC.hDev
|
2016-06-15 06:21:42 +00:00
|
|
|
|
sec
|
|
|
|
|
rts
|
2016-10-07 06:09:25 +00:00
|
|
|
|
*--------------------------------------
|
2017-11-30 16:33:33 +00:00
|
|
|
|
ReadMouse >PULLW ZPPtr1
|
|
|
|
|
|
|
|
|
|
lda hDevMouse Mouse is active ?
|
|
|
|
|
beq .9
|
|
|
|
|
|
|
|
|
|
>LDYA ZPPtr1
|
|
|
|
|
ldx #DEVMGR.READBLOCK
|
|
|
|
|
jmp GoDevMouse
|
|
|
|
|
|
|
|
|
|
.9 sec
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
GoDevGfx >LDYA L.CB.Cache
|
|
|
|
|
GoDevGfx.YA ldx #DEVMGR.WRITE
|
|
|
|
|
GoDevGfx.Jmp jmp $ffff
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
GoDevMouse jmp $ffff
|
2017-11-29 16:28:13 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
.INB /A2OSX.SRC/LIB/LIBGUI.S.DRAW
|
|
|
|
|
.INB /A2OSX.SRC/LIB/LIBGUI.S.CLIP
|
|
|
|
|
.INB /A2OSX.SRC/LIB/LIBGUI.S.CUR
|
2015-08-05 20:38:05 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.END
|
2017-11-30 16:33:33 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
.INB /A2OSX.SRC/LIB/LIBGUI.G.CUR
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
DEVNAME.GFX >CSTR "GFX"
|
|
|
|
|
DEVNAME.MOUSE >CSTR "MOU1"
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
hDevMouse .BS 1
|
2016-06-15 06:21:42 +00:00
|
|
|
|
*--------------------------------------
|
2017-06-09 15:36:05 +00:00
|
|
|
|
DX .BS 2
|
|
|
|
|
DY .BS 2
|
|
|
|
|
IY .BS 1
|
2017-06-15 15:36:25 +00:00
|
|
|
|
IE .BS 2
|
|
|
|
|
D .BS 2
|
|
|
|
|
INE .BS 2
|
2017-06-09 15:36:05 +00:00
|
|
|
|
Counter .BS 2
|
2017-11-29 16:28:13 +00:00
|
|
|
|
ClipLine.P1 .BS 1
|
|
|
|
|
ClipLine.P2 .BS 1
|
2017-06-09 15:36:05 +00:00
|
|
|
|
*--------------------------------------
|
2017-11-15 16:29:23 +00:00
|
|
|
|
CB.CmdLen .DA S.CB.Y1+1 SETPIXEL
|
|
|
|
|
.DA S.CB.Y1+1 GETPIXEL
|
|
|
|
|
.DA S.CB.X2+1 HLINE
|
|
|
|
|
.DA S.CB.Y2+1 VLINE
|
|
|
|
|
.DA S.CB.Y2+1 FILLRECT
|
|
|
|
|
.DA S.CB.DstPtr+1 BITBLT
|
2017-11-20 06:59:59 +00:00
|
|
|
|
.DA S.CB.DstPtr+1 GETRECTBUFSIZE
|
2017-11-15 16:29:23 +00:00
|
|
|
|
.DA S.CB.Y2+1 DRAWLINE
|
|
|
|
|
*--------------------------------------
|
2017-11-30 16:33:33 +00:00
|
|
|
|
MouseClamp .BS 8
|
|
|
|
|
*--------------------------------------
|
2017-11-29 16:28:13 +00:00
|
|
|
|
GC.Screen .BS S.GC
|
|
|
|
|
GC.Cache .BS S.GC
|
2017-06-09 15:36:05 +00:00
|
|
|
|
CB.Cache .BS S.CB
|
|
|
|
|
*--------------------------------------
|
2015-03-23 07:28:03 +00:00
|
|
|
|
MAN
|
2017-11-14 16:57:34 +00:00
|
|
|
|
SAVE /A2OSX.SRC/LIB/LIBGUI.S
|
2015-03-23 07:28:03 +00:00
|
|
|
|
ASM
|