mirror of https://github.com/red-prig/fpPS4.git
67 lines
1.2 KiB
Plaintext
67 lines
1.2 KiB
Plaintext
unit sys_bootparam;
|
|
|
|
{$mode ObjFPC}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
host_ipc_interface;
|
|
|
|
const
|
|
CPUID_BASE_MODE=$710f13; // $710f31
|
|
CPUID_NEO_MODE =$740f00;
|
|
|
|
var
|
|
p_system_sdk_version :DWORD=$11008001; // $10010001;
|
|
p_cpuid :DWORD=CPUID_BASE_MODE; //base mode = 0x710f13 / neo mode = 0x740f00
|
|
p_base_ps4_mode :DWORD=1; //[0..1]
|
|
p_neomode :DWORD=0; //[0..1]
|
|
p_cpumode :DWORD=5; //NORMAL
|
|
|
|
p_halt_on_exit :Boolean=False;
|
|
p_print_guest_syscall:Boolean=False;
|
|
p_print_pmap :Boolean=False;
|
|
p_print_jit_preload :Boolean=False;
|
|
|
|
p_print_gpu_ops :Boolean=False;
|
|
p_print_gpu_hint :Boolean=False;
|
|
|
|
p_host_ipc :THostIpcInterface=nil;
|
|
p_host_handler :THostIpcHandler =nil;
|
|
|
|
function p_host_ipc_td:Pointer;
|
|
|
|
procedure set_neo_mode(neo:Boolean);
|
|
|
|
implementation
|
|
|
|
procedure set_neo_mode(neo:Boolean);
|
|
begin
|
|
case neo of
|
|
False:
|
|
begin
|
|
p_cpuid :=CPUID_BASE_MODE;
|
|
p_base_ps4_mode:=1;
|
|
p_neomode :=0;
|
|
end;
|
|
True:
|
|
begin
|
|
p_cpuid :=CPUID_NEO_MODE;
|
|
p_base_ps4_mode:=0;
|
|
p_neomode :=1;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
function p_host_ipc_td:Pointer;
|
|
begin
|
|
Result:=nil;
|
|
if (p_host_ipc<>nil) then
|
|
begin
|
|
Result:=p_host_ipc.Ftd;
|
|
end;
|
|
end;
|
|
|
|
end.
|
|
|