Rebased on develop & remove test code from Kernel main.

- Add SHA-1 hashing implementation with Init/Update/Final API and inline test in kernel,
  following the same interface as MD5 & the fpc rtl.

.gitignore

@@ -14,6 +14,5 @@ localenv.json
 /lvgl/
 dockerout.txt
 AGENTS.md
-lessons_learnt.md
 *.log
 /doc/*.md

compile_sources.sh

@@ -4,10 +4,4 @@ echo "======================="
 echo " "
 echo "Compiling FPC Sources..."
 echo " "
-# Build -Fu flags for all directories under src/ and wasuro/
-FU_PATHS="-Fusrc -Fuwasuro"
-for dir in $(find src wasuro -type d 2>/dev/null); do
-    FU_PATHS="$FU_PATHS -Fu$dir"
-done
-
-fpc -Aelf -gw -g -gl -n -v0e -O3 -OpPENTIUM3 -Si -Sc -Sg -Xd -CX -XXs -CfSSE -CfSSE2 -Rintel -Pi386 -Tlinux -FElib/ $FU_PATHS src/kernel.pas
+fpc -Aelf -gw -g -gl -n -v0ew -O3 -OpPENTIUM3 -Si -Sc -Sg -Xd -CX -XXs -CfSSE -CfSSE2 -Rintel -Pi386 -Tlinux -FElib/ -Fusrc/* -Fusrc/include/* -Fusrc/driver/* -Fusrc/driver/net/* -Fusrc/driver/bus/* -Fusrc/driver/bus/usb/* -Fusrc/driver/hid/* src/kernel.pas

compile_stub.sh

@@ -4,5 +4,4 @@ echo "======================="
 echo " "
 echo "Compiling Stub..."
 echo " "
-nasm -f elf src/stub/stub.asm -o lib/stub.o
-nasm -f elf src/stub/splash_tga.asm -o lib/splash_tga.o
+nasm -f elf src/stub/stub.asm -o lib/stub.o

doc/flatfs.md

@@ -1,32 +0,0 @@
-#Flat filesystem
-
-A super simple filesystem for asuro. Folders are emulated in filenames.
-
-Starts with disk info sector, sector 0 of volume
-
----
-#### disk info
-
-jmp2boot        : ubit24;
-OEMName         : array[0..7] of char;
-version         : uint16 // numerical version of filesystem
-sectorCount      : uint16;
-fileCount       : uint16
-signature       : uint32 = 0x0B00B1E5
-
-
-the Rest of the sector is reserved
-
----
-
-Starting from sector 1 is the file table. Table size is determined by entry size (64) * fileCount
-
----
-####File entry
-
-name : array[0..59] of char //file name max 60 chars
-fileStart : 16bit // start sector of data
-fileSize : 16bit // data size in sectors
-
----
-

iso/hello.txt

@@ -1 +0,0 @@
-Hello from the Asuro ISO!

src/driver/bus/PCI.pas

@@ -91,7 +91,6 @@ function getDeviceInfo(class_code : uint8; subclass_code : uint8; prog_if : uint
 procedure requestConfig(bus : uint8; slot : uint8; func : uint8; row : uint8);
 procedure writeConfig(bus: uint8; slot : uint8; func : uint8; row : uint8; val : uint32);
 procedure setBusMaster(bus : uint8; slot : uint8; func : uint8; master : boolean);
-procedure enableDevice(bus : uint8; slot : uint8; func : uint8);
 
 implementation 
 
@@ -443,34 +442,4 @@ begin
     pop_trace;
 end;
 
-//Enable device inturrupts and set bus master
-procedure enableDevice(bus : uint8; slot : uint8; func : uint8);
-var
-    addr : uint32;
-    cmd : uint32;
-begin
-    push_trace('PCI.enableDevice');
-
-    addr := ($1 shl 31);
-    addr := addr or (bus shl 16);
-    addr := addr or ((slot) shl 11);
-    addr := addr or ((func) shl 8);
-    addr := addr or ($04 and $FC);
-
-    outl(PCI_CONFIG_ADDRESS_PORT, addr);
-    cmd := inl(PCI_CONFIG_DATA_PORT);
-    cmd := cmd or PCI_COMMAND_MEM_SPACE;
-    cmd := cmd or PCI_COMMAND_BUS_MASTER;
-    cmd := cmd or (3 shl 1);
-
-    //enable interrupts, remove disable interrupt bit maybe
-    cmd := cmd and not PCI_COMMAND_INT_DISABLE;
-    // cmd := cmd and not (1 shl 9);
-
-    outl(PCI_CONFIG_ADDRESS_PORT, addr);
-    outl(PCI_CONFIG_DATA_PORT, cmd);
-
-    pop_trace;
-end;
-
 end.

src/driver/include/drivertypes.pas

@@ -21,29 +21,6 @@ unit drivertypes;
 
 interface
 
-const
-    PCI_CONFIG_ADDRESS_PORT = $0CF8;
-    PCI_CONFIG_DATA_PORT    = $0CFC;
-
-    PCI_COMMAND_IO_SPACE    = $0001;
-    PCI_COMMAND_MEM_SPACE   = $0002;
-    PCI_COMMAND_BUS_MASTER  = $0004;
-    PCI_COMMAND_SPECIAL_CYC = $0008;
-    PCI_COMMAND_MEM_WRITE   = $0010;
-    PCI_COMMAND_VGA_PALETTE = $0020;
-    PCI_COMMAND_PARITY      = $0040;
-    PCI_COMMAND_WAIT        = $0080;
-    PCI_COMMAND_SERR        = $0100;
-    PCI_COMMAND_FAST_BACK   = $0200;
-    PCI_COMMAND_INT_DISABLE = $0400;
-    PCI_COMMAND_SERR_ENABLE = $8000;
-
-    PCI_CAP_ID_MSI           = $05;
-
-    // Bits in the MSI Control register (16-bit):
-    MSI_CONTROL_ENABLE       = 1 shl 0;  // Bit 0
-    MSI_CONTROL_64BIT        = 1 shl 7;  // Bit 7
-    MSI_CONTROL_PVMASK       = 1 shl 8;  // Bit 8 (optional: per-vector masking)
 type
 
     PPCI_Device = ^TPCI_Device;
@@ -67,7 +44,6 @@ type
         address1       : uint32;
         address2       : uint32;
         address3       : uint32;
-
         address4       : uint32;
         address5       : uint32;
         CIS_pointer    : uint32;

src/driver/storage/ATA_ISR.pas

@@ -0,0 +1,85 @@
+//  Copyright 2021 Aaron Hance
+//
+//  Licensed under the Apache License, Version 2.0 (the "License");
+//  you may not use this file except in compliance with the License.
+//  You may obtain a copy of the License at
+//
+//  http://www.apache.org/licenses/LICENSE-2.0
+//
+//  Unless required by applicable law or agreed to in writing, software
+//  distributed under the License is distributed on an "AS IS" BASIS,
+//  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+//  See the License for the specific language governing permissions and
+//  limitations under the License.
+
+{ 
+	Drivers->Storage->ATA_ISR - Primary ATA IRQ.
+	
+	@author(Aaron Hance <[email protected]>)
+}
+unit ATA_ISR;
+
+interface
+
+uses
+    util,
+    syslog,
+    isr_types,
+    isrmanager,
+    IDT;
+
+procedure register();
+procedure hook(hook_method : uint32);
+procedure unhook(hook_method : uint32);
+
+implementation
+
+var
+    Hooks : Array[1..MAX_HOOKS] of pp_hook_method;
+
+procedure Main(); interrupt;
+var
+    i : integer;
+    
+begin
+    CLI;
+    for i:=0 to MAX_HOOKS-1 do begin
+        if uint32(Hooks[i]) <> 0 then Hooks[i](void($00000000));
+    end;
+    syslog.writestringln('Disk Operation Complete');
+end;
+
+procedure register();
+begin
+    memset(uint32(@Hooks[0]), 0, sizeof(pp_hook_method)*MAX_HOOKS);
+    //isrmanager.registerISR(76, @Main);
+    //IDT.set_gate(76, uint32(@Main), $08, ISR_RING_0);
+end;
+
+procedure hook(hook_method : uint32);
+var
+    i : uint32;
+
+begin
+    for i:=0 to MAX_HOOKS-1 do begin
+        if uint32(Hooks[i]) = hook_method then exit;
+    end;
+    for i:=0 to MAX_HOOKS-1 do begin
+        if uint32(Hooks[i]) = 0 then begin
+            Hooks[i]:= pp_hook_method(hook_method);
+            exit;
+        end;
+    end;
+end;
+
+procedure unhook(hook_method : uint32);
+var
+    i : uint32;
+begin
+    for i:=0 to MAX_HOOKS-1 do begin
+        If uint32(Hooks[i]) = hook_method then Hooks[i]:= nil;
+        exit;
+    end;
+end;
+
+end.

src/driver/storage/Filesystems/filesystemmanager.pas

@@ -1,120 +0,0 @@
-{
-    Driver->Storage->FilesystemManager - Filesystem driver registry and routing.
-
-    Filesystem drivers (FAT32, FlatFS, etc.) register themselves here.
-    When VolumeManager discovers a volume, FilesystemManager probes it
-    against all registered filesystem drivers to detect the filesystem type.
-
-    @author(Aaron Hance <[email protected]>)
-}
-unit filesystemmanager;
-
-interface
-
-uses
-    lists,
-    lmemorymanager,
-    storagetypes,
-    strings,
-    tracer,
-    util;
-
-var
-    filesystems : PLinkedListBase;
-
-procedure init();
-procedure register_filesystem(filesystem : PFilesystem);
-function get_filesystem_count() : uint32;
-function get_filesystem(index : uint32) : PFilesystem;
-function find_filesystem_by_name(name : pchar) : PFilesystem;
-function find_filesystem_by_id(system_id : uint8) : PFilesystem;
-procedure probe_volume(volume : PStorage_Volume);
-
-implementation
-
-procedure init();
-begin
-    push_trace('FilesystemManager.init');
-    filesystems := LL_New(sizeof(TFilesystem));
-end;
-
-procedure register_filesystem(filesystem : PFilesystem);
-var
-    elm : void;
-begin
-    push_trace('FilesystemManager.register_filesystem');
-
-    elm := LL_Add(filesystems);
-    memcpy(uint32(filesystem), uint32(elm), sizeof(TFilesystem));
-end;
-
-function get_filesystem_count() : uint32;
-begin
-    get_filesystem_count := LL_Size(filesystems);
-end;
-
-function get_filesystem(index : uint32) : PFilesystem;
-begin
-    if index < LL_Size(filesystems) then
-        get_filesystem := PFilesystem(LL_Get(filesystems, index))
-    else
-        get_filesystem := nil;
-end;
-
-function find_filesystem_by_name(name : pchar) : PFilesystem;
-var
-    i  : uint32;
-    fs : PFilesystem;
-begin
-    push_trace('FilesystemManager.find_filesystem_by_name');
-    find_filesystem_by_name := nil;
-
-    for i := 0 to LL_Size(filesystems) - 1 do begin
-        fs := PFilesystem(LL_Get(filesystems, i));
-        if stringEquals(fs^.sName, name) then begin
-            find_filesystem_by_name := fs;
-            exit;
-        end;
-    end;
-end;
-
-function find_filesystem_by_id(system_id : uint8) : PFilesystem;
-var
-    i  : uint32;
-    fs : PFilesystem;
-begin
-    push_trace('FilesystemManager.find_filesystem_by_id');
-    find_filesystem_by_id := nil;
-
-    for i := 0 to LL_Size(filesystems) - 1 do begin
-        fs := PFilesystem(LL_Get(filesystems, i));
-        if fs^.system_id = system_id then begin
-            find_filesystem_by_id := fs;
-            exit;
-        end;
-    end;
-end;
-
-procedure probe_volume(volume : PStorage_Volume);
-var
-    i  : uint32;
-    fs : PFilesystem;
-begin
-    push_trace('FilesystemManager.probe_volume.enter');
-
-    { Try each registered filesystem's identify callback against this volume }
-    for i := 0 to LL_Size(filesystems) - 1 do begin
-        fs := PFilesystem(LL_Get(filesystems, i));
-        if fs^.identifyCallback <> nil then begin
-            push_trace('FilesystemManager.probe_volume.tryFS');
-            if fs^.identifyCallback(volume) then begin
-                volume^.filesystem := fs;
-                push_trace('FilesystemManager.probe_volume.found');
-                exit;
-            end;
-        end;
-    end;
-    push_trace('FilesystemManager.probe_volume.exit');
-end;
-
-end.