汇编课程设计源程序(数字时钟)9页

1、功能：实现一个电子表按A换小时，按B换小时按，C换小时，按D换小时,每次结束后要按F键;*用两个74LS373进行数码管的动态显示;一个做段(要显示的笔画)选,一个做位选PORTS EQU 211H ;数码管显示地址(选管)PORTB EQU 210H ;数码管显示内容控制;*在8253的定时中断中,通过8255的8个PA口,3个PB口进行扫描PA EQU 220H ;8255 CS 选择信号端TC0 EQU 230H;8253 CS 选择信号端 ;*数据段DATA SEGMENT COUNT1 DB 12 ;扫描键盘中断口标志CM读数码管COUNT2 DB 13 ;延世13次中断标志KREP

2、 DB 0;防止连击标志, krep=0:无键按下KSHAKE DB 0 ;键盘防抖KFLAG DB 0 ;功能键标志位kflag=1,2,3-key(ABC)pressed,4-key(F)pressedSYMBL DB 0;显示标志位0-display bufer,1-display tempFIRST DB 0 ;修改标志位check 2 digit 0-hight,1-lowENTER DB 0 ;在缓冲区里有新的数字?有则为1TABL DW 57FH,5BFH,5DFH,5EFH,5FEH,5FDH,5FBH,5F7H DW 67FH,6BFH,6DFH,6EFH,6FEH,6FDH

3、,6FBH,6F7H DW 37FH,3BFH,3DFH,3EFH,3FEH,3FDH,3FBH,3F7H ;键盘扫描码ASCI DB"0123456789ABCDEFGMPRWXYS"键盘顺序码MASEG DB"THE KEY_PREESED IS ERROR!",13,10,'$' ;按键出错提示字符串 NUMERR DB 13,10,"THE ENTERED DIGIT IS ERROR,INPUT AGAIN!",13,10,'$' ;无效时间提示字符串LED8 DB 3FH,06H,5BH,4

4、FH,66H,6DH,7DH,07H,7FH,67H DB 77H,7CH,39H,5EH,79H,71H,80H,76H,38H,05CH ;显示编码表POINT DW ?ORDER DW 0BUFER DB 11H,0EH,12H,12H,0H,13H;hh:mm:ss;'HELLOo'-at start s；LED初始显示状态TEMP DB6 DUP(0);时间缓存区SELECT DB 1,2,4,8,10H,20HOLDSEG DW 0;保持初始中断向量段地址OLDOFF DW0;保存偏移地址DATA ENDS;* *代码段*CODE SEGMENTASSUME CS:

5、CODE,DS:DATA,ES:DATAMAIN: MOV AX,DATA MOVDS,AX MOV DX,PORTBMOVAL,00 OUT DX,AL ;熄灭所有数码管 MOV AH,35H ;保存原来的中断向量 MOV AL,11 INT 21H MOV OLDSEG,ES MOV OLDOFF,BX MOVAX,SEG KEYLED ;写入新的中断向量 MOV DS,AX LEA DX,KEYLED ;取偏移地址 MOV AL,11 ;IRQ3中断向量类型号 MOV AH,25H INT 21H ;写入IRQ3中断向量 STI MOV AX,DATA ;CSH 数据段 MOV DS,A

6、X MOV ES,AX ;CSH 堆栈段(in HDY movsb 要重新设定堆栈段) MOV DX,PA+3 ;8255 控制字 MOV AL,10010000B ;PA口 输入,PB 口输出 OUT DX,AL MOV POINT,OFFSET TEMP ;输入 HCQ IN AL,21H ;读8259中断寄存器 AND AL,0F7H ;1111 1011b OUT 21H,AL ;开IRQ3 MOV DX,TC0+3 ;8253定时寄存器初始化 MOV AL,01010110B ;xuan TD 1,xie yige di ZJ,gongzuo fangshi 3 OUT DX,AL

7、MOV DX,TC0+1 ;TD1,wei ding shi qi fu chu zhi MOV AL,5 ;LS393 OUT 8M/8K,T1 OUT 200HZ OUT DX,AL ;tc1low8=10 STEP:MOV AH,1 ;按任意键退出 INT 16H JZ STEP MOV DX,OLDOFF ;恢复IRQ3中断向量 MOV AX,OLDSEG MOV DS,AX MOV AL,11 MOV AH,25H INT 21H ;重新写入原来的IRQ3的中断向量地址 MOV AH,4CH INT 21H;*中断子程序,进行键盘扫描及显示*KEYLED PROC FAR ;每72m

8、s进入一次键盘扫描程序 PUSH AX ;寄存器A压栈 STI ;开中断 DEC COUNT1 ;-1 ,到72ms的话要扫描键盘 JZ SCANK ;到72ms的话进行键盘扫描 JMP DISP;否则进行显示SCANK:MOV COUNT1,12 ;72ms初始化数字,为下次扫描键盘准备 DEC COUNT2 ;72*13ms=1s?N 扫描 JNZ KSCAN ;去扫描键盘 MOV COUNT2,13 ;恢复count2,为下次读实时时间准备;*通过BIOS功能调用读系统时间,并处理后的ASCII数值放入BUFER缓冲区READT: MOV AH,2 ;读BIOS中系统的时间 INT 1A

9、H ;(CH:CL)=时:分,(DH:DL)=秒:1/100秒 MOV AX,CX ;放到AX中, MOV DI,OFFSET BUFER ;DI指向时间缓冲区 MOV CL,4 ROL AX,CL ;循环左移,使得小时高位现在为最低位 MOVBL,AL ;保存到BL中 AND BL,0FH ;处理,得到小时的高位 MOVDI,BL ;将小时的高位放入缓冲区中 INC DI ROL AX,CL ;小时的低位处理,放入缓冲 MOV BL,AL AND BL,0FH MOV DI,BL INC DI ROL AX,CL ;分钟的高位处理,放入缓冲区 MOV BL,AL AND BL,0FH MOV

10、 DI,BL INC DI ROL AX,CL ;分钟的低位处理,放入缓冲区 MOV BL,AL AND BL,0FH MOV DI,BL INC DI MOV AX,DX ;秒的高位处理,放入缓冲区 ROL AX,CL MOV BL,AL AND BL,0FH MOV DI,BL INC DI ROL AX,CL ;秒的低位处理,放入缓冲区 MOV BL,AL AND BL,0FH MOV DI,BL;* *键盘扫描KSCAN: MOV COUNT1,12 ;SMJP CX duan MOV DX,PA+1 ;利用线路翻转法扫描键盘 MOV AL,0 ;PB口输出低电平 OUTDX,AL M

11、OV DX,PA ;读PA口 IN AL,DX CMP AL,0FFH ;AL=0FFH?是的话没有按键,否则有键按下 JNE PRE ;不相等,说明有键按下 MOV KREP,0 ;按键被释放，置KREP=0 JMP DISP ;无键按下，停止扫描，继续显示;*判断是否进行过防抖处理,如果KREP为0且有键按下,则下次中断扫描键盘要防抖动PRE: CMP KSHAKE,1 JE SCAN;已经进行过防抖处理? MOV KSHAKE,1 JMP DISP;没有进行过防抖处理,则设立防抖处理标志,并跳出进行显示;*判断是否是重复按键,防止误操作SCAN: CMP KREP,1;是否有键按下？ J

12、NE SCAN1; 有键按下转移到SCAN1 JMP DISP;没有,上次按键已被释放SCAN1: MOV KREP,1;另一键按下，置标志位KREPanother key is pressed MOV KSHAKE,0;清重复按键及防抖标志 MOV CX,3;有键按下，扫描列三次SOME KEY PREESED,SCAN CO MOV BL,0FEH;PB口一位置0。逐次从低位到高位'0'FROM LOW BIT TNEXT: MOV AL,BL MOV DX,PA+1 OUT DX,AL MOV DX,PA;写PB（一位为0） OUT IN AL,DX;读PA CMP AL

13、,0FFH;如果PA=FF，这一列无键按下 JNE KEYON ROL BL,1;扫描下一列 LOOP NEXT JMP DISP ;一次循环扫描结束ONE CIRCLE SCAN END KEYON: AND BL,7 MOV AH,BL;组合键码AX=PRESSED KEY CODEEFECT: LEA DI,TABL;查表得到键码地址SEARCH PRESSED KEY' LOC CLD;清除方向标志 MOV CX,24 REPNE SCASW JEl1 JMP ERR; 提示出错NOTHING FOUNDl1: SUB DI,2 SUB DI,OFFSET TABL SHR D

14、I,1;逻辑右移DI/2 MOV AL,ASCIDI;得到键码GET PRESSED KEY' ASCII;*宏,将BUFER中的内容移动到TEMP中去BUFMOV MACRO MOV SI,OFFSET BUFER MOV DI,OFFSET TEMPMOV CX,6 CLD REP MOVSB MOV SYMBL,1;symbl=1,display the tempENDM MOV DL,AL MOV AH,2 INT 21H;得到按键,并在屏幕上显示相应的ASCII;键盘处理子程序,处理各个按键;KFLAG-有键按下标志,如果有键按下为1;FIRST-上次有键按下?;SYMBL-

15、显示内容选择,1时显示TEMP,0时显示BUFER内容KA: CMP AL,'A'按下A键?调整小时 JNE KB MOV KFLAG,1 MOV FIRST,0;判断修改高位 CMP SYMBL,0;判断显示BUFER/TEMP JNE N1;如果显示TEMP,不要capyBUFER内容到TEMP BUFMOVN1: MOV TEMP,10H;HH=. MOV TEMP+1,10H JMP DISPKB: CMP AL,'B'按下B键?调整分钟 JNE KC MOV KFLAG,2 MOV FIRST,0 CMP SYMBL,0 JNE N2 BUFMOVN2

16、: MOV TEMP+2,10H;MM=. MOV TEMP+3,10H JMP DISPKC: CMP AL,'C'按下C键?调整秒 JNE KF MOV KFLAG,3 MOV FIRST,0 CMP SYMBL,0 JNE N3 BUFMOVN3: MOV TEMP+4,10H;SS=. MOV TEMP+5,10H JMP DISPKF: CMP AL,'F'按下F键?结束修改 JNE K4 MOV KFLAG,4 MOV SYMBL,0;symbl=0,display bufer JMP REFCMOSK4: CMP AL,'9'按下的

17、数字键? JBE CHECK JMP DISPCHECK: MOV DI,OFFSET TEMP AND AL,0FH JNE MM CMP KFLAG,1HH: CMP FIRST,0;从高到低修改两个数码管 JE FIR INC DI MOV FIRST,0 MOV ENTER,1;enter=1 there is entered digit in temp JMP H12FIR: MOV FIRST,1H12: MOV DI,AL JMP DISPMM: CMP KFLAG,2 JNE SS0 ADD DI,2 CMP FIRST,0;从高到低修改两个数码管 JE FIR1 INC DI

18、 MOV FIRST,0 MOV ENTER,1 JMPM12FIR1: MOV FIRST,1M12: MOV DI,AL JMP DISPSS0: CMP KFLAG,3 JE YES JMP DISPYES: ADD DI,4 ;从高到低修改两个数码管 CMP FIRST,0 JE FIR2 INC DI MOV FIRST,0 MOV ENTER,1 JMP S12FIR2: MOV FIRST,1S12: MOV DI,AL JMP DISP;*写入新时间* REFCMOS:CMP ENTER,1;是否有新时间写入? JNEDONT LEA DI,TEMP;修改时间 MOV AH,D

19、I MOV CL,4 SHL AH,CL INC DI MOVAL,DI AND AL,0FH OR AH,AL CMP AH,24H JB HOK JMP SHOWERR;提示出错HOK: INC DI MOV BH,DI;M1 SHL BH,CL INC DI MOV BL,DI;M2 AND BL,0FH OR BH,BL CMP BH,60H;MM<=60? JB MOK JMP SHOWERRMOK: INC DI MOV DH,DI;S1 SHL DH,CL INC DI MOV DL,DI;S2 AND DL,0FH OR DH,DL CMP DH,60H;SS<=60? JB SOK JMP SHOWERRSOK: MOV CH,AH MOV CL,BH MOV AH,3 INT 1AH;向CMOS写入实时时钟 MOV KFLAG,0 MOV ENTER,0 JMP DISP;键盘处理程序完成,跳出显示;几种错误的情况,在屏幕上显示错误 SHOWERR:MOV AH,9;时间无效字符串显示 LEA DX,NUMERR INT 21H MOV KFLAG