org 256

;--- B

length  equ 423

	mov bx,array
	mov cx,length
	push bx

	mov dx,0ffh
search	cmp dl,[bx]
	jc notmin
	mov dl,[bx]
	mov si,bx
notmin	cmp [bx],dh
	jc notmax
	mov dh,[bx]
	mov di,bx
notmax	inc bx
	loop search
	
	xor ax,ax
	mov al,dh
	push ax
	mov al,dl
	call print
	pop ax
	call print
	pop ax
	neg ax
	push ax
	add ax,si
	call print
	pop ax
	add ax,di

print	call dump
	mov dl,9
	int 21h
	ret

;--- A

dump	mov cx,10
again	xor dx,dx
	div cx
	and ax,ax
	jz exit
	push dx
	call again
	pop dx
exit	mov ah,2
	add dl,'0'
	int 21h
	ret

array	incbin 'sojarray.bin'