实验八

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