Hallo,

ich versuche gerade in die Welt der Mikrocontroller zu kommen. Nun gibt es anfänglich schon wieder ein paar schwierigkeiten. Anfangs habe ich mit Assembler rumprobiert, nun will ich Bascom testen.

Nun habe ich mit Bascom versucht das selbe Programm zu schreiben als mit Assembler. Nur das funktioniert nicht.. was mache ich falsch? Will eigentlich nur mal eine LED zum leuchten bringen.. mit Assembler klappt es.. mit Bascom nicht ..

Assemblercode:
Code:
;test.asm: Rote LED an Pin PD3, gelbe an Pin PD4, grüne an PD5
;--------------------------------------------------------------


.include "m8def.inc"


         ldi r16, 0b00100000       ; ins Arbeitsregister r16 laden
         out DDRD, r16       ; Inhalt von r16 ins IO-Register DDRD ausgeben
		  
         ldi r16, 0b00100000 ; in r16 laden
         out PORTD, r16      ; r16 ins IO-Register PORTD ausgeben
loop:
	     
		 sbi PORTD, 5

		rjmp loop

Bascomcode:

Code:
'test.BAS: Rote LED an Pin PD3, gelbe an Pin PD4, grüne an PD5
'--------------------------------------------------------------
$regfile = "m8def.dat"                                      'ATMega8
$crystal = 16000000                                         'Quarz: 16 MHz
Ddrd = &B00001000                                           'Pin PD3 als Ausgang konfigurieren
Portd = &B11111111                                          'PD0...PD7 auf High setzen
Do
Loop
End
wäre super wenn ihr mir helfen könntet![/code]