assume cs:code
data segment
db '00/00/00 00:00:00','$'
db 9,8,7,4,2,0
data ends

code segment
start:
mov ax,data
mov ds,ax
mov di,0
mov si,18

mov cx,6

s:
mov al,[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 [di],ah
mov [di+1],al

inc si
add di,3
loop s

mov ax,data
mov ds,ax
mov si,0
mov ax,0b800h
mov es,ax
mov di,[160*12+30*2]

mov cx,17
cld
rep movsb

mov ax,4c00h
int 21h

code ends
end start