$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 (SPEICHERT.A51)

;------------------------------------------------------------------------

;Programmbeschreibung

;------------------------------------------------------------------------

;Programm:

;Mit T1 wird Speicherbereich 30H - 60H mit 5AH beschrieben

;Mit T2 wird Speicherbereich 30H - 60H mit A5H beschrieben

;Datum: 21.11.2002

;Programmiert: WS2002 Fahrzeugtechnologie

;

;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:

;------------------------------------------------------------------------

;Programmschleife

;------------------------------------------------------------------------

ABFRAGE:

jnb P1.1,FUENF_A  ;Abfrage TASTE 1

jnb P1.2,A_FUENF  ;Abfrage TASTE 2

jmp ABFRAGE

FUENF_A:

mov R0,#30H       ;Adresszeiger in R0

mov A,#5AH        ;Akku mit 5AH laden

SCHLEIFE_1:

mov @R0,A         ;Adresse in R0 wird mit Akku überschrieben

inc R0                  ;Adresse +1

cjne R0,#60H,SCHLEIFE_1 ;Ist Adresse 60?

jmp ABFRAGE

A_FUENF:

mov R0,#30H       ;Adresszeiger in R0

mov A,#0A5H       ;Akku mit A5H laden

SCHLEIFE_2:

mov @R0,A         ;Adresse in R0 wird mit Akku überschrieben

inc R0                  ;Adresse +1

cjne R0,#60H,SCHLEIFE_2 ;Ist Adresse 60?

jmp ABFRAGE

end