求助 为什么out 70h就卡住啦！

h6831638

贴出源码  求各位帮下忙

 assume cs:code
code segment
start:  
        mov ax,0
        mov es,ax
        mov ax,cs
        mov ds,ax
        mov di,200h
        mov si,offset time
        cld
        mov cx,offset jiesu-offset time
        rep movsb                         ;把time子程序拷贝到0:200
        mov bx,0
        mov word ptr es:[bx],200h
        mov word ptr es:[bx+2],0         ;time的入口地址写入中断向量表
        int 0
        mov ax,4c00h
        int 21

time:  mov ax,cs
       mov ds,ax
       mov bx,offset tt
       mov dl,9h
       mov cx,3
       
xun:   mov al,dl               ;循环将70h端口 9 8 7地址的数据写入tt标号处
       out 70h,al
       in al,71h
       mov [bx],al
       mov byte ptr [bx+1],20h
       add bx,2
       dec dl
       loop xun

       mov dl,4h
       mov cx,3
xin:   mov al,dl               ;循环将70h端口 4 2 0地址的数据写入tt标号处
       out 70h,al
       in al,71h
       mov [bx],al
       mov byte ptr [bx+1],20h
       add bx,2
       dec dl
       dec dl
       loop xin
              
       mov byte ptr [si+bx],'$'
       mov dx,offset tt
       mov ah,9                        ;在光标出显示标号tt的字符串
       int 21h
       jmp near ptr w
tt:   
       db 6 dup(0)
       db 6 dup(0)
w:     iret
jiesu: nop

code ends
end start

暂时未将bcd码转十进制

问题是运行就出错     debug调试在  out 70h,al  处卡死      
求各位帅哥 美女 大神 们  帮忙看看！