Subversion Repositories svnkaklik

Rev

Details | Last modification | View Log

Rev Author Line No. Line
6 kaklik 1
 
2
//#DEFINE  DEBUG          PIN_A4      // ladici pomocne synchronizacni impulzy
3
 
4
// Prijme datovy nibble vcetne zasynchronizovani
5
// Chybi dodelat timeout
6
int8 prijmi_nibble(int8* datovy, int8* data)
7
{
8
   int8 i;
9
 
10
   #IFDEF DEBUG
11
   int1 tmp;
12
   #ENDIF
13
 
14
   *data=0;
15
 
16
   // Cekam na dlouhou nulu
17
   for (i=6; i>0; i--)
18
   {
19
      delay_us(IMPULS/2);
20
      if (input(PRIJIMAC)) i=4;
21
   }
22
 
23
   // Cekam na jednicku (start ramce)
24
   while (!input(PRIJIMAC));
25
   // Ctu typ nibblu
26
   delay_us(2*IMPULS+2*IMPULS/3);
27
   *datovy=input(PRIJIMAC);
28
 
29
   // Prenasim bity
30
   for (i=0; i<4; i++)
31
   {
32
      delay_us(2*IMPULS);
33
      *data >>= 1;
34
      if (input(PRIJIMAC)) *data +=0b1000;
35
 
36
      #IFDEF DEBUG
37
      output_bit(DEBUG,tmp);
38
      tmp=!tmp;
39
      #ELSE
40
      delay_us(20);
41
      #ENDIF
42
   }
43
 
44
   return FALSE;
45
}
46
 
47
 
48
// Prijme datovy ramec
49
// Pokud nastane chyba vraci kod chyby
50
int8 prijmi_ramec(int8* kanal, int8* data)
51
{
52
   int8  i;
53
   int8 datovy;
54
   int8 suma;
55
 
56
   // Cekej na uvodni ticho
57
   for (i=SYNC; i>0; i--)
58
   {
59
      delay_us(IMPULS/4);
60
      if (!input(PRIJIMAC)) i=SYNC;
61
   }
62
 
63
   // Cekej na startovaci 1
64
   while (input(PRIJIMAC));
65
 
66
   // Posun na cteni prvniho datoveho bitu
67
   delay_us(2*IMPULS+2*IMPULS/3);
68
 
69
 
70
   do
71
   {
72
      if (prijmi_nibble(&datovy, data)) return 1;     // chyba timout
73
   }
74
   while(datovy);
75
 
76
   // Zkontroluj magickou hodnotu
77
   if (*data != SYNC_NIBBLE) return 2;                // chyba magickeho kodu ramce
78
 
79
   // Prijmi cislo kanalu
80
   if (prijmi_nibble(&datovy, kanal)) return 1;      // chyba timeout
81
   if (!datovy) return 3;                               // chyba typu nibblu
82
 
83
   // Prijmi data
84
   if (prijmi_nibble(&datovy, data)) return 1;       // chyba timeout
85
   if (!datovy) return 3;                             // chyba typu nibblu
86
 
87
   // Prijmi zabezpeceni
88
   if (prijmi_nibble(&datovy, &suma)) return 1;       // chyba timeout
89
   if (!datovy) return 3;                             // chyba typu nibblu
90
 
91
   // Zkontroluj kontrolni soucet
92
   if (((*kanal+*data) & 0b1111) != suma) return 3;     // chyba kontrolniho souctu
93
 
94
   return 0;
95
}
96