cari,
Если для Басика - то конвертировал в 16Mhz 8 Bit Mono - используя
Winamp.
После просто вырезал заголовок используя текстовый редактор Bred 3.
Оставшиеся данные подавал на ЦАП.
*********************************************************
evgeny, держи (с комментариями)
pcmdata: datafile music.PCM,BIN 'load music data
'Turn DAC on
Asm "move.b #$2B,$A04000"
gosub BUSYWAIT
Asm "move.b #$80,$A04001"
'Turn on both speakers
poke &hA04002,&hB6
gosub BUSYWAIT
poke &hA04003,&hC0
'Send PCM data to DAC
asm "move.b #$2A,$A04000"
loopstart:
asm "move.l #0,d3"
for a=1 to 24 ' chunk part
for b=c to d ' from offset to size (offset + 65535)
reload pcmdata
gosub changeoffset
read pcmtest
gosub BUSYWAIT
poke &hA04001, pcmtest
asm "add.l #1,d3"
next
c=a*65535 'chunk offset
d=c+65535 'chunk size
next
BUSYWAIT:
status=peek(&hA04001)
if status.7=0 then return else goto BUSYWAIT
return
changeoffset:
asm
move.l d3,d1
add.l d1,a6
end asm
return