Added the projects

ASM_OLD/IR insect/vysilac 36kHz/36kHz.asm

@@ -0,0 +1,70 @@
+.device attiny13
+.def	cnt=r19
+
+.org	0x0000				;RESET
+	rjmp	RESET			;skok na start po resetu
+
+.org	0x0010
+RESET:
+	ldi	r16,low(RAMEND)		;nastavi stack pointer
+	out	SPL,r16
+
+	cli				;zakazat vsechna preruseni
+
+	ldi	r16,0b00011110		;smer portu
+	out	DDRB,r16
+
+	ldi	r16,0			;vypnout PullUp
+	out	PORTB,r16
+
+	clr r16
+	clr r17
+	clr r18
+	clr cnt
+
+	sei				;Global Interrupt Enable
+	
+LOOP:
+	in r16,PINB
+	sbrc r16,0
+	rjmp pinset
+	rjmp LOOP
+pinset:					;cekej, az bude 100 cyklu po sobe 1 na PB0
+	clr cnt
+pinset2:
+	in r16,PINB
+	sbrs r16,0
+	rjmp loop
+	inc cnt
+	cpi cnt,200
+	brne pinset2
+	
+	rcall blik
+	
+w2:					;cekani pro odruseni zakmitu - 40 cyklu
+	inc cnt
+	cpi cnt,200
+	brne w2
+
+	rjmp LOOP			;skok na loop
+
+blik:
+A:
+	ldi r16,7			;1
+B:
+	  nop				;1
+	  nop				;1
+	  nop				;1
+	  nop				;1
+	  nop				;1
+	  dec r16			;1
+	 brne B				;2 (1 +
+	nop				;1)
+	sbi PINB,1			;2 -> toogle portb1
+	nop				;1
+	nop				;1
+	in r17,pinb			;1
+	sbrc r17,0			;1 (2 -> preruseno, nedulezite)
+	rjmp A				;2
+	cbi PORTB,1			;2
+	ret				;4