;"Chip für super simple Funktion"

;Tiny13 @ 128KHz
;

.include "tn13def.inc"

.def temp = r16

.equ inA = PB1	;(INT0 Pin)
.equ inB = PB0
.equ outA = PB4
.equ outB = PB3


.org 0x0000

			rjmp init				; Init

.org INT0addr

			rjmp int0_irq			; INT0 IRQ

init:
			;setup Stack
			ldi temp, LOW(RAMEND)
			out SPL, temp

			;setup Port
			ldi temp, 1<<PB3 | 1<<PB4	; PORTB 3,4 Ausgang
			out DDRB, temp
			ldi temp, 0
			out PORTB, temp
		
			;Timer0 einrichten

			ldi temp, 1<<WGM01		; Timer0 CTC Modus
			out TCCR0A, temp
			ldi temp, 37			; 300ms@128Khz
			out OCR0A, temp

			;The rising edge of INT0 generates an interrupt request.
			ldi temp, 1<<ISC00 | 1<<ISC01
			out MCUCR, temp
			ldi temp, 1<<INT0
			out GIMSK, temp

			sei
;-------------------------------------------------------------------------------------
; Ich habe zwei Signale, inA und inB. Wenn inB high dann outB high. > Wenn inA 
; lowToHigh dann outA high und outB 3 mal high - low mit 300ms.

main:
			in temp, PINB
			andi temp, 1<<inA | 1<<inB
			lsl temp
			lsl temp
			lsl temp
			out PORTB, temp

			rjmp main



int0_irq:
			sbi PORTB, outA
			sbi PORTB, outB
			rcall wait300ms

			cbi PORTB, outB
			rcall wait300ms

			sbi PORTB, outB
			rcall wait300ms

			cbi PORTB, outB
			rcall wait300ms

			sbi PORTB, outB
			rcall wait300ms

			cbi PORTB, outB
			cbi PORTB, outA

			reti





wait300ms:
			ldi temp, 1<<PSR10		;reset prescaler
			out GTCCR, temp
			ldi temp, 1<<CS00 | 1<<CS02	; CLKDIV/1024 start timer
			out TCCR0B, temp
loop:
			in temp, TIFR0
			sbrs temp, OCF0A
			rjmp loop
			out TIFR0, temp
			ldi temp, 0
			out TCCR0B, temp		;stop timer
			out TCNT0, temp			;reset counter
			ret