A2osX/LIB/LIBGUI.S.MSG.txt

77 lines
1.2 KiB
Plaintext
Raw Permalink Normal View History

2018-05-22 06:01:05 +00:00
NEW
2019-07-30 08:57:25 +00:00
AUTO 3,1
2018-05-22 06:01:05 +00:00
*--------------------------------------
2022-10-11 06:20:24 +00:00
MSG.Get stz MSG+S.MSG.T
2020-10-27 16:33:10 +00:00
lda A2osX.ASCREEN GUI screen active ?
cmp DCB.GFX+S.DCB.GFX.DEVID
2022-10-26 15:20:15 +00:00
beq .1
jmp .9 no, exit....
2020-10-27 16:33:10 +00:00
2022-10-26 15:20:15 +00:00
.1 lda hDevMouse
beq .5
2020-10-27 16:33:10 +00:00
>PUSHA
>PUSHBI IOCTL.READ
2022-10-26 15:20:15 +00:00
>PUSHW L.MSG.XY
2020-10-27 16:33:10 +00:00
>SYSCALL2 IOCTL
bcs .5
2020-10-27 16:33:10 +00:00
lda #S.MSG.T.XY
sta MSG+S.MSG.T
2020-10-27 16:33:10 +00:00
2022-10-26 15:20:15 +00:00
lda MSG+S.MSG.S
bit #S.XY.S.MOVE
beq .2
2022-10-26 15:20:15 +00:00
>PUSHW L.MSG.XY
jsr PTR.SetPos
2022-10-26 15:20:15 +00:00
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
2020-10-27 16:33:10 +00:00
sta KBDSTROBE
2020-10-27 16:33:10 +00:00
and #$7F
sta MSG+S.MSG.KEY
2020-10-27 16:33:10 +00:00
lda #S.MSG.T.KEY
sta MSG+S.MSG.T
.8 >PULLW ZPPtr1 pS.MSG
2020-10-27 16:33:10 +00:00
ldy #S.MSG-1
.6 lda MSG,y
sta (ZPPtr1),y
dey
bpl .6
clc
2020-10-27 16:33:10 +00:00
rts
.9 inc pStack discard pS.MSG
inc pStack
sec No User Msg
2020-10-27 16:33:10 +00:00
rts
2018-05-22 06:01:05 +00:00
*--------------------------------------
MAN
2022-10-11 06:20:24 +00:00
SAVE usr/src/lib/libgui.s.msg
2020-06-30 15:32:23 +00:00
LOAD usr/src/lib/libgui.s
2018-05-22 06:01:05 +00:00
ASM