第九章实验九求助

wasser

以下是源码,不知哪儿出错,还请高手指教.
注:编译,链接没有出错,就是运行不了,出现NTVDM CPU报错

assume cs:codeseg,ds:dataseg
dataseg segment
        db 'welcome to masm!'
dataseg ends

codeseg segment
start:
        mov ax,dataseg
        mov ds,ax
        mov ax,0b800h
        mov es,ax

        mov si,0
        mov di,0

        mov cx,3
        mov bx,1824
        s:
        push cx       
        mov cx,16
                s1:
                push cx
                mov al,[si]
                mov es:[bx][di],al
                mov cx,bx
                sub cx,1824
                jcxz c1
                sub cx,160
                jcxz c2
                sub cx,160
                jcxz c3
                ok:
                add si,2
                add di,2
                pop cx
                loop s1
        add bx,160
        pop cx
        loop s

        c1:
        mov byte ptr es:[bx][di+1],01000010b
        jmp ok
        c2:
        mov byte ptr es:[bx][di+1],00100100b
        jmp ok
        c3:
        mov byte ptr es:[bx][di+1],01110001b
        jmp ok

        mov ax,4c00h
        int 21h
codeseg ends
end start

vitamin

di 增量应该是1吧{:1_1:}