init:
		ldi r16, low(ramend)
		out spl, r16
		ldi r16, high(ramend)
		out sph, r16

		ldi tmp  , 1<<4
		out DDRD , tmp
		ldi tgl , 1<<4

tgrel:
		rcall ledoff
        rcall delay1ms
		rcall ledon
        rjmp tgrel

delay1ms:
	.equ c1ms = 16000;
		ldi R25,HIGH(c1ms)
		ldi R24,LOW(c1ms)
delay:
		sbiw R24,1 ; herunter zaehlen
		brne delay ; zaehle bis Null
		ret


ledoff:
		sbr tmp , 4
		out PORTD , tmp
		ret
ledon:
		cbr tmp , 4
		out PORTD , tmp
		ret