Jo, jag fick det att funka och så men jag försökte få den att lysa samtidigt som den läste av med då gick det inte alls bra

Så om någon hade tips på hur man kan fixa det vore jag glad...
Kod: Markera allt
-edit-
Kod: Markera allt
.include "tn15def.inc"
.def Temp = R16
.def Delay = R17
.def Delay2 = R18
.org 0x0000 ; Interrupt vector
rjmp Mainloop
Mainloop:
ldi Temp, 0xFF
out DDRB, Temp ; Sätt PortB som utgång
ldi Temp, 0x01
out PORTB, Temp ; "Ladda" sensor-dioden
rcall Delay1ms
ldi Temp, 0x00
out PORTB, Temp ; Sluta ladda
ldi Temp, 0x00
out DDRB, Temp ; Sätt PortB som ingång
rcall Delay1ms
sbic PINB, 0 ; "Skip if bit 0 on PINB is 0"
rjmp StatusLED
rjmp Mainloop
Delay1ms:
ldi Delay, 0x04
Delayloop:
ldi Delay2, 0xFF
Delayloop2:
dec Delay2
brne Delayloop2
dec Delay
brne Delayloop
ret
StatusLED:
ldi Temp, 0xFF
out DDRB, Temp ; Sätt PortB som utgång
ldi Temp, 0x02
out PORTB, Temp ; Tänd status-LED:n
ldi Delay, 0xFF
Longdelay:
ldi Delay2, 0xFF
Longdelay2:
dec Delay2
brne Longdelay2
dec Delay
brne Longdelay
ldi Temp, 0x00
out PORTB, Temp ; Släck status-LED:n
ret