CodefürAssambler

Bitte NOCH nicht löschen brauch das für Zuhause. BITTE:

$IC(sfr.def)
org 5000h

mov P4,#01001010B
CALL ZEIT
mov P4,#00000010B
CALL ZEIT
mov P4,#01001010B
CALL ZEIT
mov P4,#00000010B
CALL ZEIT
mov P4,#10010010B
CALL ZEIT
CALL ZEIT

neu:
mov dptr,#Ampel

Anf:
movx a,@dptr ;Inhalt des Pointers in Akku
jz ende ;Ist Inhalt zu Ende? Bei Ja ->ene
mov p4,a ;Akku in P4
CALL ZEIT
CALL ZEIT
CALL ZEIT
CALL ZEIT
inc dptr ;Pointer einen weiter
jmp Anf

ende: jmp neu

$IC(ZEIT.DEF)

Ampel: db 10010001B,10001010B,10000110B,01001010B,00110010B,01010010B,0

end

_matze

Hättest du dir nicht einfach ne E-Mail schicken können?

P.S.: Dat heißt Assembler!

Ok danke, der Thread kann gelöscht werden ^^