sejo
/
uxneria
2
2
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

layout

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
roms/tracker.rom
View File

Binary file not shown.

50
sketches/tracker.tal
View File

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