Subversion Repositories svnkaklik

Rev

Rev 410 | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log

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