Subversion Repositories svnkaklik

Rev

Go to most recent revision | Details | Last modification | View Log

Rev Author Line No. Line
6 kaklik 1
////////////////////////////////////////////////////////////////////////////////
2
//                   KNIHOVNA PRO OVLADANI POSUVNEHO REGISTRU
3
//
4
////////////////////////////////////////////////////////////////////////////////
5
// definice
6
//#define DATA   PIN_A1
7
//#define CP     PIN_A0
8
//#define STROBE PIN_A2
9
 
10
void putreg(unsigned int8 out)   // zapise do registru 8bitovou promenou.
11
{
12
int8 i;
13
   output_low(STROBE);
14
 
15
   for(i=0;i<=7;i++)
16
   {
17
      output_bit(DATA,bit_test(out,7-i));
18
      output_low(CP);
19
      output_high(CP);
20
   }
21
   output_high(STROBE);
22
}