;***************************************************************************  
;* Løsningsforslag til Dark-oppgavene i AOC høsten 2003.                   * 
;* Beregning av minste verdi på stakkmaskinarkitektur.                     * 
;* Per Kristian Lehre <lehre@idi.ntnu.no>                                  * 
;*************************************************************************** 
main

loop
	swap
	dup
	jfalse done
	dup
	rot
	swap
	dup
	rot
	lt
	jtrue less
	swap
less	
	drop
	jmp loop
done
	drop
end main