forked from KolibriOS/kolibrios
120 lines
2.5 KiB
Plaintext
120 lines
2.5 KiB
Plaintext
/*-------------------------------------------------------------------------------
|
|
C-- base library for Kolibri, Nable's variant.
|
|
-------------------------------------------------------------------------------*/
|
|
|
|
inline fastcall dword WaitEventTimeout(dword EBX){
|
|
EAX = 23; // wait here for event
|
|
$int 0x40
|
|
}
|
|
|
|
//-------------------------------------------------------------------------------
|
|
struct IMAGE_INFO{
|
|
word Left,Top,Width,Height; //+0, +2, +4, +6
|
|
dword Delay,Displacement,StartOfImage; //+8, +12, +16
|
|
dword pPalette,BitsPerPixel; //+20, +24
|
|
};
|
|
|
|
IMAGE_INFO CurrentImage;
|
|
|
|
//-------------------------------------------------------------------------------
|
|
fastcall int GetNthImageInfo(dword ESI, EDI, ECX)
|
|
//esi - pointer to structure with multiple images
|
|
//edi - pointer to structure of type IMG_INFO
|
|
//ecx - CurrentFrameNum
|
|
//returns 0 if error
|
|
int pCurrentImage;
|
|
{
|
|
pCurrentImage = EDI;
|
|
EAX = 0;
|
|
EBX = ESI;
|
|
$jecxz _END_LOOP
|
|
_1:
|
|
$TEST ESI,ESI
|
|
$JE __EXIT
|
|
|
|
//MOV ESI,[ESI] - c-- refused to compile it
|
|
$DB 8Bh
|
|
$DB 36h
|
|
|
|
$ADD ESI,EBX
|
|
$loop _1
|
|
_END_LOOP:
|
|
$LODSD
|
|
//left and top
|
|
$MOVSD
|
|
//width and height
|
|
$MOVSD
|
|
//delay
|
|
$MOVSD
|
|
//displacement
|
|
$MOVSD
|
|
|
|
EDI = pCurrentImage;
|
|
|
|
$LODSD
|
|
$TEST EAX,EAX
|
|
$JS _NO_PALETTE
|
|
$ADD EAX,EBX
|
|
|
|
//Stay calm, this pervertion is only because of uncomplete
|
|
//pointers' support in C--
|
|
|
|
//CurrentImage.pPalette=ESI;
|
|
DSDWORD[EDI+20] = ESI;
|
|
|
|
//CurrentImage.StartOfImage=EAX;
|
|
DSDWORD[EDI+16] = EAX;
|
|
|
|
//CurrentImage.BitsPerPixel=8;
|
|
DSDWORD[EDI+24] = 8;
|
|
GOTO __EXIT;
|
|
|
|
_NO_PALETTE:
|
|
$NEG EAX
|
|
//CurrentImage.BitsPerPixel=EAX;
|
|
DSDWORD[EDI+24] = EAX;
|
|
|
|
//CurrentImage.pPalette=0;
|
|
DSDWORD[EDI+20] = 0;
|
|
|
|
//CurrentImage.StartOfImage=ESI;
|
|
DSDWORD[EDI+16] = ESI;
|
|
__EXIT:
|
|
}
|
|
|
|
//As a parameter you should send PID of needed slot
|
|
//return value will be 0 if not found
|
|
inline fastcall int PIDtoSlot(dword EDX)
|
|
{
|
|
proc_info _p_info;
|
|
EBX=#_p_info; //pointer to the structure
|
|
ECX=2;//slot 1 is system
|
|
WHILE(ECX<256){
|
|
EAX=9;
|
|
$INT 0x40
|
|
IF(_p_info.ID == EDX) return ECX;
|
|
ECX++;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
|
|
void fastcall DrawImage(dword EBX, EDX)
|
|
{
|
|
$PUSHAD
|
|
EAX = 65;
|
|
EBP = 0;
|
|
EDI = DSDWORD[EBX+20];
|
|
ESI = DSDWORD[EBX+24];
|
|
$ROR EDX,16
|
|
EDX += DSDWORD[EBX];
|
|
$ROR EDX,16
|
|
ECX = DSDWORD[EBX+4];
|
|
$ROR ECX,16
|
|
EBX = DSDWORD[EBX+16];
|
|
$INT 0x40
|
|
$POPAD
|
|
}
|
|
|
|
|