Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- .include "m32def.inc"
- .def Jeden = R16
- .def Dwa = R17
- ; REJESTRY OPOZNIENIA
- .def licznik1 = R18
- .def licznik2 = R19
- .def licznik3 = R20
- .cseg
- .org 0x0000
- jmp Start
- Start:
- ldi R30, 0
- ldi Dwa, HIGH(RAMEND)
- out SPH, Dwa
- ldi Jeden, LOW(RAMEND)
- out SPL, Jeden
- ldi Dwa, 0xFF
- out DDRA, Dwa
- ldi Dwa, 0x00
- out DDRB, Dwa
- ldi Dwa, 0x03
- out PORTB, Dwa
- Klawisz: ; FUNKCJA REAGUJĄCA NA KLAWISZE
- in Dwa, PINB
- cpi Dwa, 3
- breq Klawisz
- cpi R30, 0
- breq Ile
- sbrs Dwa, 1
- rjmp Iles
- rjmp Ile
- Opoznienie2: ; FUNKCJA OPOZNIAJACA O OK. 2s
- ldi licznik3, 20
- Loopa:
- ldi licznik2, 10
- Loopa0:
- ldi licznik1, 250
- Loopa1:
- nop
- dec licznik1
- brne Loopa1 ; JEŚLI Licznik1 != 0 TO SKOCZ TO Loopa1
- dec licznik2
- brne Loopa0
- dec licznik3
- brne Loopa
- ret
- Opoznienie1:
- ldi licznik3, 20
- Loop:
- ldi licznik2, 10
- Loop0:
- ldi licznik1, 125
- Loop1:
- nop
- dec licznik1
- brne Loop1
- dec licznik2
- brne Loop0
- dec licznik3
- brne Loop
- ret
- Ile: ; ZAPALANIE PO KOLEI 4 DIOD
- rcall Opoznienie2
- rcall one
- rcall Opoznienie2
- rcall two
- rcall Opoznienie2
- rcall three
- rcall Opoznienie2
- rcall four
- ldi R30, 1
- rjmp Klawisz ; SKOK DO ETYKIETY Klawisz
- Iles: ; WYGASZANIE PO KOLEI 4 DIOD
- rcall Opoznienie1
- rcall three
- rcall Opoznienie1
- rcall two
- rcall Opoznienie1
- rcall one
- rcall Opoznienie1
- rcall zero
- ldi Dwa, 0x0F
- push Dwa ; WRZUCENIE NA STOS WARTOŚCI REJESTRU Dwa
- ldi Dwa, 0xF0
- push Dwa
- ldi R30, 0
- rjmp Mig
- zero: ; GASZENIE WSZYSTKICH DIOD
- ldi Dwa, 0
- out PORTA, Dwa
- ret
- one: ; ZAPALANIE DIODY NR 1
- ldi Dwa, 1
- out PORTA, Dwa
- ret
- two: ; ZAPALANIE DIOD NR 1 I 2
- ldi Dwa, 3
- out PORTA, Dwa
- ret
- three: ; 1, 2, 3
- ldi Dwa, 7
- out PORTA, Dwa
- ret
- four: ; 1, 2, 3, 4
- ldi Dwa, 15
- out PORTA, Dwa
- ret
- Mig:
- rcall Opoznienie1
- pop Dwa
- out PORTA, Dwa
- rcall Opoznienie1
- pop Dwa
- out PORTA, Dwa
- rcall Opoznienie1
- ldi Dwa, 0
- out PORTA, Dwa
- rjmp Klawisz
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement