nihilazo/kalama
nihilazo
/
kalama
Archived
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

rip out all multipattern stuff

This commit is contained in:
Nico 2021-05-21 18:42:25 +01:00
parent 04c728f874
commit 1e1c702edb
1 changed files with 4 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
main.usm
View File

@ -59,8 +59,7 @@
( speed - how many ticks we play a note every )
#10 .Playback/speed STZ
#00 .Playback/pattern-index STZ
;load-pattern JSR2
;pattern .Playback/pattern-addr STZ2
( display/audio init )
;on-frame .Screen/vector DEO2
@ -81,28 +80,10 @@
BRK
( TODO either alloc or get-selected-addr is breaking things. Fix tomorrow. )
@alloc-pattern ( number -- ) ( allocates pattern n in the pattern table in a new area of memory. WILL OVERWRITE! )
#02 MUL #00 SWP ;pattern-table ADD2 ;pattern-pointer LDA2 SWP2 STA2 ( store current position of pattern pointer in pattern table for this pattern )
PTN_LEN PTN_WIDTH MUL2 ;pattern-pointer LDA2 ADD2 ;pattern-pointer STA2
RTN
@get-selected-addr ( -- addr* ) ( get the address of the current selection in the pattern )
.Playback/pattern-addr LDZ2 #00 .Edit/selection-x LDZ ADD2 #00 .Edit/selection-y LDZ PTN_WIDTH MUL2 ADD2
RTN
( loads the pattern pointed to by Playback/pattern-index. Allocs it if it doesn't exist. )
@load-pattern ( number -- )
.Playback/pattern-index LDZ #02 MUL #00 SWP ;pattern-table ADD2 LDA2 ( get current pattern address )
DUP2 #0000 NEQ ,&exists JCN ( if the pattern exists, don't alloc a new one )
.Playback/pattern-index LDZ ;alloc-pattern JSR2
&exists
POP2
.Playback/pattern-index LDZ #02 MUL #00 SWP ;pattern-table ADD2 LDA2 .Playback/pattern-addr STZ2
RTN
@handle-cursor ( controller -- ) ( handles moving the cursor around )
DUP #10 AND #00 NEQ ,&up JCN ( check the if the four directions are pressed )
DUP #20 AND ,&down JCN
@ -151,25 +132,11 @@ RTN
.Controller/key DEI DUP
;handle-editing JSR2
( play/pause )
DUP #70 EQU ,&pause JCN
DUP #3e EQU ,&next-pattern JCN
#3c EQU ,&prev-pattern JCN
.Playback/pattern-addr LDZ2 .Console/short DEO2
BRK
#70 EQU ,&pause JCN
BRK
&pause
POP
.Playback/playing LDZ #00 EQU .Playback/playing STZ
BRK
&next-pattern ( TODO bounds checking to 127 )
POP
.Playback/pattern-index LDZ #01 ADD .Playback/pattern-index STZ
;load-pattern JSR2
BRK
&prev-pattern ( TODO bounds checking to 127 )
POP
.Playback/pattern-index LDZ #01 SUB .Playback/pattern-index STZ
;load-pattern JSR2
BRK
BRK
@on-frame ( -> )
@ -397,10 +364,6 @@ BRK
@playhead_icon [ 00 60 78 7e 7e 78 60 00 ]
@pointer_icon [ 80c0 e0f0 f8e0 1000 ]
@pattern-table :pattern $fe ( the pattern table is a list of pattern addresses in memory )
@pattern-pointer :pattern/end ( the pattern pointer is a pointer to where in memory the next pattern will be put. )
( pattern format - each note has 3 bytes. Pitch, instrument, volume. patterns are 0x10 long.
an ff in the note column of the pattern will kill the existing note without starting a new one (this is the tracker "box" note) )
@ -420,5 +383,5 @@ BRK
54 00 66
ff 00 66
56 00 ff
57 00 66 &end
57 00 66
]