Initial check in

This commit is contained in:
2026-01-03 18:53:14 +01:00
commit b9305ab8af
36 changed files with 6720 additions and 0 deletions
@@ -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.