Browse code
Clamp octave in piano example
neauoire authored on 05/07/2021 16:26:00
Showing 1 changed files
| ... | ... |
@@ -188,8 +188,10 @@ BRK |
| 188 | 188 |
.Mouse/x DEI2 .octave-view/x1 LDZ2 -- 8// SWP POP #09 ! ,&no-mod JCN |
| 189 | 189 |
.Mouse/y DEI2 .octave-view/y1 LDZ2 -- 8// SWP POP |
| 190 | 190 |
DUP #00 ! ,&no-incr JCN |
| 191 |
+ .octave LDZ #03 = ,&no-incr JCN |
|
| 191 | 192 |
.octave LDZ #01 + .octave STZ &no-incr |
| 192 | 193 |
DUP #02 ! ,&no-decr JCN |
| 194 |
+ .octave LDZ #ff = ,&no-decr JCN |
|
| 193 | 195 |
.octave LDZ #01 - .octave STZ &no-decr |
| 194 | 196 |
POP |
| 195 | 197 |
( release ) #00 .Mouse/state DEO |