Vielen Dank für die bisherigen Antworten.
Am ADCs sollte es denke ich nicht liegen.
Habe hier mal mein Programm.
list p=16f877, st=OFF, x=OFF, n=0
errorlevel -302
#include <p16f877.inc>
__CONFIG _BODEN_OFF & _CP_OFF & _PWRTE_ON & _WDT_OFF & _WRT_ENABLE_ON & _XT_OSC & _DEBUG_ON & _CPD_OFF & _LVP_OFF
;-----------------------------------------------------------------------------
;
;--- Variablen
;
Erste equ 0x20 ; Zählregister
Zweite equ 0x21 ; Charakter_Zeiger
W_Stack equ 0x22 ; Retten von Work
S_Stack equ 0x23 ; Retten von Statusregister
Buffer equ 0x24 ; Zwischen-Speicher
;
Del_Reg equ 0x25 ; Zählreg. für Enter
;
Char_Zeiger equ 0x26 ; Charakterzeiger für LCD
;
;--- Konstanten Type Byte
;
Del_Time equ 0xff ; Wartezeit für Subroutine Enter
Zeile_1 equ 0x80 ; 1.Zeichen in 1. Zeile
Zeile_2 equ 0xc0 ; 1.Zeichen in 2. Zeile
;
;--- Konstanten Type Bit
;
Richtung_A equ b'00000000' ; Datenrichtung von Port A
Richtung_B equ b'00000000' ; Datenrichtung von Port B
Richtung_C equ b'00000000' ; Datenrichtung von Port C
Richtung_D equ b'00000000' ; Datenrichtung von Port D
Richtung_E equ b'00000000' ; Datenrichtung von Port E
;
;
;------------------------------------------------------------
; Alle ADC-Eingänge auf Digital I/O schalten
;------------------------------------------------------------
BSF STATUS, RP0 ; auf Bank 1 umschalten
BCF ADCON1, PCFG3 ; PCFG3=0
BSF ADCON1, PCFG2 ; PCFG2=1
BSF ADCON1, PCFG1 ; PCFG1=1
BCF ADCON1, PCFG0 ; PCFG0=0
BCF STATUS, RP0 ; auf Bank 0 zurückschalten
;
;---------------------------------------------------------------
; Programm-Start
;---------------------------------------------------------------
;
org 0x000 ; Startadresse
;
goto Main ; Sprung zum Hauptprogramm
;
org 0x004 ; Interruptvektor
goto ISR ; Zu Interrupt-Service-Routine
;
;---------------------------------------------------------------
; Initialisierung der Port's
;---------------------------------------------------------------
;
Init
bsf STATUS, RP0 ; Schalte in Bank 1
movlw Richtung_A ; Datenrichtung festlegen
movwf TRISA ; TrisA-Register laden
movlw Richtung_B ; Datenrichtung festlegen
movwf TRISB ; TrisB-Register laden
movlw Richtung_C ; Datenrichtung festlegen
movwf TRISC ; TrisC-Register laden
movlw Richtung_D ; Datenrichtung festlegen
movwf TRISD ; TrisD-Register laden
movlw Richtung_E ; Datenrichtung festlegen
movwf TRISE ; TrisE-Register laden
bcf STATUS, RP0 ; Schalte in Bank 0 zurück
;-------------------------------------------------------------
; Initialisierung Display
;------------------------------------------------------------
bcf PORTE, 1 ; Schreib-Signal aktivieren
bcf PORTE, 0 ; RS auf Befehlseingabe
movlw 0x38 ; 8-Bit-Modus, 2 Linien
call Enter ; Kommando schreiben und warten
call Enter ; Kommando schreiben und warten
call Enter ; Kommando schreiben und warten
;
movlw 0x0e ; Increment-Modus, Display-Shift
call Enter ; Kommando schreiben und warten
;
movlw 0x02 ;
call Enter ; Kommando schreiben und warten
;
movlw 0x01 ;
call Enter ; Kommando schreiben und warten
;
;--- Initialisieren des LC-Displays beendet
;
return ;
;
;---------------------------------------------------------------
; Unter-Programm: Enter
; Funktion: Erzeugt eine ansteigende und abfallende
; Flanke an Enable Pin 6 von LCD
;---------------------------------------------------------------
;
Enter
movwf PORTD ; Befehl an Port D übertragen
call Delay ; Warten
bsf PORTE, 2 ; Enable auf High setzen
call Delay ; Warten
bcf PORTE, 2 ; Enable auf Low setzen
call Delay ; Warten
;
return ; Zurück
;
;---------------------------------------------------------------
; Unter-Programm: Delay
; Funktion: Wartezeit für Unterprogramm Enter
;---------------------------------------------------------------
;
Delay
movlw Del_Time ; Lade Delay-Zähler
movwf Del_Reg ; ... mit Verweilzeit
;
Delay_1
decfsz Del_Reg, F ; Decrementiere und Springe wenn 0
goto Delay_1
;
return ; Zurück
;
;---------------------------------------------------------------
; Unter-Programm: Sende Text in Zeile 1
;---------------------------------------------------------------
;
Get_Text_00
bcf PORTE, 0 ; RS auf Befehlseingabe
movlw Zeile_1 ; Zeile anwählen
call Enter ; Kommando schreiben und warten
bsf PORTE, 0 ; RS auf Dateneingabe
;
Get_Text_01
clrf Char_Zeiger ; Charakter-Zeiger auf Null
;
Get_Text_02
movfw Char_Zeiger ; Charakter_Zeiger laden
call Text_0 ; Charakter lesen
;
;--- Ist das String-Ende erreicht?
;
iorlw 0x00 ; Oder-Verknüpfung mit Zeichen
btfsc STATUS, 2 ; Sprung, wenn noch nicht fertig
;
;--- Ende von String erreicht. Unterprogramm verlassen
;
goto Get_Text_03 ; Sprung zum Schluss
call Enter ; Kommando schreiben und warten
incf Char_Zeiger, F ; Charakter_Zeiger um 1 erhöhen
goto Get_Text_02 ; Zum nächsten Charakter
;
Get_Text_03
return ; Zurück
;
;--- Text für die erste Zeile
;
Text_0
andlw 0x0f ; LSB ausmaskieren
addwf PCL, F ; Offset zum PC addieren
;
dt "Alles i.O.", 0x00
;---------------------------------------------------------------
; Unter-Programm: Sende Text in Zeile 2
;---------------------------------------------------------------
;
Get_Text_10
bcf PORTE, 0 ; RS auf Befehlseingabe
movlw Zeile_2 ; Zeile anwählen
call Enter ; Kommando schreiben und warten
bsf PORTE, 0 ; RS auf Dateneingabe
;
Get_Text_11
clrf Char_Zeiger ; Charakter-Zeiger auf Null
;
Get_Text_12
movfw Char_Zeiger ; Charakter_Zeiger laden
call Text_1 ; Charakter lesen
;
;--- Ist das String-Ende erreicht?
;
iorlw 0x00 ; Oder-Verknüpfung mit Zeichen
btfsc STATUS, 2 ; Sprung, wenn noch nicht fertig
;
;--- Ende von String erreicht. Unterprogramm verlassen
;
goto Get_Text_13 ; Sprung zum Schluss
call Enter ; Kommando schreiben und warten
incf Char_Zeiger, F ; Charakter_Zeiger um 1 erhöhen
goto Get_Text_12 ; Zum nächsten Charakter
;
Get_Text_13
return ; Zurück
;
;--- Text für die erste Zeile
;
Text_1
andlw 0x0f ; LSB ausmaskieren
addwf PCL, F ; Offset zum PC addieren
;
dt "Alles i.O.", 0x00
;
;---------------------------------------------------------------
; Hauptprogramm
;---------------------------------------------------------------
;
Main
call Init ; Initialisiere das System
;
Main_1
call Get_Text_00 ; Schreiben von Text in Zeile 1
;
Main_2
goto Main_2
;
;---------------------------------------------------------------
; Ende des Programms
;---------------------------------------------------------------
;
end