spiex2.usc

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

//This example reads 256 bytes from 25c080
Program ReadSPIEx;
var i: integer;
    d: byte;
begin
  ShowHexEdit;
  SetSizeHexEdit( 256 );
  PowerOn;
  ConfigSPI( 10, 10000 );  // Clock=10us,Write=10ms
  for i := 0 to 255 do
    begin
      StartSPI;
      WriteByteSPI( $03 ); //Read Instruction
      WriteByteSPI( 0 );   //High Address
      WriteByteSPI( i );   //Low Address
      ReadByteSPI( d );    //Data
      StopSPI;
      SetByteHexEdit( i, d );
    end;
  PowerOff;
  RefreshHexEdit;
end.