Isd4002

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

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

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

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

YZ7REA Vladimir

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