This commit is contained in:
sejo 2021-07-11 21:50:25 -05:00
parent 5783a222e0
commit 74ff12fc15
2 changed files with 23 additions and 27 deletions

Binary file not shown.

View File

@ -34,13 +34,9 @@
%die-color-invert { #5b } %die-color-invert { #5b }
%column-size { #08 } %column-size { #08 }
%col-sep { #0024 } %col-sep { #0024 } ( separation between byte columns )
%pos-y-dev { #0010 } %pos-y-dev { #0020 }
( top left corner of registers column )
%pos-x-registers { #0010 }
%pos-y-registers { #0010 }
( variables ) ( variables )
@ -82,9 +78,9 @@
|0100 ( -> ) |0100 ( -> )
( theme ) ( theme )
#1dd8 .System/r DEO2 #2ee8 .System/r DEO2
#1c92 .System/g DEO2 #2da2 .System/g DEO2
#1c47 .System/b DEO2 #2d58 .System/b DEO2
( initial conditions ) ( initial conditions )
@ -104,7 +100,7 @@
#f7 .dev1/pattern STZ #f7 .dev1/pattern STZ
#08 .dev1/beatcount STZ #08 .dev1/beatcount STZ
#1ff1 .dev1/adsr STZ2 #1ff1 .dev1/adsr STZ2
#77 .dev1/volume STZ #aa .dev1/volume STZ
#2100 .dev1/sample STZ2 #2100 .dev1/sample STZ2
#3935 .dev1/melody STZ2 #3935 .dev1/melody STZ2
#3235 .dev1/melody #02 ADD STZ2 #3235 .dev1/melody #02 ADD STZ2
@ -129,6 +125,17 @@
BRK BRK
@pos-x-dev0 000c
@pos-x-dev1 005e
@pos-x-dev2 00af
@samples
:saw ( 0 )
:main ( 1 )
:piano ( 2 )
:tri ( 3 )
:sin ( 4 )
@on-frame ( -> ) @on-frame ( -> )
#00 ;update-dev JSR2 #00 ;update-dev JSR2
#01 ;update-dev JSR2 #01 ;update-dev JSR2
@ -141,16 +148,16 @@ BRK
;pos-x-dev0 LDA2 col-sep ADD2 pos-y-dev #08 ;pos-x-dev0 LDA2 col-sep ADD2 pos-y-dev #08
;draw-bytes JSR2 ;draw-bytes JSR2
;pos-x-dev1 LDA2 #0010 #10 ;pos-x-dev1 LDA2 pos-y-dev #10
;draw-bytes JSR2 ;draw-bytes JSR2
;pos-x-dev1 LDA2 col-sep ADD2 #0010 #18 ;pos-x-dev1 LDA2 col-sep ADD2 pos-y-dev #18
;draw-bytes JSR2 ;draw-bytes JSR2
;pos-x-dev2 LDA2 #0010 #20 ;pos-x-dev2 LDA2 pos-y-dev #20
;draw-bytes JSR2 ;draw-bytes JSR2
;pos-x-dev2 LDA2 col-sep ADD2 #0010 #28 ;pos-x-dev2 LDA2 col-sep ADD2 pos-y-dev #28
;draw-bytes JSR2 ;draw-bytes JSR2
( inc framecount ) ( inc framecount )
@ -259,8 +266,8 @@ RTN
DUP #20 AND ,&down JCN DUP #20 AND ,&down JCN
DUP #40 AND ,&left JCN DUP #40 AND ,&left JCN
DUP #80 AND ,&right JCN DUP #80 AND ,&right JCN
DUP #01 AND ,&inc-nibble JCN DUP #01 AND ,&inc-nibble JCN ( ctrl )
DUP #02 AND ,&dec-nibble JCN DUP #02 AND ,&dec-nibble JCN ( alt )
POP POP
&keys &keys
@ -286,7 +293,6 @@ RTN
POP BRK POP BRK
&inc-nibble ( increment nibble ) &inc-nibble ( increment nibble )
#01 ;add-to-nibble JSR2 #01 ;add-to-nibble JSR2
( ;increment-nibble JSR2 )
POP BRK POP BRK
&dec-nibble ( dec nibble ) &dec-nibble ( dec nibble )
#ff ;add-to-nibble JSR2 #ff ;add-to-nibble JSR2
@ -459,19 +465,9 @@ ffff ffff ffff ffff
&bl 7f 7f 7f 7f 7f 3f 1f 00 7f 73 61 61 73 3f 1f 00 &bl 7f 7f 7f 7f 7f 3f 1f 00 7f 73 61 61 73 3f 1f 00
&br fe fe fe fe fe fc f8 00 fe ce 86 86 ce fc f8 00 &br fe fe fe fe fe fc f8 00 fe ce 86 86 ce fc f8 00
@pos-x-dev0 000d
@pos-x-dev1 005e
@pos-x-dev2 00ae
( samples ) ( samples )
@samples
:saw ( 0 )
:main ( 1 )
:piano ( 2 )
:tri ( 3 )
:sin ( 4 )
( from the audio.channels.tal uxn example ) ( from the audio.channels.tal uxn example )
@saw @saw