You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
109 lines
2.5 KiB
109 lines
2.5 KiB
10 years ago
|
;EEPROM_nahoda
|
||
|
|
;pokud je stisknuto tlacitko PB0,
|
||
|
|
;hrozne rychle se z EEPROM ctou hodnoty na adresach 0-3
|
||
|
|
;a davaji se na PORTB
|
||
|
|
;Vypada to pak, jako by se pri drzeni tlacitka rozsvitily obe ledky PB1 a PB2,
|
||
|
|
;ale po pusteni tlacitka na nich zustane 'nahodna' kombinace 1 a 0.
|
||
|
|
|
||
|
|
.include "tn13def.inc"
|
||
|
|
|
||
|
|
.def CNT=r20
|
||
|
|
|
||
|
|
.cseg
|
||
|
|
.org 0x0000 ;zacatek kodu
|
||
|
|
RJMP RESET ;skok na start po resetu
|
||
|
|
|
||
|
|
|
||
|
|
.org 0x0010 ;zacatek vlastniho programu
|
||
|
|
|
||
|
|
RESET:
|
||
|
|
LDI r16,low(RAMEND) ;nastavi stack pointer
|
||
|
|
OUT SPL,r16
|
||
|
|
|
||
|
|
LDI r16,0b00000110 ;nastavi I/O nohy
|
||
|
|
OUT DDRB,r16
|
||
|
|
|
||
|
|
LOOP:
|
||
|
|
RCALL cekani ;zavolej cekani pro zpomaleni celeho programu
|
||
|
|
IN r16,PINB ;Porovnej stav PB0 s 1 a pokud neni rovno, jdi na LOOP
|
||
|
|
ANDI r16,0b00000001
|
||
|
|
CPI r16,0b00000001
|
||
|
|
BRNE LOOP
|
||
|
|
|
||
|
|
MOV r17,CNT ;do r17 (adresovy registr) dej CNT
|
||
|
|
RCALL EEread ;zavolej cteni z EEPROM - adresa je r17, do r16 se ulozi data.
|
||
|
|
OUT PORTB,r16 ;posli data z r16 ven
|
||
|
|
|
||
|
|
INC CNT ;inkrementuj CNT
|
||
|
|
CPI CNT,4 ;pokud je mensi nez 4, jdi na loop
|
||
|
|
BRLT LOOP
|
||
|
|
CLR CNT ;jinak vynuluj CNT
|
||
|
|
RJMP LOOP ;a jdi na LOOP
|
||
|
|
|
||
|
|
;
|
||
|
|
;EEread je funkce pro cteni z EEPROM
|
||
|
|
;do r17 se ulozi adresa,
|
||
|
|
;zavola se EEread
|
||
|
|
;a v r16 se objevi hodnota, ktera je na adrese.
|
||
|
|
EEread:
|
||
|
|
SBIC EECR,1
|
||
|
|
RJMP EEread ;cekani dokud neni EEPROM ready
|
||
|
|
|
||
|
|
OUT EEARL, r17 ;ulozit adresu z r17
|
||
|
|
SBI EECR,0 ;nastavenim EERE zacina cteni
|
||
|
|
IN r16,EEDR ;cteni dat z EEDR do r16
|
||
|
|
|
||
|
|
RET
|
||
|
|
;zapis do EEPROM, v R17 je ADRESA, v R16 jsou DATA
|
||
|
|
EEwrite:
|
||
|
|
SBIC EECR,EEPE
|
||
|
|
RJMP EEwrite ;cekani dokud neni EEPROM ready
|
||
|
|
|
||
|
|
LDI r16, 0 ;nastavit programovaci mod
|
||
|
|
OUT EECR, r16
|
||
|
|
|
||
|
|
OUT EEARL, r17 ;dej adresu z r17 do EEARL
|
||
|
|
OUT EEDR, r16 ;dej data z r16 do EEDR
|
||
|
|
SBI EECR,EEMPE ;master program enable
|
||
|
|
SBI EECR,EEPE ;program enable
|
||
|
|
|
||
|
|
RET
|
||
|
|
|
||
|
|
;cekaci cyklus
|
||
|
|
CEKANI:
|
||
|
|
PUSH r18 ;ulozit pouzivane registry do STACKU
|
||
|
|
PUSH r17
|
||
|
|
PUSH r16
|
||
|
|
|
||
|
|
LDI r16, 3
|
||
|
|
L1: DEC r16 ;cekaci smycka vnejsi - zacatek
|
||
|
|
LDI r17, 3
|
||
|
|
L2: DEC r17 ; cekaci smycka stredni - zacatek
|
||
|
|
LDI r18, 3
|
||
|
|
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 do hlavniho programu
|
||
|
|
|
||
|
|
.eseg ;zacatek ESEGu
|
||
|
|
.org 0x00 ;adresa 0
|
||
|
|
.DB 0b00000000 ;tady se definujou byty postupne podle adres.
|
||
|
|
.DB 0b00000010
|
||
|
|
.DB 0b00000100
|
||
|
|
.DB 0b00000110
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|