hallöle
also, das modifizieren des files hat nix gebracht.
auch dieser code funktioniert nicht :
Code:
'======================================================
'System-Einstellungen
'======================================================
'Definition für ATtiny 25
$regfile "attiny25.dat"
$crystal = 8000000
'======================================================
'Konfigurationen
'======================================================
Dim X As Word
Config Pinb.3 = Output
'CONFIG Adc = Single , Prescaler = Auto ( 64 )
LDI r24,0x06
!Out Adcsr , R24
'START ADC
SBI ADCSR,ADEN
Wait 2
Do
' ADC-Kanal-Nummer & Ref.1,1V nach Register 24
LDI r24,0x81
' in den ADC-Multiplexer
!Out Admux , R24
' Aufruf der getadc-funktion
!Call L_0x00f6
'Ergebnis in X
STS {X} , r24
STS {X+1} , r25
'LED an oder aus
If X < 500 Then Portb.3 = 1 Else Portb.3 = 0
Loop
End
'******************************************************
' Subroutine ADC
L_0x00f6:
SBI ADCSR,ADSC ' Starten der 1. Konversion
L_0x00f8:
SBIC ADCSR,ADSC ' Fertig ?
RJMP L_0x00F8 ' nein, Loop1
SBI ADCSR,ADSC ' Starten der 2. Konversion
L_0x00fe:
SBIC ADCSR,ADSC ' Fertig ?
RJMP L_0x00FE ' nein, Loop2
IN r24,ADCL ' Ergebnis auslesen r24:r25
IN r25,ADCH
RET ' fertig
kann das so schwer sein einen ad-wandler zum laufen zu bringen ?
bin schon fast geneigt wieder einen mega8 zu nehmen, doch leider
ist das layout zu klein.
noch irgend eine idee ? soll ich dir einen tiny schicken ?
Lesezeichen