initwi:		ldi		temp,0x20
			out		TWBR,temp

twirange:	ldi 	temp,(1<<TWINT)|(1<<TWSTA)|(1<<TWEN)
			out 	TWCR,temp
			rcall	INTcheck

			in 		temp,TWSR
  			andi 	temp,0xF8
  			cpi 	temp,0x08
  			brne 	dreck1a
			
			ldi		temp,0xE0
			out		TWDR,temp
			ldi 	temp, (1<<TWINT) | (1<<TWEN)
			out 	TWCR,temp
			rcall	INTcheck

			in 		temp,TWSR
  			andi 	temp,0xF8
  			cpi 	temp,0x18
  			brne 	dreck2a

			ldi		temp,0x00
			out		TWDR,temp
			ldi 	temp, (1<<TWINT) | (1<<TWEN)
			out 	TWCR,temp
			rcall	INTcheck

			in 		temp,TWSR
  			andi 	temp,0xF8
  			cpi 	temp,0x28
  			brne 	dreck3a

			ldi		temp,0x51
			out		TWDR,temp
			ldi 	temp, (1<<TWINT) | (1<<TWEN)
			out 	TWCR,temp
			rcall	INTcheck

			in 		temp,TWSR
  			andi 	temp,0xF8
  			cpi 	temp,0x28
  			brne 	dreck4a

			ldi 	temp,(1<<TWINT)|(1<<TWSTO)|(1<<TWEN)
			out 	TWCR,temp

			rcall	zeit
			rcall	zeit
			rcall	zeit
			rjmp	twidata

dreck1a:	ldi		data,'1'
			rcall	schreib
			rjmp	ende
dreck2a:	ldi		data,'2'
			rcall	schreib
			rjmp	ende
dreck3a:	ldi		data,'3'
			rcall	schreib
			rjmp	ende
dreck4a:	ldi		data,'4'
			rcall	schreib
			rjmp	ende
					
twidata:	ldi 	temp,(1<<TWINT)|(1<<TWSTA)|(1<<TWEN)
			out 	TWCR,temp
			rcall	INTcheck

			in 		temp,TWSR
  			andi 	temp,0xF8
  			cpi 	temp,0x08
  			brne 	dreck1

			ldi		temp,0xE0
			out		TWDR,temp
			ldi 	temp, (1<<TWINT) | (1<<TWEN)
			out 	TWCR,temp
			rcall	INTcheck

			in 		temp,TWSR
  			andi 	temp,0xF8
  			cpi 	temp,0x18
  			brne 	dreck2

			ldi		temp,0x01
			out		TWDR,temp
			ldi 	temp, (1<<TWINT) | (1<<TWEN)
			out 	TWCR,temp
			rcall	INTcheck

			in 		temp,TWSR
  			andi 	temp,0xF8
  			cpi 	temp,0x28
  			brne 	dreck3

			ldi 	temp,(1<<TWINT)|(1<<TWSTA)|(1<<TWEN)
			out 	TWCR,temp
			rcall	INTcheck

			in 		temp,TWSR
  			andi 	temp,0xF8
  			cpi 	temp,0x10
  			brne 	dreck4

			ldi		temp,0xE1
			out		TWDR,temp
			ldi 	temp, (1<<TWINT) | (1<<TWEN)
			out 	TWCR,temp
			rcall	INTcheck

			in 		temp,TWSR
  			andi 	temp,0xF8
  			cpi 	temp,0x40
  			brne 	dreck5
			in		data,TWDR

			ldi 	temp, (1<<TWINT) | (1<<TWEN)|(1<<TWEA)
			out 	TWCR,temp
			rcall	INTcheck
		
			in		data,TWDR
		
			ldi 	temp, (1<<TWINT) | (1<<TWEN)|(1<<TWEA)
			out 	TWCR,temp
			rcall	INTcheck
			in  	data,TWDR

ende:		ldi 	temp,(1<<TWINT)|(1<<TWSTO)|(1<<TWEN)
			out 	TWCR,temp
			
			rcall	schreib
			rjmp	twirange

dreck1:		ldi		data,'A'
			rcall	schreib
			rjmp	ende
dreck2:		ldi		data,'B'
			rcall	schreib
			rjmp	ende
dreck3:		ldi		data,'C'
			rcall	schreib
			rjmp	ende
dreck4:		ldi		data,'D'
			rcall	schreib
			rjmp	ende
dreck5:		ldi		data,'E'
			rcall	schreib
			rjmp	ende