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,96 @@
+;pokus
+
+.include	"tn13def.inc"
+
+.def	CNTt=r24				;CNTt pro tecku
+.def CNTc=r25				;CNTc pro carku
+.def	POM=r16
+
+.org	0x0000				;zacatek kodu
+	RJMP	RESET			;skok na start po resetu
+
+
+.org	0x0010				;zacatek vlastniho programu
+
+RESET:	
+	LDI	POM,low(RAMEND)	;nastavi stack pointer
+	OUT  SPL,POM
+
+	LDI  POM,0B00000100		;nastavi vystupni piny
+	OUT  DDRB,POM
+	;PB0 tecka
+	;PB1 carka
+	;PB2 vystup
+			
+LOOP:
+	IN	r16,PINB			;dej do r16 stav PINB
+	SBRS r16,0			;neni-li bit 0 v r16 1, vymaz CNTt						
+	CLR	CNTt				;
+	INC	CNTt				;CNTt+1
+
+	IN	r16,PINB			;dej do r16 stav PINB
+	SBRS r16,1			;neni-li bit 1 v r16 1, vymaz CNTc
+	CLR	CNTc				;
+	INC	CNTc				;CNTc+1
+
+	CPI	CNTt,100			;je-li CNTt=100,
+	BREQ	TECKA			;jdi na TECKA
+
+	CPI	CNTc,100			;je-li CNTc=100,
+	BREQ CARKA
+
+	RJMP	LOOP				;jsi na LOOP
+
+	
+KONEC:
+	IN	r16,PINB			;r16=PINB
+	SBRC r16,0b00000001		;je-li bit 0 v r16 0, praskoc nasledujici
+	RJMP KONEC			;jdi na KONEC
+	RJMP LOOP				;jdi na LOOP
+
+
+TECKA:
+	LDI	r16,0b00000100		;na PORTB dej 0b00000100
+	OUT	PORTB,r16
+	RCALL	CEKANI		;udelej 1x cekani
+	CLR	r16				;vynuluj r16 a dej ho do PORTB
+	OUT	PORTB,r16
+	RCALL	CEKANI		;udelej 1x cekani - mezera mezi znaky
+	RJMP	LOOP				;navrat na LOOP
+
+CARKA:
+	LDI	r16,0b00000100		;na PORTB dej 0b00000100
+	OUT	PORTB,r16
+	RCALL	CEKANI		;udelej 3x cekani
+	RCALL	CEKANI
+	RCALL	CEKANI
+	CLR	r16				;vymaz r16 a dej ho na PORTB
+	OUT	PORTB,r16
+	RCALL	CEKANI		;udelej 1x cekani - mezera mezi znaky
+	RJMP	LOOP
+
+
+CEKANI:
+	PUSH	r18				;ulozit pouzivane registry do STACKU
+	PUSH	r17
+	PUSH	r16
+		
+	LDI	r16, 30			
+L1:	DEC	r16				;cekaci smycka vnejsi - zacatek
+	LDI	r17, 100
+L2:	DEC	r17				;   cekaci smycka stredni - zacatek
+	LDI	r18, 130
+L3:	DEC	r18				;      cekaci smycka vnitrni - zacatek
+	CPI	r18, 0
+	BRNE	L3				;      cekaci smycka vnitrni - konec
+	CPI	r17, 0			
+	BRNE	L2				;   cekaci smycka stredni - konec
+	CPI	r16, 0
+	BRNE	L1				;cekaci smycka vnejsi - konec
+	
+	POP	r16				;nacist puvodni obsah registru ze STACKU
+	POP	r17
+	POP	r18
+
+	RET					;navrat z rutiny do kodu				
+