Initial check in
This commit is contained in:
@@ -0,0 +1,65 @@
|
||||
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.
|
||||
@@ -0,0 +1,14 @@
|
||||
unit m.eeprom.types;
|
||||
|
||||
interface
|
||||
type
|
||||
IEEPROM = interface
|
||||
['{DF79DCE2-900B-41FF-B128-3C6CBC9E34D9}']
|
||||
|
||||
function ReadPage( PageNumber : word; Buffer: pointer): integer;
|
||||
function WritePage( PageNumber : word; Buffer: pointer): integer;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
Reference in New Issue
Block a user