;***************************************************************************
;* Løsningsforslag til Dark-oppgavene i AOC høsten 2003.                   *
;* Euklids algoritme implementert på stakkmaskinarkitektur.                *
;* Per Kristian Lehre <lehre@idi.ntnu.no>                                  *
;*************************************************************************** 

start   
	; push 20          
	; push 24  
check 
	dup
	jfalse slutt
	dup
	rot
	mod
	jmp check
slutt
	drop
end start