Browse code
Improved formatting of pattern
neauoire authored on 22/02/2021 04:06:19
Showing 1 changed files
| ... | ... |
@@ -37,15 +37,29 @@ |
| 37 | 37 |
#05 =dev/r ( set dev/read mouse ) |
| 38 | 38 |
#02 =dev/w ( set dev/read mouse ) |
| 39 | 39 |
|
| 40 |
- |
|
| 41 | 40 |
#01 =color |
| 42 |
- ,text #0028 #0030 ,draw-label JSR |
|
| 41 |
+ ,text1 #0028 #0030 ,draw-label JSR |
|
| 43 | 42 |
|
| 44 | 43 |
#01 ,checkon_icn #0028 #0050 ,draw-sprite JSR |
| 45 |
- ,text_foo #0038 #0050 ,draw-label JSR |
|
| 44 |
+ ,text2 #0038 #0050 ,draw-label JSR |
|
| 46 | 45 |
|
| 47 | 46 |
#01 ,checkoff_icn #0028 #0060 ,draw-sprite JSR |
| 48 |
- ,text_bar #0038 #0060 ,draw-label JSR |
|
| 47 |
+ ,text3 #0038 #0060 ,draw-label JSR |
|
| 48 |
+ |
|
| 49 |
+BRK |
|
| 50 |
+ |
|
| 51 |
+|c000 @FRAME |
|
| 52 |
+ |
|
| 53 |
+ ( clear last cursor ) |
|
| 54 |
+ #10 ,clear_icn ~lastx ~lasty ,draw-sprite JSR |
|
| 55 |
+ ( record mouse positions ) |
|
| 56 |
+ #00 IOR2 =mousex #02 IOR2 =mousey |
|
| 57 |
+ ( record mouse state ) |
|
| 58 |
+ #04 IOR #11 ADD =state |
|
| 59 |
+ ( draw mouse ) |
|
| 60 |
+ ~state ,cursor_icn ~mousex ~mousey ,draw-sprite JSR |
|
| 61 |
+ ( update last pos ) |
|
| 62 |
+ ~mousex =lastx ~mousey =lasty |
|
| 49 | 63 |
|
| 50 | 64 |
BRK |
| 51 | 65 |
|
| ... | ... |
@@ -90,23 +104,12 @@ RTS |
| 90 | 104 |
~y2 #0001 SUB2 LTH2 ,line-rect-ver ROT JMP? POP2 |
| 91 | 105 |
RTS |
| 92 | 106 |
|
| 93 |
- |
|
| 94 | 107 |
@draw-sprite |
| 95 | 108 |
IOW2 ( y byte ) |
| 96 | 109 |
IOW2 ( x byte ) |
| 97 | 110 |
IOW2 ( sprite address ) |
| 98 | 111 |
IOW ( layer-color ) |
| 99 |
- RTS |
|
| 100 |
- |
|
| 101 |
-@texture [ aa55 aa55 aa55 aa55 ] |
|
| 102 |
-@clear_icn [ 0000 0000 0000 0000 ] |
|
| 103 |
-@cursor_icn [ 80c0 e0f0 f8e0 1000 ] |
|
| 104 |
-@checkoff_icn [ 7e81 8181 8181 817e ] |
|
| 105 |
-@checkon_icn [ 7e81 99bd bd99 817e ] |
|
| 106 |
- |
|
| 107 |
-@text " Hello World " ( add string to memory ) |
|
| 108 |
-@text_foo " To Jupiter " |
|
| 109 |
-@text_bar " To Neptune " |
|
| 112 |
+RTS |
|
| 110 | 113 |
|
| 111 | 114 |
@draw-label ( x1 y1 text ) |
| 112 | 115 |
=y1 =x1 |
| ... | ... |
@@ -117,6 +120,16 @@ RTS |
| 117 | 120 |
DUP2 LDR #00 NEQ ,draw-label-loop ROT JMP? POP2 |
| 118 | 121 |
RTS |
| 119 | 122 |
|
| 123 |
+@texture [ aa55 aa55 aa55 aa55 ] |
|
| 124 |
+@clear_icn [ 0000 0000 0000 0000 ] |
|
| 125 |
+@cursor_icn [ 80c0 e0f0 f8e0 1000 ] |
|
| 126 |
+@checkoff_icn [ 7e81 8181 8181 817e ] |
|
| 127 |
+@checkon_icn [ 7e81 99bd bd99 817e ] |
|
| 128 |
+ |
|
| 129 |
+@text1 " Hello World " ( add string to memory ) |
|
| 130 |
+@text2 " To Jupiter " |
|
| 131 |
+@text3 " To Neptune " |
|
| 132 |
+ |
|
| 120 | 133 |
@font ( spectrum-zx font ) |
| 121 | 134 |
[ |
| 122 | 135 |
0000 0000 0000 0000 0000 2400 7e3c 0000 0000 2400 3c42 0000 0000 6c7c 7c38 1000 |
| ... | ... |
@@ -153,21 +166,6 @@ RTS |
| 153 | 166 |
0008 0808 0808 0800 0030 1008 0810 3000 0000 0032 4c00 0000 3c42 99a1 a199 423c |
| 154 | 167 |
] |
| 155 | 168 |
|
| 156 |
-|c000 @FRAME |
|
| 157 |
- |
|
| 158 |
- ( clear last cursor ) |
|
| 159 |
- #10 ,clear_icn ~lastx ~lasty ,draw-sprite JSR |
|
| 160 |
- ( record mouse positions ) |
|
| 161 |
- #00 IOR2 =mousex #02 IOR2 =mousey |
|
| 162 |
- ( record mouse state ) |
|
| 163 |
- #04 IOR #11 ADD =state |
|
| 164 |
- ( draw mouse ) |
|
| 165 |
- ~state ,cursor_icn ~mousex ~mousey ,draw-sprite JSR |
|
| 166 |
- ( update last pos ) |
|
| 167 |
- ~mousex =lastx ~mousey =lasty |
|
| 168 |
- |
|
| 169 |
-BRK |
|
| 170 |
- |
|
| 171 | 169 |
|d000 @ERROR BRK |
| 172 | 170 |
|FFF0 [ f1c3 f12e f12a ] ( palette ) |
| 173 | 171 |
|FFFA .RESET .FRAME .ERROR |