include io.asm

stack segment stack
	dw 128 dup (?)
stack ends

data segment
 d2 db 3,5,8,1,3 ; второй массив 
 d1 db 8,2,4,6,8 ; первый массив
 x equ 5 ; длина массивов
data ends

code segment 'code'
	assume ss:stack, ds:data, cs:code
pro proc
    mov si,9
    mov cx,8
CIKL:mov bp,cx
	mov bl,ds:[bp]
	cmp ds:[si],bl ;сравниваем мин. с текущим
	jng L1
    mov si,bp	;запоминаем если надо
 L1:cmp cx,5
	jne L2
	sub si,5
	outint si
	newline
 L2:loop CIKL
    outint si
    ret
pro endp
start:
	mov ax,data
	mov ds,ax
	push bx
	push bp
	push si
	call pro
	pop si
	pop bp
	pop bx
	newline
	finish
code ends
    end start