ich habe gerade diesen code ( laut rn wissen ) probiert: wieder nix.
ich bin wohl zu blöde .......
Code:
'======================================================
'System-Einstellungen
'======================================================
'Definition für ATtiny 25
$regfile "attiny25.dat"
$crystal = 8000000
'======================================================
'Konfigurationen
'======================================================
Dim X As Word
Config Pinb.3 = Output
Wait 2
'CONFIG Adc = Single , Prescaler = Auto ( 64 )
LDI r24,0x06
!Out Adcsr , R24
'START ADC
SBI ADCSR,ADEN
' 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
' laden der Ergebnisadresse (DIM X AS WORD)
LDI XL,0x63
LDI XH,0x00
' Speichern ergebnis (R24:r25) in "X"
ST X+,r24
ST X,r25
If X < 100 Then Goto Akku_fail
End
'******************************************************
' Akku Fail
'******************************************************
Akku_fail:
'Rote LED blinken lassen in Schleife
Led:
Portb.3 = 0
Waitms 300
Portb.3 = 1
Waitms 300
Goto Led
'******************************************************
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
Lesezeichen