Initial check in

2026-01-03 18:53:14 +01:00
commit b9305ab8af
36 changed files with 6720 additions and 0 deletions
@@ -0,0 +1,185 @@
+unit m.iic;
+
+interface
+uses
+   m.base,
+   m.iic.types;
+
+type
+   TmodIIC = class( TmodBase, IIIC)
+      protected
+         function Wait(    addr     : word;
+                           tmo      : word = 100): TIICStatus;
+
+         function Write(   addr     : word;
+                           count    : byte;
+                           buffer   : pointer;
+                           tmo      : word = 100): TIICStatus;
+
+         function Read(    addr     : word;
+                           count    : byte;
+                           buffer   : pointer;
+                           tmo      : word = 100): TIICStatus;
+
+         function ReadRSW( addr     : word;
+                           subaddr  : word;
+                           count    : byte;
+                           buffer   : pointer;
+                           tmo      : word = 100): TIICStatus;
+   end;
+
+
+implementation
+uses
+   windows, math,
+   mr.dev.usb.pipe;
+
+
+function CyWORD( value: word): word; overload;
+begin
+   result := (LoByte(value) shl 8) or HiByte(value);
+end;
+
+function CyWORD( value: byte): word; overload;
+begin
+   result := value shl 8;
+end;
+
+
+
+{ TmodIIC }
+
+// @@@: IIIC ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+//
+//                                             IIIC
+//
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ================================================================================================
+// wait
+// ================================================================================================
+function TmodIIC.Wait(addr: word; tmo: word): TIICStatus;
+begin
+   result := IIC_TMO;
+
+end;
+
+// ================================================================================================
+// write
+// ================================================================================================
+function TmodIIC.Write(addr: word; count: byte; buffer: pointer; tmo: word): TIICStatus;
+var
+   buf: TIICPacket;
+   len: cardinal;
+
+   p01: TPipe;
+   p81: TPipe;
+
+begin
+   result := IIC_TMO;
+
+   if Assigned(fDevice) then
+   begin
+      p01 := fDevice.Pipes[$01];
+      p81 := fDevice.Pipes[$81];
+
+      if Assigned(p01) and Assigned(p81) then
+      begin
+         FillChar( buf, sizeof(buf), 0);
+
+         buf.head.command  := IIC_WRITE;
+         buf.head.timeout  := tmo;
+         buf.head.address  := CyWORD(addr);
+         buf.head.length   := min(count, 32);
+
+         MoveMemory(@buf.data[0], buffer, buf.head.length);
+
+         p01.Write(  buf, sizeof( TIICPacket),     len);
+         p81.Read(   buf, sizeof( TIICPacketHead), len)
+      end
+   end
+end;
+
+// ================================================================================================
+// read
+// ================================================================================================
+function TmodIIC.Read(addr: word; count: byte; buffer: pointer; tmo: word): TIICStatus;
+var
+   buf: TIICPacket;
+   len: cardinal;
+
+   p01: TPipe;
+   p81: TPipe;
+
+begin
+   result := IIC_TMO;
+
+   if Assigned(fDevice) then
+   begin
+      p01 := fDevice.Pipes[$01];
+      p81 := fDevice.Pipes[$81];
+
+      if Assigned(p01) and Assigned(p81) then
+      begin
+         FillChar( buf, sizeof(buf), 0);
+
+         buf.head.command  := IIC_READ;
+         buf.head.timeout  := tmo;
+         buf.head.address  := CyWORD(addr);
+         buf.head.length   := min(count, 32);
+
+         if p01.Write( buf, sizeof( TIICPacketHead), len) then
+         begin
+            p81.Read(  buf, sizeof( TIICPacket), len);
+
+            result := TIICStatus(buf.head.timeout);
+
+            if result = IIC_OK then
+               MoveMemory(buffer, @buf.data[0], buf.head.length)
+         end;
+
+      end
+   end
+end;
+
+// ================================================================================================
+// read with repeated start condition, 16 bit sub address
+// ================================================================================================
+function TmodIIC.ReadRSW(addr: word; subaddr: word; count: byte; buffer: pointer; tmo: word): TIICStatus;
+var
+   buf: TIICPacket;
+   len: cardinal;
+
+   p01: TPipe;
+   p81: TPipe;
+
+begin
+   result := IIC_TMO;
+
+   if Assigned(fDevice) then
+   begin
+      p01 := fDevice.Pipes[$01];
+      p81 := fDevice.Pipes[$81];
+
+      if Assigned(p01) and Assigned(p81) then
+      begin
+         FillChar( buf, sizeof(buf), 0);
+
+         buf.head.command  := IIC_READ_RSW;
+         buf.head.timeout  := tmo;
+         buf.head.address  := CyWORD(addr);
+         buf.head.subaddr  := CyWORD(subaddr);
+         buf.head.length   := min(count, 32);
+
+         p01.Write(  buf, sizeof( TIICPacketHead), len);
+         p81.Read(   buf, sizeof( TIICPacket),     len);
+
+         MoveMemory(buffer, @buf.data[0], buf.head.length)
+      end
+   end
+end;
+
+end.