$nomod51                ;der Modus fuer 8051 wird abgeschaltet

$debug

$nolist                 ;es wird kein Listing fuer reg535 erstellt

$include(reg535.pdf)    ;die 80535-spezifischen Daten

$list                   ;es wird ein Listing erstellt

$ title (FZTMCG.A51)

;------------------------------------------------------------------------

;Programmbeschreibung

;------------------------------------------------------------------------

;Programm: Ein Bit zurücksetzen und wieder setzen

;

;

;Datum: 31.10.2002

;Programmiert: J. Walter

;

;Verwendete Einspruenge: keine

;

;Verwendete Unterprogramme: keine

;

;

;Verwendete Register und Variable:

;Registerbank(0)

;R2

;

;Kommentar:

;

;Aenderungen:

;Datum:

;

;

;------------------------------------------------------------------------

;Initialisierungsteil für allgemeine Konstanten

;------------------------------------------------------------------------

CSEG AT 0H              ;Legt absolute Codesegmentadresse auf 0h

jmp INIT

;

;------------------------------------------------------------------------

;Interrupt-Vektoren

;------------------------------------------------------------------------

;------------------------------------------------------------------------

;Initialisierungsteil für On-Chip Peripherie

;------------------------------------------------------------------------

ORG 100H                ;Programmstart bei 100H

INIT:

;------------------------------------------------------------------------

;Programmschleife

;------------------------------------------------------------------------

ABFRAGE:

jnb P1.1,LOW_PEGEL      ;Ist der Taster 1 betaetigt?

jnb P1.2,HIGH_PEGEL     ;Ist der Taster 2 betaetigt?

jmp ABFRAGE

LOW_PEGEL:

clr P3.2          ;Anschluss 3.2 wird auf LOW geschaltet

                  ;LED leuchtet

jmp ABFRAGE

HIGH_PEGEL:

setb P3.2         ;Anschluss 3.2 wird auf HIGH geschaltet

                  ;LED aus

jmp ABFRAGE

end