[REQUEST] How to get the profile address of the current player?

[Wiimm]

For a LE-CODE cheat code I need a function to get the address of the profile (save data) of the current player. Alternatively it is ok to get the index of the current player, because I know how to get the address by index:

ADDRESS := [809BD748] + INDEX * 0x93f0 (PAL)