#define HI(x) SPI_PORT |= (1<<(x))
#define LO(x) SPI_PORT &= ~(1<<(x))

unsigned int SPIWriteWord(unsigned int cmd) {
  unsigned char i;
  unsigned int recv;
  recv = 0;
  LO(SCK);
  LO(nSS);
  for(i=0; i<16; i++) {
    if(cmd&0x8000) HI(SDI); else LO(SDI);
    HI(SCK);
    recv<<=1;    
    if( SPI_PIN&(1<<SDO) ) {
      recv|=0x0001;
    }
    LO(SCK);
    cmd<<=1;
  }
  HI(nSS);
  return recv;
}

#define HI(x) SPI_PORT |= (1<<(x))
#define LO(x) SPI_PORT &= ~(1<<(x))

unsigned int SPIWriteWord(unsigned int cmd) {
  unsigned char i;
  unsigned int recv;
  recv = 0;
  LO(SCK);
  LO(nSS);
  for(i=0; i<8; i++) {
    if(cmd&0x80) HI(SDI); else LO(SDI);
    HI(SCK);
    recv<<=1;    
    if( SPI_PIN&(1<<SDO) ) {
      recv|=0x0001;
    }
    LO(SCK);
    cmd<<=1;
  }
  HI(nSS);
  return recv;
}

        RSEG CODE:CODE:NOROOT(1)

        PUBLIC Wr_Reg
Wr_Reg:
        ldi R17, 8
LoopWrReg:
        sbi PORTD, SCLK; установим SCLK в 1
        rol R16; сдвигаем регистр
        brcs SetSDI
        cbi PORTD, SDI; SDI = 0
        rjmp CliSCLK; 2 clocks
SetSDI:
        sbi PORTD, SDI; SDI = 1
        nop; 1+1 clocks
        nop
CliSCLK:
        cbi PORTD, SCLK; установим SCLK в 0
        dec R17
        brne LoopWrReg; если не 0
        ret

        PUBLIC Rd_Reg
Rd_Reg:
        ldi R17, 8
        clr R16; обнуляем регистр
LoopRdReg:
        sbi PORTD, SCLK; установим SCLK в 1
        nop
        cbi PORTD, SCLK; установим SCLK в 0
        lsl R16; сдвигаем регистр
        sbic PIND, SDO; SDO ?
        ori R16, 1; устанавливаем мл.бит
        dec R17
        brne LoopRdReg; если не 0
        ret

/*****************************************************************************
Обмен данными по SPI
записывает в SPI порт данные wr_data и возвращает прочитанные при обмене данные
******************************************************************************/
UCHAR ExSPI(UCHAR wr_data)
{    
      // проверяем джампер low_sck
      if(ISP_PIN & (1 << PIN_LOW_SCK)) // не замкнут, аппаратный SPI
    {    
          SPI_ON();    // включаем SPI
          SPDR = wr_data;    // загружаем SPI данными
        while(!(SPSR & (1<<SPIF))){};    // ждем окончания передачи
        return SPDR;    // возвращаем принятые данные
    }
    else // иначе софтверный SPI
    {    
          UCHAR rd_data;
        SPI_OFF();    // выключаем аппаратный SPI
          for(UCHAR i = 0; i < 8; i++)
        {    
              // отправляем старший бит отправляемого байта
              if(0 != (wr_data & 0x80))
                ISP_PORT |= (1 << PIN_MOSI); // = 1
            else
                ISP_PORT &= ~(1 << PIN_MOSI);    // = 0

            // подготавливаем следующий бит
            wr_data <<=1;

            // принимаем очередной (начиная со старшего) бит
            // принимаемого байта
            rd_data <<= 1;
            if(0 != (ISP_PIN & (1 << PIN_MISO)))
                rd_data++; // устанавливаем единичный бит, если высокий принимаемый уровень

            // формируем импульс на выводе SCK МК
            ISP_PORT |= (1 << PIN_SCK);    // высокий
            __delay_cycles(LOW_SCK_DELEY); // задержка
            ISP_PORT &= ~(1 << PIN_SCK);    // низкий
            __delay_cycles(LOW_SCK_DELEY); // задержка
        }

        return rd_data;
    }
}

void Wr_Reg( unsigned char cmd )
{
    for( char i=8; i; i-- )
      {    (cmd & 0x80) ? ( HI( MOSI ) ) : ( LO( MOSI ) );
        HI( SCK );
        cmd <<= 1;
        LO( SCK );
      }
}

#include <avr/io.h>
#include "pin_macros.h"

#define SCK B,0,H
#define MOSI B,1,H
#define MISO B,2,H

/*  ну и где-то в h-файле, если кого-то "полнота набора" волнует
*  static inline uint8_t spi_in(void) { retuirn spi_io(0xFF); }
*  static inline void spi_out(uint8_t b) { spi_io(b); }
*/

/* Это под SPI, у которого сдвиг по спаду, приёмник фиксирует по фронту, ну
* данная подпрограмма - после фронта, лишь бы до спада.
*/
uint8_t spi_io(uint8_t b)
{
    uint8_t i = 8;
    do {
        OFF(SCK);
        OFF(MOSI);
        if(b & 0x80) ON(MOSI);
        b <<= 1;            // а вот она задержка от выдачи до фронта
        ON(SCK);
        if( ACTIVE(MISO) ) ++b;
    } while(--i);
    OFF(SCK);
    return b;
}

.global    spi_io
    .type    spi_io, @function
spi_io:
/* prologue: frame size=0 */
/* prologue end (size=0) */
    ldi r25,lo8(8)
.L2:
    cbi 56-0x20,0  ; SCK = 0
    cbi 56-0x20,1  ; MOSI = 0
    sbrc r24,7
    sbi 56-0x20,1  ; MOSI = 1 если надо
.L3:
    lsl r24             ; задержка перед фронтом
    sbi 56-0x20,0  ; SCK = 1
    sbic 54-0x20,2 ; семплирование входа
    subi r24,lo8(-(1))
.L5:
    subi r25,lo8(-(-1))
    brne .L2
    cbi 56-0x20,0
    ldi r25,lo8(0)
/* epilogue: frame size=0 */
    ret