实验十四

assume cs:code
data segment
	db 'yy/HH/dd hh:mm:ss','$'
	db 9,8,7,4,2,0
data ends

code segment
;显示年/月/日 时:分:秒
start:	
	mov bx,data
	mov es,bx
	mov dx,0
	mov di,18
	mov si,0
	mov cl,6
	mov ch,0
s:
	mov al,es:[di]
	out 70h,al
	in al,71h
	
	push cx
	mov ah,al
	mov cl,4
	shr ah,cl
	and al,00001111b
	
	add al,30h
	add ah,30h
	
	mov byte ptr es:[si],ah
	mov byte ptr es:[si+1],al
	add si,3
	inc di
	pop cx
	loop s

	
	
	mov ax,data
	mov ds,ax
	mov dx,0
	mov ah,9
	int 21h

mov ax,4c00h
int 21h	
	
	
code ends
end start