6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-04-05 03:37:43 +00:00
Code Issues Projects Releases Wiki Activity

Add sequencer demo for both MB and speaker

Browse Source
This commit is contained in:
Dave Schmenk 2017-11-01 22:28:27 +00:00
parent 20fe2ca140
commit d5dd2ab3a2
2 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/mockingboard/cvtmid.py
View File

@ -25,11 +25,10 @@ for msg in mid:
# Percussion
#
if vol > 0 and deltatime > 0:
print 'byte = ${0:02X}, ${1:02X}, ${2:02X}'.format(deltatime, msg.note >> 3, 2)
print '\t!BYTE\t${0:02X}, ${1:02X}, ${2:02X}'.format(deltatime, msg.note >> 3, 2)
else:
#
# Note
#
print 'byte = ${0:02X}, ${1:02X}, ${2:02X}'.format(deltatime, 0x80 | (octave << 4) | onote, (lrchan << 7) | vol)
print '// MIDI length in seconds: {0:f}'.format(mid.length)
print '// Sequence length in seconds*16: {0:d}'.format(totaltime)
print '\t!BYTE\t${0:02X}, ${1:02X}, ${2:02X}'.format(deltatime, 0x80 | (octave << 4) | onote, (lrchan << 7) | vol)
print '\t!BYTE\t$00, $00, $00'

12
src/mockingboard/makefile Normal file → Executable file
View File

@ -1,6 +1,8 @@
.SUFFIXES =
AFLAGS = -o $@
MBTEST = mbtest.bin
SPKRTEST = spkrtest.bin
SEQPLAY = seqplay.bin
PLASM = ../plasm
#
# Image filetypes for Virtual ][
@ -18,7 +20,7 @@ TXTTYPE = .TXT
#SYSTYPE = \#FF2000
#TXTTYPE = \#040000
all: $(MBTEST)
all: $(MBTEST) $(SPKRTEST) $(SEQPLAY)
clean:
-rm *.o *~ *.a *.bin
@ -26,3 +28,11 @@ clean:
$(MBTEST): test.seq mbtest.pla mbvm.s $(PLASM)
$(PLASM) -AO < mbtest.pla > mbtest.a
acme -o $(MBTEST) mbvm.s
$(SPKRTEST): test.seq spkrtest.pla spkrvm.s $(PLASM)
$(PLASM) -AO < spkrtest.pla > spkrtest.a
acme -o $(SPKRTEST) spkrvm.s
$(SEQPLAY): seqplay.pla seqvm.s $(PLASM)
$(PLASM) -AO < seqplay.pla > seqplay.a
acme -o $(SEQPLAY) seqvm.s