Spexeah/Asuro
Spexeah/Asuro
3
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: https://spexeah.com:8443/svn/Asuro@466 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

Browse Source
This commit is contained in:
kieron 2018-04-10 14:50:47 +00:00
parent 50fcfb8e22
commit 83f1dc04b6
10 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Asuro.iso
View File

Binary file not shown.

BIN
bin/kernel.bin
View File

Binary file not shown.

BIN
iso/boot/asuro.bin
View File

Binary file not shown.

BIN
lib/kernel.ppu
View File

Binary file not shown.

BIN
lib/libpconsole.a
View File

Binary file not shown.

BIN
lib/libpmultiboot.a
View File

Binary file not shown.

BIN
lib/libpsystem.a
View File

Binary file not shown.

BIN
lib/lists.ppu
View File

Binary file not shown.

2
src/kernel.pas
View File

@ -163,8 +163,6 @@ begin
console.writestringln(''); console.writestringln('');
console.writestringln('Press any key to boot in to Asuro Terminal...'); console.writestringln('Press any key to boot in to Asuro Terminal...');
LL_TEST();
keyboard.hook(@temphook); keyboard.hook(@temphook);
util.halt_and_dont_catch_fire; util.halt_and_dont_catch_fire;

9
src/lists.pas
View File

@ -4,7 +4,8 @@ interface
uses uses
console, console,
lmemorymanager; lmemorymanager,
util;
type type
{ Managed Linked List } { Managed Linked List }
@ -56,6 +57,7 @@ begin
Element^.Previous:= nil; Element^.Previous:= nil;
Element^.Next:= nil; Element^.Next:= nil;
Element^.Data:= kalloc(LinkedList^.ElementSize); Element^.Data:= kalloc(LinkedList^.ElementSize);
memset(uint32(Element^.Data), 0, LinkedList^.ElementSize);
LinkedList^.Head:= Element; LinkedList^.Head:= Element;
LinkedList^.Count:= LinkedList^.Count + 1; LinkedList^.Count:= LinkedList^.Count + 1;
LL_Add:= Element^.Data; LL_Add:= Element^.Data;
@ -71,6 +73,7 @@ begin
Element^.Previous:= Base; Element^.Previous:= Base;
Element^.Next:= nil; Element^.Next:= nil;
Element^.Data:= kalloc(LinkedList^.ElementSize); Element^.Data:= kalloc(LinkedList^.ElementSize);
memset(uint32(Element^.Data), 0, LinkedList^.ElementSize);
LinkedList^.Count:= LinkedList^.Count + 1; LinkedList^.Count:= LinkedList^.Count + 1;
LL_Add:= Element^.Data; LL_Add:= Element^.Data;
end; end;
@ -135,6 +138,7 @@ begin
Next:= Base; Next:= Base;
Element:= PLinkedList(kalloc(sizeof(TLinkedList))); Element:= PLinkedList(kalloc(sizeof(TLinkedList)));
Element^.Data:= kalloc(LinkedList^.ElementSize); Element^.Data:= kalloc(LinkedList^.ElementSize);
memset(uint32(Element^.Data), 0, LinkedList^.ElementSize);
Element^.Previous:= Prev; Element^.Previous:= Prev;
Element^.Next:= Next; Element^.Next:= Next;
if Prev = nil then begin if Prev = nil then begin
@ -192,7 +196,6 @@ begin
Str[2]:= 'L'; Str[2]:= 'L';
Str[3]:= 'L'; Str[3]:= 'L';
Str[4]:= 'O'; Str[4]:= 'O';
Str[5]:= Char(0);
Elem:= LL_Add(LList); Elem:= LL_Add(LList);
Str:= PChar(Elem); Str:= PChar(Elem);
Str[0]:= 'W'; Str[0]:= 'W';
@ -200,14 +203,12 @@ begin
Str[2]:= 'R'; Str[2]:= 'R';
Str[3]:= 'L'; Str[3]:= 'L';
Str[4]:= 'D'; Str[4]:= 'D';
Str[5]:= Char(0);
Elem:= LL_Add(LList); Elem:= LL_Add(LList);
Str:= PChar(Elem); Str:= PChar(Elem);
Str[0]:= 'T'; Str[0]:= 'T';
Str[1]:= 'E'; Str[1]:= 'E';
Str[2]:= 'S'; Str[2]:= 'S';
Str[3]:= 'T'; Str[3]:= 'T';
Str[4]:= Char(0);
for i:=0 to LL_Size(LList)-1 do begin for i:=0 to LL_Size(LList)-1 do begin
console.writestringln(PChar(LL_Get(LList, i))); console.writestringln(PChar(LL_Get(LList, i)));