stseg segment para stack "stack"
db 64 dup ( "stack" )
stseg ends

dseg segment para public "data"
source db 10, 20, 30, 40
dest db 4 dup("?")
dseg ends

cseg segment para public "code"
main proc far
assume cs: cseg, ds: dseg, ss: stseg ; адреса повернення
push ds
mov ax, 0   ; або xor    ax, ax
push ax
; ініціалізація ds
mov ax, dseg
mov ds, ax ; обнуляємо масив

xor cx, cx
xor si, si

; обнуляємо масив
mov cx,4
lop1:mov byte ptr dest [si], 0
inc si
loop lop1

; пересилання
mov cx,4
xor di,di
xor si,si
mov si,3
lop2: mov al,source [di]
inc di
mov byte ptr dest [si], al
dec si
loop lop2

ret
main endp
cseg ends
end main