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@607 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

Browse Source
This commit is contained in:
kieron 2018-04-29 19:10:51 +00:00
parent 2fb551d5ec
commit 360c3eba3e
11 changed files with 12 additions and 12 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/asuro.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/terminal.ppu
View File

Binary file not shown.

BIN
lib/util.ppu
View File

Binary file not shown.

8
src/include/util.pas
View File

@ -279,12 +279,12 @@ var
i : uint32; i : uint32;
begin begin
push_trace('util.memset'); //push_trace('util.memset');
for i:=0 to size-1 do begin for i:=0 to size-1 do begin
loc:= puint8(location + i); loc:= puint8(location + i);
loc^:= value; loc^:= value;
end; end;
pop_trace; //pop_trace;
end; end;
procedure memcpy(source : uint32; dest : uint32; size : uint32); procedure memcpy(source : uint32; dest : uint32; size : uint32);
@ -293,13 +293,13 @@ var
i : uint32; i : uint32;
begin begin
push_trace('util.memcpy'); //push_trace('util.memcpy');
for i:=0 to size-1 do begin for i:=0 to size-1 do begin
src:= puint8(source + i); src:= puint8(source + i);
dst:= puint8(dest + i); dst:= puint8(dest + i);
dst^:= src^; dst^:= src^;
end; end;
pop_trace; //pop_trace;
end; end;
function getWord(i : uint32; hi : boolean) : uint16; function getWord(i : uint32; hi : boolean) : uint16;

16
src/terminal.pas
View File

@ -90,7 +90,7 @@ var
i : uint32; i : uint32;
begin begin
push_trace('terminal.paramCount'); //push_trace('terminal.paramCount');
current:= params; current:= params;
i:= 0; i:= 0;
while current^.param <> nil do begin while current^.param <> nil do begin
@ -98,7 +98,7 @@ begin
current:= current^.next; current:= current^.next;
end; end;
paramCount:= i-1; paramCount:= i-1;
pop_trace; //pop_trace;
end; end;
function getParams(buf : TCommandBuffer) : PParamList; function getParams(buf : TCommandBuffer) : PParamList;
@ -110,7 +110,7 @@ var
current : PParamList; current : PParamList;
begin begin
push_trace('terminal.getParams'); //push_trace('terminal.getParams');
root:= PParamList(kalloc(sizeof(TParamList))); root:= PParamList(kalloc(sizeof(TParamList)));
current:= root; current:= root;
current^.next:= nil; current^.next:= nil;
@ -136,7 +136,7 @@ begin
inc(finish); inc(finish);
end; end;
getParams:= root; getParams:= root;
pop_trace; //pop_trace;
end; end;
function getParam(index : uint32; params : PParamList) : pchar; function getParam(index : uint32; params : PParamList) : pchar;
@ -146,7 +146,7 @@ var
i : uint32; i : uint32;
begin begin
push_trace('terminal.getParam'); //push_trace('terminal.getParam');
result:= nil; result:= nil;
search:= params; search:= params;
for i:=0 to index do begin for i:=0 to index do begin
@ -154,7 +154,7 @@ begin
end; end;
result:= search^.param; result:= search^.param;
getParam:= result; getParam:= result;
pop_trace; //pop_trace;
end; end;
procedure freeParams(params : PParamList); procedure freeParams(params : PParamList);
@ -163,7 +163,7 @@ var
next : PParamList; next : PParamList;
begin begin
push_trace('terminal.freeParams'); //push_trace('terminal.freeParams');
p:= params; p:= params;
next:= p^.next; next:= p^.next;
while p^.next <> nil do begin while p^.next <> nil do begin
@ -172,7 +172,7 @@ begin
p:= next; p:= next;
next:= p^.next; next:= p^.next;
end; end;
pop_trace; //pop_trace;
end; end;
procedure testParams(params : PParamList); procedure testParams(params : PParamList);