Added mouse status icons
This commit is contained in:
parent
4431d59b17
commit
89a558bde7
|
@ -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 ]
|
||||
|
|
Loading…
Reference in New Issue