This code is to receive a tune sent by master Picaxe followed by CR to terminate end of string.
P.S. Turn on Collapsing Blocks makes life easier.
Code:
SYMBOL MUSIC_OUT = B.0
SYMBOL TEMPO = B0
#com 0
#picaxe 20x2
#no_data
#no_table
SETFREQ M4
HSERSETUP B9600_4, %111
FLAG5 = 0
PTR = 0
HSERINPTR = 0
SETINTFLAGS %00100000,%00100000
MAIN:
DO
LOOP
GOTO MAIN
INTERRUPT:
DO UNTIL @PTRINC = CR 'Hold until finished loading tune
LOOP
PTR = 0
TEMPO = @PTR MIN 1 MAX 15
PTR = 1
DO
TUNE MUSIC_OUT, TEMPO,(@PTRINC)
LOOP UNTIL PTR = HSERINPTR
FLAG5 = 0
PTR = 0
HSERINPTR = 0
SETINTFLAGS %00100000,%00100000
RETURN
Attachments
-
678 bytes Views: 24