A2osX/LIB/LIBGUI.S.MSG.txt
burniouf dad22dfc30 CC:SWITCH/CASE
ASM:added \%
KERNEL:BUGFIX in DevMgr
LIBGUI:New API
2022-10-18 07:56:59 +02:00

86 lines
1.3 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

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 .10
jmp .9 no, exit....
.10 lda hDevMouse
beq .5
>PUSHA
>PUSHBI IOCTL.READ
>PUSHW L.XY
>SYSCALL2 IOCTL
bcs .5
ldx #S.XY-1
ldy #S.MSG-1
.1 lda XY,x
sta MSG,y
dey
dex
bpl .1
lda #S.MSG.T.XY
sta MSG+S.MSG.T
lda XY+S.XY.S
bit #S.MSG.S.MOVE
beq .2
>PUSHW L.XY
jsr PTR.SetPos
lda XY+S.XY.S
.2 bit #S.MSG.S.MOVE+S.MSG.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