综合设计数字录音机.doc

程序流程图如下： 录音子程序流程图：延时子程序流程图：放音子程序流程图：DATAS SEGMENT ioport equ 0c400h-280h io0809 equ ioport+29ah io0832 equ ioport+290h io8253 equ ioport+280h io8255 equ ioport+288h io8253c equ ioport+283h io8255c equ ioport+28bh msg0 db,0dh,0ah,$ msg1 db 0dh,0ah,0dh,0ah,$ msg2 db 0dh,0ah,0dh,0ah,$ msg3 db 0dh,0ah,0dh,0ah,$ msg4 db 0dh,0ah,Recording.,0dh,0ah,$ msg5 db 0dh,0ah,Playing.,0dh,0ah,$ msg6 dbInput:,$ msg7 db 0dh,0ah,Thank you!,0dh,0ah,$ msg8 db 0dh,0ah,Record Complete!,0dh,0ah,$ msg9 db 0dh,0ah,Play Over.,0dh,0ah,$; msg10 db 0dh,0ah,If you want to pause,press any key!,$ msg11 db 0dh,0ah,0dh,0ah,$ msg12 db,0dh,0ah,$ buf db 60000 dup(?) DATAS ENDSCODES SEGMENTASSUME CS:CODES,DS:DATASSTART:MOV AX,DATASMOV DS,AXMOV DX,OFFSET MSG0 ;显示按R开始MOV AH,09H INT 21H MOV DX,OFFSET MSG6 ;显示并等待inputMOV AH,09H INT 21HCHOOSE0: ;直到输入r为止才开始录音MOV AH,1 INT 21HCMP AL,R JZ OK0CMP AL,r JZ OK0MOV DX,OFFSET MSG1 ;提示输入错误，继续要输入MOV AH,09H INT 21HMOV DX,OFFSET MSG6MOV AH,09H INT 21H JNZ CHOOSE0OK0:MOV DX,OFFSET MSG4 ;开始录音MOV AH,09H INT 21HMOV DI,OFFSET BUFMOV CX,30000REC:MOV DX,IO0809 ;启动0809将模拟信号转化成数字信号 OUT DX,AL CALL DELAY IN AL,DX ;输入转化数据MOV DI,AL INC DILOOP REC ;一直循环30000次，因为cx=30000OK2:MOV DX,OFFSET msg8MOV AH,09H INT 21HMOV DX,OFFSET MSG2MOV AH,09H INT 21HMOV DX,OFFSET MSG6MOV AH,09H INT 21HCHOOSE1: ;按p进行播音MOV AH,1 INT 21HCMP AL,P JZ OK1CMP AL,p JZ OK1MOV DX,OFFSET MSG3MOV AH,09H INT 21HMOV DX,OFFSET MSG6 MOV AH,09H INT 21H JNZ CHOOSE1 ;直到按了p才进行播音OK1:MOV DX,OFFSET MSG5MOV AH,09H INT 21HMOV DI,OFFSET BUFMOV CX,30000PLAY:MOV DX,IO0832 ;启动0832将数字转换成模拟信号，播音MOV AL,DI OUT DX,AL CALL DELAYINC DI LOOP PLAY ;一直播放直到cx=0MOV DX,OFFSET msg9MOV AH,09H INT 21HMOV DX,OFFSET msg11MOV AH,09H INT 21H MOV DX,OFFSET msg12MOV AH,09H INT 21HREPLAY: ;重新播放MOV DX,OFFSET MSG6MOV AH,09H INT 21HMOV AH,1 INT 21HCMP AL,R JZ OK1CMP AL,r JZ OK1 ;按r是重新播放CMP AL,Q ;按q是退出 JZ QUITCMP AL,q JZ QUIT MOV DX,OFFSET MSG1MOV AH,09H INT 21H JNZ REPLAYQUIT: MOV DX,OFFSET msg7MOV AH,09H INT 21H MOV AH,4CH INT 21HDELAY PROC NEARPUSH DXMOV DX,IO8253CMOV AL,10H ;工作方式0，二进制计数 OUT DX,AL MOV DX,IO8253MOV AL,200 ;每秒以5千次的速率采集（1mhz/5000） OUT DX,ALMOV DX,IO8255CMOV AL,90H ;8255A进C出 OUT DX,ALMOV DX,IO8255OUTTEST: IN AL,DX ;将out0(pa0)的数据放在al TEST AL,01 ;检查计数器的out0是不是高电平 JZ OUTTESTPOP DX ;复位 RETDELAY ENDP CODES ENDSEND START运行结果：Input Error!Please input R or r to continue，.按下r后开始录音，录完音后屏幕显示：Press P to play record，即按P就开始放刚才录的音了，放完后显示：In