org 400h
ARRAY	      EQU 200h	; indirizzo base array
DIM	      EQU 4	; num.elementi array

code
	XORL R0,R0 ;registro posizione di inizio della ricerca del minimo
	XORL R1,R1 ;minimo temporaneo
	XORL R4,R4 ;registro contenente il dato da nalizzare

	MOVB #8,200h
	MOVB #3,201h
	MOVB #10,202h
	MOVB #5,203h




iniziomin:
	CMPB #DIM,R0 ;R0-DIM
	JZ fine
	XORL R3,R3 ;registro di spiazzamento
	MOVL R0,R3 ;copio per usare R0 come spiazzamento
	MOVB ARRAY(R3),R1 ;inizializzo il minimo parziale
	
ciclomin:
	CMPL #DIM,R3 ;R3-DIM
	JZ finemin
	MOVB ARRAY(R3) ,R4 ;R4 <= Valore corrente dell'array
	ADDL #1,R3
	CMPB R4,R1 ;R1-R4 se R4 < R1 allora Carry = 0 ed R4 è il nuovo minimo
	JC ciclomin
	MOVB R4,R1 ;swap minimo
	MOVB R3,R5 ;mi salvo la posizione
	JMP ciclomin
finemin:
	SUBB #1,R5
	MOVB ARRAY(R0),ARRAY(R5) ;swap con il valore da ordinare
	MOVB R1,ARRAY(R0)
	
	ADDL #1,R0 ;aumento la posizione del vettore
	JMP iniziomin

fine:  	halt
	end