mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-10 21:29:37 +00:00
9a7d20a7e1
FORMAT: new switches & checks SH:BREAK in FOR and WHILE ASM / S-C MASM: new directives, CString support and .HX LC / UC:bugfix DHGR.DRV:bugfix LIBGUI:wip CC:wip
77 lines
1.2 KiB
Plaintext
77 lines
1.2 KiB
Plaintext
NEW
|
||
AUTO 3,1
|
||
*--------------------------------------
|
||
MSG.Get stz MSG+S.MSG.T
|
||
|
||
lda A2osX.ASCREEN GUI screen active ?
|
||
cmp DCB.GFX+S.DCB.GFX.DEVID
|
||
beq .1
|
||
|
||
jmp .9 no, exit....
|
||
|
||
.1 lda hDevMouse
|
||
beq .5
|
||
|
||
>PUSHA
|
||
>PUSHBI IOCTL.READ
|
||
>PUSHW L.MSG.XY
|
||
>SYSCALL2 IOCTL
|
||
bcs .5
|
||
|
||
lda #S.MSG.T.XY
|
||
sta MSG+S.MSG.T
|
||
|
||
lda MSG+S.MSG.S
|
||
bit #S.XY.S.MOVE
|
||
beq .2
|
||
|
||
>PUSHW L.MSG.XY
|
||
jsr PTR.SetPos
|
||
|
||
lda MSG+S.MSG.S
|
||
|
||
.2 bit #S.XY.S.MOVE+S.XY.S.CLK
|
||
beq .5
|
||
|
||
jsr MOU.CheckOverMenu
|
||
bcc .8
|
||
|
||
jsr MOU.CheckOverSysBut
|
||
bcc .8
|
||
|
||
jsr MOU.CheckOverWND
|
||
bcc .8
|
||
*--------------------------------------
|
||
.5 lda KBD
|
||
bpl .9
|
||
|
||
sta KBDSTROBE
|
||
and #$7F
|
||
sta MSG+S.MSG.KEY
|
||
|
||
lda #S.MSG.T.KEY
|
||
sta MSG+S.MSG.T
|
||
|
||
.8 >PULLW ZPPtr1 pS.MSG
|
||
|
||
ldy #S.MSG-1
|
||
|
||
.6 lda MSG,y
|
||
sta (ZPPtr1),y
|
||
dey
|
||
bpl .6
|
||
|
||
clc
|
||
rts
|
||
|
||
.9 inc pStack discard pS.MSG
|
||
inc pStack
|
||
|
||
sec No User Msg
|
||
rts
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE usr/src/lib/libgui.s.msg
|
||
LOAD usr/src/lib/libgui.s
|
||
ASM
|