; helder.correia@fe.up.pt
; -------== Ex6 ==-------
; Escreva uma rotina que calcule o valor mínimo de uma zona de memória
; de dados externa com início apontado pelo registo DPTR e comprimento
; indicado no registo R7. No fim, o mínimo deve ficar em R7.

	cseg	at 0
	movx	a,@dptr         ; dptr apontar para v[0] em MDE
	mov	r0,a		; R0=v[i] neste caso i=0
ciclo:	movx 	a,@dptr		
	clr	c               ; limpa carry para nao interferir com subb
	subb	a,r0		; serve para comparar acc com R0
	jnc	notmin		; se nao há borrow (flag c) entao A>R0
	mov	r0,a		; se há borrow entao A=-x ou seja A<R0 (novo mínimo)
notmin:	inc	dptr		; se não é min, passa para v[i+1]
	djnz	r7,ciclo	; R7 contém o nr de elementos do vector
	mov	r7,0		; posição de MDI 00h = R0
	
end