找出两数组中相同的元素
;就是找出数组a和数组b中相同的元素并存到数组c中
data segment
a db 3,5,7,9,2
m equ $-a
b db 2,4,5,9
n equ $-b
c db 10 dup(?)
data ends
code segment
main proc far
assume cs:code,ds:data
start:
push ds
mov ax,0
push ax
mov ax,data
mov ds,ax
mov si,offset a
mov bp,offset b
mov di,offset c
mov cx,m
mov ax,0
mov bh,-1
loop1:
mov al,[si]
xor ah,ah
mov ah,[bp]
mov bl,0
jmp com
loop2:
inc si
loop loop1
jmp over
com:
inc bl
cmp bl,n
jne com
je loop2
cmp al,ah
inc ah
jne com
mov [di],al
inc di
over:
mov di,offset c
mov al,[di]
mov dl,al
mov ah,2
int 21h
ret
main endp
code ends
end start