Isd4002

[IceCube]

Hi Forum,
Does anyone have some BASIC code to get me started
communicating with this chip?
Thank you

[sonic]

Hi Ice!
I suppose that we have the same problems with ISD chipcorders.
Actually there is now two weeks of trying to do something with ISD33120 it`s pretty the same **** as ISD4002.

Just to know you have a lot of FAQ on ISD web site..

Good luck

[IceCube]

Hi Sonic,
I finally got it to work!!
Studying the TIMING CHART revealed my problem.
Good luck to you.

[atomski]

Could you share it with us, please? This section is called
CODE EXAMPLES, after all ;)

YZ7REA Vladimir

[IceCube]

Hi,
Sorry for the tardiness. (I have been away)

The following routines work for me...
The code is incomplete but should give some ideas.


CmdPwrUp con $20
CmdPlay con $F0
CmdRec con $B0
CmdStop con $30
CmdStopPwrDn con $10

MOSI var PortC.4 'Output
MISO var PortC.5 'Input
SCLK var PortC.6 'Output
SS var PortC.7 'Output
ISDInt var PortD.3 'Input


RecordAudio: ' Record message
LOW SS 'Enable isd4002
SHIFTOUT MOSI,SCLK,0,CmdPwrUp\8]
HIGH SS 'DisAble isd4002
PAUSE 20
debug "Recording... Adr=",hex4 ISDAdress,cr,lf 'Show ddr
ISDAdress.13=1:ISDAdress.15=1 'Set PwrUp and RUN bits
LOW SS 'Select isd4002
SHIFTOUT MOSI,SCLK,0,[ISDAdress\16]
HIGH SS 'De-Select isd4002
debug "Recording till TIME out",cr,lf 'Instruct to REC
pause time 'record TIME
gosub StopOp 'Issue StopOperation cmd
debug "StopOp Recording issued.",cr,lf 'Show progress
return

StopPwrDn: ' Reset ISDInt and power down cmd
LOW SS
SHIFTOUT MOSI,SCLK,0,[CmdStopPwrDn\8]
HIGH SS
pause 20
return

StopOp: ' Stop Operation
LOW SS
SHIFTOUT MOSI,SCLK,0,[CmdStop\8]
HIGH SS
pause 20
return

PLAY: ' Play Audio
LOW SS
SHIFTOUT MOSI,SCLK,0,CmdPwrUp\8]
HIGH SS
PAUSE 20
HIGH SS
PAUSE 20
debug "Playing... Adr=",hex4 ISDAdress," " ISDAdress.15=1:ISDAdress.14=1:ISDAdress.13=1
LOW SS
SHIFTOUT MOSI,SCLK,0,[ISDAdress\16] 'SetPlay cmd
HIGH SS
pause 20
return



I am new to pasting code and I hope my EDITS did not
destroy any of the code.

Good luck