vwemirror/RP412
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial import of Red Planet v4.10 Win32 source

Browse Source 
Imports the current Win32 source for the pod-racing game 'Red Planet',
built on the MUNGA engine and its L4 (Win32/DirectX) platform layer:

- MUNGA / MUNGA_L4: cross-platform engine core and Win32 backend
- RP / RP_L4: Red Planet game logic and Win32 application
- DivLoader, Setup1: asset loader and installer project
- lib, MUNGA_L4/openal, MUNGA_L4/sos: third-party audio dependencies

Removed stale Subversion metadata and added .gitignore/.gitattributes.

Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
This commit is contained in:
Cyd
2026-06-30 07:59:51 -05:00
co-authored by Claude Opus 4.8
commit 4abbf8879f
551 changed files with 254956 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MUNGA_L4/L4TRACE.cpp
+127
View File
@@ -0,0 +1,127 @@
#include "mungal4.h"
#pragma hdrstop
#include "..\munga\style.h"
void* Get_Caller(int level)
{
char *address;
__asm MOV address, EBP;
while (level--)
{
Check_Pointer(address);
address = *(char**)address;
}
Check_Pointer(address);
return *(char**)(address+4);
}
#if defined(USE_ACTIVE_PROFILE)
#undef inportb
#undef outportb
//
// table of data representing bits on the parallel port at 0x378 (usually LPT1)
// DO NOT ALTER THIS DATA - IT REQUIRES LOTS OF SCHEMATIC TRACING TO DUPLICATE
//
struct ParallelBit
{
unsigned int port;
Byte mask;
int sense;
};
ParallelBit Bit_Table[12] =
{
{0x378, 0x80, 0x00},
{0x378, 0x40, 0x00},
{0x378, 0x20, 0x00},
{0x378, 0x10, 0x00},
{0x37a, 0x08, 0x01},
{0x37a, 0x04, 0x00},
{0x37a, 0x02, 0x01},
{0x37a, 0x01, 0x01},
{0x378, 0x08, 0x00},
{0x378, 0x04, 0x00},
{0x378, 0x02, 0x00},
{0x378, 0x01, 0x00}
};
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
void BitTrace::SetLineImplementation(Byte line)
{
Verify(line < ELEMENTS(Bit_Table));
//
//------------------------------------------------------------------
// read the current value of the appropriate port
//------------------------------------------------------------------
//
Byte port_value = inportb(Bit_Table[line].port);
//
//------------------------------------------------------------------
// set the appropriate bit, taking into account the hardware sense
//------------------------------------------------------------------
//
if (!Bit_Table[line].sense)
{
port_value |= Bit_Table[line].mask;
}
else
{
port_value &= (Byte)(~Bit_Table[line].mask);
}
//
//------------------------------------------------------------------
// put the modified value into the appropriate port
//------------------------------------------------------------------
//
outportb(Bit_Table[line].port, port_value);
}
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
void BitTrace::ClearLineImplementation(Byte line)
{
Verify(line < ELEMENTS(Bit_Table));
//
//------------------------------------------------------------------
// read the current value of the appropriate port
//------------------------------------------------------------------
//
Byte port_value = inportb(Bit_Table[line].port);
//
//------------------------------------------------------------------
// clear the appropriate bit, taking into account the hardware sense
//------------------------------------------------------------------
//
if (!Bit_Table[line].sense)
{
port_value &= (Byte)(~Bit_Table[line].mask);
}
else
{
port_value |= Bit_Table[line].mask;
}
//
//------------------------------------------------------------------
// put the modified value into the appropriate port
//------------------------------------------------------------------
//
outportb(Bit_Table[line].port, port_value);
}
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
Logical
BitTrace::IsLineValidImplementation(Byte line)
{
return line<ELEMENTS(Bit_Table);
}
#endif