Useful functions.

git-svn-id: https://spexeah.com:8443/svn/Asuro@264 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
2017-10-26 12:31:28 +00:00 · 2017-10-26 12:31:28 +00:00 · 447446f478
commit 447446f478
parent 43e1abf3cb
42 changed files with 26 additions and 2 deletions
--- a/Asuro.iso
+++ b/Asuro.iso
--- a/bin/kernel.bin
+++ b/bin/kernel.bin
--- a/iso/boot/asuro.bin
+++ b/iso/boot/asuro.bin
--- a/lib/PCI.ppu
+++ b/lib/PCI.ppu
--- a/lib/console.ppu
+++ b/lib/console.ppu
--- a/lib/idt.ppu
+++ b/lib/idt.ppu
--- a/lib/irq.ppu
+++ b/lib/irq.ppu
--- a/lib/isr0.ppu
+++ b/lib/isr0.ppu
--- a/lib/isr1.ppu
+++ b/lib/isr1.ppu
--- a/lib/isr10.ppu
+++ b/lib/isr10.ppu
--- a/lib/isr11.ppu
+++ b/lib/isr11.ppu
--- a/lib/isr12.ppu
+++ b/lib/isr12.ppu
--- a/lib/isr13.ppu
+++ b/lib/isr13.ppu
--- a/lib/isr14.ppu
+++ b/lib/isr14.ppu
--- a/lib/isr15.ppu
+++ b/lib/isr15.ppu
--- a/lib/isr16.ppu
+++ b/lib/isr16.ppu
--- a/lib/isr17.ppu
+++ b/lib/isr17.ppu
--- a/lib/isr18.ppu
+++ b/lib/isr18.ppu
--- a/lib/isr2.ppu
+++ b/lib/isr2.ppu
--- a/lib/isr3.ppu
+++ b/lib/isr3.ppu
--- a/lib/isr32.ppu
+++ b/lib/isr32.ppu
--- a/lib/isr33.ppu
+++ b/lib/isr33.ppu
--- a/lib/isr4.ppu
+++ b/lib/isr4.ppu
--- a/lib/isr40.ppu
+++ b/lib/isr40.ppu
--- a/lib/isr44.ppu
+++ b/lib/isr44.ppu
--- a/lib/isr5.ppu
+++ b/lib/isr5.ppu
--- a/lib/isr6.ppu
+++ b/lib/isr6.ppu
--- a/lib/isr7.ppu
+++ b/lib/isr7.ppu
--- a/lib/isr8.ppu
+++ b/lib/isr8.ppu
--- a/lib/isr9.ppu
+++ b/lib/isr9.ppu
--- a/lib/kernel.ppu
+++ b/lib/kernel.ppu
--- a/lib/keyboard.ppu
+++ b/lib/keyboard.ppu
--- a/lib/libpconsole.a
+++ b/lib/libpconsole.a
--- a/lib/libpmultiboot.a
+++ b/lib/libpmultiboot.a
--- a/lib/libpsystem.a
+++ b/lib/libpsystem.a
--- a/lib/lmemorymanager.ppu
+++ b/lib/lmemorymanager.ppu
--- a/lib/mouse.ppu
+++ b/lib/mouse.ppu
--- a/lib/pmemorymanager.ppu
+++ b/lib/pmemorymanager.ppu
--- a/lib/terminal.ppu
+++ b/lib/terminal.ppu
--- a/lib/util.ppu
+++ b/lib/util.ppu
--- a/lib/vmemorymanager.ppu
+++ b/lib/vmemorymanager.ppu
--- a/src/util.pas
+++ b/src/util.pas
@ -19,19 +19,25 @@ uses
 procedure CLI();
 procedure STI();
 procedure GPF();
+
 function hi(b : uint8) : uint8;
 function lo(b : uint8) : uint8;
 function switchendian(b : uint8) : uint8;
+function getWord(i : uint32; hi : boolean) : uint16;
+function getByte(i : uint32; index : uint8) : uint8;
+
 procedure outb(port : uint16; val : uint8);
 procedure outw(port : uint16; val : uint16);
 procedure outl(port : uint16; val : uint32);
-procedure halt_and_catch_fire();
-procedure halt_and_dont_catch_fire();
 function inb(port : uint16) : uint8;
 function inw(port : uint16) : uint16;
 function inl(port : uint16) : uint32;
+
 procedure memset(location : uint32; value : uint8; size : uint32);
 procedure memcpy(source : uint32; dest : uint32; size : uint32);
+
+procedure halt_and_catch_fire();
+procedure halt_and_dont_catch_fire();
 procedure psleep(t : uint16);

 var
@ -203,4 +209,22 @@ begin
    end;
 end;

+function getWord(i : uint32; hi : boolean) : uint16;
+begin
+    if hi then begin
+        getWord:= (i AND $FFFF0000) SHR 16;
+    end else begin
+        getWord:= (i AND $0000FFFF);
+    end;    
+end;
+
+function getByte(i : uint32; index : uint8) : uint8;
+var
+    mask : uint32;
+
+begin
+    mask:= ($FF SHL (8*index));
+    getByte:= (i AND mask) SHR (8*index);
+end;
+
 end.