clock.asm

电子秒表的设计 1、用系统8253定时器提供的55ms定时单位

stack segment stack 'stack'
      dw 32 dup(?)
stack ends
data segment
     RE DB 'READY$'
     COUNT DW 1091				;每次中断55ms ,1091次达60m,计时停止
     TENSEC DB '0'				;设置存储时间区
     SECOND DB '0:'
     MS3 DB '0'
     MS2 DB '0'
     MS1 DB '0',0DH
     STORE DW 0,0
data ends
code segment
main proc far
      assume cs:code,ds:data,ss:stack
      push ds 
      mov ax,0
      push ax
      mov ES,AX
      mov ax,data
      mov ds,ax
      MOV DI,OFFSET STORE		;保存系统时钟的中断服务程序
      MOV AX,ES:20H				;入口地址
      MOV [DI],AX
      INC DI
      INC DI
      MOV AX,ES:22H
      MOV [DI],AX
      MOV BH,70H				;清屏,屏幕由0行0列至24行80列
      MOV CH,0
      MOV CL,0
      MOV DH,24
      MOV DL,80
      MOV AL,0
      MOV AH,7
      INT 10H
      MOV DL,20H				;中断程序入口地址送中断向量表
      MOV AX,OFFSET TIME
      MOV [DI],AX
      INC DI
      INC DI
      MOV AX,CS
      MOV [DI],AX
      MOV DX,OFFSET RE			;显示READY,准备
      MOV AH,9
      INT 21H         
      DISPLAY: MOV BH,0			;置光标位置于12行36列（显示器软中断调用）
      MOV DH,12
      MOV DL,36
      MOV AH,2
      INT 10H
      MOV BL,7CH				;显示时间,秒设置为白底红字
      MOV AL,TENSEC
      MOV AH,14
      INT 10H
      MOV AL,SECOND
      MOV AH,14
      INT 10H
      MOV BL,FAH				;‘:’设置为白底红字闪烁
      MOV AL,SECOND+1
      MOV AH,14
      INT 10H
      MOV BL,7EH				;毫秒设置为白底黄字
      MOV AL,MS3
      MOV AH,14
      INT 10H
      MOV AL,MS2
      MOV AH,14
      INT 10H
      MOV AL,MS1
      MOV AH,14
      INT 10H
WAIT: MOV AH,1					;键盘I/O中断调用,检测有无键入
      INT 16H
      JZ WAIT					;无键入跳回等待,有键入则检测其功能
      CMP AL,'S'              
      JZ START					;为S则跳转到START开始
      CMP AL,'Z'
      JZ ZERO					;为Z则跳转到ZERO清屏
      CMP AL,'H'
      JZ HALT					;为H则跳转到HALT暂停
      CMP AL,'C'
      JZ CONT					;为C则跳转到CONT继续
      CMP AL,'E'
      JZ EIXT					;为E则跳转到EIXT退出
      MOV AL,TENSEC				;10秒位与6比较,未到60秒则返回显示
      CMP AL,'6'
      JNZ DISPLAY
      MOV DI,20H				;恢复系统时钟的中断向量表
      MOV AX,STORE
      MOV [DI],AX
      INC DI
      INC DI
      MOV AX,STORE+2
      MOV [DI],AX
      JMP EXIT
START: MOV AL,36H
      OUT 43H,AL
      MOV AL,0
      OUT 40H,AL
      OUT 40H,AL
ZERO: MOV TENSEC,'0'				;清零程序,寄存时间全变为0
      MOV WORD PTR SECOND,'0:'
      MOV MS3,'0'
      MOV MS2,'0'
      MOV MS1,'0'
      MOV BH,0					;显示00：000
      MOV DH,12
      MOV DL,36
      MOV AH,2
      INT 10H
      MOV AH,9
      MOV DX,OFFSET TENSEC
      INT 21H					;转至暂停程序,等待新键入
HALT: MOV AL,50H				;8253选择计数器1,0方式,OUT1输出为低电平,计数暂停
      OUT 43H,AL
      JMP WAIT					;跳回,等待新键入 
CONT: MOV AL,1					;8253选择计数器1计数1次,完毕后OUT1输出高电平,继续
      OUT 41H,AL
      JMP DISPLAY				;跳回继续显示
EXIT: MOV AH,4CH
      INT 21H 
main endp

TIME PROC FAR					;中断程序
      DEC COUNT					;软件计数器减1
      JNZ MD					;到60秒,则调用报警程序
      CALL BEEP                    
MD: ADD MS1,5					;千位毫秒加5
      CMP MS1,'9'				;大于9则MS2加1,MS1减10 
      JLE MD1
      INC MS2
      SUB MS1,10
MD1: ADD MS2,5					;百位毫秒加5
      CMP MS2,'9'				;大于9则MS3加1,MS2减10
      JLE MD2
      INC MS3
      SUB MS2,10
MD2: CMP MS3,'9'					;大于9则SECOND加1,M3减10
      JLE MD3
      INC SECOND
      SUB MS3,10
MD3: CMP SECOND,'9'				;大于9则TENSEC加1,SECOND减10
      JLE MD4 
      INC TENSEC
      SUB SECOND,10
MD4: MOV AL,20H					;中断结束命令
      OUT 20H,AL
      IRET
      TIME ENDP

Beep proc						;报警程序
      PUSHF						;保存所有的标志位
      CLI						;关中断
      MOV BL,20					;蜂鸣常数,鸣叫10s
      MOV AL,0B6H				;计数器2的控制字,工作在方式3
      OUT 43H,AL
      MOV AX,533H				;1000Hz分屏值,分高低字节两次送入
      OUT 42H,AL
      MOV AL,AH
      OUT 42H,AL
      IN AL,61H					;读取8255B端口的状态
      MOV AH,AL
      OR AL,3
      OUT 61H,AL				;打开蜂鸣器
      SUB CX,CX					;设置等待500ms的常数值
WAIT1: LOOP WAIT1				;等待10s
      DEC BL
      JNZ WAIT1
      MOV AL,AH					;恢复8255B端口的原来值,关蜂鸣器
      OUT 61H,AL
      RET
Beep endp
code ends
end main