mirror of
https://github.com/Ed94/pikuma_ps1.git
synced 2026-08-25 02:20:33 +00:00
97 lines
4.5 KiB
C
97 lines
4.5 KiB
C
#ifdef INTELLISENSE_DIRECTIVES
|
|
# include "gen/macs.h"
|
|
# include "gen/offsets.h"
|
|
# include "math.h"
|
|
# include "lottes_tape.h"
|
|
#endif
|
|
|
|
ATOM_FILE_DEBUGGER_LINE_MARKER(math_atom_c);
|
|
|
|
#define v3s4_R_0() ((Reg_(V3_S4)){R_0,R_0,R_0})
|
|
|
|
typedef Struct_(Reg_V3_S2) { Reg x, y, z; };
|
|
typedef Struct_(Reg_V3_S4) { Reg x, y, z; }; // Register allocation of a V3_S4
|
|
typedef Struct_(Reg_P3_S4) { Reg x, y, z; }; // Register allocation of a P3_S4
|
|
|
|
#pragma region MACs (Mips Atom Component)
|
|
|
|
FI_ Slice_MipsCode ac_load_half_v3(AtomBuilder_R ab, Reg tx, Reg ty, Reg tz, Reg base, U2 offset) atom_dbg_skip MipsAtomComp_Proc_(ab, {
|
|
load_half(tx, base, offset + OA_(U2,[0])),
|
|
load_half(ty, base, offset + OA_(U2,[1])),
|
|
load_half(tz, base, offset + OA_(U2,[2])),
|
|
})
|
|
|
|
FI_ Slice_MipsCode ac_load_v3s2(AtomBuilder_R ab, Reg_(V3_S2) transfer, Reg base, U2 offset) MipsAtomComp_ProcMap_(ab, mac_load_half_v3(transfer.x, transfer.y, transfer.z, base, offset))
|
|
|
|
FI_ Slice_MipsCode ac_load_v2s2(AtomBuilder_R ab, U4 rs_x, U4 rs_y, U4 r_base, U4 offset) atom_dbg_skip MipsAtomComp_Proc_(ab, {
|
|
load_half(rs_x, r_base, offset + O_(V3_S2,x)),
|
|
load_half(rs_y, r_base, offset + O_(V3_S2,y)),
|
|
})
|
|
|
|
FI_ Slice_MipsCode ac_store_v2s2(AtomBuilder_R ab, U4 rt_x, U4 rt_y, U4 base, U4 offset) atom_dbg_skip MipsAtomComp_Proc_(ab, {
|
|
store_half(rt_x, base, offset + O_(V2_S2,x)),
|
|
store_half(rt_y, base, offset + O_(V2_S2,y)),
|
|
})
|
|
|
|
FI_ Slice_MipsCode ac_load_word_v3(AtomBuilder_R ab, Reg tx, Reg ty, Reg tz, Reg base, U2 offset) atom_dbg_skip MipsAtomComp_Proc_(ab, {
|
|
load_word(tx, base, offset + OA_(U4,[0])),
|
|
load_word(ty, base, offset + OA_(U4,[1])),
|
|
load_word(tz, base, offset + OA_(U4,[2])),
|
|
})
|
|
|
|
FI_ Slice_MipsCode ac_load_v3s4(AtomBuilder_R ab, Reg_(V3_S4) transfer, Reg base, U2 offset) MipsAtomComp_ProcMap_(ab, mac_load_word_v3(transfer.x, transfer.y, transfer.z, base, offset))
|
|
FI_ Slice_MipsCode ac_load_p3s4(AtomBuilder_R ab, Reg_(P3_S4) transfer, Reg base, U2 offset) MipsAtomComp_ProcMap_(ab, mac_load_word_v3(transfer.x, transfer.y, transfer.z, base, offset))
|
|
|
|
FI_ Slice_MipsCode ac_store_half_v3(AtomBuilder_R ab, Reg tx, Reg ty, Reg tz, Reg base, U2 offset) atom_dbg_skip MipsAtomComp_Proc_(ab, {
|
|
store_half(tx, base, offset + OA_(U2,[0])),
|
|
store_half(ty, base, offset + OA_(U2,[1])),
|
|
store_half(tz, base, offset + OA_(U2,[2])),
|
|
})
|
|
|
|
FI_ Slice_MipsCode ac_store_v3s2(AtomBuilder_R ab, Reg_(V3_S2) transfer, Reg base, U2 offset) MipsAtomComp_ProcMap_(ab, mac_store_half_v3(transfer.x, transfer.y, transfer.z, base, offset))
|
|
|
|
FI_ Slice_MipsCode ac_store_word_v3(AtomBuilder_R ab, Reg tx, Reg ty, Reg tz, Reg base, U2 offset) atom_dbg_skip MipsAtomComp_Proc_(ab, {
|
|
store_word(tx, base, offset + OA_(U4,[0])),
|
|
store_word(ty, base, offset + OA_(U4,[1])),
|
|
store_word(tz, base, offset + OA_(U4,[2])),
|
|
})
|
|
|
|
FI_ Slice_MipsCode ac_store_v3s4(AtomBuilder_R ab, Reg_(V3_S4) transfer, Reg base, U2 offset) MipsAtomComp_ProcMap_(ab, mac_store_word_v3(transfer.x, transfer.y, transfer.z, base, offset))
|
|
FI_ Slice_MipsCode ac_store_p3s4(AtomBuilder_R ab, Reg_(P3_S4) transfer, Reg base, U2 offset) MipsAtomComp_ProcMap_(ab, mac_store_word_v3(transfer.x, transfer.y, transfer.z, base, offset))
|
|
|
|
FI_ Slice_MipsCode ac_add_si_v3s4(AtomBuilder_R ab, Reg rt_x, Reg rt_y, Reg rt_z, Reg base, U2 offset)
|
|
atom_dbg_skip MipsAtomComp_Proc_(ab, {
|
|
add_si(rt_x, base, O_(V3_S4,x)),
|
|
add_si(rt_y, base, O_(V3_S4,y)),
|
|
add_si(rt_z, base, O_(V3_S4,z)),
|
|
})
|
|
|
|
FI_ Slice_MipsCode ac_sub_s_v3(AtomBuilder_R ab
|
|
, Reg dx, Reg dy, Reg dz
|
|
, Reg sx, Reg sy, Reg sz
|
|
, Reg tx, Reg ty, Reg tz
|
|
) atom_dbg_skip MipsAtomComp_Proc_(ab, {
|
|
sub_s(dx, sx, tx),
|
|
sub_s(dy, sy, ty),
|
|
sub_s(dz, sz, tz),
|
|
})
|
|
|
|
FI_ Slice_MipsCode ac_sub_v3s4(AtomBuilder_R ab, Reg_(V3_S4) d, Reg_(V3_S4) s, Reg_(V3_S4) t) MipsAtomComp_ProcMap_(ab, mac_sub_s_v3(d.x, d.y, d.z, s.x, s.y, s.z, t.x, t.y, t.z))
|
|
|
|
FI_ Slice_MipsCode ac_sub_s_v3_self(AtomBuilder_R ab, Reg ds_x, Reg ds_y, Reg ds_z, Reg tx, Reg ty, Reg tz) atom_dbg_skip MipsAtomComp_Proc_(ab, {
|
|
sub_s(ds_x, ds_x, tx),
|
|
sub_s(ds_y, ds_y, ty),
|
|
sub_s(ds_z, ds_z, tz),
|
|
})
|
|
|
|
FI_ Slice_MipsCode ac_sub_v3s4_self(AtomBuilder_R ab, Reg_(V3_S4) ds, Reg_(V3_S4) t) MipsAtomComp_ProcMap_(ab, mac_sub_s_v3_self(ds.x, ds.y, ds.z, t.x, t.y, t.z))
|
|
|
|
FI_ Slice_MipsCode ac_store_rects2(AtomBuilder_R ab, U4 rt_x, U4 rt_y, U4 rt_width, U4 rt_height, U4 base, U4 offset) atom_dbg_skip MipsAtomComp_Proc_(ab, {
|
|
store_half(rt_x, base, offset + O_(Rect_S2,x)),
|
|
store_half(rt_y, base, offset + O_(Rect_S2,y)),
|
|
store_half(rt_width, base, offset + O_(Rect_S2,width)),
|
|
store_half(rt_height, base, offset + O_(Rect_S2,height)),
|
|
})
|
|
|
|
#pragma endregion MACs (Mips Atom Component)
|