$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 (NOR01.A51) ;------------------------------------------------------------------------ ;Programmbeschreibung ;------------------------------------------------------------------------ ;Programm: ;Es wird ein NOR Glied mit T1 und T2 simuliert ;Spezielle Loesung ;Datum: 11.12.2001 ;Programmiert:FT7 MT4 ; ;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 PeripherieICHT ;------------------------------------------------------------------------ ORG 100H ;Programmstart bei 100H INIT: setb P3.2 ;Lampe aus ;------------------------------------------------------------------------ ;Programmschleife ;------------------------------------------------------------------------ ABFRAGE: jnb P1.1,LICHT_AUS ;T1 bestätigt jnb P1.2,LICHT_AUS ;T2 bestätigt clr P3.2 ;Lampe ein jmp ABFRAGE LICHT_AUS: setb P3.2 ;Lampe aus jmp ABFRAGE end