AT89C51與ISD4004的接口及錄音/放音程序設計

SS       EQU   P1.0           ；片選
SCLK    EQU   P1.1           ；ISD4004時鐘
MOIS    EQU   P1.2           ；數據輸入
MISO    EQU   P1.3           ；數據輸出
INT      EQU   P1.4          ；中斷
 ；初始化
   ORG      0000H ；
   LJMP     MAIN ；
MAIN：  ORG     SP，#10H；          
   MOV     P1，#0FFH；
         MOV     P2，#0FFH;
         MOV     P3，#0FFH;
         MOV     P0，#0FFH;
         CLR      EA;

MAIN：  SETB    LED                ;關指示燈
         LCALL   DSTOP              ;ISD掉電
MISO： MOV      3AH，#200;
MOSI： JB        AN，MISO          ;等按AN鍵
        DJNZ     3AH，MOS1 ;
        LCALL   UP                  ;ISD上電
        MOV     20H，#00H           ;低8位地址
        MOV     21H，#00H           ;高8位地址
        JB        PR， REC           ;PR=1 錄音
        LJMP     PLAY                ;PR=0 放音
SETREC：                              ；指定地址錄音
MOV    20H，#00H            ；低八為地址
MOV    21H，#00H            ；高八位地址
MOV    22H，#0a0H           ；操作碼
MOV    A，20H
LCALL  ISDX
MOV    A，21H
LCALL  ISDX
MOV    A，22H
LCALL  ISDX
         SETB    SS

;REC   8位
;從當前地址錄音  10110 <X A9 A8 A7 A6 A5 A4 A3 A2 A1 A0 >
REC1： MOV    36H，#10;
REC2：LCALL   YS50                 ;延時錄音
       DJNZ     36H，REC2 ;
       MOV     A，0B0H             ; 發 1011 0XXX
       LCALL   ISDX;
       SETB     SS                   ;關片選
REC3： MOV    35H，#200;
REC4： JNB     INT，REC7          ;OVF=0芯片溢出
        JNB     AN，REC3 ;
        DJNZ    35H，REC4 
        LCALL   STOPP            ;停止當前操作
REC5： JNB     STOP，REC6       ;中斷RESET
        JB      AN，REC5         ;等待AN=0
        LCALL  STOPP            ;停止當前操作
        LJMP    REC1;
REC6： CLR     SCLK              ;時鐘SCLK=0
        SETB    SS                ;關片選
        LCALL  STOPP             ;停止當前操作
        LJMP    MAII            ;
REC7： LCALL  YS50             ;延時錄音
        JB      AN，REC6        ;等待AN=1
        DJNZ   36H，REC7 ;
SETPLAY：                      ；指定地址錄音
MOV   20H，#00H       ；低八為地址
MOV   21H，#00H       ；高八位地址
MOV   22H，#0E0H      ；操作碼
MOV   A，20H
LCALL  ISDX
MOV   A，21H
LCALL  ISDX
MOV   A，22H
LCALL  ISDX
        SETB  SS

;PLAY   8位
;從當前地址放音  11110 <X A9 A8 A7 A6 A5 A4 A3 A2 A1 A0 >
PLAY1：MOV     A，#0F0H         ;發 11110 XXXXXXXX
        LCALL   ISDX              ;發 << SETPLAY >>
        SETB     SS                ;關片選
PLAY2： JNB     STOP，REC6       ;STOP=0停止放音
         JB       INT，PLAY2       ;無OVF、 EOM繼續放音
         LCALL   STOPP            ;停止當前操作
;檢測OVF
        CLR      SS                ;開片選
        CLR      SCLK             ;時鐘SCLK=0
        SETB     SCLK             ;時鐘SCLK=1
        JB        MISO，REC6      ;芯片到未
        CLR      SCLK             ;時鐘SCLK=0
        SETB    SS                 ;關片選
        LCALL   STOPP             ;停止當前操作
PLAY3:  JNB     STOP，REC6       ;中斷放音
         JB      AN，PLAY3        ;等待AN=0
        LJMP    PLAY1             ;順序放音
;ISD上電 << POWERUP >>
UP：    MOV    A，#20H          ;發00100 XXXXXXXXXXX
        LCALL   ISDX;
        SETB     SS               ;關片選
        LCALL   YS50             ;50mS延時
        LCALL   YS50             ;50mS延時
        RET;

;停止當前操作<< STOP >>  8位
STOPP： MOV    A，#30H          ;發 0X11 0XXX
         LCALL  ISDX ;
         SETB    SS               ;關片選
         LCALL  YS50            ;50mS延時
         LCALL  YS50            ;50mS延時
         RET                   ;

;停止當前操作掉電<< STOPPWRDN >>   8位
DSTOP： MOV    A，#10H          ;發0X010 XXXXXXXXXX
         LCALL   ISDX;
         SETB     SS              ;關片選
         LCALL   YS50            ;50mS延時
         LCALL   YS50            ;50mS延時
         RET                   ;
;ISD4004 SPI寫入程序 8位數據在A
ISDX：  CLR     SS               ;開片選
         MOV    R6，#8           ;
         CLR     SCLK            ;時鐘SCLK=0
ISD1：  MOV    C，ACC.0;
        MOV    MOSI，C           ;數據寫 MOSI
        SETB    SCLK             ;時鐘SCLK=1
        RR      A;
        CLR     SCLK             ;時鐘SCLK=0
        DJNZ    R6，ISD1;
        RET;

;**** 10mS延時  ****
YS10：  MOV    TMOD，#01H ;
        MOV     TH0，#0D8H      ;10mS延時初值置入
        MOV     TL0，#0F0H      ;(65536-X)*1=10MS
        SETB     TR0;              65536-(10000/1)=D8F0H
        JNB      TF0,$ ;
        CLR      TF0;
        CLR      TR0;
        RET;


;**** 50mS延時  ****
YS50：  MOV   TMOD，#01H ;
        MOV   TH0，#3CH         ;50mS延時初值置入
        MOV   TL0，#0B0H        ;(65536-X)*1=50MS
        SETB   TR0               ;65536-(50000/1)
        JNB    TF0，$ ;
        CLR    TF0;
        CLR    TR0;
    RET;
    END;

LCALL  ISDX
        SETB  SS