void df_init(void)
{
    off(FLASH_CS);
    direct(FLASH_CS, O);
}
...
void df_read(...)
{
    on(FLASH_CS);
...
}

typedef enum{
    LM_OFF = 0,
    LM_ON,
    LM_BLINK_SLOW,
    LM_BLINK_NORMAL,
    LM_BLINK_FAST,
    LM_FLASH_1,
    LM_FLASH_2,
    LM_FLASH_3,
    LM_FLASH_1_OFF,
    LM_FLASH_2_OFF,
    LM_MAX

} led_mode_e;

void led_mode( bint led, led_mode_e mode )
{
    if( mode >= LM_MAX )
        mode = LM_MAX-1;
    ledstat &= ((~0x11111111)  <<led);
    ledstat |= (led_const[mode]<<led);
}
led_mode( LED_RED, LM_BLINK_FAST );

void led_process( int counter )
{
..........

    if( curstat )
        IOlCLR = curstat;
    
    curstat = (~curstat)&(P_LED_RED|P_LED_GREEN|P_LED_INUSE|P_LED_TEST);
    
    if( curstat )
        IOlSET = curstat;
}

enum eAnswerCommonParameters
{
    acp_Preamble = 0,           // преамбула
    acp_Status,                 // слово состояния
    acp_Ktermo_0,               // коэффициент термокомпенсации
    acp_Ktermo_1,
    acp_Ktermo_2,               //
    acp_Ktermo_3,
    acp_Csens_0,                // постоянная датчика
    acp_Csens_1,
    acp_Csens_2,
    acp_Csens_3,
    acp_Rt0_x_10_Low,           // калибровочная константа датчика температуры
    acp_Rt0_x_10_Hi,
    acp_Rref_x_10_Low,          // сопротивление опорного резистора термоканала
    acp_Rref_x_10_Hi,
    acp_CS,
    acp_PacketLen
};

void lcd_writedata( bint data )
{
    lcd_waitready( RDY_DATA|RDY_COMMAND );
    // Setup DATA
    PIOlCLR = T6963_CE|T6963_WR|T6963_CD|(0xFFUL<<T6963_D0);
    PIOlSET = (data & 0xFFUL) << T6963_D0;
    PIOlSET = T6963_CE|T6963_WR;
    PIOlSET = T6963_CD;
}

__arm void send_spi_start_int( SPI_bcb *sp, int data )
{
    IO0CLR = sp->msel;
    S0SPDR  = data;                       // Data
    if( S0SPSR_check() )
        return;
    IO0SET = P0B_S0SEL_MASK;
    sp->flag &= (~BCB_TX_START);
}

int work_spi_modgal( bint modul, WORD adrdat )
{
int i = 1000; // Total timeout

    if( modul )
        IO0CLR = P0B_M1_CSEL;
    else
        IO0CLR = P0B_M0_CSEL;
    do     // Timeout if not ready
    {   IO0CLR = S0SSEL_SOFT;
        if( !(IO0PIN & P0B_MX_RDY)  )          // Ready?
        {   IO0CLR = P0B_MX_AC;                // Select 'Address' byte
            S0SPDR = (adrdat>>8);             // Send Hi byte(address)
            if( S0SPSR_check() )            // Wait end of transmit
                goto dsl_exit_error;
            IO0SET = (S0SSEL_SOFT|P0B_MX_AC);        // Disable Select and set 'Data'
            do     // Timeout if not ready
            {    IO0CLR = S0SSEL_SOFT;        // Select
                if( !(IO0PIN & P0B_MX_RDY)  )      // Ready?
                {   S0SPDR = adrdat;              // Send Lo byte(data/dummy)
                    if( S0SPSR_check() )        // Wait end of transmit
                        goto dsl_exit_error;
                    IO0SET = (P0B_MASK_CSEL|S0SSEL_SOFT|P0B_MX_AC); // Disable SHDSL
                    return( S0SPDR );              // Get any data
                }
                IO0SET = S0SSEL_SOFT;    // Disable Select
                delay_us( 10 );
                i--;
            }
            while( i > 0 );
        }
        IO0SET = S0SSEL_SOFT;    // Disable Select
        delay_us( 10 );
        i--;
    }
    while( i > 0 );
dsl_exit_error:
    IO0SET = (P0B_MASK_CSEL|S0SSEL_SOFT|P0B_MX_AC); // Disable SHDSL
    return( -1 );
}

void WriteByte1(uchar ch)
{ uchar i;
  OffPin(LcdCsb);
  for (i = 0; i<8; i++)
  { if (ch & 0x80) OnPin(LcdSi); else OffPin(LcdSi);
    OffPin(LcdClk);
    OnPin(LcdClk);
    ch <<= 1;
  }
  OnPin(LcdCsb);
}
void WriteLcdControl(char D)
{ OffPin(LcdRs);
  WriteByte1(D);
}

void WriteLcdData(char D)
{ OnPin(LcdRs);
  WriteByte1(D);
}

#define MELODY( a, b, c, d ) (((d)<<9)|((c)<<6)|((b)<<3)|(a))
#define DUALTON( a, b ) (((b)<<14)|((a)<<12))

const ushort gtact[GEN_TAKTS] =
{
    MELODY(1,1,1,4) | DUALTON(TOFF,DUAL),
    MELODY(2,0,2,5) | DUALTON(DUAL,DUAL),
    MELODY(3,2,3,6) | DUALTON(TOFF,SINGLE),
....
....
....

int put_byte(uint08_t b)
{
    int i = 1000; // Total timeout
    int res = -1;

    do
    {   on(S0SSEL_SOFT);
        if((signal(MX_RDY))
        {
            S0SPDR = adrdat;
            if(!S0SPSR_check())
                res = S0SPDR;
            break;
        }
        off(S0SSEL_SOFT);
        delay_us( 10 );
        i--;
    }
    while( i > 0 );
    off(P0B_MASK_CSEL);
    off(S0SSEL_SOFT);
    off(P0B_MX_AC);
    return res;
}

int work_spi_modgal( bint modul, WORD adrdat )
{
    int i = 1000; // Total timeout
    int res;

    if( modul )
        on(M1_CSEL);
    else
        on(M0_CSEL);
    res = put_byte(adrdat>>8);
    if (res != -1)
        res = put_byte(adrdat);
    return res;
}

   IO0SET = (P0B_MASK_CSEL|S0SSEL_SOFT|P0B_MX_AC); // Disable SHDSL

  off(P0B_MASK_CSEL);
    off(S0SSEL_SOFT);
    off(P0B_MX_AC);