A2osX/LIB/LIBGUI.S.MSG.txt
burniouf 9a7d20a7e1 ProDOS 203 / FX:TC mod for year 2022-2026
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
2022-12-07 08:02:29 +01:00

77 lines
1.2 KiB
Plaintext
Raw Permalink 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 .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