$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 (P07_MCSS08.A51)
;------------------------------------------------------------------------
;Programmbeschreibung
;------------------------------------------------------------------------
;Programm:	Beschreiben Sie den gesamten möglichen internen Datenspeicher
;			des 80535 auf Taste T1 mit 5AH
;			Beschreiben Sie den gesamten möglichen internen Datenspeicher 
;			des 80535 auf Taste T2 mit A5H
;
;
;
;Erstellt am: Montag, 14. April 2008 11:16:06 
;Programmiert: A.Klein / klal0020@hs-karlsruhe.de
;
;Verwendete Einspruenge: keine
;
;Verwendete Unterprogramme: keine
;
;
;Verwendete Register und Variable:
;Registerbank(0)
;R2
;
;Kommentar:
;
;Aenderungen:
;Geaendert am: Montag, 14. April 2008 09:16:06
;
;
;------------------------------------------------------------------------
;Initialisierungsteil fuer allgemeine Konstanten
;------------------------------------------------------------------------


CSEG AT 0H              ;Legt absolute Codesegmentadresse auf 0h
jmp INIT
;
;------------------------------------------------------------------------
;Interrupt-Vektoren
;------------------------------------------------------------------------
;ORG 

;------------------------------------------------------------------------
;Initialisierungsteil fuer On-Chip Peripherie
;------------------------------------------------------------------------
ORG 100H                ;Programmstart bei 100H
INIT:

;------------------------------------------------------------------------
;Programmschleife
;------------------------------------------------------------------------

LEERLAUF:

jnb P1.1,TASTE1			    ;Taster abfragen
jnb P1.2,TASTE2			    ;Taster abfragen
jmp LEERLAUF				;Sprung zu Leerlauf

TASTE1:

mov A,#5AH					 ;Akku Wer zuweisen
mov R0,#03H					 ;Register Startadresse zuweisen
mov R2,#0FDH					 ;Register Adressenanzahl zuweisen
setb P1.1
jmp SCHLEIFE				 ;Sprung zu Schleife

TASTE2:

mov A,#0A5H					 ;Akku Wer zuweisen
mov R0,#03H					 ;Register Startadresse zuweisen
mov R2,#0FDH					 ;Register Adressenanzahl zuweise
setb P1.2
jmp SCHLEIFE				 ;Sprung zu Schleife

SCHLEIFE:

mov @R0,A					  ;indirekte Adressierung
inc R0						  ;Register inkrementieren
djnz R2,SCHLEIFE			  ;wenn Register2 = "0" dann beende SCHLEIFE
jmp LEERLAUF 				  ;Sprung zu Leerlauf

end							  ;Programmende