spiex1.usc

来自「upa代码 调表软件」· USC 代码 · 共 24 行

//This example writes 256 bytes to 25c080
Program WriteSPIEx;
var i: integer;
    d: byte;
begin
  PowerOn;
  ConfigSPI( 10, 10000 ); //clock=10us, write=10ms
  for i := 0 to 255 do
    begin
      StartSPI;
      WriteByteSPI( $06 );  //Write Enable
      StopSPI;
      StartSPI;
      d := 10;
      WriteByteSPI( $02 );  //Write Instruction
      WriteByteSPI( 0 );    //High address
      WriteByteSPI( i );    //Low Address
      WriteByteSPI( i );    //Data
      StopSPI;
      WaitWriteTimeSPI;
    end;
  PowerOff;
end.