$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 (P02_MCSS08.A51)
;------------------------------------------------------------------------
;Programmbeschreibung
;------------------------------------------------------------------------
;Programm:
;Taste T1 an Port 4 und 5 wird 0A5H
;Taste T2 an Port 4 und 5 wird 5AH ausgegeben
;
;
;
;Erstellt am: Montag, 07.April 2008 10:22:00 
;Programmiert: Ch.Asal asch0011@hs-karlsruhe.de
;
;Verwendete Einspruenge: keine
;
;Verwendete Unterprogramme: keine
;
;
;Verwendete Register und Variable:
;Registerbank(0)
;R2
;
;Kommentar:
;
;Aenderungen:
;Geaendert am:
;
;
;------------------------------------------------------------------------
;Initialisierungsteil fuer allgemeine Konstanten
;------------------------------------------------------------------------


CSEG AT 0H              ;Legt absolute Codesegmentadresse auf 0h
ljmp INIT
;
;------------------------------------------------------------------------
;Interrupt-Vektoren
;------------------------------------------------------------------------
;ORG 

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

;------------------------------------------------------------------------
;Programmschleife
;------------------------------------------------------------------------

LEERLAUF:
jnb P1.1,T1_MARKE	;Abfrage T1 ?
jnb P1.2,T2_MARKE	;Abfrage T2 ?
jmp LEERLAUF
T1_MARKE:
mov P4,#0A5H		;schreibe A5H in Port 4
mov P5,#0A5H		;schreibe A5H in Port 5
;setb P1.1			;Fuer Simulator zuruecksetzen
jmp LEERLAUF		;zu LEERLAUF
T2_MARKE:
mov P4,#5AH			;schreibe 5AH in Port 4
mov P5,#5AH			;schreibe 5AH in Port 5
;setb P1.2			;Fuer Simulator zuruecksetzen
jmp LEERLAUF		;zu LEERLAUF
end