delay50us: 					; Unterprogramm 
			ldi temp1,$42	; lade mit konst. Wert 42h

delay50us_: 
			dec temp1		; temp1=temp1-1
			brne delay50us_	; bleibe in Schleife, solange Ergebnis ungleich 0
			rts				; Unerprogramm beendet