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

Browse Source
This commit is contained in:
kieron
2018-05-03 23:43:24 +00:00
parent 6ae51ac70d
commit 42d23dd8c9
58 changed files with 30 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/include/util.pas
View File

@ -49,6 +49,7 @@ procedure sleep(seconds : uint32);
function get16bitcounter : uint16;
function get32bitcounter : uint32;
function get64bitcounter : uint64;
function getTSC : uint64;
function BCDToUint8(bcd : uint8) : uint8;
@ -358,6 +359,23 @@ begin
get64bitcounter:= bios_data_area.Counters.c64;
end;
function getTSC : uint64;
var
hi, lo : uint32;
begin
asm
PUSH EAX
PUSH EDX
RDTSC
MOV hi, EDX
MOV lo, EAX
POP EDX
POP EAX
end;
getTSC:= (hi SHL 32) OR lo;
end;
procedure BSOD(fault : pchar; info : pchar);
var
trace : pchar;