.MODEL small
.STACK
code segment
dates db '20YY-MM-DD, XXX, HH-MM-SS','$';格式,年月日,星期,时分秒
.code
.startup
mov dx,offset dates+2
mov cl,4
;年
mov al,9
out 70h,al
in al,71h
mov ah,al
shr ah,cl
or ah,30h
mov [bx],ah
inc bx
and al,0fh
or al,30h
mov [bx],al
add bx,2
;月
mov al,8
out 70h,al
in al,71h
mov ah,al
shr ah,cl
or ah,30h
mov [bx],ah
inc bx
and al,0fh
or al,30h
mov [bx],al
add bx,2
;日
mov al,7
out 70h,al
in al,71h
mov ah,al
shr ah,cl
or ah,30h
mov [bx],ah
inc bx
and al,0fh
or al,30h
mov [bx],al
add bx,2
;星期
mov al,6
out 70h,al
in al,71h
mov ah,al
shr ah,cl
or ah,30h
mov [bx],ah
inc bx
and al,0fh
or al,30h
mov [bx],al
;时
mov al,4
out 70h,al
in al,71h
mov ah,al
shr ah,cl
or ah,30h
mov [bx],ah
inc bx
and al,0fh
or al,30h
mov [bx],al
add bx,2
;分
mov al,2
out 70h,al
in al,71h
mov ah,al
shr ah,cl
or ah,30h
mov [bx],ah
inc bx
and al,0fh
or al,30h
mov [bx],al
add bx,2
;秒
mov al,0
out 70h,al
in al,71h
mov ah,al
shr ah,cl
or ah,30h
mov [bx],ah
inc bx
and al,0fh
or al,30h
mov [bx],al
mov dx,offset dates
mov ah,9
int 21h
.exit
end