$NOMOD51                ;der Modus fuer 8051 wird abgeschaltet
$debug
$nolist                 ;es wird kein Listing fuer reg51 erstellt
$include(REG51.inc) 	;die 8051-spezifischen Daten
$list                   ;es wird ein Listing erstellt
$title (DREIHSCH.A51)
;------------------------------------------------------------------------
;Programmbeschreibung
;------------------------------------------------------------------------
;Programm:
; T1 betätigt die Adresse 30h wird mit 05Ah beschrieben
; T1 nicht besteatigt Adresse 30h wird mit 0A5h beschrieben
; mit Befehl Mov 30h, #0A5h
;
;Erstellt am: Montag, 19. Oktober 2009 09:35:16 
;Programmiert:   
;
;Verwendete Einspruenge: keine
;
;Verwendete Unterprogramme: keine
;
;
;Verwendete Register und Variable:
;Registerbank(0)
;R2
;
;Kommentar:
;
;Aenderungen:
;Geaendert am: Montag, 19. Oktober 2009 09:35:16
;
;
;------------------------------------------------------------------------
;Initialisierungsteil fuer allgemeine Konstanten
;------------------------------------------------------------------------

CSEG AT 0H              ; Legt absolute Codesegmentadresse auf 0h
jmp INIT

;------------------------------------------------------------------------
;Interrupt-Vektoren
;------------------------------------------------------------------------
;ORG

;------------------------------------------------------------------------
;Initialisierungsteil fuer On-Chip Peripherie
;------------------------------------------------------------------------
ORG 100H                ; Programmstart bei 100H
INIT:

;------------------------------------------------------------------------
;Programmschleife
;------------------------------------------------------------------------
ABFRAGE:
jnb P1.1, MARKE5A						 ; Taste T1 --> 5Ah
jb P1.1, MARKEA5						 ; /Taste T1 -->A5h
jmp ABFRAGE

MARKE5A:
Mov 30h,#05Ah							 ; Schiebe 5Ah in Adresse 30h
jmp ABFRAGE

MARKEA5:
Mov 30h,#0A5h							 ; Schiebe A5h in Adresse 30h
jmp ABFRAGE


end