79 lines
1.9 KiB
NASM
79 lines
1.9 KiB
NASM
;==========================
|
|
; Author: Marcel Schirmer
|
|
; Date: 31.05.2025
|
|
;==========================
|
|
|
|
.nolist
|
|
.include "./m328Pdef.inc"
|
|
.list
|
|
|
|
.def setter = R16
|
|
.def overflows = R17
|
|
.def active_led = R18
|
|
|
|
.org 0x0000
|
|
rjmp init
|
|
.org 0x0020
|
|
rjmp overflow_handler
|
|
|
|
.macro check_led
|
|
cpi active_led, @0
|
|
brne PC+3
|
|
ldi setter, (1<<@0)
|
|
out PORTD, setter
|
|
.endmacro
|
|
|
|
init:
|
|
;--
|
|
; Output Ports definieren
|
|
;----
|
|
ser setter
|
|
out DDRD, setter ; Alle LEDs standardmäßig aus
|
|
|
|
;--
|
|
; Timer/Counter konfigurieren
|
|
;----
|
|
ldi setter, 0b00000011
|
|
out TCCR0B, setter ; CLK/1024 ergibt 250.000 Timer-Ticks/Sekunde
|
|
ldi setter, 0b00000001
|
|
sts TIMSK0, setter ; Timer-Interupt aktivieren
|
|
sei ; globale Interrups aktivieren
|
|
|
|
;--
|
|
; Definiere Startzustand
|
|
;----
|
|
ldi active_led, 0
|
|
ldi setter, 0
|
|
out TCNT0, setter ; Timer/Counter explizit mit 0 initialisieren
|
|
|
|
main:
|
|
clr setter
|
|
out PORTD, setter ; Alle LEDs erstmal aus
|
|
|
|
;--
|
|
; Schalte aktuell aktive LED gezielt wieder an
|
|
;----
|
|
check_led 0
|
|
check_led 1
|
|
check_led 2
|
|
check_led 3
|
|
check_led 4
|
|
check_led 5
|
|
check_led 6
|
|
check_led 7
|
|
|
|
rjmp main
|
|
|
|
overflow_handler:
|
|
inc overflows
|
|
cpi overflows, 246 ; bei ~980 Überläufe/Sekunde entsprechen 245 Überläufe ca. 250ms
|
|
brne overflow_handler_exit ; early Return wenn Schwellenwert noch nicht erreicht
|
|
clr overflows ; Überlaufzähler kontrolliert zurücksetzen
|
|
inc active_led ; nächste LED aktivieren
|
|
cpi active_led, 8 ; prüfen ob LED-Zähler überzählt wurde
|
|
brne overflow_handler_exit ; early Return solange die aktive LED im erlaubten Bereich liegt
|
|
ldi active_led, 0 ; LED-Zähler kontrolliert zurücksetzen
|
|
overflow_handler_exit:
|
|
reti
|
|
|