ShuriZma
/
FPPS4
mirror of https://github.com/red-prig/fpPS4.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

+

This commit is contained in:
Pavel 2025-06-06 23:43:18 +03:00
parent be20d9b15b
commit cf7c6ee34b
1 changed files with 54 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

77
sys/kern/kern_regmgr.pas
View File

@ -13,6 +13,7 @@ const
SCE_REGMGR_ENT_KEY_NP_debug = $19810000; SCE_REGMGR_ENT_KEY_NP_debug = $19810000;
SCE_REGMGR_ENT_KEY_BROWSER_DEBUG_notification = $3CC80700; SCE_REGMGR_ENT_KEY_BROWSER_DEBUG_notification = $3CC80700;
SCE_REGMGR_ENT_KEY_MORPHEUS_DEBUG_vr_capture = $58800C00; SCE_REGMGR_ENT_KEY_MORPHEUS_DEBUG_vr_capture = $58800C00;
SCE_REGMGR_ENT_KEY_DEVENV_TOOL_gpi00 = $78020400;
SCE_REGMGR_ENT_KEY_DEVENV_TOOL_trc_notify = $78026400; SCE_REGMGR_ENT_KEY_DEVENV_TOOL_trc_notify = $78026400;
SCE_REGMGR_ENT_KEY_DEVENV_TOOL_sys_prx_preload = $78028A00; SCE_REGMGR_ENT_KEY_DEVENV_TOOL_sys_prx_preload = $78028A00;
SCE_REGMGR_ENT_KEY_DEVENV_TOOL_use_default_lib = $78028300; SCE_REGMGR_ENT_KEY_DEVENV_TOOL_use_default_lib = $78028300;
@ -57,7 +58,7 @@ type
checksum:Word; checksum:Word;
end; end;
function regMgrCnvRegId(enc:QWORD):Integer; function regMgrCnvRegId(enc:QWORD;enc2:DWORD):Integer;
var var
a,b,c,d,e,f,x:Byte; a,b,c,d,e,f,x:Byte;
g:DWORD; g:DWORD;
@ -117,11 +118,11 @@ var
skey:Integer; skey:Integer;
data:packed record data:packed record
enc :QWORD; enc1:QWORD;
val1:DWORD; enc2:DWORD;
val2:DWORD; int_val:DWORD;
slen:DWORD; size:QWORD;
dstr:array[0..2055] of AnsiChar; data:array[0..2047] of AnsiChar;
end; end;
begin begin
@ -146,7 +147,7 @@ begin
goto _err; goto _err;
end; end;
skey:=regMgrCnvRegId(data.enc); skey:=regMgrCnvRegId(data.enc1,data.enc2);
if (skey<0) then if (skey<0) then
begin begin
@ -155,22 +156,22 @@ begin
end; end;
case skey of case skey of
SCE_REGMGR_ENT_KEY_DEVENV_TOOL_game_intmem_dbg :data.val2:=0; //_malloc_init_lv2 SCE_REGMGR_ENT_KEY_DEVENV_TOOL_game_intmem_dbg :data.int_val:=0; //_malloc_init_lv2
SCE_REGMGR_ENT_KEY_DEVENV_TOOL_sce_module_dbg :data.val2:=0; //libSceSysmodule (bit 1,2 -> load debug lib) SCE_REGMGR_ENT_KEY_DEVENV_TOOL_sce_module_dbg :data.int_val:=0; //libSceSysmodule (bit 1,2 -> load debug lib)
SCE_REGMGR_ENT_KEY_DEVENV_TOOL_preload_chk_off :data.val2:=0; //libSceSysmodule (print errors?) SCE_REGMGR_ENT_KEY_DEVENV_TOOL_preload_chk_off :data.int_val:=0; //libSceSysmodule (print errors?)
SCE_REGMGR_ENT_KEY_DEVENV_TOOL_020B00 :data.val2:=0; //libSceSysmodule (preload module?) SCE_REGMGR_ENT_KEY_DEVENV_TOOL_020B00 :data.int_val:=0; //libSceSysmodule (preload module?)
SCE_REGMGR_ENT_KEY_MORPHEUS_DEBUG_vr_capture :data.val2:=0; //libkernel SCE_REGMGR_ENT_KEY_MORPHEUS_DEBUG_vr_capture :data.int_val:=0; //libkernel
SCE_REGMGR_ENT_KEY_DEVENV_TOOL_game_heap_trace :data.val2:=0; //libSceLibcInternal (sceLibcHeapGetTraceInfo -> get_segment_info) SCE_REGMGR_ENT_KEY_DEVENV_TOOL_game_heap_trace :data.int_val:=0; //libSceLibcInternal (sceLibcHeapGetTraceInfo -> get_segment_info)
SCE_REGMGR_ENT_KEY_DEVENV_TOOL_expose_under_2k :data.val2:=0; //sceVideoOutOpen debug video modes? SCE_REGMGR_ENT_KEY_DEVENV_TOOL_expose_under_2k :data.int_val:=0; //sceVideoOutOpen debug video modes?
SCE_REGMGR_ENT_KEY_VIDEOOUT_enable_supersampling_mode:data.val2:=0; //sceVideoOutOpen SCE_REGMGR_ENT_KEY_VIDEOOUT_enable_supersampling_mode:data.int_val:=0; //sceVideoOutOpen
SCE_REGMGR_ENT_KEY_NP_debug :data.val2:=0; //libSceSysUtil SCE_REGMGR_ENT_KEY_NP_debug :data.int_val:=0; //libSceSysUtil
SCE_REGMGR_ENT_KEY_SYSTEM_LIBC_intmem_peak_size :data.val2:=0; //libSceLibcInternal SCE_REGMGR_ENT_KEY_SYSTEM_LIBC_intmem_peak_size :data.int_val:=0; //libSceLibcInternal
SCE_REGMGR_ENT_KEY_SYSTEM_LIBC_intmem_shortage_count :data.val2:=0; //libSceLibcInternal SCE_REGMGR_ENT_KEY_SYSTEM_LIBC_intmem_shortage_count :data.int_val:=0; //libSceLibcInternal
else else
begin begin
print_error_td(' enc:0x'+HexStr(data.enc,16)+'->key:0x'+HexStr(skey,8)); print_error_td(' enc:0x'+HexStr(data.enc1,16)+'->key:0x'+HexStr(skey,8));
Assert(False); Assert(False);
end; end;
end; end;
@ -193,7 +194,7 @@ begin
goto _err; goto _err;
end; end;
skey:=regMgrCnvRegId(data.enc); skey:=regMgrCnvRegId(data.enc1,data.enc2);
if (skey<0) then if (skey<0) then
begin begin
@ -204,19 +205,49 @@ begin
case skey of case skey of
SCE_REGMGR_ENT_KEY_NP_env: //sceNpUtilGetEnv SCE_REGMGR_ENT_KEY_NP_env: //sceNpUtilGetEnv
begin begin
data.dstr:='np'; data.data:='np';
end; end;
else else
begin begin
print_error_td(' enc:0x'+HexStr(data.enc,16)+'->key:0x'+HexStr(skey,8)); print_error_td(' enc:0x'+HexStr(data.enc1,16)+'->key:0x'+HexStr(skey,8));
Assert(False); Assert(False);
end; end;
end; end;
vlen:=$818; vlen:=$818;
goto _copyout_value; goto _copyout_value;
end end;
$1D: //sceRegMgrNonSysGetBin
begin
Result:=copyin(pvalue,@data,$818);
if (Result<>0) then
begin
kret:=$800d020f;
goto _err;
end;
skey:=regMgrCnvRegId(data.enc1,data.enc2);
if (skey<0) then
begin
kret:=skey;
goto _err;
end;
case skey of
SCE_REGMGR_ENT_KEY_DEVENV_TOOL_gpi00:PQWORD(@data.data)^:=0; //sceKernelGetGPI
else
begin
print_error_td(' enc:0x'+HexStr(data.enc1,16)+'->key:0x'+HexStr(skey,8));
Assert(False);
end;
end;
vlen:=$818;
goto _copyout_value;
end;
else else
begin begin