89C51-ISD5116语音单片机通用开发板--中青世纪

----------------------------REC 8位
;---------------------------从当前地址录音
REC1: MOV 36H,#10 ;延时2秒钟为开头
REC2: LCALL YS50
DJNZ 36H,REC2
CLR LED ;开指示灯
LCALL BEGN
MOV A,#080H ;从地址10000000（写）
LCALL TB
MOV A,#90H ;录音开始
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
REC3: MOV 35H,#200
REC4: JNB INT,REC7 ;OVF=0芯片溢出
JNB START,REC3
DJNZ 35H,REC4
SETB LED ;关指示灯
ACALL STOPP ;停止当前操作
REC5: JNB STOP,REC6 ;按STOP=0，回到开始
JB START,REC5 ;等待，按START=0回到第二节录音
ACALL STOPP
AJMP REC1
REC6: ACALL STOPP ;停止当前操作
AJMP MAII ;回到开始MAII
REC7: SETB LED ;关指示灯
MOV 36H,#15
REC8: LCALL YS50 ;延时录音
JB START,REC6 ;等待START=1，回到开始MAII
DJNZ 36H,REC8 ;继续按START，开始下一节
CLR LED
MOV 36H,#15
REC9: LCALL YS50 ;延时录音
JB START,REC6 ;等待START=1，回到开始MAII
DJNZ 36H,REC9
AJMP REC7
;=================================ISD上电《POWERUP》
UP: LCALL BEGN
MOV A,#080H ;从地址10000000（写）
LCALL TB
MOV A,#080H ;发送POWER UP指令
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
LCALL YS50
LCALL YS50
RET
;-----------------------停止当前操作掉电《STOPPWRDN》 8位
DSTOP: LCALL BEGN
MOV A,#080H ;发送5116的从地址10000000（写）
LCALL TB
MOV A,#000H ;发送POWER DOWN指令
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
LCALL YS50
LCALL YS50
RET
;====================================选择录音音质
SAMP8A: LCALL BEGN
MOV A,#080H ;从地址10000000（写）
LCALL TB
MOV A,#082H ;命令CFG0
LCALL TB
MOV A,#024H ;麦克风录音高字节
LCALL TB
MOV A,#023H ;麦克风录音低字节
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
;-------------------------
LCALL BEGN
MOV A,#080H ;从地址10000000（写）
LCALL TB
MOV A,#083H ;命令CFG1
LCALL TB
MOV A,#039H ;麦克风录音高字节
LCALL TB
MOV A,#040H ;麦克风录音低字节
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
RET
;-----------------------------
SAMP8B: LCALL BEGN
MOV A,#080H ;从地址10000000（写）
LCALL TB
MOV A,#082H ;命令CFG0
LCALL TB
MOV A,#03AH ;麦克风录音高字节
LCALL TB
MOV A,#033H ;麦克风录音低字节
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
;-------------------------
LCALL BEGN
MOV A,#080H ;从地址10000000（写）
LCALL TB
MOV A,#083H ;命令CFG1
LCALL TB
MOV A,#039H ;麦克风录音高字节
LCALL TB
MOV A,#041H ;麦克风录音低字节
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
RET
;-----------------------------------------
SAMP6A: LCALL BEGN
MOV A,#080H ;从地址10000000（写）
LCALL TB
MOV A,#082H ;命令CFG0
LCALL TB
MOV A,#024H ;麦克风录音高字节
LCALL TB
MOV A,#023H ;麦克风录音低字节
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
;----------------------------
LCALL BEGN
MOV A,#080H ;从地址10000000（写）
LCALL TB
MOV A,#083H ;命令CFG1
LCALL TB
MOV A,#039H ;麦克风录音高字节
LCALL TB
MOV A,#044H ;麦克风录音低字节
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
RET
;-------------------------------------
SAMP6B: LCALL BEGN
MOV A,#080H ;从地址10000000（写）
LCALL TB
MOV A,#082H ;命令CFG0
LCALL TB
MOV A,#03AH ;麦克风录音高字节
LCALL TB
MOV A,#033H ;麦克风录音低字节
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
;----------------------------
LCALL BEGN
MOV A,#080H ;从地址10000000（写）
LCALL TB
MOV A,#083H ;命令CFG1
LCALL TB
MOV A,#039H ;麦克风录音高字节
LCALL TB
MOV A,#045H ;麦克风录音低字节
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
RET
;-------------------------------------
SAMP4A: LCALL BEGN
MOV A,#080H ;从地址10000000（写）
LCALL TB
MOV A,#082H ;命令CFG0
LCALL TB
MOV A,#024H ;麦克风录音高字节
LCALL TB
MOV A,#023H ;麦克风录音低字节
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
;--------------------------
LCALL BEGN
MOV A,#080H ;从地址10000000（写）
LCALL TB
MOV A,#083H ;命令CFG1
LCALL TB
MOV A,#039H ;麦克风录音高字节
LCALL TB
MOV A,#04CH ;麦克风录音低字节
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
RET
;------------------------------
SAMP4B: LCALL BEGN
MOV A,#080H ;从地址10000000（写）
LCALL TB
MOV A,#082H ;命令CFG0
LCALL TB
MOV A,#03AH ;麦克风录音高字节
LCALL TB
MOV A,#033H ;麦克风录音低字节
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
;--------------------------
LCALL BEGN
MOV A,#080H ;从地址10000000（写）
LCALL TB
MOV A,#083H ;命令CFG1
LCALL TB
MOV A,#039H ;麦克风录音高字节
LCALL TB
MOV A,#04DH ;麦克风录音低字节
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
RET
;====================================选择高低放音音质
PSAMP8H: LCALL BEGN
MOV A,#080H ;从地址10000000（写）
LCALL TB
MOV A,#082H ;命令CFG0
LCALL TB
MOV A,#024H ;麦克风录音高字节
LCALL TB
MOV A,#022H ;麦克风录音低字节
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
;-------------------------
LCALL BEGN
MOV A,#080H ;从地址10000000（写）
LCALL TB
MOV A,#083H ;命令CFG1
LCALL TB
MOV A,#059H ;麦克风录音高字节
LCALL TB
MOV A,#0D1H ;麦克风录音低字节
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
RET
;-------------------------------------------------
PSAMP8L: LCALL BEGN
MOV A,#080H ;从地址10000000（写）
LCALL TB
MOV A,#082H ;命令CFG0
LCALL TB
MOV A,#024H ;麦克风录音高字节
LCALL TB
MOV A,#022H ;麦克风录音低字节
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
;-------------------------
LCALL BEGN
MOV A,#080H ;从地址10000000（写）
LCALL TB
MOV A,#083H ;命令CFG1
LCALL TB
MOV A,#079H ;麦克风录音高字节
LCALL TB
MOV A,#0D1H ;麦克风录音低字节
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
RET
;-----------------------------------------
PSAMP6H: LCALL BEGN
MOV A,#080H ;从地址10000000（写）
LCALL TB
MOV A,#082H ;命令CFG0
LCALL TB
MOV A,#024H ;麦克风录音高字节
LCALL TB
MOV A,#022H ;麦克风录音低字节
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
;----------------------------
LCALL BEGN
MOV A,#080H ;从地址10000000（写）
LCALL TB
MOV A,#083H ;命令CFG1
LCALL TB
MOV A,#059H ;麦克风录音高字节
LCALL TB
MOV A,#0D5H ;麦克风录音低字节
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
RET
;-----------------------------------------
PSAMP6L: LCALL BEGN
MOV A,#080H ;从地址10000000（写）
LCALL TB
MOV A,#082H ;命令CFG0
LCALL TB
MOV A,#024H ;麦克风录音高字节
LCALL TB
MOV A,#022H ;麦克风录音低字节
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
;----------------------------
LCALL BEGN
MOV A,#080H ;从地址10000000（写）
LCALL TB
MOV A,#083H ;命令CFG1
LCALL TB
MOV A,#079H ;麦克风录音高字节
LCALL TB
MOV A,#0D5H ;麦克风录音低字节
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
RET
;-------------------------------------
PSAMP4H: LCALL BEGN
MOV A,#080H ;从地址10000000（写）
LCALL TB
MOV A,#082H ;命令CFG0
LCALL TB
MOV A,#024H ;麦克风录音高字节
LCALL TB
MOV A,#022H ;麦克风录音低字节
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
;--------------------------
LCALL BEGN
MOV A,#080H ;从地址10000000（写）
LCALL TB
MOV A,#083H ;命令CFG1
LCALL TB
MOV A,#059H ;麦克风录音高字节
LCALL TB
MOV A,#0DDH ;麦克风录音低字节
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
RET
;-------------------------------------
PSAMP4L: LCALL BEGN
MOV A,#080H ;从地址10000000（写）
LCALL TB
MOV A,#082H ;命令CFG0
LCALL TB
MOV A,#024H ;麦克风录音高字节
LCALL TB
MOV A,#022H ;麦克风录音低字节
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
;--------------------------
LCALL BEGN
MOV A,#080H ;从地址10000000（写）
LCALL TB
MOV A,#083H ;命令CFG1
LCALL TB
MOV A,#059H ;麦克风录音高字节
LCALL TB
MOV A,#0DDH ;麦克风录音低字节
LCALL TB
NOP
NOP
SETB P1.1
NOP
NOP
LCALL STOPII
RET
;==============================开始信号子程序
BEGN: SETB P1.1
SETB P1.0
CLR P1.0
NOP
NOP
CLR P1.1
RET
;------------------------结束信号子程序
STOPII: CLR P1.1
CLR P1.0
NOP
NOP
SETB P1.1
SETB P1.0
RET
;------------------------发送一字节子程序
TB: MOV R6,#08H
TB1: CLR P1.1
NOP
RLC A
MOV P1.0,C
SETB P1.1
NOP
DJNZ R6,TB1
CLR P1.1
SETB P1.0
NOP
NOP
SETB P1.1
TB2: JB P1.0,TB2
RET
;-----------------------接收一字节子程序
RB: MOV R7,#08H
CLR P1.1
SETB P1.0
NOP
NOP
RB1: SETB P1.1
NOP
MOV C,P1.0
RLC A
CLR P1.1
NOP
DJNZ R7,RB1
RET
;--------------------10ms延时
YS1: MOV TMOD,#01H
MOV TH0,#0D8H
MOV TL0,#0F0H
SETB TR0
JNB TF0,$
CLR TF0
CLR TR0
RET
;--------------------50ms延时
YS50: MOV TMOD,#01H
MOV TH0,#3CH
MOV TL0,#0B0H
SETB TR0
JNB TF0,$
CLR TF0
CLR TR0
RET
;-----------------------------
END