Dimmer über Seriell

[Stefan H. (stefanha)]

Ich möchte gerne über den Seriellen anschluss mehrere LEDs an einem 
Atmega 8 dimmen.Ich habe da schon mal etwas zusammen gesucht. Dieses 
Programm geht aber nur halb. ICh kann die LEDs zwar dimemn aber nur wenn 
ich die Bytes im Programm festlege. Wenn ich über Seriell einen Byte 
schicke, dann geht die LED nur an. Und zwar gebe ich zu erst eien byte 
raus womit ich festlege welche led und dann nach einen zweiten um die 
Helligkeit festzulegen.

 .include "m8def.inc"
 
.def temp  = r16
 .def tempII  = r17
  

.def PWMCount = r24
 
.def ocr_1 = r18                      ; Helligkeitswert Led1: 0 .. 127
.def ocr_2 = r19                      ; Helligkeitswert Led2: 0 .. 127
.def ocr_3 = r20                      ; Helligkeitswert Led3: 0 .. 127
.def ocr_4 = r21                      ; Helligkeitswert Led4: 0 .. 127
.def ocr_5 = r22                      ; Helligkeitswert Led5: 0 .. 127
.def ocr_6 = r23                      ; Helligkeitswert Led6: 0 .. 127
 

.org OVF0addr
        rjmp    timer0_overflow       ; Timer Overflow Handler
 

 
 
.equ F_CPU = 4000000                            ; Systemtakt in Hz
.equ BAUD  = 9600                               ; Baudrate
 
; Berechnungen
.equ UBRR_VAL   = ((F_CPU+BAUD*8)/(BAUD*16)-1)  ; clever runden
.equ BAUD_REAL  = (F_CPU/(16*(UBRR_VAL+1)))     ; Reale Baudrate
.equ BAUD_ERROR = ((BAUD_REAL*1000)/BAUD-1000)  ; Fehler in Promille
 
.if ((BAUD_ERROR>10) || (BAUD_ERROR<-10))       ; max. +/-10 Promille Fehler
  .error "Systematischer Fehler der Baudrate grösser 1 Prozent und damit zu hoch!"
.endif
 
.org 0x00
        rjmp main
 
.org URXCaddr
        rjmp int_rxc





main:
        ldi     temp, LOW(RAMEND)     ; Stackpointer initialisieren
        out     SPL, temp
        ldi     temp, HIGH(RAMEND)
        out     SPH, temp
  
        ldi     temp, 0xFF            ; Port B auf Ausgang
        out     DDRC, temp

        ldi     ocr_1, 127-0
        ldi     ocr_2, 127-0
        ldi     ocr_3, 127-0
        ldi     ocr_4, 127-0
        ldi     ocr_5, 127-0
        ldi     ocr_6, 127-0
 
        ldi     temp, 1<<CS00         ; CS00 setzen: Teiler 1
        out     TCCR0, temp
 
        ldi     temp, 1<<TOIE0        ; TOIE0: Interrupt bei Timer Overflow
        out     TIMSK, temp
 
        
 
    ; Port D = Ausgang
 
    ldi     temp, 0xFF
    out     DDRD, temp

 
    ; Baudrate einstellen
 
    ldi     temp, HIGH(UBRR_VAL)
    out     UBRRH, temp
    ldi     temp, LOW(UBRR_VAL)
    out     UBRRL, temp
 
    ; Frame-Format: 8 Bit
 
    ldi     temp, (1<<URSEL)|(1<<UCSZ1)|(1<<UCSZ0)
    out     UCSRC, temp
 
    sbi     UCSRB, RXCIE                ; Interrupt bei Empfang
    sbi     UCSRB, RXEN                 ; RX (Empfang) aktivieren
    
    sei                                 ; Interrupts global aktivieren
    
    
    
    
    
     
loop:  rjmp    loop
 
 

timer0_overflow:                      ; Timer 0 Overflow Handler
        inc     PWMCount              ; den PWM Zähler von 0 bis
        cpi     PWMCount, 128         ; 127 zählen lassen
        brne    WorkPWM
        clr     PWMCount
 
WorkPWM:
        ldi     temp,  0b11000000    ; 0 .. Led an, 1 .. Led aus
 
        cp      PWMCount, ocr_1       ; Ist der Grenzwert für Led 1 erreicht
        brlo    OneOn
        ori     temp, $20
 
OneOn:  cp      PWMCount, ocr_2       ; Ist der Grenzwert für Led 2 erreicht
        brlo    TwoOn
        ori     temp, $10
 
TwoOn:  cp      PWMCount, ocr_3       ; Ist der Grenzwert für Led 3 erreicht
        brlo    ThreeOn
        ori     temp, $08
 
ThreeOn:cp      PWMCount, ocr_4       ; Ist der Grenzwert für Led 4 erreicht
        brlo    FourOn
        ori     temp, $04
 
FourOn: cp      PWMCount, ocr_5       ; Ist der Grenzwert für Led 5 erreicht
        brlo    FiveOn
        ori     temp, $02
 
FiveOn: cp      PWMCount, ocr_6       ; Ist der Grenzwert für Led 6 erreicht
        brlo    SetBits
        ori     temp, $01
 
SetBits:                              ; Die neue Bitbelegung am Port ausgeben
        out     PORTC, temp
 
        reti




int_rxc:
    push    temp                            ; temp auf dem Stack sichern
    in      temp, UDR                       ; empfangenes Byte lesen,
                                           



ledwertI:
   cpi     tempII, 1                   ; if
   brne    ledwertII                     ; if not  
   
   
   ldi     ocr_1, 127-UDR

  
   rjmp    ende 

ledwertII:

ledI:
    cpi     temp, 1                   ; if
    brne    ledII                     ; if not
  ldi    tempII, 1

  rjmp    ende

ledII:
    

  ende:
    pop     temp                            ; temp wiederherstellen
    reti                                    ; Interrupt beenden                                    ; Interrupt beenden