；参考，这个程序是求最小偶数的，结果存到AX中
dataseg segment
    DATA dw 5 DUP(32,3,53,4,3,43,65,-6,64,2,3,54,3,434,5,54,6,7,876,1)
    flag    db    0
dataseg ends

prognam segment
main proc far
    assume    cs:prognam,ds:dataseg
start:
    push ds
    mov ax,0
    push ax
    mov ax,dataseg
    mov ds,ax
    lea si,DATA
    mov cx,100
    mov ax,0

Next:
    mov dx,[si]
    test dx,01h
    jz IsEven
    jmp LoopNext
IsEven:
    test flag,01h
    jz SetFlag
    cmp ax,dx
    jg MoveToAX
    jmp LoopNext
SetFlag:
    mov flag,1
    jmp MoveToAX
MoveToAX:
    mov ax,dx
    jmp LoopNext
loopNext:
    add si,2
    loop Next

exit:
    ret

main    endp
prognam    ends
end    start