实验14

avatar10010

code segment
dis db "20??/??/?? ??:??:??",'
num db 9,8,7,4,2,0
start:        
        xor si,si
        mov di,2
        mov cx,6                                
lp:                        
        push cx
        mov al,num[si]
        out 70H,al
        in al,71H                                
        mov ah,al
        mov cl,4
        shr ah,cl
        and al,00001111b
        add ah,30H
        add al,30H
        
        mov dis[di],ah
        mov dis[di+1],al
        inc si
        add di,3
        pop cx
        loop lp

        mov ah,2                 ;置光标
        xor bh,bh                ;第0页
        mov dh,8                        ;置行号
        mov dl,24                        ;置列号
        int 10h                                ;调用10号中断        
        
        mov ah,9                           ;在光标位置显示字符
        mov bx,cs
        mov ds,bx
        mov dx,offset dis        ;要加offset
        int 21h
                                
code ends
end start