Added mouse status icons

This commit is contained in:
neauoire 2021-03-12 12:04:44 -08:00
parent 4431d59b17
commit 89a558bde7
1 changed files with 16 additions and 0 deletions

View File

@ -144,6 +144,17 @@ BRK
( mouse )
,no-change ~MOUS.state ~touch.state EQU JMP2? POP2
#0000 =SPRT.x ~SCRN.height #0008 SUB2 =SPRT.y
,mouse00icn =SPRT.addr
,nobutton1 ~MOUS.state #01 NEQ JMP2? POP2 ,mouse01icn =SPRT.addr @nobutton1
,nobutton2 ~MOUS.state #10 NEQ JMP2? POP2 ,mouse10icn =SPRT.addr @nobutton2
,nobutton3 ~MOUS.state #11 NEQ JMP2? POP2 ,mouse11icn =SPRT.addr @nobutton3
#01 =SPRT.color
@no-change
,touch-end ~MOUS.state #00 EQU JMP2? POP2
,touch-linebar ~MOUS.x #0010 LTH2 JMP2? POP2
@ -655,6 +666,11 @@ RTS
]
@mouse00icn [ 0000 0000 0000 0000 ]
@mouse01icn [ 0078 7878 7878 7800 ]
@mouse10icn [ 001e 1e1e 1e1e 1e00 ]
@mouse11icn [ 007e 7e7e 7e7e 7e00 ]
@linebreak_icn [ 003e 7474 3414 1400 ]
@blank_icn [ 0000 0000 0000 0000 ]
@cursor_icn [ 80c0 e0f0 f8e0 1000 ]