$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