Ja das hatte ich mir schon gedacht nur ich war zu müde..
Hier nun der Code:
bsf STATUS,RP0 ; Auswahl Bank 1
call 0x3FF ; laden des Calibrierungswertes aus der lesten Speicherstelle
movwf OSCCAL ; schreiben des Calibrierungswertes für den internen Takt
movlw B'00000001' ; left, Analog input 0, AD on
movwf ADCON0
movlw B'00110001' ; FOCS 16 und AN0
movwf ANSEL
clrf CMCON ; alle Comparatoren ausschalten
clrf VRCON
movlw B'00001111' ; Pins Konfiguriren
movwf TRISIO ; schreiben der Werte
bcf STATUS,RP0 ; Auswahl Bank 0
bsf INTCON,GIE ; Disable Global ints
clrf GPIO
Nun die Schleife des lesens der AD Werte.
Das läuft auch, nur ich bekomme keine verschidenen Werte...
BLINK
BSF ADCON0,1 ; ADC starten
ADCS
BTFSC ADCON0,1 ; ist der ADC fertig?
GOTO ADCS ; nein, weiter warten
movlw D0_AN ; setzen der gewünschten LED durch definierte Maske
movwf GPIO ; schieben des geladenen Wertes ins Ausgangs (GPIO) - Register
movlw D'255' ; Dezimalwert für die Zeitkonstante zur Übergabe
movwf help ; Schieben des Wertes in die Variable Help
CALL PAUSE250ms ; Aufruf des Unterprogrammes Pause250ms
bcf STATUS,RP0 ; Auswahl Bank 0
movlw D1_AN ; setzen der gewünschten LED durch definierte Maske
movwf GPIO ; schieben des geladenen Wertes ins Ausgangs (GPIO) - Register
movfw ADRESH ; Dezimalwert für die Zeitkonstante zur Übergabe
movwf help ; Schieben des Wertes in die Variable Help
CALL PAUSE250ms ; Aufruf des Unterprogrammes Pause250ms
GOTO BLINK
Das Blinken arbeitet..
Die Code Tag habe ich nun ein gefügt. Bei mir in MPLAB sind die Zeilen gleich nur hier nicht, wodran liegt das?
Gruß und Danke für die Hilfe
Thorsten