Clamp octave in piano example

This commit is contained in:
neauoire 2021-07-05 09:26:00 -07:00
parent ac416bb02f
commit 596f1a43b1
1 changed files with 2 additions and 0 deletions

View File

@ -188,8 +188,10 @@ BRK
.Mouse/x DEI2 .octave-view/x1 LDZ2 -- 8// SWP POP #09 ! ,&no-mod JCN
.Mouse/y DEI2 .octave-view/y1 LDZ2 -- 8// SWP POP
DUP #00 ! ,&no-incr JCN
.octave LDZ #03 = ,&no-incr JCN
.octave LDZ #01 + .octave STZ &no-incr
DUP #02 ! ,&no-decr JCN
.octave LDZ #ff = ,&no-decr JCN
.octave LDZ #01 - .octave STZ &no-decr
POP
( release ) #00 .Mouse/state DEO