Задача по ASM51

    arrlen equ 10  ; пример при длине массива до 255 байт
 
; измените эти адреса, если требуется для вашего отладчика
    arr1 equ 0     ; адрес исходного массива
    arr2 equ 16    ; адрес результ. массива
    start code 0h
 
    mov dptr,#arom ; загружаем первый массив из rom в xram
    mov r6,dph
    mov r7,dpl
    mov dptr,#arr1
    mov r4,dph
    mov r5,dpl
    mov r3,arrlen
 
load1:  mov dph,r6
    mov dpl,r7
    clr a
    movc a,@a+dptr ; загрузка из rom
    inc dptr
    mov r6,dph
    mov r7,dpl
 
    mov dph,r4
    mov dpl,r5
    movx @dptr,a ; сохранение в xram
    inc dptr
    mov r4,dph
    mov r5,dpl
    djnz r3,load1
 
    mov dptr,#arr1 ; выполняем копирование массивов в xram
    mov r6,dph
    mov r7,dpl
    mov dptr,#arr2
    mov r4,dph
    mov r5,dpl
    mov r3,arrlen
 
copy1:  mov dph,r6
    mov dpl,r7
    movx a,@dptr ; загрузка из xram
    inc dptr
    mov r6,dph
    mov r7,dpl
 
    cpl a ; это имеется ввиду под дополнительным кодом ?
 
    mov dph,r4
    mov dpl,r5
    movx @dptr,a  ; сохранение в xram
    inc dptr
    mov r4,dph
    mov r5,dpl
    djnz r3,copy1
 
wt: jmp wt
 
arom:   db 1,2,3,4,5,6,7,8,9,10
 
    end