Browse code
Added mouse status icons
neauoire authored on 12/03/2021 20:04:44
Showing 1 changed files
| ... | ... |
@@ -144,6 +144,17 @@ BRK |
| 144 | 144 |
|
| 145 | 145 |
( mouse ) |
| 146 | 146 |
|
| 147 |
+ ,no-change ~MOUS.state ~touch.state EQU JMP2? POP2 |
|
| 148 |
+ |
|
| 149 |
+ #0000 =SPRT.x ~SCRN.height #0008 SUB2 =SPRT.y |
|
| 150 |
+ ,mouse00icn =SPRT.addr |
|
| 151 |
+ ,nobutton1 ~MOUS.state #01 NEQ JMP2? POP2 ,mouse01icn =SPRT.addr @nobutton1 |
|
| 152 |
+ ,nobutton2 ~MOUS.state #10 NEQ JMP2? POP2 ,mouse10icn =SPRT.addr @nobutton2 |
|
| 153 |
+ ,nobutton3 ~MOUS.state #11 NEQ JMP2? POP2 ,mouse11icn =SPRT.addr @nobutton3 |
|
| 154 |
+ #01 =SPRT.color |
|
| 155 |
+ |
|
| 156 |
+ @no-change |
|
| 157 |
+ |
|
| 147 | 158 |
,touch-end ~MOUS.state #00 EQU JMP2? POP2 |
| 148 | 159 |
|
| 149 | 160 |
,touch-linebar ~MOUS.x #0010 LTH2 JMP2? POP2 |
| ... | ... |
@@ -655,6 +666,11 @@ RTS |
| 655 | 666 |
|
| 656 | 667 |
] |
| 657 | 668 |
|
| 669 |
+@mouse00icn [ 0000 0000 0000 0000 ] |
|
| 670 |
+@mouse01icn [ 0078 7878 7878 7800 ] |
|
| 671 |
+@mouse10icn [ 001e 1e1e 1e1e 1e00 ] |
|
| 672 |
+@mouse11icn [ 007e 7e7e 7e7e 7e00 ] |
|
| 673 |
+ |
|
| 658 | 674 |
@linebreak_icn [ 003e 7474 3414 1400 ] |
| 659 | 675 |
@blank_icn [ 0000 0000 0000 0000 ] |
| 660 | 676 |
@cursor_icn [ 80c0 e0f0 f8e0 1000 ] |