IOY3EQU 06C0H

MY8254_COUNT0EQU IOY3+00H ;8254计数器0端口地址

MY8254_COUNT1EQU IOY3+02H ;8254计数器1端口地址

MY8254_COUNT2EQU IOY3+04H ;8254计数器2端口地址

MY8254_MODEEQU IOY3+06H ;8254控制寄存器端口地址

DATA SEGMENT

DTABLEDB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH ;0 1 2 3 4 5 6 7 8 对应的数码管的状态

FREQ_LIST DW 877,0 ;蜂鸣器的频率

TIME_LIST DB 1 ;蜂鸣器的时间长短

DATA ENDS

SSTACK SEGMENT STACK

DW 32 DUP(?)

SSTACK ENDS

CODE SEGMENT

ASSUME CS:CODE,SS:SSTACK,DS:DATA

START:

MOV AX,DATA

MOV DS,AX

MOV DX,MY8254_MODE ;初始化8254工作方式

MOV AL,36H ;定时器0、方式3

OUT DX,AL

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

MOV DX, 0646H ;初始化8255

MOV AL, 90H

OUT DX, AL

PUSH DS

MOV AX, 0000H

MOV DS, AX

MOV AX, OFFSET MIR7

MOV SI, 003CH

MOV [SI], AX

MOV AX, CS

MOV SI, 003EH

MOV [SI], AX

CLI

POP DS

;初始化主片8259

MOV AL, 11H

OUT 20H, AL;ICW1

MOV AL, 08H

OUT 21H, AL;ICW2

MOV AL, 04H

OUT 21H, AL;ICW3

MOV AL, 01H

OUT 21H, AL;ICW4

MOV AL, 6FH;OCW1

OUT 21H, AL

STI

AAA1:

NOP

JMP AAA1 ;主函数，死循环

MIR7:STI ;中断程序

PUSH AX

PUSH DX

MOV DX,0644H

MOV AL,10H

OUT DX,AL

POP DX

POP AX

MOV DX,0642H

MOV AL,3FH

OUT DX,AL

AA1: ;读入A口的输入，即开关的状态

MOV DX, 0640H

IN AL, DX

CMP AL,00000000B

JNZ AA3 ;如果未有开关置1，向下执行，否则跳到AA3

;MOV DX,0642H

;MOV AL,3FH

;OUT DX,AL

JMP AA1

;;;;;;;;;;;;;;;;;;;;;;;;;;;

AA3: ;;;;;;;;;;;;;;;;;;;;;; ;AA3---AA10 为8个开关对应的状态，用二进制01序列依次比较

PUSH AX

PUSH DX

MOV DX,0644H

MOV AL,08H

OUT DX,AL

POP DX

POP AX

PUSH DX

PUSH AX

BEGIN:MOV SI,OFFSET FREQ_LIST ;装入频率表起始地址

MOV DI,OFFSET TIME_LIST ;装入时间表起始地址

PLAY:MOV DX,0FH ;输入时钟为1MHz，1M = 0F4240H

MOV AX,4240H

DIV WORD PTR [SI] ;取出频率值计算计数初值，0F4240H / 输出频率

MOV DX,MY8254_COUNT0

OUT DX,AL ;装入计数初值

MOV AL,AH

OUT DX,AL

MOV DL,[DI] ;取出演奏相对时间，调用延时子程序

CALL DALLY

ADD SI,2

INC DI

CMP WORD PTR [SI],0 ;判断是否到曲末？

JE EX

JMP PLAY

EX:

MOV DX,MY8254_MODE ;初始化8254工作方式

MOV AL,36H ;定时器0、方式3

OUT DX,AL

JMP AAAAA1

DALLYPROC ;延时子程序

D0:MOV CX,0010H

D1:MOV AX,0FF0H

D2:DEC AX

JNZ D2

LOOP D1

DEC DL

JNZ D0

RET

DALLYENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

AAAAA1: POP AX

POP DX

CMP AL,00000001B

JNZ AA4

MOV DX, 0642H

MOV AL,06H

OUT DX,AL

MOV AL, 20H

JMP EXI

AA4: CMP AL, 00000010B

JNZ AA5

MOV DX, 0642H

MOV AL,5BH

OUT DX,AL

MOV AL, 20H

JMP EXI

AA5: CMP AL,00000100B

JNZ AA6

MOV DX, 0642H

MOV AL,4FH

OUT DX,AL

MOV AL, 20H

JMP EXI

AA6: CMP AL, 00001000B

JNZ AA7

MOV DX, 0642H

MOV AL,66H

OUT DX,AL

MOV AL, 20H

JMP EXI

AA7: CMP AL, 00010000B

JNZ AA8

MOV DX, 0642H

MOV AL,6DH

OUT DX,AL

MOV AL, 20H

JMP EXI

AA8: CMP AL, 00100000B

JNZ AA9

MOV DX, 0642H

MOV AL,7DH

OUT DX,AL

MOV AL, 20H

JMP EXI

AA9: CMP AL, 01000000B

JNZ AA10

MOV DX, 0642H

MOV AL,07H

OUT DX,AL

MOV AL, 20H

JMP EXI

AA10: CMP AL,10000000B

MOV DX, 0642H

MOV AL,7FH

OUT DX,AL

MOV AL, 20H

EXI:OUT 20H, AL;中断结束命令

IRET

JMP AA1

CODEENDS

END START