.global delay
		.include "../stack.s"
		.text                   	# Instructions follow
		.align  2					# Align instructions to 4-byte words
		.equ    delaycount, 50

delay:	PUSH r31
loop:	ble		r4, r0, klar		# hoppa ut direkt om parametern <= 0
		subi	r4, r4, 1			# minska parametern ett steg
		movi	r8, delaycount

		call	wait

inner:	subi	r8, r8, 1
		ble		r8, r0, loop		# hoppa ut direkt om parametern <= 0

klar:	POP r31
		ret							# returhopp från subrutin

		.end