ZAD 2

$crystal = 18432000
$baud = 115200
$regfile = "m32def.dat"

$asm

Ldi R18,10
Ldi R17,100

Eeprom_read:

sbic EECR, EEWE
rjmp EEPROM_read

Out Eearh , R18
Out Eearl , R17

SBI EECR, EERE

in r16, EEDR

Usart_transmit:

SBIS UCSRA, UDRE
RJMP Usart_transmit

Out Udr , R16

$end Asm

end


ZAD 1

$crystal = 18432000
$baud = 115200
$regfile = "m32def.dat"

$asm

Ldi R18,10
Ldi R17,100
Ldi R16,80

Eeprom_write:

sbic EECR, EEWE
rjmp EEPROM_write

Out Eearh , R18
Out Eearl , R17
Out Eedr , R16

SBI EECR, EEMWE
SBI EECR, EEWE

$end Asm