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

Browse Source
This commit is contained in:
kieron
2018-05-01 21:31:07 +00:00
parent 9915c45e00
commit 191f0a8159
57 changed files with 20 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/include/util.pas
View File

@ -48,6 +48,8 @@ procedure sleep(seconds : uint32);
function BCDToUint8(bcd : uint8) : uint8;
procedure resetSystem();
var
endptr : uint32; external name '__end';
stack : uint32; external name 'KERNEL_STACK';
@ -325,6 +327,18 @@ begin
BCDToUint8:= ((bcd SHR 4) * 10) + (bcd AND $0F);
end;
procedure resetSystem();
var
good : uint8;
begin
CLI;
good:= $02;
while (good AND $02) > 0 do good:= inb($64);
outb($64, $FE);
halt_and_catch_fire;
end;
procedure BSOD(fault : pchar; info : pchar);
var
trace : pchar;