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

add playhead, among other things

This commit is contained in:
Nico 2021-05-05 16:52:09 +01:00
parent f6e12de07d
commit 8a2a60b3b8
1 changed files with 42 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
main.usm
View File

@ -37,7 +37,10 @@
|0000
@Playback [ &position $2 &pattern-addr $2 &tick $1 &speed $1 ]
@Draw [ &row $1 &col $1 ]
@Draw [ &row $1 &col $1
&pattern-x $2 &pattern-y $2
&pattern-vspacing $2 &pattern-hspacing $2
&playhead-x $2 &playhead-y $2 ]
( program )
@ -58,6 +61,13 @@
#0180 .Audio0/adsr DEO2
;wave .Audio0/addr DEO2
#0002 .Audio0/length DEO2
( drawing properties )
#0010 .Draw/pattern-x POK2
#0010 .Draw/pattern-y POK2
#0004 .Draw/pattern-vspacing POK2
#0007 .Draw/playhead-x POK2
#0004 .Draw/pattern-hspacing POK2
BRK
@on-frame ( -> )
@ -69,19 +79,19 @@ BRK
&inc
#01 .Playback/tick PEK ADD .Playback/tick POK ( tick up 1 )
&end
BRK
BRK
@draw-nibble ( nibble )
#08 MUL #00 SWP ;font_hex ADD2 .Screen/addr DEO2 ( locate nibble in the hex font )
#21 .Screen/color DEO ( display it )
.Screen/x DEI2 #0008 ADD2 .Screen/x DEO2 ( move right a sprite )
RTN
RTN
( draw-byte draws a byte as hex on the screen )
@draw-byte ( byte )
DUP #04 SFT ( high digit ) ;draw-nibble JSR2
#0f AND ( low digit ) ;draw-nibble JSR2
RTN
RTN
( draw-pattern-line draws a single line in a pattern )
@draw-pattern-line ( addr )
@ -93,28 +103,42 @@ BRK
#01 .Draw/col PEK ADD .Draw/col POK
.Draw/col PEK PTN_WIDTH LOB NEQ ,&loop JNZ
POP2 ( remove final address from stack )
RTN
RTN
( draw-pattern draws a pattern )
@draw-pattern ( addr )
#00 .Draw/row POK
&loop
#0010 .Screen/x DEO2
.Draw/pattern-y PEK2 .Screen/x DEO2
DUP2 ;draw-pattern-line JSR2
.Screen/y DEI2 #000b ADD2 .Screen/y DEO2 ( add spacing between rows )
.Screen/y DEI2 #0008 .Draw/pattern-vspacing PEK2 ADD2 ADD2 .Screen/y DEO2 ( add spacing between rows )
PTN_WIDTH ADD2 ( get the next byte in the pattern )
#01 .Draw/row PEK ADD .Draw/row POK
.Draw/row PEK PTN_LEN LOB NEQ ,&loop JNZ
POP2 ( remove final address from stack )
RTN
RTN
@draw-playhead
( clear previous playhead )
.Draw/playhead-y PEK2 .Screen/y DEO2
.Draw/playhead-x PEK2 .Screen/x DEO2
#20 .Screen/color DEO
( draw new playhead )
.Draw/pattern-y PEK2 .Playback/position PEK2 #0001 SUB2 #0004 MUL2 ADD2 #0008 SUB2 DUP2 .Draw/playhead-y POK2
.Screen/y DEO2
;playhead_icon .Screen/addr DEO2
#21 .Screen/color DEO
RTN
@draw
#0010 .Screen/x DEO2
#0010 .Screen/y DEO2
;draw-playhead JSR2
.Draw/pattern-x PEK2 .Screen/x DEO2
.Draw/pattern-y PEK2 .Screen/y DEO2
.Playback/pattern-addr PEK2 ;draw-pattern JSR2
RTN
RTN
@on-step ( whenever a pattern step should be played )
PTN_WIDTH PTN_LEN MUL2 .Playback/position PEK2 NEQ2 ,&continue JNZ ( if we're at the end of the pattern, reset the counter )
#0000 .Playback/position POK2
&continue
@ -127,9 +151,9 @@ BRK
&rest POP ( if the note is a 00, jump here. POP to clean up the stack )
&end
PTN_WIDTH .Playback/position PEK2 ADD2 .Playback/position POK2
RTN
PTN_WIDTH .Playback/position PEK2 ADD2 .Playback/position POK2
;draw-playhead JSR2 ( update the playhead position )
RTN
@wave [ ff 00 ]
@ -145,6 +169,7 @@ BRK
007e 4078 4040 7e00 007e 4078 4040 4000
]
@playhead_icon [ 00 60 78 7e 7e 78 60 00 ]
( 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) )
@ -154,11 +179,11 @@ BRK
3e 00 22
00 00 66
3c 00 88
00 00 66
ff 00 66
3e 00 66
00 00 66
3c 00 22
00 00 66
ff 00 66
3e 00 20
00 00 66
3c 00 66