Browse code
(snake.rom) Minor optimizations
Devine Lu Linvega authored on 11/11/2021 14:10:45
Showing 1 changed files
| ... | ... |
@@ -7,12 +7,12 @@ |
| 7 | 7 |
%2/ { #01 SFT } %2* { #10 SFT }
|
| 8 | 8 |
%8// { #03 SFT2 } %8** { #30 SFT2 }
|
| 9 | 9 |
%MOD { DIVk MUL SUB }
|
| 10 |
+%MAX { LTHk JMP SWP POP }
|
|
| 10 | 11 |
%RTN { JMP2r }
|
| 11 | 12 |
%TOS { #00 SWP }
|
| 12 |
-%SWP? { #01 JCN SWP }
|
|
| 13 |
-%RTN? { #01 JCN RTN }
|
|
| 14 | 13 |
%BRK? { #01 JCN BRK }
|
| 15 | 14 |
|
| 15 |
+ |
|
| 16 | 16 |
%DIFFICULTY { #06 }
|
| 17 | 17 |
|
| 18 | 18 |
( devices ) |
| ... | ... |
@@ -117,12 +117,12 @@ RTN |
| 117 | 117 |
POP2 |
| 118 | 118 |
POP2r |
| 119 | 119 |
|
| 120 |
- .snake/dead LDZ #00 = RTN? |
|
| 120 |
+ .snake/dead LDZ #00 = JMP RTN |
|
| 121 | 121 |
|
| 122 | 122 |
.snake/direction LDZ |
| 123 | 123 |
DUP #01 ! ,&no-up JCN |
| 124 | 124 |
.snake/y LDZ #01 - |
| 125 |
- .arena/h LDZ LTHk SWP? POP |
|
| 125 |
+ .arena/h LDZ MAX |
|
| 126 | 126 |
.snake/y STZ |
| 127 | 127 |
&no-up |
| 128 | 128 |
DUP #02 ! ,&no-down JCN |
| ... | ... |
@@ -132,7 +132,7 @@ RTN |
| 132 | 132 |
&no-down |
| 133 | 133 |
DUP #04 ! ,&no-left JCN |
| 134 | 134 |
.snake/x LDZ #01 - |
| 135 |
- .arena/w LDZ LTHk SWP? POP |
|
| 135 |
+ .arena/w LDZ MAX |
|
| 136 | 136 |
.snake/x STZ |
| 137 | 137 |
&no-left |
| 138 | 138 |
DUP #08 ! ,&no-right JCN |
| ... | ... |
@@ -160,7 +160,6 @@ RTN |
| 160 | 160 |
INC GTHk ,&loop-body JCN |
| 161 | 161 |
POP2 |
| 162 | 162 |
|
| 163 |
- |
|
| 164 | 163 |
RTN |
| 165 | 164 |
|
| 166 | 165 |
@add-apple ( -- ) |
| ... | ... |
@@ -220,7 +219,7 @@ RTN |
| 220 | 219 |
@snake-icns |
| 221 | 220 |
7eff ffff ffff ff7e |
| 222 | 221 |
&face |
| 223 |
- 7eff ffdb ffe7 ff7e |
|
| 222 |
+ 7eff ffdb ffe7 ff7e |
|
| 224 | 223 |
@apple-chr |
| 225 | 224 |
0000 76ff ffff 7e3c |
| 226 | 225 |
1008 0000 0000 0000 |