Gast
#1292919
;Aufgabenstellung: Lauflicht schnell langsam links rechts
;Projekt 1.0 4CHELI
;01.10.2008
LEDS EQU P1 ;Leds auf Port 1 setzen
Tasten EQU P3 ;Tasten auf Port 3 setzen
TaSlow BIT Tasten.0 ;Tasten deklarieren
TaFast BIT Tasten.1
TaRechts BIT Tasten.2
TaLinks BIT Tasten.3
BitLinks BIT 00H ;Überprüfen ob Links oder Rechts
BitFast BIT 01H ;Überprüfen ob Schnell oder Langsam
ORG 0000H ;Programm beginnt bei 0000H
Start:
SlowFast: jnb TaSlow, Clr_Fast ;Wenn TaSlow gedrückt springen nach
Clr_Fast
jnb TaFast, Set_Fast
RechtsLinks: jnb TaRechts, Clr_Links ;Wenn TaRechts gedrückt springen
nach Clr_Links
jnb TaLinks, Set_Links
JMP WeiterF ;Springen nach WeiterF
Clr_Fast: CLR BitFast ;BitFast auf 0 setzen
JMP RechtsLinks
Set_Fast: SETB BitFast ;BitFast auf 1 setzen
JMP RechtsLinks
Clr_Links: CLR BitLinks ;BitLinks auf 0 setzen
JMP WeiterF
Set_Links: SETB BitLinks ;BitLinks auf 1 setzen
JMP WeiterF
WeiterF: jb BitFast,LedFast ;Wenn BitFast 1 ist, nach LedFast
springen
jnb BitFast,LedSlow ;Wenn BitFast 0 ist, nach LedSlow springen
WeiterL: jb BitLinks,LedLinks ;Wenn BitLinks 1 ist, nach LedLinks
springen
jnb BitLinks,LedRechts ;Wenn BitLinks 0 ist, nach LedRechts
springen
LedFast:
LedSlow:
LedLinks:
LedRechts:
JMP Start
End