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