[汇编] 屏幕中间显示数字时钟

 

 

 

;显示系统时间程序

data segment
    ; add your data here! 
    hour db '?'
    minute db '?'
    second db '?'
    time db   "00:00:00$"  
    temp db '?'  
    now  db '?'
    want db '?'
    pkey db "press any key...$"
ends

stack segment
    dw   128  dup(0)
ends

code segment
;---------------------------------------------
main proc far
    call init_register  ;初始化 
SiXunHuan:
    mov want,1D         ;延时3S
    call delay                  
    call setshow
    call show_time      ;显示  
    loop SiXunHuan
    
    call last_show      ;结果
    ret
main endp;    
;---------------------------------------------
init_register proc near;set segment registers:
    mov ax, data
    mov ds, ax
    mov es, ax 
    ret   
init_register endp
;---------------------------------------------
show_time proc near ;时间子程序   
    mov ah,2Ch
    int 21h         ;获取时间
    mov hour,ch
    mov minute,cl
    mov second,dh

    mov ax,0        ;计算到字符串时间
    mov al,hour 
    mov temp,10D
    div temp
    add al,30H
    mov time[0],al
    add ah,30H
    mov time[1],ah
      
    mov ax,0
    mov al,minute 
    mov temp,10D
    div temp
    add al,30H
    mov time[3],al
    add ah,30H
    mov time[4],ah   
    
    mov ax,0
    mov al,second 
    mov temp,10D
    div temp
    add al,30H
    mov time[6],al
    add ah,30H
    mov time[7],ah   
        
    lea dx,time     ;10中断显示时间
    mov ah,09H
    int 21H 
    
    ret
show_time endp   
;---------------------------------------------
last_show proc near ;最后显示东西  
    lea dx, pkey   ; output string at ds:dx
    mov ah, 9
    int 21h        
    
    ; wait for any key....and end    
    mov ah, 1
    int 21h
    
    mov ax, 4c00h ; exit to operating system.
    int 21h  
    ret
last_show endp  
;---------------------------------------------  
delay proc near     ;延时函数,放在want为想要延时的秒数
    mov ah,2Ch
    int 21h         ;获取时间 
    mov now,dh
    
    mov ax,0
    mov al,now 
    add al,want
    mov temp,60D
    div temp
    mov want,ah  
del:
    mov ah,2Ch
    int 21h
    cmp dh,want
    jz  next
    loop del
next:
    ret
delay endp      
;--------------------------------------------- 
setshow proc near   ;设置光标位置位置  
    mov dh,12      ;row-1
    mov dl,34      ;columun-1
    mov bh,0
    mov ah,2
    int 10h
setshow endp  
;--------------------------------------------- 
clear proc near
    ret
clear endp
;--------------------------------------------- 
end code
end