$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 (MT4_WS07_P09.A51) ;------------------------------------------------------------------------ ;Programmbeschreibung ;------------------------------------------------------------------------ ;Programm: ;Taste T2 abfragen ;Loesen Sie an Port 3 einen externen Interrupt aus. ;ISR_AD A/D-Wandlung zwischen 0..5V ? Ergebnis in R4 ; ; ; ;Erstellt am: Dienstag, 30. Oktober 2007 07:32:33 ;Programmiert: Student ; ;Verwendete Einspruenge: keine ; ;Verwendete Unterprogramme: keine ; ; ;Verwendete Register und Variable: ;Registerbank(0) ;R2 ; ;Kommentar: ; ;Aenderungen: ;Geaendert am: Dienstag, 30. Oktober 2007 07:32:33 ; ; ;------------------------------------------------------------------------ ;Initialisierungsteil fuer allgemeine Konstanten ;------------------------------------------------------------------------ CSEG AT 0H ;Legt absolute Codesegmentadresse auf 0h jmp INIT ; ;------------------------------------------------------------------------ ;Interrupt-Vektoren ;------------------------------------------------------------------------ ORG 03H ;Aufruf der Interrupt Service Routine fuer Interrupt 0 ;Zurueck von Interrupt ;------------------------------------------------------------------------ ;Initialisierungsteil fuer On-Chip Peripherie ;------------------------------------------------------------------------ ORG 100H ;Programmstart bei 100H INIT: ;Allgemeine Interrupt Freigabe IEN0 (BYTE) ;Spezielle Interrupt Freigabe fuer /INT0 ;------------------------------------------------------------------------ ;Programmschleife ;------------------------------------------------------------------------ ABFRAGE: ;T2 ? jmp ABFRAGE ISR0: ;A/D-Wandlung --> Ergebnis in R4 ;Sprung aus der Interrupt Service Routine end