Subversion Repositories Kolibri OS

#startaddress 0

#code32 TRUE

char   os_name[8]   = {'M','E','N','U','E','T','0','1'};

dword  os_version   = 0x00000001;

dword  start_addr   = #main;

dword  final_addr   = #stop+32;

dword  alloc_mem    = 0x00100000;

dword  x86esp_reg   = 0x0007fff0;

dword  I_Param      = 0x0;

dword  I_Icon       = 0x0;

dword			skin_width;

// KeyCode constant

#define UP_KEY     130+48

#define DOWN_KEY   129+48

#define LEFT_KEY   128+48

#define RIGHT_KEY  131+48

#define RETURN_KEY 13

// Color constant

#define clWhite 0x00ffffff

#define clBlack 0x00000000

#define clRed   0x00ff0000

#define clGreen 0x0000ff00

#define clBlue  0x000000ff

#define evButton  3

#define evKey     2

#define evReDraw  1

#define evNet	  8

#define BT_DEL		0x80000000

#define BT_HIDE		0x40000000

#define BT_NOFRAME	0x20000000

#define OLD			-1

struct FileInfo{

 dword read, firstBlock, qnBlockRead, retPtr, Work;

 byte  filedir;

};

//-------------------------------------------------------------------------

struct system_colors{

	dword frame,grab,grab_button,grab_button_text,grab_text,work,work_button,work_button_text,work_text,work_graph;

	void get();

};

void system_colors::get()

{

	EAX = 48;

	EBX = 3;

	ECX = #frame;

	EDX = 40;

	$int	0x40

}

struct mouse{

 dword x,y,lkm,pkm;

 void get();

};

void mouse::get()

{

	EAX = 37;

	EBX = 1;

	$int	0x40

	$mov	ebx, eax

	$shr	eax, 16

	$and	ebx,0x0000FFFF

	x = EAX;

	y = EBX;

	EAX = 37;

	EBX = 2;

	$int	0x40

	$mov	ebx, eax

	$and	eax, 0x00000001

	$shr	ebx, 1

	$and	ebx, 0x00000001

	lkm = EAX;

	pkm = EBX;

}

//---------------------------------------------------------------------------

struct f70{

	dword	func;

	dword	param1;

	dword	param2;

	dword	param3;

	dword	param4;

	char	rezerv;

	dword	name;

};

//---------------------------------------------------------------------------

struct BDVK{

	dword	attr;

	byte	type_name;

	byte	rez1, rez2, rez3;

	dword	timecreate;

	dword	datecreate;

	dword	timelastaccess;

	dword	datelastaccess;

	dword	timelastedit;

	dword	datelastedit;

	dword	sizelo;

	dword	sizehi;

	char	name[518];

};

//---------------------------------------------------------------------------

struct proc_info{

	dword	use_cpu;

	word	pos_in_stack,num_slot,rezerv1;

	char	name[11];

	char	rezerv2;

	dword	adress,use_memory,ID,left,top,width,height;

	word	status_slot,rezerv3;

	dword	work_left,work_top,work_width,work_height;

	char	status_window;

	void	getme();

};

void proc_info::getme()

{

	EAX = 9;

	EBX = #use_cpu;

	ECX = -1;

	$int	0x40

}

//-------------------------------------------------------------------------------

inline fastcall void begin_paint(){

#speed

 EAX = 12;              // function 12:tell os about windowdraw

 EBX = 1;               // 1, start of draw

 $int 0x40

#codesize

}

inline fastcall void end_paint(){

#speed

 EAX = 12;              // function 12:tell os about windowdraw

 EBX = 2;               // 1, start of draw

 $int 0x40

#codesize

}

/*

 Žâà¨á®¢ª  ®ª­ 

  {x_start|y_start}, {x_size|y_size}, color_back, color_title, color_frames

 DrawWindow(

             EBX = [x_start][x_size]

             ECX = [y_start][y_size]

             EDX, ESI, EDI = [00RRGGBB]

           )

*/

inline fastcall void DrawWindow(dword EBX, ECX, EDX, ESI, EDI){

#speed

 EAX = 0;               // function 0 : define and draw window

 $int 0x40

#codesize

}

inline fastcall void DrawButton(dword EBX, ECX, EDX, ESI){

#speed

 EAX = 8;

 $int 0x40

#codesize

}

inline fastcall dword WaitEvent(){

#speed

 EAX = 10;              // wait here for event

 $int 0x40

#codesize

}

inline fastcall void ExitProcess(){

#speed

 EAX = -1;              // close this program

 $int 0x40

#codesize

}

/*

02 = GET KEY

     ret: al 0 successful -> ah = key

          al 1 no key in buffer

*/

inline fastcall word GetKey(){

#speed

 EAX = 2;              // just read it key from buffer

 $int  0x40

 EAX = EAX >> 8;

#codesize

}

/*

17 = GET PRESSED BUTTON ID

     ret: al 0 successful -> ah = id number

          al 1 no key in buffer

*/

inline fastcall word GetButtonID(){

#speed

 EAX = 17;            // Get ID

 $int  0x40

 EAX = EAX >> 8;

#codesize

}

/*

58 = SYSTEM TREE ACCESS

     ebx    pointer to fileinfo block

     fileinfo:

     dd   0x0                  ; 0=read (/write/delete/append)

     dd   0x0                  ; 512 block to read 0+

     dd   0x1                  ; blocks to read (/bytes to write/append)

     dd   0x20000              ; return data pointer

     dd   0x10000              ; work area for os - 16384 bytes

     db   '/RAMDISK/FIRST/KERNEL.ASM',0  ; ASCIIZ dir & filename

*/

inline fastcall void AccessSystemTree(dword EBX){

#speed

 EAX = 58;

 $int 0x40

#codesize

}

/*

04 = WRITE TEXT TO WINDOW

     ebx [x start]*65536 + [y start]

     ecx text color 0x00RRGGBB

     edx pointer to text beginning

     esi text length

     ret: nothing changed

*/

inline fastcall void WriteTextXY(dword EBX, ECX, EDX, ESI){

#speed

 EAX = 4;

 $int 0x40;

#codesize

}

/*

13 = DRAW BAR

     ebx [x start]*65536 + [x size]

     ecx [y start]*65536 + [y size]

     edx color 0x00RRGGBB

     ret: nothing changed

*/

inline fastcall void kos_DrawBar(dword EBX, ECX, EDX){

#speed

 EAX = 13;

 $int 0x40

#codesize

}

//CODED by Veliant

/*eax = 38 - íîìåð ôóíêöèè

ebx = [êîîðäèíàòà íà÷àëà ïî îñè x]*65536 + [êîîðäèíàòà êîíöà ïî îñè x]

ecx = [êîîðäèíàòà íà÷àëà ïî îñè y]*65536 + [êîîðäèíàòà êîíöà ïî îñè y]

edx = 0x00RRGGBB - öâåò

edx = 0x01xxxxxx - ðèñîâàòü èíâåðñíûé îòðåçîê (ìëàäøèå 24 áèòà èãíîðèðóþòñÿ) */

inline fastcall void DrawLine(dword EBX, ECX, EDX){

#speed

 EAX = 38;

 $int 0x40

#codesize

}

inline fastcall void DrawTitle(dword ECX)

{

#speed

	EAX = 71;

	EBX = 1;

	$int 0x40;

#codesize

}

inline fastcall dword GetSkinWidth()

{

#speed

	EAX = 48;

	EBX = 4;

	$int 0x40

#codesize

}

inline fastcall dword GetScreenWidth()

{

#speed

	EAX = 14;

	EBX = 4;

	$int 0x40

	$shr eax, 16

	$and eax,0x0000FFFF

#codesize

}

inline fastcall void DeleteButton(dword EDX)

{

#speed

	EAX = 8;

	EDX = EDX + BT_DEL;

	$int 0x40;

#codesize

}

inline fastcall dword LoadLibrary(dword ECX)

{

#speed

	$mov eax, 68

	$mov ebx, 19

	$int  0x40

#codesize

}

//function GetProcAdress(hLib:integer; name:string):integer;

inline fastcall dword GetProcAdress(dword ECX, EAX)

{

#speed

#codesize

}

inline fastcall dword strlen(dword ESI)

{

#speed

	int len=0;

	while (AL=ESBYTE[ESI])

	{

		len++;

		ESI++;

	}

	EAX=len;

#codesize

}

//-1 - íå ðàâíû

// 0 - ðàâíû

inline fastcall dword strcmp(dword ESI,EDI)

{

#speed

	dword strcmp_i,ret,len1,len2,sovpadenij,str1,str2;

	str1=ESI;

	str2=EDI;

	ret=-1;

	sovpadenij=0;

	len1=strlen(str1);

	len2=strlen(str2);

	if (len1==len2)

	{

		for (strcmp_i=0;strcmp_i

		{

			EAX = str1+strcmp_i;

			EAX = ESBYTE[EAX];

			EBX = str2+strcmp_i;

			EBX = ESBYTE[EBX];

			if (EAX==EBX) sovpadenij++;

		}

		if (sovpadenij==len1) ret=0;

	}

	else ret=-1;

	EAX = ret;

#codesize

}

inline fastcall dword upcase(dword ESI)

{

#speed

	dword str, i;

	str = ESI;

	for (i=0;i

	{

		EAX = str+i;

		EDX = ESBYTE[EAX];

		if (EDX>=97) && (EDX<=122) ESBYTE[str+i] = DL - 32;	//a-z

		if (EDX>=160) && (EDX<=175) ESBYTE[str+i] = DL - 32;	//à-ï

		if (EDX>=224) && (EDX<=239) ESBYTE[str+i] = DL - 80;	//ð-ÿ

		if (EDX == 241) ESBYTE[EAX] = 240;					//¸

	}

	EAX = str;

	//EAX = ESDWORD[EAX];

	//if (EAX != 0x5249443C) $int 3;

#codesize

}

inline fastcall dword lowcase(dword ESI)

{

#speed

	dword str, i;

	str = ESI;

	for (i=0;i

	{

		EAX = str+i;

		EDX = ESBYTE[EAX];

		if (EDX>=65) && (EDX<=90) ESBYTE[str+i] = DL + 32;	//a-z

		if (EDX>=128) && (EDX<=143) ESBYTE[str+i] = DL + 32;	//à-ï

		if (EDX>=144) && (EDX<=159) ESBYTE[str+i] = DL + 80;	//ð-ÿ

		if (EDX == 240) ESBYTE[EAX] = 241;					//¸

	}

	EAX = str;

	//EAX = ESDWORD[EAX];

	//if (EAX != 0x5249443C) $int 3;

#codesize

}

inline fastcall void dostowin (dword ESI)

{

#speed

	dword stroka,dlina;

	stroka = ESI;

	while (BL=ESBYTE[ESI])

	{

		if (BL>128)

			if (BL>=240)

				ESBYTE[ESI] = BL - 16;

			else

				ESBYTE[ESI] = BL - 64;

		ESI++;

	}

#codesize

}

void WindowRedrawStatus(dword i)

{

	EAX = 12;              // function 12:tell os about windowdraw

	EBX = i;               // 1, start of draw

	$int 0x40

}

void DefineAndDrawWindow(dword x,y,sizeX,sizeY,byte mainAreaType,dword mainAreaColour,byte headerType,dword headerColour,borderColour)

{

	dword arg1, arg2, arg3, arg4;

	//

	arg1 = x << 16 + sizeX;

	arg2 = y << 16 + sizeY;

	arg3 = mainAreaType << 24 | mainAreaColour;

	arg4 = headerType << 24 | headerColour;

	//

	$mov eax, 0

	$mov ebx, arg1

	$mov ecx, arg2

	$mov edx, arg3

	$mov esi, arg4

	$mov edi, borderColour

	$int 0x40

}

void DefineButton(dword x,y,w,h,id,color)

{

	DrawButton(x<<16+w, skin_width+y<<16+h, id, color);

}

void WriteText(dword x,y,byte fontType, dword color, text, len)

{

	EBX = x<<16+skin_width+y;

	ECX = fontType<<24+color;

	EDX = text;

	ESI = len;

	EAX = 4;

	$int 0x40;

}

void DrawBar(dword x,y,w,h,color)

{

	kos_DrawBar(x<<16+w,skin_width+y<<16+h,color);

}

void DrawRegion(dword x,y,width,height,color1)

{

	DrawBar(x,y,width,1,color1); //ïîëîñà ãîð ñâåðõó

	DrawBar(x,y+height,width,1,color1); //ïîëîñà ãîð ñíèçó

	DrawBar(x,y,1,height,color1); //ïîëîñà âåðò ñëåâà

	DrawBar(x+width,y,1,height+1,color1); //ïîëîñà âåðò ñïðàâà

}

void DrawFlatButton(dword x,y,width,height,id,color)

{

	DrawRegion(x,y,width,height,0x94AECE);

	DrawBar(x+1,y+1,width-1,1,0xFFFFFF); //ïîëîñà ãîð áåëàÿ

	DrawBar(x+1,y+height-1,width-2,1,0xC7C7C7); //òåíü âåðò

	DrawBar(x+1,y+1,1,height-1,0xFFFFFF); //ïîëîñà âåðò áåëàÿ

	DrawBar(x+width-1,y+2,1,height-2,0xC7C7C7); //òåíü âåðò

	DrawBar(x+2,y+2,width-3,height-3,color); //çàëèâêà

	if (id<>0)

	{

	DefineButton(x,y,width,height,id+BT_DEL,0xEFEBEF); //óäàëÿåì êíîïêó

	DefineButton(x,y,width,height,id+BT_HIDE,0xEFEBEF); //îïðåäåëÿåì êíîïêó

	}

}

void PutImage(dword buf,w,h,x,y)

{

	int i,r,g,b;

	EDI=buf;

	EAX = 7;

	EBX = buf;

	ECX = w<<16+h;

	EDX = x<<16+y+skin_width;

	$int 0x40

}

void copystr(dword s,d)

{

	ECX=strlen(d);//î÷èùàåì ñòàðîå

	$mov edi,d

	$xor al,al

	$cld

	$rep $stosb

	ECX=strlen(s);//êîïèðóåì

	$mov esi,s

	$mov edi,d

	$cld

	$rep $movsb

}

int		pos,razr,backup,j=0;

char	buffer[11]="";

int		chislo;

inline fastcall dword IntToStr(dword ESI)

{

#speed

	chislo=ESI;

	ECX=12;

	$push edi

	$mov edi,#buffer

	$xor al,al

	$cld

	$rep $stosb

	pos=razr=backup=j=0;

	if (chislo<0)

	{

		buffer[pos]='-';

		chislo=-1*chislo;

		pos++;

	}

	backup=chislo;

	do

	{

		backup=backup/10;

		razr++;

	}

	while (backup!=0);

	razr--;

	for (j=razr+pos;j>pos-1;j--)

	{

		backup=chislo/10;

		backup=backup*10;

		buffer[j]=chislo-backup+48;

		chislo=chislo/10;

	}

	//return #buffer;

	$pop edi;

	EAX = #buffer;

#codesize

}

inline fastcall dword MoveSize(dword EBX,ECX,EDX,ESI)

{

#speed

	EAX = 67;

	$int 0x40

#codesize

}

f70	CopyFile_f;

BDVK CopyFile_atr;

inline fastcall dword CopyFile(dword EBX,ECX)

{

#speed

	dword s, d, buf;

	s = EBX;

	d = ECX;

	CopyFile_f.func = 5;

	CopyFile_f.param1 = 0;

	CopyFile_f.param2 = 0;

	CopyFile_f.param3 = 0;

	CopyFile_f.param4 = #CopyFile_atr;

	CopyFile_f.rezerv = 0;

	CopyFile_f.name = s;

	$mov	eax, 70

	$mov	ebx, #CopyFile_f

	$int	0x40

	if (EAX == 0)

	{

		buf = malloc(CopyFile_atr.sizelo);

		CopyFile_f.func = 0;

		CopyFile_f.param1 = 0;

		CopyFile_f.param2 = 0;

		CopyFile_f.param3 = CopyFile_atr.sizelo;

		CopyFile_f.param4 = buf;

		CopyFile_f.rezerv = 0;

		CopyFile_f.name = s;

		$mov	eax, 70

		$mov	ebx, #CopyFile_f

		$int	0x40

		if (EAX == 0)

		{

			CopyFile_f.func = 2;

			CopyFile_f.param1 = 0;

			CopyFile_f.param2 = 0;

			CopyFile_f.param3 = CopyFile_atr.sizelo;

			CopyFile_f.param4 = buf;

			CopyFile_f.rezerv = 0;

			CopyFile_f.name = d;

			$mov	eax, 70

			$mov	ebx, #CopyFile_f

			$int	0x40

		}

	}

#codesize

}