实验十四

Wkh19.1

代码运行后直接卡住了，然后debug没反应，不知里面有啥问题，有大神看到的话请指教！

assume cs:code
data segment
        dw '0','/','0','/','0',' ','0',':','0',':','0';22个字节
data ends
code segment
start:        mov ax,data
                mov ds,ax
                mov bh,0
                mov bl,9
                mov si,0
                mov cx,3
                push cx
        s1:
                mov al,bl
                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 word ptr ds:[si],ax
                add si,4
                sub bl,1
                pop cx
                loop s1
               
                mov bl,4
                mov si,12
                mov cx,3
                push cx
        s2:
                mov al,bl
                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 word ptr ds:[si],ax
                add si,4
                sub bl,2
                pop cx
                loop s2
               
                mov bx,0b800h
                mov es,bx
                mov di,0
                mov si,0
                mov cx,11
        s3:       
                mov bh,ds:[si+1]
                mov bl,ds:[si]
                mov byte ptr es:[160*12+30*2+di],bh
                mov byte ptr es:[160*12+30*2+di+2],bl
                add di,4
                add si,2
                loop s3
               
                mov ax,4c00h
                int 21h
code ends
end start