找回密碼
 立即注冊(cè)

QQ登錄

只需一步,快速開始

搜索
查看: 3998|回復(fù): 0
收起左側(cè)

ISD4004錄音程序

[復(fù)制鏈接]
ID:93384 發(fā)表于 2015-10-25 22:34 | 顯示全部樓層 |閱讀模式
#include <reg51.h>
#include <intrins.h>
#define uchar unsigned  char
#define uint  unsigned  int
sbit SS=P1^0;    //片選      
sbit MOSI=P1^1;  //數(shù)據(jù)輸入
sbit MISO=P1^2;  //數(shù)據(jù)輸出
sbit SCLK=P1^3;  //SID4004時(shí)鐘
//sbit ISD_INT=P3^1;  //中斷
sbit K1=P3^2;
sbit K2=P3^3;
sbit AN=P3^4;   //執(zhí)行
//sbit STOP=P1^5;  //復(fù)位
//sbit PR=P1^6;   //PR=1錄音,PR=0放音  
sbit LED=P0^0;  //指示燈
void delayms(uint z)
{
uint x,y;
for(x=z;x>0;x--)
  for(y=110;y>0;y--);
}
uint  addr;////全局變量////  放音地址  
////////////////放音部分子程序,放音地址由ADDR決定////
void play()
{  uint y;
SS=0;
MOSI=0;//發(fā)送開始
SCLK=0;
for(y=0;y<8;y++)
{
  SCLK=0;
  if((0x20>>y)&0x01)MOSI=1;
  else MOSI=0;
  _nop_();
  _nop_();
  _nop_();
  SCLK=1;
  _nop_();
  _nop_();
  _nop_();
}//發(fā)送結(jié)束
SS=1;//上電結(jié)束
delayms(50);
SS=0;
MOSI=0;//發(fā)送地址
SCLK=0;
for(y=0;y<16;y++)
{
  SCLK=0;
  if((addr>>y)&0x01)MOSI=1;
  else MOSI=0;
  _nop_();
  _nop_();
  _nop_();
  SCLK=1;
  _nop_();
  _nop_();
  _nop_();
}//發(fā)送地址結(jié)束
MOSI=0;//從指定地址開始放音
SCLK=0;
for(y=0;y<8;y++)
{
  SCLK=0;
  if((0xe0>>y)&0x01)MOSI=1;
  else MOSI=0;
  _nop_();
  _nop_();
  _nop_();
  SCLK=1;
  _nop_();
  _nop_();
  _nop_();
}
SS=1;
SS=0;
MOSI=0;//放音
SCLK=0;
for(y=0;y<8;y++)
{
  SCLK=0;
  if((0xf0>>y)&0x01)MOSI=1;
  else MOSI=0;
  _nop_();
  _nop_();
  _nop_();
  SCLK=1;
  _nop_();
  _nop_();
  _nop_();
}
SS=1;   }
//////////////////////////錄音部分子程序,地址由ADDR決定/////////////////////////
void rec()               
{  uint y;
SS=0;
MOSI=0;//發(fā)送開始
SCLK=0;
for(y=0;y<8;y++)
{
  SCLK=0;
  if((0x20>>y)&0x01)MOSI=1;
  else MOSI=0;
  _nop_();
  _nop_();
  _nop_();
  SCLK=1;
  _nop_();
  _nop_();
  _nop_();
}//發(fā)送結(jié)束
SS=1;//上電結(jié)束
delayms(50);
SS=0;
MOSI=0;//發(fā)送開始
SCLK=0;
for(y=0;y<8;y++)
{
  SCLK=0;
  if((0x20>>y)&0x01)MOSI=1;
  else MOSI=0;
  _nop_();
  _nop_();
  _nop_();
  SCLK=1;
  _nop_();
  _nop_();
  _nop_();
}//發(fā)送結(jié)束
SS=1;//上電結(jié)束
delayms(50);
delayms(50);
SS=0;
MOSI=0;//發(fā)送地址
SCLK=0;
for(y=0;y<16;y++)
{
  SCLK=0;
  if((addr>>y)&0x01)MOSI=1;
  else MOSI=0;
  _nop_();
  _nop_();
  _nop_();
  SCLK=1;
  _nop_();
  _nop_();
  _nop_();
}//發(fā)送地址結(jié)束
MOSI=0;
SCLK=0;
for(y=0;y<8;y++)
{
  SCLK=0;
  if((0xa0>>y)&0x01)MOSI=1;
  else MOSI=0;
  _nop_();
  _nop_();
  _nop_();
  SCLK=1;
  _nop_();
  _nop_();
  _nop_();
}
SS=1;
SS=0;
MOSI=0;
SCLK=0;
for(y=0;y<8;y++)
{
  SCLK=0;
  if((0xb0>>y)&0x01)MOSI=1;
  else MOSI=0;
  _nop_();
  _nop_();
  _nop_();
  SCLK=1;
  _nop_();
  _nop_();
  _nop_();
}
SS=1;   
}
////////////////////////////////////
////////////////////////////////
void stop()
{
    uchar y;
SS=1;
SS=0;
MOSI=0;//放音
SCLK=0;
for(y=0;y<8;y++)
{
  SCLK=0;
  if((0x30>>y)&0x01)MOSI=1;
  else MOSI=0;
  _nop_();
  _nop_();
  _nop_();
  SCLK=1;
  _nop_();
  _nop_();
  _nop_();
}
SS=1;
}
////////////////////////////////////void press_key()
void main()
{  P1=0xff;
   P0=0XFF;
   LED=0;
while(1)
   {
      if(K1==0)
      {delayms(10);
       while(K1==0); ///松手判斷
      LED=1;
       addr=0X00;/////從0X00單元開始
       rec();
    P1=0XFF;
    }
   if(K2==0)
      {
     delayms(10);
       while(K2==0);
       LED=1;
       addr=0X00;
       play();
    P1=0XFF;
      }
   if(AN==0)
      {delayms(10);
       while(AN==0);
    LED=0;
        stop();
       P1=0XFF;
      }
     }
}

評(píng)分

參與人數(shù) 1黑幣 +45 收起 理由
admin + 45 共享資料的積分獎(jiǎng)勵(lì)!

查看全部評(píng)分

相關(guān)帖子

回復(fù)

使用道具 舉報(bào)

本版積分規(guī)則

手機(jī)版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表