Keil Assembler Programm 8051 Überprüfung

[Peter (Gast)]

Hallo, Ich habe zu folgender Aufgabenstellung ein Programmablauf in Keil 
geschrieben und würde nun gerne Wissen, ob das alles so stimmt. Es wäre 
sehr nett, wenn jemand sich das mal anschauen könnte, bin nämlich noch 
ein Anfänger :/

Aufgabenstellung:

Entwerfen Sie ein Assemblerprogramm, das die folgenden Aufgaben zur 
Ausführung bringt:
Von dem Port 0 sollen zwei im Binär-Format vorliegende Werte eingelesen 
werden. Wert I liegt an den Bits 0 bis 3 und Wert II liegt an den Bits 4 
bis 7 an. Das Bar Graph Arrays 3 ist über Port 3 so zu steuern, dass die 
niederwertigsten LED-Bits 0 bis 3 durch den über Port 0 eingelesenen 
Wert II entsprechend geschalten werden, die höherwertigsten LEDs sind 
sicher
auszuschalten. Nach einer Verzögerungszeit von ca. 500msec werden die 
LEDs so geschaltet, dass alle 200msec das niederwertigste LED in das 
höchstwertigste LED übertragen wird, bis
zum Schluss die vier niederwertigsten Bits gelöscht und die vier 
höchstwertigen Bits entsprechend dem eingelesenen Wert II leuchten. Die 
gemeinsame Kathode ist über Port 1 wie folgt anzusteuern: Bar 3 über Bit 
2. Da die Controlling-Abteilung die acht Vorwiderstände pro Array aus 
Kostengründen gestrichen hat, wurden diese durch den
Vorwiderstand in dem Kathodenstromkreis ersetzt. Damit alle LEDs mit 
gleicher Helligkeit für den Betrachter leuchten, ist sicherzustellen 
dass zu jedem Zeitpunkt nur jeweils eine LED angesteuert wird. Damit 
sich einen flimmerfreie Anzeige ergibt, ist der gesamte Anzeigezyklus 
mindestens 100 mal in der Sekunde zu durchlaufen. Das Programm soll 
dauerhaft betrieben werden.



Nun der Quellcode dazu :

stack_seg SEGMENT IDATA ;
code_seg SEGMENT CODE ;
RSEG stack_seg
top_stack: DS 10h ; 16 Byte für Stack freihalten (Wertebereich freihalten)
CSEG AT 0 ; Start an Adresse 0

JMP START ; Sprung zum Start
ORG 0Bh ; Interruptvektor Timer0
JMP ISR_TIM_0 ; Einsprungstelle Timer0
timer_low EQU 0AFh ; 50msec = 15535 = 3CAF hexadezimal (65535 = FFFF mücro sekunden - 50000 mükrosekunden )
timer_high EQU 03Ch
RSEG code_seg

START:
MOV SP,#top_stack ; Initialisierung Stack 

MOV TL0,#timer_low ; Timer0 LowByte     
MOV TH0,#timer_high ; Timer0 HighByte 
MOV TMOD,#00000001b ; Timer Modus 1
SETB ET0 ; Interruptfreigabe Timer0    | 
SETB EA ; Globale Interruptfreigabe   |
MOV P0,#0 ; Port0 zwecks Eingabe
MOV P1,#0FBh ; Port1 zwecks Common Cathode | 0FBh 0= Lowbyte FB = Highbyte 
MOV P3,#0 ; Port3 zwecks Ausgabe

LOOP1:
MOV A,P0 ; Eingabewert nach A kopieren / sichern
ANL A,#0F0h ; Bit 0 bis 3 Null setzen  | 0 = Lowbyte F0= Highbyte 
SWAP A ; Low- und Highbyte tauschen
MOV R5,A ; Den bearbeiteten Eingabewert nach R5 kopieren
MOV R0,#10 ; R0 auf 10 setzen, Counter (10 bis 0)
SETB TR0 ; Timer 0 starten

LOOP2:
MOV A,R0 ; aktuellen Counterwert nach A kopieren
JNZ LOOP2 ; Sprung zum Label LOOP2 wenn Counter != 0
CLR TR0 ; Timer 0 stoppen
MOV R1,#00000001b ; R1 auf 1 setzen, Verwendung als Maske
MOV R0,#4 ; R0 auf 4 setzen, Counter (4 bis 0) / 4 * 50 msec = 200msec 
MOV R2,#5 ; R2 auf 4 setzen, Counter (4 bis 0)
SETB TR0 ; Timer 0 starten

LOOP3:
MOV A,R5 ;Den bearbeiteten Eingabewert nach A kopieren
ANL A,R1 ; A mit R1 (Maske) UND-verknüpfen
MOV P3,A ; Ausgabe von A an Port3

MOV A,R1 ;----------------------------------------;
RL A ; R1 (Maske) ein mal nach links rotieren / verschieben RL = Rotate LEFT  ;
MOV R1,A ;----------------------------------------;

MOV A,R0 ; aktuellen Counterwert nach A kopieren
JNZ LOOP3 ;JumpNotZero | Sprung zum Label LOOP3 wenn Counter != 0
CLR TR0 ; Timer 0 stoppen
DEC R2 ; Counterwert R2 dekrementieren
MOV A,R2 ; R2 nach kopieren
JZ LOOP1 ; Sprung zum Label LOOP1 wenn Counter == 0
MOV A,R5 ;----------------------------------------;
RR A ; R5 ein mal nach rechts rotieren ;
MOV R5,A ;----------------------------------------;
MOV R1,#00000001b ; R1 auf 1 setzen, Verwendung als Maske
MOV R0,#4 ; R0 auf 4 setzen, Counter (4 bis 0)
SETB TR0 ; Timer 0 starten
JMP LOOP3 ; Sprung zum Label LOOP3

;-------------------
;Interruptroutine 
;-------------------

ISR_TIM_0: ; Interruptroutine wird im hintergrund immer aufgerufen

PUSH PSW ; PSW-Wert auf Stack legen
PUSH ACC ; Akkumulator-Wert auf Stack legen
DEC R0 ; Counterwert R0 dekrementieren
MOV TL0,#timer_low ; Timer0 LowByte / Timer0 Register laden
MOV TH0,#timer_high ; Timer0 HighByte / Timer0 Register laden
POP ACC ; Akkumulator-Wert vom Stack holen
POP PSW ; PSW-Wert vom Stack holen /rekonstruiere PSW 
RETI ; Rücksprung aus der Interruptroutine
END

Mfg Peter

[8051 (Gast)]

....Münke :-)