diff --git a/src/fs-filo.adb b/src/fs-filo.adb
new file mode 100644
index 0000000..3280b34
--- /dev/null
+++ b/src/fs-filo.adb
@@ -0,0 +1,22 @@
+package body FS.FILO is
+
+   procedure Read
+      (Buffer    : in out Buffer_Type;
+       Offset    : in     Natural;
+       Bytes_Read:    out Natural)
+   is
+      Sector_Size : constant Natural := 512;
+      Sector      : constant Interfaces.C.unsigned_long := Offset / Sector_Size;
+      Byte_Offset : constant Interfaces.C.unsigned_long := Offset rem Sector_Size;
+      Byte_Len    : constant Interfaces.C.unsigned_long := Buffer'Length;
+   begin
+
+      Bytes_Read := C_devread
+         (sector => Sector,
+          byte_offset => Byte_Offset,
+          byte_len => Byte_Len,
+          buf => Buffer'Address);
+   end Read;
+
+end FS.FILO;
+