PIC, SPI и сдвиговый регистр.

#include <pic16f877.h>
#include <stdyo.h>
#include <stdlib.h>
#include <htc.h>
 
int main() {
 
ADCON1 = 0x06; //Порт А будет работать как цифровой вход-выход
 
SSPEN = 1; //Бит включения SPI
SMP = 1; //Фаза выборки бита, опрос входа в конце выборки данных
CKP = 1; //Полярность тактового сигнала
CKE = 1; //Определение фронта, по которому будут передаваться данные
 
SSPM3 = 0; //0000 тактовый сигнал SPI будет работать от 1/4 скорости процессора
SSPM2 = 0;
SSPM1 = 0;
SSPM0 = 0;
 
TRISC0 = 1; //C0 как вход, для тактовой кнопки
TRISC3 = 0; //C3  SCK ведущий режим
TRISC5 = 0; //C5  SDO
TRISA5 = 0; //A5 SS линия
 
TRISD = 0x00; //Порт D как выход
PORTD = 0x00; //Низкий уровень на весь порт D
 
//Цикл программы
while (1) {
 
if (PORTCbits.RC0 == 1) { //Если нажата кнопка, выполняем блок
PORTDbits.RD4 = 1; //Высокий уровень для записи в сдвиговый регистр
SSPBUF = 0b00001111; //Передает байт в регистр
PORTDbits.RD4 = 0; //Низкий уровень для записи в сдвиговый регистр
}
 
}
 
}

while(!BF);

 while (1) {
 
if (PORTCbits.RC0 == 1) { //Если нажата кнопка, выполняем блок
 
PORTDbits.RD4 = 1; //Высокий уровень для записи в сдвиговый регистр
SSPBUF = regZ; //Передает байт в регистр
PORTDbits.RD4 = 0; //Низкий уровень для записи в сдвиговый регистр
 
while (!BF);
}
 
}

procedure WR_REG_U368(N_r : byte); // Запись байта в регистры.
var i, Bi : byte;
begin
case N_r of
3: Bi := Buf_U3;  // байт регистра шаговиков.
6: Bi := Buf_U6;  // байт регистра ключей IRF9540.
8: Bi := Buf_U8;  // байт регистра TST230R.
end;
for i := 7 downto 0 do
begin
if Bi.i = 0 then PORTD.4 := 0 else PORTD.4 := 1;
PORTD.6 := 1; // Сдвиг регистра!
PORTD.6 := 0;
end;
case N_r of
3: begin PORTA.2 := 1; PORTA.2 := 0; end; // Запись байта в регистр шаговиков.
6: begin PORTD.7 := 1; PORTD.7 := 0; end; // Запись байта в регистр ключей IRF9540.
8: begin PORTD.5 := 1; PORTD.5 := 0; end; // Запись байта в регистр TST230R.
end;
end;

    Buf_U6 := s3;   // Байт для записи в регистр
WR_REG_U368(6); // Запись байта в регистр ключей IRF9540.