forked from KolibriOS/kolibrios
0b5dbe568e
upload correct mfar sources git-svn-id: svn://kolibrios.org@7649 a494cfbc-eb01-0410-851d-a64ba20cac60
922 lines
14 KiB
C++
922 lines
14 KiB
C++
#include "kosSyst.h"
|
||
#include "stdarg.h"
|
||
|
||
#define atexitBufferSize 32
|
||
|
||
|
||
char pureCallMessage[] = "PURE function call!";
|
||
|
||
char *kosExePath = NULL;
|
||
|
||
int abs(int value)
|
||
{
|
||
if (value<0) value=0-value;
|
||
return value;
|
||
}
|
||
|
||
//
|
||
void (__cdecl *atExitList[atexitBufferSize])();
|
||
int atExitFnNum = 0;
|
||
//
|
||
int __cdecl atexit( void (__cdecl *func )( void ))
|
||
{
|
||
//
|
||
if ( atExitFnNum < atexitBufferSize )
|
||
{
|
||
//
|
||
atExitList[atExitFnNum++] = func;
|
||
return 0;
|
||
}
|
||
else
|
||
{
|
||
return 1;
|
||
}
|
||
}
|
||
|
||
|
||
//
|
||
Dword RandomSeed = 1;
|
||
//
|
||
void rtlSrand( Dword seed )
|
||
{
|
||
RandomSeed = seed;
|
||
}
|
||
//
|
||
Dword rtlRand( void )
|
||
{
|
||
//ìàñêà 0x80000776
|
||
|
||
Dword dwi, i;
|
||
|
||
for ( i = 0; i < 32; i++ )
|
||
{
|
||
|
||
dwi = RandomSeed & 0x80000776;
|
||
|
||
__asm{
|
||
mov eax, dwi
|
||
mov edx, eax
|
||
bswap eax
|
||
xor eax, edx
|
||
xor al, ah
|
||
setpo al
|
||
movzx eax, al
|
||
mov dwi, eax
|
||
}
|
||
|
||
RandomSeed = ( RandomSeed << 1 ) | ( dwi & 1 );
|
||
}
|
||
|
||
return RandomSeed;
|
||
}
|
||
|
||
#if _MSC_VER >= 1400
|
||
//
|
||
void * __cdecl memcpy( void *dst, const void *src, size_t bytesCount )
|
||
{
|
||
__asm{
|
||
mov edi, dst
|
||
mov eax, dst
|
||
mov esi, src
|
||
mov ecx, bytesCount
|
||
rep movsb
|
||
}
|
||
}
|
||
|
||
//
|
||
void memset( Byte *dst, Byte filler, Dword count )
|
||
{
|
||
//
|
||
__asm{
|
||
mov edi, dst
|
||
mov al, filler
|
||
mov ecx, count
|
||
rep stosb
|
||
}
|
||
}
|
||
#endif
|
||
|
||
//
|
||
Dword rtlInterlockedExchange( Dword *target, Dword value )
|
||
{
|
||
// Dword result;
|
||
|
||
//
|
||
__asm{
|
||
mov eax, value
|
||
mov ebx, target
|
||
xchg eax, [ebx]
|
||
// mov result, eax
|
||
}
|
||
//
|
||
// return result;
|
||
}
|
||
|
||
|
||
//////////////////////////////////////////////////////////////////////
|
||
//
|
||
// êîïèðîâàíèå ñòðîêè
|
||
//
|
||
|
||
char * __cdecl strcpy( char *target, const char *source )
|
||
{
|
||
char *result = target;
|
||
|
||
while( target[0] = source[0] )
|
||
{
|
||
target++;
|
||
source++;
|
||
}
|
||
|
||
return result;
|
||
}
|
||
|
||
|
||
//////////////////////////////////////////////////////////////////////
|
||
//
|
||
// ðåâåðñèâíûé ïîèñê ñèìâîëà
|
||
//
|
||
|
||
char * __cdecl strrchr( const char * string, int c )
|
||
{
|
||
char *cPtr;
|
||
|
||
//
|
||
for ( cPtr = (char *)string + strlen( string ); cPtr >= string; cPtr-- )
|
||
{
|
||
//
|
||
if ( *cPtr == c ) return cPtr;
|
||
}
|
||
//
|
||
return NULL;
|
||
}
|
||
|
||
|
||
//////////////////////////////////////////////////////////////////////
|
||
//
|
||
// îïðåäåëåíèå äëèíû ñòðîêè
|
||
//
|
||
|
||
int __cdecl strlen( const char *line )
|
||
{
|
||
int i;
|
||
|
||
for( i=0; line[i] != 0; i++ );
|
||
return i;
|
||
}
|
||
|
||
|
||
|
||
//////////////////////////////////////////////////////////////////////
|
||
//
|
||
// Ñðàâíåíèå ñòðîê
|
||
//
|
||
|
||
int strcmp(char* string1, char* string2)
|
||
{
|
||
Dword retval;
|
||
if (strlen(string1)==strlen(string2))
|
||
{
|
||
__asm
|
||
{
|
||
mov dword ptr [retval],0
|
||
mov esi,string1
|
||
mov edi,string2
|
||
next_char:
|
||
mov al,byte ptr [esi]
|
||
mov bl,byte ptr [edi]
|
||
inc esi
|
||
inc edi
|
||
cmp bl,0
|
||
je fin
|
||
cmp al,bl
|
||
je next_char
|
||
jmp not_equal
|
||
fin:
|
||
mov dword ptr [retval],1
|
||
not_equal:
|
||
}
|
||
return retval;
|
||
} else {
|
||
return 0;
|
||
}
|
||
}
|
||
|
||
|
||
//////////////////////////////////////////////////////////////////////
|
||
//
|
||
// ïåðåâîä øåñòíàäöàòèðè÷íîãî ÷èñëà â ñèìâîë
|
||
//
|
||
|
||
unsigned int num2hex( unsigned int num )
|
||
{
|
||
if( num < 10 )
|
||
return num + '0';
|
||
return num - 10 + 'A';
|
||
}
|
||
|
||
|
||
|
||
//////////////////////////////////////////////////////////////////////
|
||
//
|
||
// ïåðåâîä ñòðîêè â íèæíèé ðåãèñòð
|
||
//
|
||
|
||
void lcase(char* string)
|
||
{
|
||
int i;
|
||
char chr;
|
||
for(i=0;i<strlen(string);i++)
|
||
{
|
||
chr=((char*)string)[i];
|
||
if (chr>=65 && chr<=90) chr=chr+32; //a-z
|
||
if (chr>=128 && chr<=143) chr=chr+32; //à-ï
|
||
if (chr>=144 && chr<=159) chr=chr+80; //ð-ÿ
|
||
if (chr==240) chr=241; //¸
|
||
((char*)string)[i]=chr;
|
||
}
|
||
}
|
||
|
||
|
||
//////////////////////////////////////////////////////////////////////
|
||
//
|
||
// âûâîä ñòðîêè íà ïå÷àòü
|
||
//
|
||
|
||
Dword dectab[] = { 1000000000, 100000000, 10000000, 1000000, 100000,
|
||
10000, 1000, 100, 10, 0 };
|
||
|
||
//
|
||
void sprintf( char *Str, char* Format, ... )
|
||
{
|
||
int i, fmtlinesize, j, k, flag;
|
||
Dword head, tail;
|
||
char c;
|
||
va_list arglist;
|
||
//
|
||
va_start(arglist, Format);
|
||
|
||
//
|
||
fmtlinesize = strlen( Format );
|
||
//
|
||
if( fmtlinesize == 0 ) return;
|
||
|
||
//
|
||
for( i = 0, j = 0; i < fmtlinesize; i++ )
|
||
{
|
||
//
|
||
c = Format[i];
|
||
//
|
||
if( c != '%' )
|
||
{
|
||
Str[j++] = c;
|
||
continue;
|
||
}
|
||
//
|
||
i++;
|
||
//
|
||
if( i >= fmtlinesize ) break;
|
||
|
||
//
|
||
flag = 0;
|
||
//
|
||
c = Format[i];
|
||
//
|
||
switch( c )
|
||
{
|
||
//
|
||
case '%':
|
||
Str[j++] = c;
|
||
break;
|
||
// âûâîä ñòðîêè
|
||
case 'S':
|
||
Byte* str;
|
||
str = va_arg(arglist, Byte*);
|
||
for( k = 0; ( c = str[k] ) != 0; k++ )
|
||
{
|
||
Str[j++] = c;
|
||
}
|
||
break;
|
||
// âûâîä áàéòà
|
||
case 'B':
|
||
k = va_arg(arglist, int) & 0xFF;
|
||
Str[j++] = num2hex( ( k >> 4 ) & 0xF );
|
||
Str[j++] = num2hex( k & 0xF );
|
||
break;
|
||
// âûâîä ñèìâîëà
|
||
case 'C':
|
||
Str[j++] = va_arg(arglist, int) & 0xFF;
|
||
break;
|
||
// âûâîä äâîéíîãî ñëîâà â øåñòíàäöàòèðè÷íîì âèäå
|
||
case 'X':
|
||
Dword val;
|
||
val = va_arg(arglist, Dword);
|
||
for( k = 7; k >= 0; k-- )
|
||
{
|
||
//
|
||
c = num2hex ( ( val >> (k * 4) ) & 0xF );
|
||
//
|
||
if( c == '0' )
|
||
{
|
||
if( flag ) Str[j++] = c;
|
||
}
|
||
else
|
||
{
|
||
flag++;
|
||
Str[j++] = c;
|
||
}
|
||
}
|
||
//
|
||
if( flag == 0 ) Str[j++] = '0';
|
||
break;
|
||
// âûâîä äâîéíîãî ñëîâà â äåñÿòè÷íîì âèäå
|
||
case 'U':
|
||
head = va_arg(arglist, Dword);
|
||
tail = 0;
|
||
for( k = 0; dectab[k] != 0; k++ )
|
||
{
|
||
tail = head % dectab[k];
|
||
head /= dectab[k];
|
||
c = head + '0';
|
||
if( c == '0' )
|
||
{
|
||
if( flag ) Str[j++] = c;
|
||
}
|
||
else
|
||
{
|
||
flag++;
|
||
Str[j++] = c;
|
||
}
|
||
//
|
||
head = tail;
|
||
}
|
||
//
|
||
c = head + '0';
|
||
Str[j++] = c;
|
||
break;
|
||
// âûâîä 64-áèòíîãî ñëîâà â øåñòíàäöàòèðè÷íîì âèäå
|
||
case 'Q':
|
||
unsigned int low_dword, high_dword;
|
||
low_dword = va_arg(arglist, unsigned int);
|
||
high_dword = va_arg(arglist, unsigned int);
|
||
for( k = 7; k >= 0; k-- )
|
||
{
|
||
//
|
||
c = num2hex ( ( ( high_dword + 1) >> (k * 4) ) & 0xF );
|
||
//
|
||
if( c == '0' )
|
||
{
|
||
if( flag ) Str[j++] = c;
|
||
}
|
||
else
|
||
{
|
||
flag++;
|
||
Str[j++] = c;
|
||
}
|
||
}
|
||
//
|
||
for( k=7; k >= 0; k-- )
|
||
{
|
||
//
|
||
c = num2hex ( ( low_dword >> (k * 4) ) & 0xF );
|
||
//
|
||
if( c == '0' )
|
||
{
|
||
if( flag ) Str[j++] = c;
|
||
}
|
||
else
|
||
{
|
||
flag++;
|
||
Str[j++] = c;
|
||
}
|
||
}
|
||
//
|
||
if( flag == 0 ) Str[j++] = '0';
|
||
//
|
||
break;
|
||
//
|
||
default:
|
||
break;
|
||
}
|
||
}
|
||
//
|
||
Str[j] = 0;
|
||
}
|
||
|
||
|
||
// ôóíêöèÿ -1 çàâåðøåíèÿ ïðîöåññà
|
||
void kos_ExitApp()
|
||
{
|
||
int i;
|
||
|
||
//
|
||
for ( i = atExitFnNum - 1; i >= 0; i-- )
|
||
{
|
||
//
|
||
atExitList[i]();
|
||
}
|
||
//
|
||
__asm{
|
||
mov eax, -1
|
||
int 0x40
|
||
}
|
||
}
|
||
|
||
|
||
// ôóíêöèÿ 0
|
||
void kos_DefineAndDrawWindow(
|
||
Word x, Word y,
|
||
Word sizeX, Word sizeY,
|
||
Byte mainAreaType,
|
||
Dword mainAreaColour,
|
||
Byte headerType,
|
||
Dword headerColour,
|
||
Dword borderColour
|
||
)
|
||
{
|
||
Dword arg1, arg2, arg3, arg4;
|
||
|
||
//
|
||
arg1 = ( x << 16 ) + sizeX;
|
||
arg2 = ( y << 16 ) + sizeY;
|
||
arg3 = ( mainAreaType << 24 ) | mainAreaColour;
|
||
arg4 = ( headerType << 24 ) | headerColour;
|
||
//
|
||
__asm{
|
||
mov eax, 0
|
||
mov ebx, arg1
|
||
mov ecx, arg2
|
||
mov edx, arg3
|
||
mov esi, arg4
|
||
mov edi, borderColour
|
||
int 0x40
|
||
}
|
||
}
|
||
|
||
|
||
// ôóíêöèÿ 1 ïîñòàâèòü òî÷êó
|
||
void kos_PutPixel( Dword x, Dword y, Dword colour )
|
||
{
|
||
//
|
||
__asm{
|
||
mov eax, 1
|
||
mov ebx, x
|
||
mov ecx, y
|
||
mov edx, colour
|
||
int 0x40
|
||
}
|
||
}
|
||
|
||
|
||
// ôóíêöèÿ 2 ïîëó÷èòü êîä íàæàòîé êëàâèøè
|
||
bool kos_GetKey( Byte &keyCode )
|
||
{
|
||
Dword result;
|
||
|
||
//
|
||
__asm{
|
||
mov eax, 2
|
||
int 0x40
|
||
mov result, eax
|
||
}
|
||
//
|
||
keyCode = result >> 8;
|
||
//
|
||
return ( result & 0xFF ) == 0;
|
||
}
|
||
|
||
|
||
// ôóíêöèÿ 3 ïîëó÷èòü âðåìÿ
|
||
Dword kos_GetSystemClock()
|
||
{
|
||
// Dword result;
|
||
|
||
//
|
||
__asm{
|
||
mov eax, 3
|
||
int 0x40
|
||
// mov result, eax
|
||
}
|
||
//
|
||
// return result;
|
||
}
|
||
|
||
|
||
// ôóíêöèÿ 4
|
||
void kos_WriteTextToWindow(
|
||
Word x,
|
||
Word y,
|
||
Byte fontType,
|
||
Dword textColour,
|
||
char *textPtr,
|
||
Dword textLen
|
||
)
|
||
{
|
||
Dword arg1, arg2;
|
||
|
||
//
|
||
arg1 = ( x << 16 ) | y;
|
||
arg2 = ( fontType << 24 ) | textColour;
|
||
//
|
||
__asm{
|
||
mov eax, 4
|
||
mov ebx, arg1
|
||
mov ecx, arg2
|
||
mov edx, textPtr
|
||
mov esi, textLen
|
||
int 0x40
|
||
}
|
||
}
|
||
|
||
|
||
// ôóíêöèÿ 5 ïàóçà, â ñîòûõ äîëÿõ ñåêóíäû
|
||
void kos_Pause( Dword value )
|
||
{
|
||
//
|
||
__asm{
|
||
mov eax, 5
|
||
mov ebx, value
|
||
int 0x40
|
||
}
|
||
}
|
||
|
||
|
||
// ôóíêöèÿ 7 íàðèñîâàòü èçîáðàæåíèå
|
||
void kos_PutImage( RGB * imagePtr, Word sizeX, Word sizeY, Word x, Word y )
|
||
{
|
||
Dword arg1, arg2;
|
||
|
||
//
|
||
arg1 = ( sizeX << 16 ) | sizeY;
|
||
arg2 = ( x << 16 ) | y;
|
||
//
|
||
__asm{
|
||
mov eax, 7
|
||
mov ebx, imagePtr
|
||
mov ecx, arg1
|
||
mov edx, arg2
|
||
int 0x40
|
||
}
|
||
}
|
||
|
||
|
||
|
||
// ôóíêöèÿ 8 îïðåäåëèòü êíîïêó
|
||
void kos_DefineButton( Word x, Word y, Word sizeX, Word sizeY, Dword buttonID, Dword colour )
|
||
{
|
||
Dword arg1, arg2;
|
||
|
||
//
|
||
arg1 = ( x << 16 ) | sizeX;
|
||
arg2 = ( y << 16 ) | sizeY;
|
||
//
|
||
__asm{
|
||
mov eax, 8
|
||
mov ebx, arg1
|
||
mov ecx, arg2
|
||
mov edx, buttonID
|
||
mov esi, colour
|
||
int 0x40
|
||
}
|
||
}
|
||
|
||
|
||
// ôóíêöèÿ 9 - èíôîðìàöèÿ î ïðîöåññå
|
||
Dword kos_ProcessInfo( sProcessInfo *targetPtr, Dword processID )
|
||
{
|
||
// Dword result;
|
||
|
||
//
|
||
__asm{
|
||
mov eax, 9
|
||
mov ebx, targetPtr
|
||
mov ecx, processID
|
||
int 0x40
|
||
// mov result, eax
|
||
}
|
||
//
|
||
// return result;
|
||
}
|
||
|
||
|
||
// ôóíêöèÿ 10
|
||
Dword kos_WaitForEvent()
|
||
{
|
||
// Dword result;
|
||
|
||
__asm{
|
||
mov eax, 10
|
||
int 0x40
|
||
// mov result, eax
|
||
}
|
||
|
||
// return result;
|
||
}
|
||
|
||
|
||
// ôóíêöèÿ 11
|
||
Dword kos_CheckForEvent()
|
||
{
|
||
// Dword result;
|
||
|
||
__asm{
|
||
mov eax, 11
|
||
int 0x40
|
||
// mov result, eax
|
||
}
|
||
|
||
// return result;
|
||
}
|
||
|
||
|
||
// ôóíêöèÿ 12
|
||
void kos_WindowRedrawStatus( Dword status )
|
||
{
|
||
__asm{
|
||
mov eax, 12
|
||
mov ebx, status
|
||
int 0x40
|
||
}
|
||
}
|
||
|
||
|
||
// ôóíêöèÿ 13 íàðèñîâàòü ïîëîñó
|
||
void kos_DrawBar( Word x, Word y, Word sizeX, Word sizeY, Dword colour )
|
||
{
|
||
Dword arg1, arg2;
|
||
|
||
//
|
||
arg1 = ( x << 16 ) | sizeX;
|
||
arg2 = ( y << 16 ) | sizeY;
|
||
//
|
||
__asm{
|
||
mov eax, 13
|
||
mov ebx, arg1
|
||
mov ecx, arg2
|
||
mov edx, colour
|
||
int 0x40
|
||
}
|
||
}
|
||
|
||
|
||
// ôóíêöèÿ 17
|
||
bool kos_GetButtonID( Dword &buttonID )
|
||
{
|
||
Dword result;
|
||
|
||
//
|
||
__asm{
|
||
mov eax, 17
|
||
int 0x40
|
||
mov result, eax
|
||
}
|
||
//
|
||
buttonID = result >> 8;
|
||
//
|
||
return (result & 0xFF) == 0;
|
||
}
|
||
|
||
|
||
// ôóíêöèÿ 23
|
||
Dword kos_WaitForEvent( Dword timeOut )
|
||
{
|
||
// Dword result;
|
||
|
||
__asm{
|
||
mov eax, 23
|
||
mov ebx, timeOut
|
||
int 0x40
|
||
// mov result, eax
|
||
}
|
||
|
||
// return result;
|
||
}
|
||
|
||
|
||
// ïîëó÷åíèå èíôîðìàöèè î ñîñòîÿíèè "ìûøè" ôóíêöèÿ 37
|
||
void kos_GetMouseState( Dword & buttons, int & cursorX, int & cursorY )
|
||
{
|
||
Dword mB;
|
||
Word curX;
|
||
Word curY;
|
||
sProcessInfo sPI;
|
||
|
||
//
|
||
__asm{
|
||
mov eax, 37
|
||
mov ebx, 1
|
||
int 0x40
|
||
mov curY, ax
|
||
shr eax, 16
|
||
mov curX, ax
|
||
mov eax, 37
|
||
mov ebx, 2
|
||
int 0x40
|
||
mov mB, eax
|
||
}
|
||
//
|
||
kos_ProcessInfo( &sPI );
|
||
//
|
||
buttons = mB;
|
||
cursorX = curX - sPI.processInfo.left;
|
||
cursorY = curY - sPI.processInfo.top;
|
||
}
|
||
|
||
|
||
// ôóíêöèÿ 40 óñòàíîâèòü ìàñêó ñîáûòèé
|
||
void kos_SetMaskForEvents( Dword mask )
|
||
{
|
||
//
|
||
__asm{
|
||
mov eax, 40
|
||
mov ebx, mask
|
||
int 0x40
|
||
}
|
||
}
|
||
|
||
|
||
// ôóíêöèÿ 47 âûâåñòè â îêíî ïðèëîæåíèÿ ÷èñëî
|
||
void kos_DisplayNumberToWindow(
|
||
Dword value,
|
||
Dword digitsNum,
|
||
Word x,
|
||
Word y,
|
||
Dword colour,
|
||
eNumberBase nBase,
|
||
bool valueIsPointer
|
||
)
|
||
{
|
||
Dword arg1, arg2;
|
||
|
||
//
|
||
arg1 = ( valueIsPointer ? 1 : 0 ) |
|
||
( ((Byte)nBase) << 8 ) |
|
||
( ( digitsNum & 0x1F ) << 16 );
|
||
arg2 = ( x << 16 ) | y;
|
||
//
|
||
__asm{
|
||
mov eax, 47
|
||
mov ebx, arg1
|
||
mov ecx, value
|
||
mov edx, arg2
|
||
mov esi, colour
|
||
int 0x40
|
||
}
|
||
}
|
||
|
||
|
||
// ôóíêöèÿ 70 äîñòóï ê ôàéëîâîé ñèñòåìå
|
||
Dword kos_FileSystemAccess( kosFileInfo *fileInfo )
|
||
{
|
||
// Dword result;
|
||
|
||
//
|
||
__asm{
|
||
mov eax, 70
|
||
mov ebx, fileInfo
|
||
int 0x40
|
||
// mov result, eax
|
||
}
|
||
//
|
||
// return result;
|
||
}
|
||
|
||
|
||
// ôóíêöèÿ 63 âûâîä ñèìâîëÿ â îêíî îòëàäêè
|
||
void kos_DebugOutChar( char ccc )
|
||
{
|
||
//
|
||
__asm{
|
||
mov eax, 63
|
||
mov ebx, 1
|
||
mov cl, ccc
|
||
int 0x40
|
||
}
|
||
}
|
||
|
||
|
||
// ôóíêöèÿ 66 ðåæèì ïîëó÷åíèÿ äàííûõ îò êëàâèàòóðû
|
||
void kos_SetKeyboardDataMode( Dword mode )
|
||
{
|
||
//
|
||
__asm{
|
||
mov eax, 66
|
||
mov ebx, 1
|
||
mov ecx, mode
|
||
int 0x40
|
||
}
|
||
}
|
||
|
||
|
||
// âûâîä ñòðîêè â îêíî îòëàäêè
|
||
void rtlDebugOutString( char *str )
|
||
{
|
||
//
|
||
for ( ; str[0] != 0; str++ )
|
||
{
|
||
kos_DebugOutChar( str[0] );
|
||
}
|
||
//
|
||
kos_DebugOutChar( 13 );
|
||
kos_DebugOutChar( 10 );
|
||
}
|
||
|
||
|
||
// ôóíêöèÿ 64 èçìåíåíèå êîëè÷åñòâà ïàìÿòè, âûäåëåííîé äëÿ ïðîãðàììû
|
||
bool kos_ApplicationMemoryResize( Dword targetSize )
|
||
{
|
||
Dword result;
|
||
|
||
//
|
||
__asm{
|
||
mov eax, 64
|
||
mov ebx, 1
|
||
mov ecx, targetSize
|
||
int 0x40
|
||
mov result, eax
|
||
}
|
||
//
|
||
return result == 0;
|
||
}
|
||
|
||
|
||
// ôóíêöèÿ 67 èçìåíèòü ïàðàìåòðû îêíà, ïàðàìåòð == -1 íå ìåíÿåòñÿ
|
||
void kos_ChangeWindow( Dword x, Dword y, Dword sizeX, Dword sizeY )
|
||
{
|
||
//
|
||
__asm{
|
||
mov eax, 67
|
||
mov ebx, x
|
||
mov ecx, y
|
||
mov edx, sizeX
|
||
mov esi, sizeY
|
||
int 0x40
|
||
}
|
||
}
|
||
|
||
|
||
|
||
Byte* kos_GetMemory(Dword count)
|
||
{
|
||
__asm
|
||
{
|
||
mov eax,68
|
||
mov ebx,12
|
||
mov ecx,count
|
||
int 40h
|
||
}
|
||
}
|
||
|
||
Dword kos_FreeMemory(Byte* pMemory)
|
||
{
|
||
__asm
|
||
{
|
||
mov eax,68
|
||
mov ebx,13
|
||
mov ecx,pMemory
|
||
int 40h
|
||
}
|
||
}
|
||
|
||
// âûçîâ àáñòðàêòíîãî ìåòîäà
|
||
int __cdecl _purecall()
|
||
{
|
||
rtlDebugOutString( pureCallMessage );
|
||
kos_ExitApp();
|
||
return 0;
|
||
}
|
||
|
||
|
||
// âûçîâ ñòàòè÷åñêèõ èíèöèàëèçàòîðîâ
|
||
// çàîäíî èíèöèàëèçàöèÿ ãåíåðàòîðà ñëó÷àéíûõ ÷èñåë
|
||
//#pragma section(".CRT$XCA",long,read,write)
|
||
//#pragma section(".CRT$XCZ",long,read,write)
|
||
#pragma data_seg(".CRT$XCA")
|
||
#pragma data_seg(".CRT$XCZ")
|
||
typedef void (__cdecl *_PVFV)(void);
|
||
__declspec(allocate(".CRT$XCA")) _PVFV __xc_a[1] = { NULL };
|
||
__declspec(allocate(".CRT$XCZ")) _PVFV __xc_z[1] = { NULL };
|
||
//
|
||
#pragma comment(linker, "/merge:.CRT=.rdata")
|
||
//
|
||
void crtStartUp()
|
||
{
|
||
// âûçûâàåì èíèöèàëèçàòîðû ïî ñïèñêó, NULL'û èãíîðèðóåì
|
||
for ( _PVFV *pbegin = __xc_a; pbegin < __xc_z; pbegin++ )
|
||
{
|
||
//
|
||
if ( *pbegin != NULL )
|
||
(**pbegin)();
|
||
}
|
||
// èíèöèàëèçèðóåì ãåíåðàòîð ñëó÷àéíûõ ÷èñåë
|
||
rtlSrand( kos_GetSystemClock() );
|
||
// ïóòü ê ôàéëó ïðîöåññà
|
||
kosExePath = *((char **)0x20);
|
||
// âûçîâ ãëàâíîé ôóíêöèè ïðèëîæåíèÿ
|
||
kos_Main();
|
||
// âûõîä
|
||
kos_ExitApp();
|
||
}
|
||
|
||
|