Subversion Repositories svnkaklik

Rev

Rev 410 | 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 
}