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

kernel testing parameters

Browse Source 
git-svn-id: https://spexeah.com:8443/svn/Asuro@937 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
goose 2020-07-10 21:19:52 +00:00
parent 2d4791cd52
commit a685e85514
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/kernel.pas
View File

@ -46,6 +46,7 @@ uses
edit, edit,
udpcat, udpcat,
cpu, cpu,
md5,
rand; rand;
procedure kmain(mbinfo: Pmultiboot_info_t; mbmagic: uint32); stdcall; procedure kmain(mbinfo: Pmultiboot_info_t; mbmagic: uint32); stdcall;
@ -98,6 +99,8 @@ var
test : puint8; test : puint8;
fb : puint16; fb : puint16;
l : PLinkedListBase; l : PLinkedListBase;
MD5_Data : array [0..4] of Char = ('h','e','l','l','o');
MD5_Hash : PMD5Digest;
begin begin
{ Serial Init } { Serial Init }
@ -231,6 +234,13 @@ begin
//tracer.push_trace('kmain.SPLASHINIT'); //tracer.push_trace('kmain.SPLASHINIT');
//splash.init(); //splash.init();
writestring('MD5_Hash: ');
MD5_Hash := MD5Buffer(puint8(@MD5_Data[0]), 5);
for i := 0 to 15 do begin
writehexpair(MD5_Hash^[i]);
end;
writestringln(' ');
{ End of Boot } { End of Boot }
tracer.push_trace('kmain.EOB'); tracer.push_trace('kmain.EOB');
@ -241,10 +251,6 @@ begin
tracer.push_trace('kmain.END'); tracer.push_trace('kmain.END');
writehexln(rand.rand32);
writehexln(rand.rand32);
writehexln(rand.rand32);
tracer.push_trace('kmain.TICK'); tracer.push_trace('kmain.TICK');
while true do begin while true do begin
tracer.push_trace('kmain.RedrawWindows'); tracer.push_trace('kmain.RedrawWindows');
@ -252,6 +258,7 @@ begin
tracer.push_trace('kmain.VMTick'); tracer.push_trace('kmain.VMTick');
vm.tick(); vm.tick();
end; end;
end; end;
end. end.