Browse code
Minor optimizations
neauoire authored on 23/08/2021 02:56:03
Showing 3 changed files
- projects/examples/demos/bifurcan.tal
- projects/examples/demos/drum-rack.tal
- projects/examples/demos/piano.tal
| ... | ... |
@@ -121,7 +121,7 @@ RTN |
| 121 | 121 |
&loop |
| 122 | 122 |
( save-x ) OVR #03 MOD TOS 8** .anchor/x LDZ2 ADD2 .Screen/x DEO2 |
| 123 | 123 |
( save-y ) OVR #03 DIV TOS 8** .anchor/y LDZ2 ADD2 .Screen/y DEO2 |
| 124 |
- ( get digit* ) OVR STHkr DUP ADD TOS ;digits ADD2 LDA2 |
|
| 124 |
+ ( get digit* ) OVR STHkr ADDk TOS ;digits ADD2 LDA2 |
|
| 125 | 125 |
( get bit ) ROT #0e SWP SUB SFT2 #0001 AND2 |
| 126 | 126 |
( set tile ) 8** ;tiles ADD2 |
| 127 | 127 |
( set style ) .style LDZ #40 SFT TOS ADD2 |
| ... | ... |
@@ -357,7 +357,7 @@ RTN |
| 357 | 357 |
|
| 358 | 358 |
@draw-mixer ( mixer -- ) |
| 359 | 359 |
|
| 360 |
- DUP STH #00 SWP PAD-HEIGHT ** .mix-view/y1 LDZ2 ++ #0003 ++ |
|
| 360 |
+ STHk #00 SWP PAD-HEIGHT ** .mix-view/y1 LDZ2 ++ #0003 ++ |
|
| 361 | 361 |
|
| 362 | 362 |
( adsr ) |
| 363 | 363 |
DUP2 .mix-view/x1 LDZ2 SWP2 |
| ... | ... |
@@ -551,7 +551,7 @@ RTN |
| 551 | 551 |
|
| 552 | 552 |
@line-rect ( x1* y1* x2* y2* color -- ) |
| 553 | 553 |
|
| 554 |
- ( load ) .color STZ DUP2 STH2 .rect/y2 STZ2 .rect/x2 STZ2 DUP2 STH2 .rect/y1 STZ2 .rect/x1 STZ2 |
|
| 554 |
+ ( load ) .color STZ STH2k .rect/y2 STZ2 .rect/x2 STZ2 STH2k .rect/y1 STZ2 .rect/x1 STZ2 |
|
| 555 | 555 |
STH2r INC2 STH2r |
| 556 | 556 |
&ver |
| 557 | 557 |
( save ) OVR2 .Screen/y DEO2 |