Browse code
More INC optimisation in loops
Andrew Alderwick authored on 26/08/2021 22:50:27
Showing 1 changed files
| ... | ... |
@@ -7,7 +7,6 @@ |
| 7 | 7 |
|
| 8 | 8 |
%RTN { JMP2r }
|
| 9 | 9 |
%TOS { #00 SWP }
|
| 10 |
-%INCR { SWP INC SWP }
|
|
| 11 | 10 |
|
| 12 | 11 |
( devices ) |
| 13 | 12 |
|
| ... | ... |
@@ -138,18 +137,18 @@ RTN |
| 138 | 137 |
STH |
| 139 | 138 |
( get addr ) DUP TOS #30 SFT2 #30 SFT2k ROT POP ADD2 ;font-data #0100 ++ ++ .Screen/addr DEO2 |
| 140 | 139 |
( get width ) TOS ;font-data ++ LDA TOS |
| 141 |
- #00 #03 |
|
| 140 |
+ #0300 |
|
| 142 | 141 |
&ver |
| 143 |
- #00 #03 |
|
| 142 |
+ #0300 |
|
| 144 | 143 |
&hor |
| 145 | 144 |
STHkr .Screen/sprite DEO |
| 146 | 145 |
.Screen/x DEI2 #0008 ++ .Screen/x DEO2 |
| 147 | 146 |
.Screen/addr DEI2 #0008 ++ .Screen/addr DEO2 |
| 148 |
- INCR LTHk ,&hor JCN |
|
| 147 |
+ INC GTHk ,&hor JCN |
|
| 149 | 148 |
POP2 |
| 150 | 149 |
.Screen/y DEI2 #0008 ++ .Screen/y DEO2 |
| 151 | 150 |
.Screen/x DEI2 #0018 -- .Screen/x DEO2 |
| 152 |
- INCR LTHk ,&ver JCN |
|
| 151 |
+ INC GTHk ,&ver JCN |
|
| 153 | 152 |
POP2 |
| 154 | 153 |
.Screen/y DEI2 #0018 -- .Screen/y DEO2 |
| 155 | 154 |
( use width ) .Screen/x DEI2 ++ .Screen/x DEO2 |