'0x80 Empfänger (Requestanfrage)
'0x8d General Air Modul
'0x8a GPS
'0x89 Vario
'Version unter Nutzung des Interruptes v0.3
$regfile = "m88adef.dat"
$crystal = 16000000
$hwstack = 40
$swstack = 16
$framesize = 32
Ddrb = &B00001010
Ddrd = &B11000000
Portd.6 = 1 ' setze CD4093 auf Durchgang TXD_/OFF
Portd.7 = 1 ' setze CD4093 auf Durchgang RXD_ON_OFF
$baud = 19200
Dim Byte_in(1) As Byte
Dim Startbyte As Byte
Dim Flag As Bit
Dim Anfragebyte As Byte
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim W As Word
W = 0
Dim Wlow As Byte
Wlow = 0
Dim Channel As Byte
Channel = 1 ' = ADC1 = PC1
On Urxc Onurxccomplete
Enable Urxc
Enable Interrupts
Dim A As Byte
A = 1
Dim B1 As Byte
Dim B2 As Byte
Dim B3 As Byte
Dim B4 As Byte
Dim B5 As Byte
Dim B6 As Byte
Dim B7 As Byte
Dim B8 As Byte
Dim B9 As Byte
Dim B10 As Byte
Dim B11 As Byte
Dim B12 As Byte
Dim B13 As Byte
Dim B14 As Byte
Dim B15 As Byte
Dim B16 As Byte
Dim B17 As Byte
Dim B18 As Byte
Dim B19 As Byte
Dim B20 As Byte
Dim B21 As Byte
Dim B22 As Byte
Dim B23 As Byte
Dim B24 As Byte
Dim B25 As Byte
Dim B26 As Byte
Dim B27 As Byte
Dim B28 As Byte
Dim B29 As Byte
Dim B30 As Byte
Dim B31 As Byte
Dim B32 As Byte
Dim B33 As Byte
Dim B34 As Byte
Dim B35 As Byte
Dim B36 As Byte
Dim B37 As Byte
Dim B38 As Byte
Dim B39 As Byte
Dim B40 As Byte
Dim B41 As Byte
Dim B42 As Byte
Dim B43 As Byte
Dim B44 As Byte
Dim B45 As Byte
Dim B46 As Byte
Dim B47 As Byte
Dim B49 As Byte
Dim B50 As Byte
Dim B51 As Byte
Dim B52 As Byte
Dim B53 As Byte
Dim B54 As Byte
Dim B55 As Byte
Dim B56 As Byte
Dim B57 As Byte
Dim B58 As Byte
Dim B59 As Byte
Dim B60 As Byte
Dim B61 As Byte
Dim B62 As Byte
Dim B63 As Byte
Dim B64 As Byte
Dim B65 As Byte
Dim B66 As Byte
Dim B67 As Byte
Dim B68 As Byte
Dim B69 As Byte
Dim B70 As Byte
Dim B71 As Byte
Dim B72 As Byte
Dim B73 As Byte
Dim B74 As Byte
Dim B75 As Byte
Dim B76 As Byte
Dim B77 As Byte
Dim B78 As Byte
Dim B79 As Byte
Dim B80 As Byte
Dim B81 As Byte
Dim B82 As Byte
Dim B83 As Byte
Dim B84 As Byte
Dim B85 As Byte
Dim B90 As Byte
Dim B91 As Byte
Dim B92 As Byte
Dim B93 As Byte
Dim B100 As Byte
B1 = &H7C
B2 = &H8D
B3 = 0
B4 = &HD0
B5 = &H00 'invers
B6 = &H00 'invers
B7 = &H00 'Zelle 1 Byte Wert, Spannung in V = (Bitwert *2) / 100
B8 = &H00 'Zelle 2 Byte Wert, Spannung in V = (Bitwert *2) / 100
B9 = &H00 'Zelle 3 Byte Wert, Spannung in V = (Bitwert *2) / 100
B10 = &H00 'Zelle 4 Byte Wert, Spannung in V = (Bitwert *2) / 100
B11 = &H00 'Zelle 5 Byte Wert, Spannung in V = (Bitwert *2) / 100
B12 = &H00 'Zelle 6 Byte Wert, Spannung in V = (Bitwert *2) / 100
B13 = &H00 'AKK1, WORD Variable, Byte 13 LowByte, Byte 14 HighByte unsigned> sixteen-bit binary numbers ranging in value from 0 to 65535
B14 = &H00 'Akk1, Spannung in mV = Bitwert x 100
B15 = &H00 'AKK2, WORD Variable, Byte 15 LowByte, Byte 16 HighByte unsigned> sixteen-bit binary numbers ranging in value from 0 to 65535
B16 = &H00 'AKK2, Spannung in mV = Bitwert x 100
B17 = &H29 'T1
B18 = &H9E 'T2
B19 = &H00 'Tankanzeige Bitwert 64 = Dezimal 100 = 100% Balken
B20 = &H00 'Tankfüllung FF = +255ml
B21 = &H00 'Tankentlerrung FF = -255ml
B22 = &H00 ' Drehzahl Low Byte Anzeige = Bitwert * 10 Bsp. Bitwert 360 entspricht 3600U/min
B23 = &H00 ' Drehzahl High Byte
B24 = &H8A 'Höhe -500m = B24 = 00, B25 = 00. B24 = F4 und B25 = 01 entspricht 0m, 01F4 = 0m Beispiel +150 wäre 500+150=650 enstricht 028A
B25 = &H02 'Höhe siehe B24
B26 = &H00 'Steigen / Sinken m/Sek
B27 = &H00
B28 = &H00
B29 = 0
B30 = 0
B31 = 0
B32 = 0
B33 = 0
B34 = 0
B35 = 0
B36 = 0
B37 = 0
B38 = 0
B39 = 0
B40 = 0
B41 = 0
B42 = 0
B43 = 0
B44 = &H7D
B45 = 0
Do
If Flag = 1 Then
Portd.7 = 0
Anfragebyte = Byte_in(1) - Startbyte
If Anfragebyte = 13 Then
W = Getadc(channel)
Shift W , Right , 2 '10 Bit -> 8 Bit
W = W + 4 '+ 4 zum kalibrieren
Wlow = W 'word -> byte
B13 = Wlow 'byte -> B13 = Hott Anzeige in akku 1
B14 = &H00
B46 = B1 + B2
B47 = B3 + B4
B70 = B46 + B47
B49 = B5 + B6
B50 = B7 + B8
B71 = B49 + B50
B80 = B70 + B71
B51 = B9 + B10
B52 = B11 + B12
B72 = B51 + B52
B53 = B13 + B14
B54 = B15 + B16
B73 = B53 + B54
B81 = B72 + B73
B55 = B17 + B18
B56 = B19 + B20
B74 = B55 + B56
B57 = B21 + B22
B58 = B23 + B24
B75 = B57 + B58
B82 = B74 + B75
B59 = B25 + B26
B60 = B27 + B28
B76 = B59 + B60
B61 = B29 + B30
B62 = B31 + B32
B77 = B61 + B62
B83 = B76 + B77
B63 = B33 + B34
B64 = B35 + B36
B78 = B63 + B64
B65 = B37 + B38
B66 = B39 + B40
B79 = B65 + B66
B84 = B78 + B79
B67 = B41 + B42
B68 = B43 + B44
B85 = B67 + B68
B90 = B80 + B81
B91 = B82 + B83
B93 = B84 + B85
B100 = B90 + B91
B45 = B100 + B93
Waitms 5
Printbin B1
Waitms A
Printbin B2
Waitms A
Printbin B3
Waitms A
Printbin B4
Waitms A
Printbin B5
Waitms A
Printbin B6
Waitms A
Printbin B7
Waitms A
Printbin B8
Waitms A
Printbin B9
Waitms A
Printbin B10
Waitms A
Printbin B11
Waitms A
Printbin B12
Waitms A
Printbin B13
Waitms A
Printbin B14
Waitms A
Printbin B15
Waitms A
Printbin B16
Waitms A
Printbin B17
Waitms A
Printbin B18
Waitms A
Printbin B19
Waitms A
Printbin B20
Waitms A
Printbin B21
Waitms A
Printbin B22
Waitms A
Printbin B23
Waitms A
Printbin B24
Waitms A
Printbin B25
Waitms A
Printbin B26
Waitms A
Printbin B27
Waitms A
Printbin B28
Waitms A
Printbin B29
Waitms A
Printbin B30
Waitms A
Printbin B31
Waitms A
Printbin B32
Waitms A
Printbin B33
Waitms A
Printbin B34
Waitms A
Printbin B35
Waitms A
Printbin B36
Waitms A
Printbin B37
Waitms A
Printbin B38
Waitms A
Printbin B39
Waitms A
Printbin B40
Waitms A
Printbin B41
Waitms A
Printbin B42
Waitms A
Printbin B43
Waitms A
Printbin B44
Waitms A
Printbin B45
Waitms A
End If
Flag = 0
Portd.7 = 1
End If
Loop
Onurxccomplete:
Startbyte = Udr
If Startbyte = 128 Then
Inputbin Byte_in(1) ; 1
Flag = 1
Else
Startbyte = 0
Flag = 0
End If
Return
)
? Kannst du nicht auf einen Chip ausweichen der UART eingebaut hat, atmega8 oder so.
