仿真原理圖如下（proteus仿真工程文件可到本帖附件中下載）
BUTTON EQU 0280H
GATE1 EQU 0290H
TCONTR0 EQU 02A6H
TCON0 EQU 02A0H
TCON1 EQU 02A2H
TCON2 EQU 02A4H
DATA SEGMENT
F_LIST DW 441,495,556,441,441,495,556,441
DW 556,589,661,556,589,661
DW 661,742,661,589,556,441
DW 441,330,441,441,330,441
DW 523,523,784,784,880,880,784
DW 698,698,659,659,587,587,523
DW 784,784,698,698,659,659,587
DW 784,784,698,698,659,659,587
DW 523,523,784,784,880,880,784
DW 698,698,659,659,587,587,523,0
T_LIST DW 2,2,2,2,2,2,2,2
DW 2,2,4,2,2,4
DW 1,1,1,1,2,2
DW 2,2,4,2,2,4
DW 2,2,2,2,2,2,2
DW 1,1,1,1,1,1,1
DW 1,1,1,1,1,1,1
DW 2,2,2,2,2,2,2
DW 2,2,2,2,2,2,2
DW 2,2,2,2,2,2,2
CLK DW 34DDH,12H
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START: MOV AX,DATA
MOV DS,AX
MOV AL,76H
MOV DX,TCONTR0
OUT DX,AL
SCANBUTTON:
MOV DX,BUTTON
IN AL,DX
AND AL,01H
JZ SCANBUTTON
MOV AL,01
MOV DX,GATE1
OUT DX,AL
REPEAT1:MOV SI,OFFSET F_LIST
MOV DI,OFFSET T_LIST
AGAIN: MOV BX,[SI]
MOV AX,CLK
MOV DX,CLK+2
DIV BX
MOV DX,TCON1
OUT DX,AL
MOV AL,AH
OUT DX,AL
MOV CX,[DI]
LP1: CALL DELAY
LOOP LP1
ADD SI,2
ADD DI,2
CMP WORD PTR [SI],0
JZ REPEAT1
MOV DX,BUTTON
IN AL,DX
AND AL,01H
JZ EXIT
JMP AGAIN
EXIT: MOV AL,00H
MOV DX,GATE1
OUT DX,AL
JMP SCANBUTTON
DELAY PROC
PUSH BX
PUSH CX
MOV BX,40
L1: MOV CX,2801
L2: LOOP L2
DEC BX
JNZ L1
POP CX
POP BX
RET
DELAY ENDP
CODE ENDS
END START
仿真程序下載(注意有些電腦可能會仿真無效果):
12 電子發聲器設計.rar
(80.99 KB, 下載次數: 32)
2022-5-2 12:09 上傳
點擊文件名下載附件
|
