$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 (NOR.A51)
;------------------------------------------------------------------------
;Programmbeschreibung
;------------------------------------------------------------------------
;Programm: NOR simuliert an Taster T1 und T2 ein NOR-Glied
;B = Taste betaetigt   NB = Taste nicht betaetigt
;  
;E2  E1  NOR T2-P1.2  T1-P1.1 Fall
; 0   0   1  NB 1     NB 1     0
; 0   1   0  NB 1      B 0     1
; 1   0   0   B 0     NB 1     2
; 1   1   0   B 0      B 0     3
;
;Datum: 10.12.2001
;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:
jmp ABFRAGE

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

ABFRAGE:
mov A,P1		;Port 1 einlesen
anl A,#00000110B	;Blendet die anderen Bits aus
rr A			;Fall 0...3
inc A			;fuer djnz-Befehl
djnz ACC,NICHTFALL0	;
setb P3.2     		;Fall 0
jmp ABFRAGE		
NICHTFALL0:
djnz ACC,NICHTFALL1	;
setb P3.2		;Fall 1
jmp ABFRAGE
NICHTFALL1:
djnz ACC,NICHTFALL2	;
setb P3.2		;Fall 2
jmp ABFRAGE
NICHTFALL2:
clr P3.2		;Fall 3
jmp ABFRAGE
end