a.txt

汇编语言 时钟显示 读取并显示计算机实时时钟

dseg segment 
mon db "Jan$Feb$Mar$Apr$May$Jun$Jul$Aug$Sep$Oct$Nov$Dec$" 
str db "-",?,?,0ah,0dh,"$" 
dseg ends 
cseg segment 
assume cs:cseg,ds:dseg 
begin: mov ax,dseg 
mov ds,ax 
mov dh,3 ;这里是月份，可以修改成1-12的任意一个 
mov dl,11 ;这里是日子，可以修改成1-31的任意一个 
call dispdate 
mov ah,4ch 
int 21h 

dispdate proc ;这里开始是子程序 
push dx 

dec dh 
shl dh,1 
shl dh,1 
mov bl,dh 
xor bh,bh 
lea dx,mon[bx] 
mov ah,9 
int 21h ;到这里显示了月份的缩写 

pop ax 
xor ah,ah 
mov bl,10 
div bl 
or al,30h 
mov str+1,al 
or ah,30h 
mov str+2,ah 
lea dx,str 
mov ah,9 
int 21h ;前面这一小段是显示日子 
ret 
dispdate endp 
cseg ends 
end begin