assume cs:code
code segment
start:

mov ax,0b800h
mov es,ax
mov di,160*12       ;初使化一些参数

mov al,9  ;年
out 70h,al
in al,71h
call time
mov ah,47
mov byte ptr es:[di].4,ah

add di,6
mov al,8  ;月
out 70h,al
in al,71h
call time
mov ah,47
mov byte ptr es:[di].4,ah

add di,6
mov al,7  ;日
out 70h,al
in al,71h
call time
mov ah,0
mov byte ptr es:[di].4,ah

add di,6
mov al,4  ;时
out 70h,al
in al,71h
call time
mov ah,58
mov byte ptr es:[di].4,ah

add di,6
mov al,2  ;分
out 70h,al
in al,71h
call time
mov ah,58
mov byte ptr es:[di].4,ah

add di,6
mov al,0  ;秒
out 70h,al
in al,71h
call time


mov ax,4c00h
int 21h
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
time:  ;显示时间的程序
mov ah,al  ;参数为ah,十位al个位
mov cl,4   ;es:[di]显示地址
shr ah,cl  ;没有返回值
and al,00001111B

add ah,30h
add al,30h

mov byte ptr es:[di],ah
mov byte ptr es:[di].2,al
ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;





code ends
end start