Пересылка массива слов. Ассемблер, tasm

sseg    segment 
    db  128 dup(?)
sseg    ends    
dseg    segment 
A   db  1,2,3,4,5
B   db  5 dup(?)
dseg    ends    
cseg    segment 
    assume  ss:sseg, cs:cseg, ds:dseg
start:      
    mov ax,dseg
    mov ds,ax
    mov si,0
    mov cx,5
M1:     
    mov al, A[si]
    mov B[si],al
    inc Si
    loop    M1
    mov cx,5
    mov si,0
M2:     
        mov ah,2h
        mov dl,B[si]
        int 21h
        inc Si
        loop    M2
        mov ah,4ch
        int 21h
    cseg    ends    
        end Start

sseg segment
db 128 dup(?)
sseg ends
dseg segment
A dw 1,2,3,4,5
B dw 5 dup(?)
dseg ends
cseg segment
assume ss:sseg, cs:cseg, ds:dseg
start:
mov ax,dseg
mov ds,ax
mov si,0
mov cx,5
M1:
mov ax, A[si]
mov B[si],ax
add si,2
loop M1
mov cx,5
mov si,0
M2:
mov ah,2h
mov dl,B[si] ;можно dx,B[si]
add dl,'0'
int 21h
add si,2
loop M2
mov ah,4ch
int 21h
cseg ends
end Start