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

Browse Source
This commit is contained in:
kieron
2018-05-10 07:39:07 +00:00
parent 3bdba1d786
commit fabe8bd6eb
74 changed files with 135 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/include/asuro.pas
View File

@ -3,20 +3,20 @@ unit asuro;
interface
const
VERSION = '1.0.1-672ia';
VERSION = '1.0.1-674ia';
VERSION_MAJOR = '1';
VERSION_MINOR = '0';
VERSION_SUB = '1';
REVISION = '672';
REVISION = '674';
RELEASE = 'ia';
LINE_COUNT = 28180;
FILE_COUNT = 90;
DRIVER_COUNT = 34;
LINE_COUNT = 27628;
FILE_COUNT = 89;
DRIVER_COUNT = 32;
FPC_VERSION = '2.6.4';
NASM_VERSION = '2.10.09';
MAKE_VERSION = '3.81';
COMPILE_DATE = '08/05/18';
COMPILE_TIME = '10:05:48';
COMPILE_DATE = '10/05/18';
COMPILE_TIME = '08:36:31';
implementation

9
src/include/util.pas
View File

@ -58,6 +58,8 @@ function HexCharToDecimal(hex : char) : uint8;
procedure resetSystem();
function getESP : uint32;
var
endptr : uint32; external name '__end';
stack : uint32; external name 'KERNEL_STACK';
@ -67,6 +69,13 @@ implementation
uses
console, RTC, cpu;
function getESP : uint32;
begin
asm
MOV getESP, ESP
end;
end;
function HexCharToDecimal(hex : char) : uint8;
begin
case hex of