From 5bdfd021e6e5922f86dd9927d0bc07972c7f8495 Mon Sep 17 00:00:00 2001 From: Nihilazo Date: Tue, 4 May 2021 20:44:49 +0100 Subject: [PATCH] update for new uxn --- main.usm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/main.usm b/main.usm index 7cb310c..c522667 100644 --- a/main.usm +++ b/main.usm @@ -87,7 +87,7 @@ BRK @draw-pattern-line ( addr ) #00 .Draw/col POK &loop - DUP2 GET ;draw-byte JSR2 + DUP2 LDA ;draw-byte JSR2 .Screen/x DEI2 #0004 ADD2 .Screen/x DEO2 ( add spacing between digits ) #0001 ADD2 ( get the next byte in the pattern ) #01 .Draw/col PEK ADD .Draw/col POK @@ -119,8 +119,8 @@ BRK #0000 .Playback/position POK2 &continue .Playback/position PEK2 .Playback/pattern-addr PEK2 ADD2 ( put pattern line address on the stack ) - DUP2 VOL GET .Audio0/volume DEO ( ln -- ) ( put the address of the pattern line on the stack ) - NOTE GET ( get the current note ) + DUP2 VOL LDA .Audio0/volume DEO ( ln -- ) ( put the address of the pattern line on the stack ) + NOTE LDA ( get the current note ) DUP #00 EQU ,&rest JNZ ( if the note is 00, aka empty, skip playing it ) .Audio0/pitch DEO ( play the note ) ,&end JMP ( jump to the end )