ALDL Protocol

[s3seawa]

Sziasztok.

Segítségetek szeretném kérni ALDL protocol avr-re való ültetésében.
Hex kódókra hex választ kapok például:
Küldött: 10 03 ED
Válasz:10 05 12 53 D3
Ebből például hasznos rész nekem a 1253 mivel ez a ID száma.(amit meg mint szám és nem hex kéne nekem)
Hardver ami még azért hozzá tartozik.
Az ALDL egy szálas protocolt használ aminek SDL a neve (vagyis ezt írták róla)
rx-tx gyakorlatilag össze van kötve tehát ha én elküldök valamit azt a avr rögtön megkapja majd a választ is rá.tehát a fent emlitett példa esetén
10 03 ED 10 05 12 53 D3 amivel végképpen nem tudok mit kezdeni esetleg valami hardveres kontrol vagy egyéb segíthet de semmi tudásom és ötletem hogy lehetne ezt megvalósítani.
küldést így sikerült megoldani de fogadást sehogy:

Kód: Egész kijelölése

Printbin &H10 ; &H03 ; &HED

[kapu48]

Szerintem igy kellene:

Kód: Egész kijelölése

$regfile = "m128def.dat"

$crystal = 8000000

$baud = 19200

$hwstack = 32                                               ' default use 32 for the hardware stack

$swstack = 10                                               ' default use 10 for the SW stack

$framesize = 40                                             ' default use 40 for the frame space



'Nyitok 1 terminált,
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
$baud1 = 19200

'try the second hardware UART

Open "com2:" For Binary As #1


CONFIG PRINTBIN = extended


Dim A(10) As Byte, C As Byte

'(
The number of bytes to send can be specified by an additional numeric parameter.
This is convenient when sending the content of an array.


Printbin ar(1) ; 3 ' will send 3 bytes from array ar() starting at index element 1.

Printbin ar(1) ; 2 ; ar(2) ; 4  ' will send 2 bytes from array ar() starting at index 1,
         then 4 bytes from array ar() starting at index 2.
')

A(1) = &H10
A(2) = &H03
A(3) = &HED

Do
  Printbin A(1) ;3    ' Elküldi az A tömbb első 3 Bytes

  INPUTBIN  A(4), 5   ' Vesszünk 5 Bytes
  ' ki irjuk a terminálra
  Print #1 ,A(4); A(5); A(6); A(7); A(8)

Loop

End 'end program