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

h6831638

贴出源码  求各位帮下忙

1. 
   
2. assume cs:code
   
3. code segment
   
4. start:  
   
5.         mov ax,0
   
6.         mov es,ax
   
7.         mov ax,cs
   
8.         mov ds,ax
   
9.         mov di,200h
   
10.         mov si,offset time
    
11.         cld
    
12.         mov cx,offset jiesu-offset time
    
13.         rep movsb                         ;把time子程序拷贝到0:200
    
14.         mov bx,0
    
15.         mov word ptr es:[bx],200h
    
16.         mov word ptr es:[bx+2],0         ;time的入口地址写入中断向量表
    
17.         int 0
    
18.         mov ax,4c00h
    
19.         int 21
    
20. 
    
21. time:  mov ax,cs
    
22.        mov ds,ax
    
23.        mov bx,offset tt
    
24.        mov dl,9h
    
25.        mov cx,3
    
26.       
    
27. xun:   mov al,dl               ;循环将70h端口 9 8 7地址的数据写入tt标号处
    
28.        out 70h,al
    
29.        in al,71h
    
30.        mov [bx],al
    
31.        mov byte ptr [bx+1],20h
    
32.        add bx,2
    
33.        dec dl
    
34.        loop xun
    
35. 
    
36.        mov dl,4h
    
37.        mov cx,3
    
38. xin:   mov al,dl               ;循环将70h端口 4 2 0地址的数据写入tt标号处
    
39.        out 70h,al
    
40.        in al,71h
    
41.        mov [bx],al
    
42.        mov byte ptr [bx+1],20h
    
43.        add bx,2
    
44.        dec dl
    
45.        dec dl
    
46.        loop xin
    
47.               
    
48.        mov byte ptr [si+bx],'$'
    
49.        mov dx,offset tt
    
50.        mov ah,9                        ;在光标出显示标号tt的字符串
    
51.        int 21h
    
52.        jmp near ptr w
    
53. tt:   
    
54.        db 6 dup(0)
    
55.        db 6 dup(0)
    
56. w:     iret
    
57. jiesu: nop
    
58. 
    
59. code ends
    
60. end start

复制代码

暂时未将bcd码转十进制

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