shengyinlufangchengxu.asm

来自「利用单片机进行声音的录放,可实现录音和播放的功能.」· 汇编 代码 · 共 83 行

INITIAL: MOV  IE, #95H
         MOV  SCON ,#00h
         MOV  B0H,#0FH
POWERUP: CLR  P2.0
         CLR P2.1
         NOP
         MOV  SBUF,#00100000B
         ACALL  DELAY50MS
PLAY:    ORL  P2,#0F8H
         CLR  P2.3
         MOV  A,#11110000B
         ACALL  SEND
         JMP  SCAN
REC:     CLR  P2.0 ;POWERUP:
         CLR  P2.1
         NOP
         MOV  SBUF,#00100000B
         ACALL  DELAY50MS 
         ACALL  DELAY50MS 
         ORL  P2,#0F8H         ;RESUME
         CLR  P2.7
         CLR  IE.4
         MOV  A,#00H
         ACALL  SEND
         NOP
         CLR  SCON.1
         MOV  A,#00H
         ACALL  SEND
         NOP
         CLR  SCON.1
         SETB  IE.4
         MOV  A,#10100000B
         ACALL  SEND
         NOP
         ORL  P2,#0F8H
         CLR  P2.4
         MOV  A,#10110000B
         ACALL  SEND
        JMP  SCAN
DELAY50MS:MOV  R1,#60H
LOOP1:   MOV  R2,#0FFH
LOOP2:   NOP
         NOP
          DJNZ  R2,LOOP2
         DJNZ  R1,LOOP1
          RET
          NOP
INT0:    MOV  B,A
         JNB  P1.5,OVER
RINT:    MOV  A,#00110000B
         ACALL  SEND
         NOP
RECEIVE: CLR  P2.0
         CLR  P2.2
         NOP
         MOV  SCON,#10H
         NOP
AGAIN:   MOV  A,SBUF
         JNB  ACC.0,OTHER
OVF:     CLR  IE.4
         MOV  A,#00H
         ACALL  SEND
         NOP
         CLR  SCON.1
         MOV  A,#00H
         ACALL  SEND
         NOP
         CLR  SCON.1
         SETB  IE.4
         MOV  A,B
         ANL  A,#0E7H
         ACALL  SEND
         NOP
GOINGON: MOV  A,B
         CLR  ACC.3
         ACALL  SEND 
         NOP
OVER:    RETI
OTHER:   JNB  ACC.1,AGAIN
EOM:     JMP  GOINGON
        NOP
         END