__flash unsigned char code7[]=  //hgfedcba
 {0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f,0x78,0x5c,0x39,0x77,0x38,0x73,0x40,0x00};
//0(0),1(1),2(2),3(3),4(4),5(5),6(6),7(7),8(8),9(9),10(t),11(o),12(C),13(A),14(L),15(P),16(-),17()


.................


//#############################################################################
//  Вывод значения на индикатор с преобразованием в 7-сегментный код
//_____________________________________________________________________________
void display(unsigned char num)
{
  unsigned char temp;

  num=*(code7+num);
  temp = num;
  PORTB=temp;         //Вывести 7-сегментный код цифры в PORTB (PB5,4,3,2,1,0)

  temp = PORTD;
  temp &= 0x3f;       //Обнулить 6 и 7 биты
  num &= 0xc0;        //Обнулить 5,4,3,2,1,0 биты
  PORTD = (temp|num); //Вывести 7-сегментный код цифры в PORTD (PD7, PD6)
}



//#############################################################################
//Включение знакоместа формированием "1" на выходе параллельной шины (74HC4094)
//_____________________________________________________________________________
void digit(unsigned char number)
{
  unsigned char temp = (1 << number);


  for (unsigned char i=0; i<8; i++)
  {
    if ((temp & 128)) PORTC |= (1<<SI);
    else PORTC &= ~(1<<SI);
    
    PORTC |= (1<<CLK);
    PORTC &= ~(1<<CLK);     //Clock
    temp <<= 1;
  }
  PORTD |= (1<<STR);
  PORTD &= ~(1<<STR);       //Strob
}