assume cs:code
data segment
db 9,8,7,4,2,0
data ends
code segment
start:mov ax,data
mov ds,ax
mov si,0
mov ax,0b800h
mov es,ax
mov di,[160*12+30*2]
mov cx,6
s:push cx
mov al,ds:[si]                       ;实现数据转换 bcd码转换成字符
out 70h,al                       
in al,71h
mov ah,al
mov cl,4
shr ah,cl
and al,00001111b
add ah,30h
add al,30h
pop cx
cmp cx,3                          ;这里加了几个条件跳转，主要是为了实现输出的格式                     
jna ok1
mov byte ptr es:[di],ah
mov byte ptr es:[di+2],al
mov byte ptr es:[di+4],'/'
jmp short ok2
ok1:mov byte ptr es:[di+2],ah
mov byte ptr es:[di+4],al
cmp cx,1
je ok2
mov byte ptr es:[di+6],':'
ok2:add di,6
inc si
loop s
in al,60h                    ;这个是我从网上找的，主要目的是当键盘输入Q时退出程序，60h是主板芯片上寄存器的端口地址，15章中有介绍
cmp al,10h    ;10h是字母q的扫描码，在15章中有介绍                  
je quit
jmp short start
quit:mov ax,4c00h
int 21h
code ends
end start