~rabbits/orca-toy

ed637be66ce4f56f892c85ff53338ae96c425e12 — Devine Lu Linvega 1 year, 2 months ago 73b2105
Removed unused label
1 files changed, 6 insertions(+), 11 deletions(-)

M src/orca.tal
M src/orca.tal => src/orca.tal +6 -11
@@ 450,9 450,8 @@ JMP2r
		&skip
	.timer/frame LDZ2k INC2 ROT STZ2
	#00 .timer/beat STZ
	manage-voices

JMP2r
!manage-voices

@run-char ( id* -- )



@@ 697,14 696,6 @@ JMP2r
(
@|voices ) ( len vel chn note )

@send-voice ( voice -- )

	( chn ) INC INCk LDZ2 SWP .Console/write DEO
	( note ) .Console/write DEO
	( vel ) LDZ .Console/write DEO

JMP2r

@release-voice ( voice -- )

	( chn ) INC INC LDZ2 SWP .Console/write DEO


@@ 722,7 713,11 @@ JMP2r
	( save )
	next-voice STHk STZ2
	INCkr INCr STHr STZ2
	STHr send-voice
	STHr

	( chn ) INC INCk LDZ2 SWP .Console/write DEO
	( note ) .Console/write DEO
	( vel ) LDZ .Console/write DEO

JMP2r