Cleanup, reorganization

2014-12-23 01:12:21 +01:00
parent e78d91a900
commit dbdcefea38
223 changed files with 1260 additions and 660 deletions
@@ -0,0 +1,89 @@
+.device attiny13
+.def	cnt=r22
+.def	i=r18
+.def	j=r19
+.def	pom=r16
+.def	dat=r20
+.equ	clks=200			;100 kloknuti (36kHz) na 1 bit (200 preklopeni)
+.equ	clksh=100
+
+.org	0x0000				;RESET
+	rjmp	RESET			;skok na start po resetu
+
+.org	0x0010
+RESET:
+	ldi	r16,low(RAMEND)		;nastavi stack pointer
+	out	SPL,r16
+
+	cli				;zakazeme preruseni
+
+	ldi	r16,0b00011110		;smer portu
+	out	DDRB,r16
+
+	clr pom
+	clr i
+	clr j
+	clr cnt
+
+	sei				;povolime preruseni
+	
+NIC:	clr i
+	clr dat
+W0:	   in pom,PINB			;1 [10+56 =66 cyklu *clksh celkani]
+	   sbrc pom,0			;2 /
+	   rjmp NIC			;(1)
+	   rcall sclk			;3
+	   inc i			;1
+	   cpi i,clksh			;1
+	  brne W0			;2 10 kloku + 56 kloku z sclk = 66 kloku
+	  ;bylo 100 kloku 0
+	  
+	  
+	  ldi j,8			;1 -> bude se cist osm bitu
+BREAD:	  dec j				;1
+	  breq ENDB			;1
+	  clr i				;1
+	  
+W1:	   nop				;1 -> cekaci smycka 1klok
+	   nop				;1
+	   nop				;1
+	   rcall sclk			;3
+	   inc i			;1
+	   cpi i,clks			;1
+	  brne W1			;2
+	  
+	  in pom,PINB			;1	zanedbatelne zpozdeni - netreba zohlednovat
+	  sbrs pom,0			;2 (1)  precte se PINB0 a invertovany se zapise do bufferu
+	  sbr dat,0			;(+1)
+	  lsl dat			;1
+	  rjmp BREAD			;2
+	  
+ENDB:
+	;skoncil byte, ted bude stopbit - netreba cist
+	cpi dat,0b00111100
+	breq toogle
+	clr dat
+	clr cnt
+	clr i
+	clr j
+	rjmp NIC
+
+toogle:	sbi PORTB,1
+	;sbi pinb,1
+	rjmp NIC
+
+sclk:					;presne nastavena doba jednoho kloku - 200 kloku == 1bit
+	ldi r16,6			;1
+cB:
+	  nop				; [48
+	  nop				;  -
+	  nop				;  -
+	  nop				;  -
+	  nop				;  -
+	  dec r16			;  -
+	  brne cB			;  -
+	nop				; ]
+	nop				;3
+	nop				;
+	nop				;
+	ret				;4 celkem: 56