Browse code
(clock.tal) Optimizations
Devine Lu Linvega authored on 19/11/2021 17:03:27
Showing 1 changed files
| ... | ... |
@@ -162,16 +162,16 @@ RTN |
| 162 | 162 |
#03 .Screen/sprite DEO |
| 163 | 163 |
,&reset JSR |
| 164 | 164 |
RTN |
| 165 |
+ &digit ( number -- ) |
|
| 166 |
+ 10* TOS ;font ++ .Screen/addr DEO2 |
|
| 167 |
+ #03 .Screen/sprite DEO |
|
| 168 |
+ ,&pady JSR |
|
| 169 |
+ #03 .Screen/sprite DEO |
|
| 170 |
+ RTN |
|
| 165 | 171 |
&number ( number -- ) |
| 166 |
- DUP #0a DIV [ 10* TOS ;font ++ ] .Screen/addr DEO2 |
|
| 167 |
- #03 .Screen/sprite DEO |
|
| 168 |
- ,&pady JSR |
|
| 169 |
- #03 .Screen/sprite DEO |
|
| 172 |
+ DUP #0a DIV ,&digit JSR |
|
| 170 | 173 |
,&reset JSR |
| 171 |
- #0a MOD [ 10* TOS ;font ++ ] .Screen/addr DEO2 |
|
| 172 |
- #03 .Screen/sprite DEO |
|
| 173 |
- ,&pady JSR |
|
| 174 |
- #03 .Screen/sprite DEO |
|
| 174 |
+ #0a MOD ,&digit JSR |
|
| 175 | 175 |
&reset |
| 176 | 176 |
.Screen/x DEI2 #0008 ++ .Screen/x DEO2 |
| 177 | 177 |
.Screen/y DEI2 #0008 -- .Screen/y DEO2 |