66 lines
1.9 KiB
ObjectPascal
66 lines
1.9 KiB
ObjectPascal
unit m.eeprom;
|
|
|
|
interface
|
|
uses
|
|
m.base,
|
|
m.eeprom.types;
|
|
|
|
type
|
|
TmodEEPROM = class( TmodBase, IEEPROM)
|
|
// ------------------------------------------------------------
|
|
// IEEPROM
|
|
// ------------------------------------------------------------
|
|
protected
|
|
function ReadPage( Page : word; Buffer: pointer): integer;
|
|
function WritePage( Page : word; Buffer: pointer): integer;
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
{ TmodEEPROM }
|
|
|
|
|
|
// @@@: IEEPROM +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
//
|
|
// IEEPROM
|
|
//
|
|
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
// ================================================================================================
|
|
// read page
|
|
// ================================================================================================
|
|
function TmodEEPROM.ReadPage(Page: word; Buffer: pointer): integer;
|
|
begin
|
|
if Assigned( fDevice) then
|
|
begin
|
|
|
|
end
|
|
|
|
else
|
|
; // raise
|
|
|
|
result := 0
|
|
end;
|
|
|
|
// ================================================================================================
|
|
// write page
|
|
// ================================================================================================
|
|
function TmodEEPROM.WritePage(Page: word; Buffer: pointer): integer;
|
|
begin
|
|
if Assigned( fDevice) then
|
|
begin
|
|
|
|
end
|
|
|
|
else
|
|
;// raise
|
|
|
|
result := 0
|
|
end;
|
|
|
|
end.
|