n equ 4
dseg at 10h
    arr0: ds n*2
    arr1: ds n*2
    subsum: ds 2
cseg
    jmp start
    org 40h
    tab_num1: dw 1,2,3,4
    tab_num2: dw 4,3,2,1

    start:
        call init

        mov r5, arr5
        mov r6, arr6

        clr C

        mov a,@r5
        rl a
        mov r0,a

        inc r5
        mov a,@r5
        mov r0.7,a.1
        rl a
        ; Çäåñü ÷èñëî n/2
        mov r1,a ; ñòàðøàÿ áàéò

        mov a,r0 ; ïîëó÷èëè

        mov dptr, #subsum





        nop

        jmp exit


    init:
        mov r0, # arr0
        mov r1, # arr1

        mov a, r1
        subb a, r0 ; ñìåùåíèå ìåæäó íà÷àëàìè ìàññèâàìè

        mov r7, a
        mov r2, a
        mov dptr, # tab_num1
;       mov r1 ,# tab_num1
;       mov r7, #tab_num2
    cp_arrs:
        clr a
        movc a,@a+dptr
        mov @r0,a
        mov a,r7
        movc a,@a+dptr
        mov @r1,a
        inc r0
        inc r1
        inc dptr
        djnz r2,cp_arrs

        ret
    exit:
        end