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

Browse Source
This commit is contained in:
kieron
2018-05-05 19:57:37 +00:00
parent 37741b6cea
commit e5321d8b46
64 changed files with 49 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/include/asuro.pas
View File

@ -3,13 +3,17 @@ unit asuro;
interface
const
VERSION = '1.0.0-661a';
VERSION = '1.0.0-662a';
VERSION_MAJOR = '1';
VERSION_MINOR = '0';
VERSION_SUB = '0';
REVISION = '661';
REVISION = '662';
RELEASE = 'a';
LINE_COUNT = 26884;
LINE_COUNT = 26907;
FPC_VERSION = '2.6.4';
NASM_VERSION = '2.10.09';
COMPILE_DATE = '05-05-18';
COMPILE_TIME = '20:57:19';
implementation

26
src/include/util.pas
View File

@ -39,6 +39,7 @@ procedure memset(location : uint32; value : uint8; size : uint32);
procedure memcpy(source : uint32; dest : uint32; size : uint32);
procedure printmemory(source : uint32; length : uint32; col : uint32; delim : PChar; offset_row : boolean);
procedure printmemoryWND(source : uint32; length : uint32; col : uint32; delim : PChar; offset_row : boolean; WND : HWND);
procedure halt_and_catch_fire();
procedure halt_and_dont_catch_fire();
@ -62,7 +63,7 @@ var
implementation
uses
console, RTC;
console, RTC, cpu;
procedure sleep1;
var
@ -119,7 +120,7 @@ begin
end;
end;
procedure printmemory(source : uint32; length : uint32; col : uint32; delim : PChar; offset_row : boolean);
procedure printmemoryWND(source : uint32; length : uint32; col : uint32; delim : PChar; offset_row : boolean; WND : HWND);
var
buf : puint8;
i : uint32;
@ -128,21 +129,26 @@ begin
buf:= puint8(source);
for i:=0 to length-1 do begin
if offset_row and (i = 0) then begin
console.writehex(source + (i));
console.writestring(': ');
console.writehexWND(source + (i), WND);
console.writestringWND(': ', WND);
end;
console.writehexpair(buf[i]);
console.writehexpairWND(buf[i], WND);
if ((i+1) MOD col) = 0 then begin
console.writestringln(' ');
console.writestringlnWND(' ', WND);
if offset_row then begin
console.writehex(source + (i + 1));
console.writestring(': ');
console.writehexWND(source + (i + 1), WND);
console.writestringWND(': ', WND);
end;
end else begin
console.writestring(delim);
console.writestringWND(delim, WND);
end;
end;
console.writestringln(' ');
console.writestringlnWND(' ', WND);
end;
procedure printmemory(source : uint32; length : uint32; col : uint32; delim : PChar; offset_row : boolean);
begin
printmemoryWND(source, length, col, delim, offset_row, 0);
end;
function hi(b : uint8) : uint8; [public, alias: 'util_hi'];