assume cs:code code segment s1: db 9,8,7,4,2,0 s2: db 'yy/mm/dd hh:mm:ss','$' start: mov ax,cs mov ds,ax mov si,offset s1 mov di,offset s2 mov cx,6 s: push cx mov al,ds:[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 ds:[di],ah mov ds:[di+1],al inc si add di,3 pop cx loop s mov ah,2 mov bh,0 mov dh,5 mov dl,12 int 10h mov dx,offset s2 mov ah,9 int 21h mov ax,4c00h int 21h code ends end start