汇编语言编写一个简单的电子秒表

0-59秒，从键盘任意输入一个0-59秒的数后每隔一秒自动加一到59后加一自动返回到0从新开始。。。。。。。。本人新手，急需此程序，请各位帮帮忙，小弟在此多谢了

S_SEG SEGMENT STACK
DB 256 DUP(?)
S_SEG ENDS
D_SEG SEGMENT
COUNT DB 0 ;计时单元，初值为0
TENM DB ‘ 0’ ;10分计时单元，初值为0
MINUTE DB ‘0:’ ;分计时单元，初值为0
TENS DB ‘0’ ;10秒计时单元，初值为0
SECOND DB ‘0.’ ;秒计时单元，初值为0
HAOM DB ‘0’ ;10毫秒计时单元，初值为0
HAO DB ’8’,’$’ ;毫秒计时单元，初值为8
D_SEG ENDS
C_SEG SEGMENT
ASSUME CS:C_SEG ,SS:S_SEG
START: MOV AX,D_SEG
MOV DS,AX
CLI ;先关中断，以获得INT1CH
MOV AX,351CH ;调用35H号系统功能
INT 21H ;返回ES：BX=中断向量（段：偏移）
PUSH BX ;栈中保存INT1CH原中断向量
PUSH ES
STI ;开中断，以使键盘工作
MOV AH,1 ;等待键按下
INT 16H
CLI ;关中断
MOV DX,SEG TIMER ;置新中断向量
MOV DS,DX
MOV DX,OFFSET TIMER ;DS：DX=新中断向量（段：偏移）
MOV AX,251CH
INT 21H
STI ;再开中断，以使键盘和INT1CH工作
CHECK: MOV AH ,1 ;检查有无键代码
INT 16H
JZ DISPLAY1 ;无码可读，就跳转显示（DISPLAY系统保留）]
MOV AH ，0 ;无码可读，就要读取它
INT 16H
CMP AL ，51H ;是’Q’吗
JE OVER ;是，返回DOS
DISPLAY1: MOV AX，D_SEG ;不是，就显示
MOV DS ，AX
ASSUME DS：D_SEG
LEA DX ，TENM ;DS：DX=显示字符串地址
MOV AH ，9 ;显示 mm ：ss.msms
INT 21H
JMP CHECK ;返回CHECK，循环继续
OVER: CLI
POP DS ;由栈中取回INT1CH原向量
POP DX
MOV AX ，251CH ;设置INT1CH，恢复原向量
INT 21H
STI ;开中断
MOV AX ，4C00H ;返回DOS
INT 21H
;以下为使用INT 1CH的中断服务子程序
TIMER PROC FAR
PUSH AX
MOV AX , D_SEG
MOV DS , AX
ASSUME DS :D_SEG
INC COUNT ;计时单元增1
CMP COUNT , ‘2’ ;到110毫秒否
JL EXIT ;不到，则返回
MOV COUNT , ‘0’ ;到，则计时单元清0
INC HAOM ;10毫秒计时单元增1
CMP HAOM ,’9’ ;到1秒否
JLE EXIT ;不到，则返回
INC SECOND ;到，则秒计时单元增1
MOV HAOM , ‘0’ ;10毫秒计时单元清0
CMP SECOND ，‘9’ ;到10秒否
JLE EXIT ;不到，则返回
MOV SECOND ，‘0’ ;到，则秒计时单元清0
INC TENS ;10秒计时单元增1
CMP TENS ，‘6’ ;到60秒否
JL EXIT ;不到，则返回
MOV TENS ，‘0’ ;到 ，则10秒计时单元清0
INC MINUTE ;分计时单元清0
CMP MINUTE ，‘9’ ;到10分 否
JLE EXIT ;不到，则返回
MOV MINUTE ，‘0’ ;到，则分计时单元清0
INC TENM ;10分计时单元增1
CMP TENM ，‘6’ ;到60分否
JL EXIT ;不到，则返回
MOV TENM ，‘0’ ;到，则10分计时单元清0，重新开始计时
EXIT: POP AX
IRET
TIMER ENDP
C_SEG ENDS
END START

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/f2s4v7mv7.html