$nomod51 ;Der Programmiermodus fuer den 8051 wird abgeschaltet
$debug   ;Aufnahme der Symboltabelle in der objektcode
$nolist  ;Das Listen nachfolgender Dateien unterdruecken
$include(reg535.pdf)  ;Header-Datei des 80535 laden
$list   ;Ab hier das Listening wieder ausgefuehrt
$title(Programmname)   ;Programmnamen eintragen

;----------------------------------------------------------------------
;Programmbeschreibung
;----------------------------------------------------------------------
;Hier die Aufgabe und die Funktion des Programmes protokollieren
;
;Autor:
;erstellt:
;Quellcodename:
;
;----------------------------------------------------------------------
;Initialisierungsteil fuer allgemeine Konstanten
;----------------------------------------------------------------------
;Konstanten
;
;----------------------------------------------------------------------
;Programmcodebeginn
;----------------------------------------------------------------------
cseg at 0h   ;Startadresse des Codesegments
jmp start    ;Springe zum Programmcode
;
;----------------------------------------------------------------------
;Interruptvektoren
;----------------------------------------------------------------------
;
;
;
;----------------------------------------------------------------------
;Programmcode
;----------------------------------------------------------------------
org 100h   ;Startadresse des Codesegments
start:     ;Sprungmarke
;z.B.: mov P5,A
;
;P5.0
mov C,P1.0
ANL C,/P1.1
ANL C,/P1.2
ANL C,/P1.3
mov P4.0,C

mov C,P1.0
CPL C
ANL C,P1.1
ANL C,/P1.2
ANL C,/P1.3
mov P4.1,C

mov C,P1.0
CPL C
ANL C,/P1.1
ANL C,P1.2
ANL C,/P1.3
mov P4.2,C

mov C,P1.0
ANL C,P1.1
ANL C,P1.2
ANL C,/P1.3
mov P4.3,C

mov C,P1.0
ANL C,/P1.1
ANL C,P1.2
ANL C,P1.3
mov P4.4,C

mov C,P1.0
CPL C
ANL C,P1.1
ANL C,P1.2
ANL C,P1.3
mov P4.5,C

mov C,P1.0
CPL C
ANL C,/P1.1
ANL C,/P1.2
ANL C,P1.3
mov P4.6,C

mov C,P1.0
ANL C,P1.1
ANL C,/P1.2
ANL C,P1.3
mov P4.7,C

mov C,P4.0
ORL C,P4.1
ORL C,P4.2
ORL C,P4.3
ORL C,P4.4
ORL C,P4.5
ORL C,P4.6
ORL C,P4.7
mov P5.0,C
mov P4,#0D

;P5.1
mov C,P1.1
ANL C,/P1.2
ANL C,/P1.3
mov P4.0,C

mov C,P1.1
CPL C
ANL C,P1.2
ANL C,/P1.3
mov P4.1,C

mov C,P1.1
ANL C,P1.2
ANL C,P1.3
mov P4.2,C

mov C,P1.1
CPL C
ANL C,/P1.2
ANL C,P1.3
mov P4.3,C

mov C,P4.0
ORL C,P4.1
ORL C,P4.2
ORL C,P4.3
mov P5.1,C
mov P4,#0D

;P1.2
mov C,P1.2
ANL C,/P1.3
mov P4.0,C

mov C,P1.2
CPL C
ANL C,P1.3
mov P4.1,C

mov C,P4.0
ORL C,P4.1
mov P5.2,C
mov P4,#0D

;P5.3
mov C,P1.3
mov P5.3,C

;
ret
;----------------------------------------------------------------------
;Unterprogramme und Konstanten im Programmcode
;----------------------------------------------------------------------
;
;
end