[TGI] Geocaching-Lichtsensor

.include "m16def.inc"

.cseg                           ; Codesegment
.org    0x000                   ; Code beginnt bei Adresse 0x000
init:
    ldi     R16,low(RAMEND)
    out     SPL,R16
    ldi     R17,high(RAMEND)
    out     SPH,R17
    jmp     main


; Main (b)+(h):
; =====
main:
    ldi     R17,(1<<CS00)       ; 1Mhz ist die Processor Clock
    out     TCCR0,R17           ; Modus setzen (hier: Takt = Clock)
    call    read
    call    analyse
    rjmp    main                ; noob... aehh, loop!


; (c):
; ====
wait_x_ms:
    push    R17
    mov     R17,R16             ; Den Parameter von R16 zwischenspeichern
    dec     R17                 ; R17-1
    out     OCR0,R17            ; Parameter-1 in das OCR-Register schreiben
    ldi     R17,(1<<OCF0)       ; Output compare flag...
    out     TIFR,R17            ; ... resetten
    clr     R17                 ; R17 = 0
    out     TCNT0,R17           ; Timer zuruecksetzen
poll:
    in      R17,TIFR            ; TIFR-Register in R17
    sbrs    R17,OCF0            ; falls OCF-Bit von TIFR nicht gesetzt ist...
    rjmp    poll                ; ... loop
    pop     R17
    ret


; (d):
; ====
wait_10us:
    nop                         ; nichts tun...
    nop                         ; ... und noch mehr davon!
    ret


; (e):
; ====
read:
    ldi     R16,(1<<DDA0)       ; PINA
    out     DDRA,R16            ; konfigurieren
    call    wait_10us           ; 10us warten
    in      R16,PINA            ; Wert von PINA laden
    lsr     R16                 ; und PINA0 rausschiften
    ret


; (f):
; ====
analyse:
    push    R16
    sbrs    R16,0               ; falls der 1.Bit von R16...
    rjmp    analyse_wait        ; ... 0 ist, dann warte
    call    blink               ; ansonsten, blinke
    rjmp    analyse_end         ; analyse beendet
analyse_wait:
    ldi     ZL,low(tab*2)       ; lade, wie
    ldi     ZH,high(tab*2)      ; lange
    lpm     R16,Z               ; gewartet
    call    wait_x_ms           ; werden soll
analyse_end:
    pop     R16
    ret


; (g):
; ====
blink:
    push    R16
    push    R17
    ldi     ZL,low(tab*2+1)             ; Zweiten Wert
    ldi     ZH,high(tab*2+1)            ; aus der Tabelle
    lpm     R17,Z                       ; laden
    ldi     R16,(1<<DDA0)|(1<<DDA1)     ; DDRA-Register
    out     DDRA,R16                    ; konfigurieren
    ldi     R16,26                      ; wait_x_ms benoetigt selber 24 Takte, deshalb nur 26 Takte warten
    ldi     R18,(1<<PORTA0)|(1<<PORTA1) ; LED an
    ldi     R19,(1<<PORTA0)             ; LED aus
blink_loop:
    out     PORTA,R18                   ; setze den PORTA auf LED-an
    call    wait_x_ms                   ; warte
    out     PORTA,R19                   ; setze den PORTA auf LED-aus
    call    wait_x_ms                   ; warte
    dec     R17                         ; Zaehler dekrementieren...
    brne    blink_loop                  ; ... falls dieser noch nicht bei 0 angekommen ist: loop
blink_end:
    ldi     R16,(1<<DDA0)               ; DDRA-Register
    out     DDRA,R16                    ; rekonfigurieren
    pop     R17
    pop     R16
    ret


; Tabelle:
; ========
tab:
    .db     6,10                ; Wartezeit in ms, Anzahl des Blinkens