'CATALEX serial MP3 player tester 1A


'SETUP CONSTANT COMMAND STRINGS
SONG=1:VOLL=1:FOLD=1:SNG1=1:SNG2=1
P$=chr$(&h7E)+chr$(&hFF)+chr$(&h06):E$=chr$(&hEF)
H0$=chr$(&h00):H1$=chr$(&h01):H2$=chr$(&h02)
Z$=H0$+H0$
INI$=P$+chr$(&h09)+Z$+H2$+E$ 'Initalize
NXT$=P$+chr$(&h01)+Z$+H0$+E$ 'Next Song
PRE$=P$+chr$(&h02)+Z$+H0$+E$ 'Previous Song
SLP$=P$+chr$(&h0A)+Z$+H0$+E$ 'Sleep
WAK$=P$+chr$(&h0B)+Z$+H0$+E$ 'Wake
RST$=P$+chr$(&h0C)+Z$+H0$+E$ 'Reset
PLA$=P$+chr$(&h0D)+Z$+H0$+E$ 'Play
PAU$=P$+chr$(&h0E)+Z$+H0$+E$ 'Pause
STO$=P$+chr$(&h16)+Z$+H0$+E$ 'Stop
SHF$=P$+chr$(&h18)+Z$+H0$+E$ 'Shuffle


open "com2:9600" as #1

DO:LOOP



'--------------------------------
'BUILD CUSTOM COMMAND STRING SUBS
'--------------------------------

sub BUILD_PWI (SONG)
PWI$=P$+chr$(&h03)+Z$+chr$(SONG)+E$ 'Play With Index
end sub

sub BUILD_SVL (VOLL)
SVL$=P$+chr$(&h06)+Z$+chr$(VOLL)+E$ 'Set Volume
end sub

sub BUILD_SCP (SONG)
SCP$=P$+chr$(&h08)+Z$+chr$(SONG)+E$ 'Single Cycle Play(repeat track)
end sub

sub BUILD_PFF (FOLD,SONG)
PFF$=P$+chr$(&h0F)+H0$+chr$(FOLD)+chr$(SONG)+E$ 'Play Folder/File
end sub

sub BUILD_CPF (FOLD)
CPF$=P$+chr$(&h17)+Z$+chr$(FOLD)+E$ 'Cycle Play Folder
end sub

sub BUILD_GPI (SNG1,SNG2)
GPI$=P$+chr$(&h21)+H0$+chr$(SNG1)+chr$(SNG2)+E$ 'Group Play with Index
end sub

sub BUILD_PWV (VOLL,SONG)
PWV$=P$+chr$(&h22)+H0$+chr$(VOLL)+chr$(SONG)+E$ 'Play With Volume
end sub

sub BUILD_EQS (EQSL)
EQS$=P$+chr$(&h07)+Z$+chr$(EQSL)+E$ 'Equalizer Select
end sub

#CHIP 12F1840, 32

#DEFINE USART_BAUD_RATE 9600 'setup uart
#define USART_BLOCKING



DIM CCMD(10)
DIM CATALEX AS STRING

EPREAD 0, TRACK 'read stored track number
IF TRACK > 10 THEN TRACK = 1
IF TRACK = 0 THEN TRACK = 1 'in case it initially reads 0

CCMD(1) = 0x7E 'things that will always send
CCMD(2) = 0xFF
CCMD(3) = 0x06
CCMD(5) = 0x00
CCMD(8) = 0xEF

'MAIN
wait 750 MS 'let things settle after power up
INITCAT
SENDCCMD 0x0F, 0x01, TRACK
TRACK = TRACK + 1 'make next track number
EPWRITE 0, TRACK 'store track number for next power up
end


SUB INITCAT
SENDCCMD 0x0B, 0x00, 0x00 'WAKE CATALEX
WAIT 50 MS
SENDCCMD 0x09, 0x00, 0x02 'SELECT TF CARD
WAIT 50 MS
SENDCCMD 0x06, 0x00, 0x09 'SET VOLUME TO 9 or whatever you want
WAIT 50 MS
END SUB

SUB SENDCCMD(BYTE4, BYTE6, BYTE7)
CCMD(4)=BYTE4
CCMD(6)=BYTE6
CCMD(7)=BYTE7
CATALEX = ""
FOR I = 1 TO 8
CATALEX = CATALEX + CHR(CCMD(I)) 'build command
NEXT I
HSERPRINT CATALEX 'serial send to catalex
END SUB