Redraw wave on arrow keys

This commit is contained in:
neauoire 2021-04-26 12:00:39 -07:00
parent 7c861e0955
commit e0929d98da
1 changed files with 5 additions and 4 deletions

View File

@ -204,16 +204,17 @@ BRK
.Controller/button DEI #f0 AND .Controller/button DEI #f0 AND
DUP #04 SFT #01 AND #01 NEQ ,&no-up JNZ DUP #04 SFT #01 AND #01 NEQ ,&no-up JNZ
( move ) .Audio/addr DEI2 #0010 SUB2 .Audio/addr DEO2 &no-up ( move ) .Audio/addr DEI2 #0001 SUB2 .Audio/addr DEO2 &no-up
DUP #05 SFT #01 AND #01 NEQ ,&no-down JNZ DUP #05 SFT #01 AND #01 NEQ ,&no-down JNZ
( move ) .Audio/addr DEI2 #0010 ADD2 .Audio/addr DEO2 &no-down ( move ) .Audio/addr DEI2 #0001 ADD2 .Audio/addr DEO2 &no-down
DUP #06 SFT #01 AND #01 NEQ ,&no-left JNZ DUP #06 SFT #01 AND #01 NEQ ,&no-left JNZ
( move ) .Audio/addr DEI2 #0001 SUB2 .Audio/addr DEO2 &no-left ( move ) .Audio/addr DEI2 #0010 SUB2 .Audio/addr DEO2 &no-left
DUP #07 SFT #01 AND #01 NEQ ,&no-right JNZ DUP #07 SFT #01 AND #01 NEQ ,&no-right JNZ
( move ) .Audio/addr DEI2 ++ .Audio/addr DEO2 &no-right ( move ) .Audio/addr DEI2 #0010 ADD2 .Audio/addr DEO2 &no-right
POP POP
;draw-octave JSR2 ;draw-octave JSR2
;draw-wave JSR2
BRK BRK