7-3mb

        org 100h

Start:


;---------------------------------
        xor     ax, ax
        mov     si, 0
        mov     di, 0
        xor     bx, bx
loop_first:
        movsx   ax, [arr1 + si]

        xor     di, di
        loop_second:
                movsx   dx, [arr2 + di]

                cmp     ax, dx
                je      BreakLoop

                inc     di

                cmp     di, 4
                je      AddToRes
                jmp     EndLoop

                AddToRes:
                        push    si
                        mov     si, bx
                        mov     [res + si], al
                        pop     si
                        inc     bx
                        call    PrintDigit

                EndLoop:
                cmp     di, 4
                jne     loop_second

        BreakLoop:
        inc     si
        cmp     si, 4
        jne     loop_first


;---------------------------------


        xor     ax, ax
        mov     si, 0
        mov     di, 0
loop_first2:
        movsx   ax, [arr2 + si]

        xor     di, di
        loop_second2:
                movsx   dx, [arr1 + di]

                cmp     ax, dx
                je      BreakLoop2

                inc     di

                cmp     di, 4
                je      AddToRes2
                jmp     EndLoop2

                AddToRes2:
                        push    si
                        mov     si, bx
                        mov     [res + si], al
                        pop     si
                        inc     bx
                        call    PrintDigit

                EndLoop2:
                cmp     di, 4
                jne     loop_second2

        BreakLoop2:
        inc     si
        cmp     si, 4
        jne     loop_first2



;---------------------------------

        ;ensure that res stores correct data
;---------------------------------

        mov     ah, $09
        mov     dx, line
        int 21h

        xor     si, si
PrintResultArr:
        movsx   ax, [res + si]

        call    PrintDigit

        inc     si
        cmp     si, bx
        jne     PrintResultArr

;---------------------------------

        mov     ah, $09
        mov     dx, crash
        int 21h
        ;delete duplicates

        xor     si, si
        mov     di, -1

loop_it:
        movsx   ax, [res + si]

        xor     di, di
        loop_ins:
                inc     di
                movsx   dx, [res + di]

                cmp     ax, dx
                je      BreakThis

                cmp     di, si
                je      PrintShit
                jmp     EndOf

                PrintShit:
                push    bx
                mov     bx, ax
                call    PrintDigit
                pop     bx

                EndOf:
                cmp     di, si
                jne     loop_ins


        BreakThis:
        inc     si
        cmp     si, bx
        jne     loop_it

;---------------------------------


PrintRes:

        push    ax
        mov     ah, $09
        mov     dx, line
        int 21h
        pop ax

        ;print ax
        ;mov     bx, ax
        add     bx, '0'

        mov     ah, $02
        mov     dx, bx
        int 21h

        mov     ah, $09
        mov     dx, pak
        int 21h
        mov     ah, $08
        int 21h

        ret


PrintDigit:
        ;digit in bx
        push ax
        push bx
        push dx

        mov     bx, ax
        add     bx, '0'
        mov     ah, $02
        mov     dx, bx
        int 21h

        mov     ah, $09
        mov     dx, nextLine
        int 21h

        pop dx
        pop bx
        pop ax

        ret



pak             db 13, 10, 'Press any key to exit...$'
crash           db '-----------$'
arr1            db 1, 2, 1, 4
arr2            db 5, 1, 7, 7 ; 2, 4, 5, 7
nextLine        db ', $'
line            db 13, 10, '$'

res             db 8 dup (?)
ans             db 8 dup (?)