CODE SEGMENT

ASSUME CS:CODE

START: PUSH CS

POP DS;数据段和代码段共用一个地址

JMP MAIN

NUM DB 08H,04H,02H,01H; 定义循环控制信号

DAT1 DB 0H ;定义循环参量

DAT2 DB 0H

;---------初始化8253计数器-----------

MAIN:MOV DX,203H;计数器0初始化，工作在方式3

MOV AL,36H

OUT DX,AL

MOV DX,200H;给计数器0赋计数初值960H(2400)

MOV AL,60H ;低8位

OUT DX,AL

MOV AL,09H ;高8位

OUT DX,AL

MOV DX,203H;计数器1初始化，工作在方式3

MOV AL,76H

OUT DX,AL

MOV DX,201H;给计数器1赋计数处值80H(128)

MOV AL,80H ;低8位

OUT DX,AL

MOV AL,00H ;高8位

OUT DX,AL

;-----------初始化8255---------------

MOV DX,021BH;A口输入，B口输出

MOV AL,90H

OUT DX,AL

;-----------初始化向量表8号中断--------

MOV AX,0;ES:DI

MOV ES,AX

MOV DI,20H;4*8=32

MOV AX,OFFSET INTP;装载中断函数的偏移地址

MOV ES:[DI],AX

MOV AX,8100H;

MOV ES:[DI+2],AX

;-------------初始化8259A--------------

MOV DX,210H;ICW1初始化

MOV AL,13H;上升沿触发，单片，要ICW4

OUT DX,AL

MOV DX,211H;ICW2初始化

MOV AL,08H;初始化中断类型码范围，08-0F对应INT0-INT7

OUT DX,AL

MOV DX,211H;ICW4初始化

MOV AL,01H;

OUT DX,AL

;--------------打开中断--------------

MOV DX,211H;打开8259A八号中断

IN AL,DX

AND AL,0FEH;1111 1110

OUT DX,AL

STI;开CPU中断，IF=1

MOV BX,OFFSET NUM;取控制信号的偏移地址

MOV SI,0 ;将SI循环归零

LOP: MOV AX,0

JMP LOP;死循环，等待中断到来

;------------中断程序开始----------

INTP PROC FAR;

LTP:MOV DX,219H

MOV AL,[BX+SI]

OUT DX,AL

INC SI

CMP SI,04H

JNZ NEXT

MOV SI,0

NEXT: MOV CX,03FFFH ;简短延时

LOOP $

CALL REFRESH;调用按键扫描子程序

DEC DAT1 ;循环次数减一

JNZ LTP ;循环次数减为零时跳出循环

MOV AL,DAT2;重新填装DAT1的值

MOV DAT1，AL

MOV DX,210H;中断结束命令

MOV AL,20H

OUT DX,AL

IRET;中断返回

INTP ENDP

;-------按键扫描程序----------

REFRESH PROC FAR

MOV DX,218H

IN AL,DX

CMP AL,00H

JNZ NEXT1 ;若输入信号为00，则循环参量置为1

MOV DAT2,01H

NEXT1： CMP AL,01H

JNZ NEXT2 ;若输入信号为01，则循环参量置为2

MOV DAT2,02H

NEXT2： CMP AL,03H

JNZ NEXT3 ;若输入信号为11，则循环参量置为3

MOV DAT2,03H

NEXT3： CMP AL,07H

JNZ NEXT4 ;若输入信号为111，则循环参量置为4

MOV DAT2,04H

NEXT4 MOV DAT1,0H

RET

REFRESH ENDP

;-------按键扫描结束----------

CODE ENDS

END START