$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 (P10_MCSS08.A51)
;------------------------------------------------------------------------
;Programmbeschreibung
;------------------------------------------------------------------------
;Programm:
;Eine Leerlaufschleife in der L2 = P3.3 eingeschaltet wird
;Port 3.2 loest einen externen Interrupt aus und schaltet L2 aus
;
;
;
;Erstellt am: Dienstag, 15. April 2008 13:18:43 
;Programmiert: Christian Gutenkunst
;
;Verwendete Einspruenge: keine
;
;Verwendete Unterprogramme: keine
;
;
;Verwendete Register und Variable:
;Registerbank(0)
;R2
;
;Kommentar:
;
;Aenderungen:
;Geaendert am: Dienstag, 15. April 2008 13:18:43
;
;
;------------------------------------------------------------------------
;Initialisierungsteil fuer allgemeine Konstanten
;------------------------------------------------------------------------


CSEG AT 0H              ;Legt absolute Codesegmentadresse auf 0h
jmp INIT
;
;------------------------------------------------------------------------
;Interrupt-Vektoren
;------------------------------------------------------------------------
ORG 0003h				;Interruptvektor /INT0 wird eingestellt
call ISR_INT0			;Aufruf der Interruptserviceroutine
reti 					;Rueckkehr von Interrupt 
;------------------------------------------------------------------------
;Initialisierungsteil fuer On-Chip Peripherie
;------------------------------------------------------------------------
ORG 100H                ;Programmstart bei 100H
INIT:
;Interrupteinheit programmieren
setb EAL				;Allgemeine Interruptfreigabe
setb EX0				;Spezielle Interruptfreigabe INT0
;------------------------------------------------------------------------
;Programmschleife
;------------------------------------------------------------------------

LEERLAUF:
clr P3.3				;Lampe L2 einschalten
jmp LEERLAUF			;zurück zum LEERLAUF
ISR_INT0:
setb P3.3				;Lampe L2 ausschalten
ret 					;Rücksprung aus Unterprogramm
end