assume cs:code
date segment
  db 9,8,7,4,2,0
date ends

code segment
start:        mov ax,date
                mov ds,ax
                
                mov ax,0b800h
                mov es,ax
                
   s0:        mov cx,6
                mov bx,7d0h
                mov si,0
                mov byte ptr es:[bx+4],2fh        ;显示'\'
                mov byte ptr es:[bx+10],2fh
                mov byte ptr es:[bx+22],3ah        ;显示：
                mov byte ptr es:[bx+28],0
                call delay
                mov byte ptr es:[bx+28],3ah
                call delay
   s:        mov al,ds:[si]
                out 70h,al
                in al,71h
                push cx
                mov cl,4
                mov ah,al
                shr ah,cl
                and al,00001111b
                add ah,30h
                add al,30h
                
                mov es:[bx],ah
                mov es:[bx+2],al
                
                inc si
                add bx,6
                pop cx
          loop s
          jmp short s0
          

        delay:
                push bx
                push ax
                push cx
                mov bx,0
        delay_s:
                        mov cx,0ffffh
                                delay_s0:
                                                mov ax,bx
                                loop delay_s0
                        inc bx
                        cmp bx,9  ;9是主要影响延时的效果
                        jb delay_s
                pop cx
                pop ax
                pop bx
                ret        
                mov ax,4c00h
                int 21h
code ends
end start