assume cs:code
code segment
    s: db 9,8,7,4,2,0
    start:
    mov ax,cs
    mov ds,ax
    mov bx,offset s 
    
    mov dx,0b800h
    mov es,dx
    mov si,160*12+2*12
    
    
    mov cx,6
    circle:
      push cx
      mov al,[bx]
      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
      
      mov es:[si],ah
      mov es:[si+2],al
      
      cmp cx,4
      ja sign1
      je sign2
      jb sign3
      
      sign1:
      mov byte ptr es:[si+4],'/'
      jmp short ok
      sign2:
      mov byte ptr es:[si+4],' '
      jmp short ok
      sign3:
      cmp cx,1
      je ok
      mov byte ptr es:[si+4],':'
      jmp short ok
      
      ok:
      add si,6
      inc bx
      loop circle
      
      mov ax,4c00h
      int 21h
 code ends
 end start