TMS-LCL-HW-Pack-for-Raspberry-Pi/tmslclaffram8kspi.pas at master · tmssoftware/TMS-LCL-HW-Pack-for-Raspberry-Pi · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
{***************************************************************************}
{ TMS LCL HW components for Raspberry Pi                                    }
{ for Lazarus                                                               }
{                                                                           }
{ written by TMS Software                                                   }
{            copyright © 2016                                               }
{            Email : [email protected]                                   }
{            Web : http://www.tmssoftware.com                               }
{                                                                           }
{ The source code is given as is. The author is not responsible             }
{ for any possible damage done due to the use of this code.                 }
{ The component can be freely used in any application. The complete         }
{ source code remains property of the author and may not be distributed,    }
{ published, given or sold in any form as such. No parts of the source      }
{ code can be included in any other component or application without        }
{ written authorization of the author.                                      }
{***************************************************************************}

// COMPONENT TO ACCESS 8k FRAM

unit TMSLCLAFFRAM8kSPI;

{$mode delphi}

interface

uses
  Classes, SysUtils, TMSLCLRaspiHW;

type

  { TTMSLCLAdaFram8KSPI }

  TTMSLCLAdaFram8KSPI = class(TTMSLCLRaspiSPI)
  public
    function GetDeviceID(var manufid, prodid:word): boolean;
    function SetStatusReg(val: byte): boolean;
    function GetStatusReg(var val: byte): boolean;
    function WriteEnable(enable: boolean): boolean;
    function WriteByte(Adr: word; val: byte): boolean;
    function ReadByte(Adr: word; var val: byte): boolean;
  end;


implementation

{ TTMSLCLAdaFram8KSPI }

function TTMSLCLAdaFram8KSPI.GetDeviceID(var manufid, prodid: word): boolean;
var
  buf: array[0..4] of byte;
begin
  buf[0] := $9F; //

  Result := ReadTransfer(addr(buf), 1, 4);

  if Result then
  begin
    manufid := buf[0];
    prodid := buf[2];
    prodid := (prodid shl 8) + buf[3];
  end;
end;

function TTMSLCLAdaFram8KSPI.SetStatusReg(val: byte): boolean;
var
  buf: array[0..1] of byte;
begin
  buf[0] := $01; //
  buf[1] := val; //

  Result := WriteTransfer(addr(buf), 2);
end;

function TTMSLCLAdaFram8KSPI.GetStatusReg(var val: byte): boolean;
var
  buf: array[0..1] of byte;
begin
  buf[0] := $05; //

  Result := ReadTransfer(addr(buf), 1, 1);

  val := buf[0];
end;

function TTMSLCLAdaFram8KSPI.WriteEnable(enable: boolean): boolean;
begin
  if enable then
    Transfer($6)
  else
    Transfer($4);
end;

function TTMSLCLAdaFram8KSPI.WriteByte(Adr: word; val: byte): boolean;
var
  xfer: spi_ioc_transfer_t;
  buf: array[0..1] of byte;
  res: integer;
begin
  buf[0] := $2;
  buf[1] := adr shr 8;
  buf[2] := adr and $FF;
  buf[3] := val;

  WriteEnable(true);
  Result := WriteTransfer(addr(buf), 4);
  WriteEnable(false);
end;

function TTMSLCLAdaFram8KSPI.ReadByte(Adr: word; var val: byte): boolean;
var
  xfer: array[0..1] of spi_ioc_transfer_t;
  buf: array[0..1] of byte;
  res: integer;
begin
  buf[0] := $3;
  buf[1] := adr shr 8;
  buf[2] := adr and $FF;

  Result := ReadTransfer(addr(buf), 3, 3);

  if Result then
  begin
    val := buf[0];
  end;
end;

end.