WebSVN – Kolibri OS – Diff – /programs/cmm/lib/kolibri.h


//CODED by Veliant, Leency, Nable, Pavelyakov. GNU GPL licence.
 
#ifndef INCLUDE_KOLIBRI_H
#define INCLUDE_KOLIBRI_H
 
#pragma option OST
#pragma option ON
#pragma option cri-
#pragma option -CPA
#initallvar 0
#jumptomain FALSE
 
#startaddress 0
 
#code32 TRUE
 
#ifndef ENTRY_POINT
	#define ENTRY_POINT #______INIT______
#endif
 
char   os_name[]    = "MENUET01"n;
dword  os_version   = 0x00000001;
dword  start_addr   = ENTRY_POINT;
dword  final_addr   = #______STOP______+32;
dword  alloc_mem    = MEMSIZE;
dword  x86esp_reg   = MEMSIZE;
dword  I_Param      = #param;
dword  I_Path       = #program_path;
char param[4096];
char program_path[4096];
 
#define bool      int
 
#define NULL      0
#define OLD      -1
#define true      1
#define false     0
 
//Process Events
#define evReDraw  1
#define evKey     2
#define evButton  3
#define evDesktop 5
#define evMouse   6
#define evIPC     7
#define evNetwork 8
#define evDebug   9
 
//Event mask bits for function 40
#define EVM_REDRAW                1b
#define EVM_KEY                  10b
#define EVM_BUTTON              100b
#define EVM_DESKTOPBG         10000b
#define EVM_MOUSE            100000b
#define EVM_IPC             1000000b
#define EVM_STACK          10000000b
#define EVM_DEBUG         100000000b
#define EVM_STACK2       1000000000b
#define EVM_MOUSE_FILTER  0x80000000
#define EVM_CURSOR_FILTER 0x40000000
 
//Button options
#define BT_DEL      0x80000000
#define BT_HIDE     0x40000000
#define BT_NOFRAME  0x20000000
 
#define CLOSE_BTN 1
 
//-------------------------------------------------------------------------
 
#include "../lib/system.h"
#include "../lib/mouse.h"
#include "../lib/keyboard.h"
 
inline fastcall dword calc(EAX) { return EAX; }
 
 
:struct raw_image {
	dword w, h, data;
};
 
//------------------------------------------------------------------------------
inline fastcall dword WaitEvent()
{
	$mov eax,10
	$int 0x40
}
 
inline fastcall dword CheckEvent()
{
	$mov eax,11
	$int 0x40
}
 
inline fastcall dword WaitEventTimeout(EBX)
{
	EAX = 23;
	$int 0x40
} 
 
inline fastcall dword SetEventMask(EBX)
{
	$mov eax,40
	$int 0x40
}
 
 
inline fastcall pause(EBX)
{
	$mov eax, 5
	$int 0x40
}
 
inline fastcall word GetButtonID()
{
	$mov eax,17
	$int  0x40
	$shr eax,8
}
 
inline fastcall int GetKernelRev()
{
	char buf[16];
	EAX = 18;
	EBX = 13;
	ECX = #buf;
	$int 0x40
	EAX = ESDWORD[#buf+5];
}
 
inline fastcall dword GetFreeRAM()
{
	$mov eax, 18
	$mov ebx, 16
	$int 0x40
	//return eax = free RAM size in Kb
}
 
inline fastcall dword GetTotalRAM()
{
	$mov eax, 18
	$mov ebx, 17
	$int 0x40
	//return eax = total RAM size in Kb
}
 
inline fastcall int GetCpuIdleCount()
{
	EAX = 18;
	EBX = 4;
	$int 0x40
}
 
inline fastcall int GetCpuFrequency()
{
	EAX = 18;
	EBX = 5;
	$int 0x40
}
 
inline fastcall dword LoadDriver(ECX) //ECX - èìÿ äðàéâåðà
{
	$mov eax, 68
	$mov ebx, 16
	$int 0x40
	//return 0 - íåóäà÷à, èíà÷å eax = õýíäë äðàéâåðà 
}
 
inline fastcall dword RuleDriver(ECX) //óêàçàòåëü íà óïðàâëÿþùóþ ñòðóêòóðó
{
	$mov eax, 68
	$mov ebx, 17
	$int 0x40
	//return eax = îïðåäåëÿåòñÿ äðàéâåðîì
}
 
struct proc_info
{
	#define SelfInfo -1
	dword	use_cpu;
	word	pos_in_stack,slot,rezerv1;
	unsigned char name[11];
	char	rezerv2;
	dword	adress,use_memory,ID,left,top,width,height;
	word	status_slot,rezerv3;
	dword	cleft,ctop,cwidth,cheight;
	char	status_window;
	byte    reserved[1024-71];
};
 
:void GetProcessInfo(dword _process_struct_pointer, _process_id)
{
	EAX = 9;
	EBX = _process_struct_pointer;
	ECX = _process_id;
	$int  0x40
}
 
inline fastcall int GetPointOwner( EBX, ECX) //ebx=m.x, ecx=m.y
{
	$mov eax,34
	$int 0x40
}
 
inline fastcall int GetProcessSlot( ECX)
{
	EAX = 18;
	EBX = 21;
	$int 0x40
}
 
inline fastcall int GetActiveProcess()
{
	EAX = 18;
	EBX = 7;
	$int 0x40
}
 
:int CheckActiveProcess(int Form_ID)
{
	int id9=GetProcessSlot(Form_ID);
	if (id9==GetActiveProcess()) return 1;
	return 0;
}
 
inline fastcall void ActivateWindow( ECX) //ECX - slot
{
	EAX = 18;
	EBX = 3;
	$int 0x40
}
 
:void ActivateWindow_Self()
{
	proc_info Form;
	GetProcessInfo(#Form, SelfInfo);
	ActivateWindow(GetProcessSlot(Form.ID));
}
 
:void RefreshWindow(dword ID_REFRESH,ID_ACTIVE)
{
	ActivateWindow(ID_REFRESH);
	ActivateWindow(ID_ACTIVE);
}
 
inline fastcall int MinimizeWindow()
{
	EAX = 18;
	EBX = 10;
	$int 0x40
}
 
inline fastcall int CreateThread(ECX,EDX)
{
	$mov eax,51
	$mov ebx,1
	$int 0x40
}
 
inline fastcall void SwitchToAnotherThread()
{
	$mov eax,68
	$mov ebx,1
	$int 0x40
}
 
inline fastcall int SendWindowMessage( ECX, EDX)
{
	$mov eax, 72
	$mov ebx, 1
	$int 0x40
}
 
inline fastcall int KillProcess( ECX)
{
	$mov eax,18;
	$mov ebx,18;
	$int 0x40
}
 
#define TURN_OFF 2
#define REBOOT 3
#define KERNEL 4
inline fastcall int ExitSystem( ECX)
{
	$mov eax, 18
	$mov ebx, 9
	$int 0x40
}
 
inline fastcall ExitProcess()
{
	$mov eax,-1;
	$int 0x40
}
 
//------------------------------------------------------------------------------
 
//eax = ÿçûê ñèñòåìû (1=eng, 2=fi, 3=ger, 4=rus)
///SYSFUNC DOESN'T WORK!!!  =>  https://bit.ly/2XNdiTD
#define SYS_LANG_ENG 1
#define SYS_LANG_FIN 2
#define SYS_LANG_GER 3
#define SYS_LANG_RUS 4
inline fastcall int GetSystemLanguage()
{
	EAX = 26;
	EBX = 5;
	$int 0x40
}
 
#define BUTTON_STYLE_FLAT 0
#define BUTTON_STYLE_GRADIENT 1
inline fastcall SetButtonStyle(ECX) //ECX - button style
{
	$mov eax,48
	$mov ebx,1
	int 64
}
 
inline fastcall GetSkinHeight()
{
	$push ebx
	$mov  eax,48
	$mov  ebx,4
	$int 0x40
	$pop  ebx
}
 
inline fastcall void SetSystemSkin( ECX)
{
	EAX = 48;
	EBX = 8;
	$int 0x40
}
 
inline fastcall int GetScreenWidth()
{
	$mov eax, 14
	$int 0x40
	$shr eax, 16
}
 
inline fastcall int GetScreenHeight()
{
	$mov eax, 14
	$int 0x40
	$and eax,0x0000FFFF
}
 
inline fastcall int GetClientTop()
{
	$mov eax, 48
	$mov ebx, 5
	$int 0x40
	$mov eax, ebx
	$shr eax, 16
}
 
inline fastcall int GetClientHeight()
{
	$mov eax, 48
	$mov ebx, 5
	$int 0x40
	$mov eax, ebx
}
 
inline fastcall dword LoadLibrary( ECX)
{
	$mov eax, 68 
	$mov ebx, 19
	$int  0x40
}
 
inline fastcall int TestBit( EAX, CL)
{
	$shr eax,cl
	$and eax,1
}
 
:void SetClientScreenArea(dword _left, _right, _top, _bottom)
{
	EAX = 48;
	EBX = 6;
	ECX = _left * 65536 + _right;
	EDX = _top * 65536 + _bottom;
	$int 64;
}
 
//------------------------------------------------------------------------------
 
#define ROLLED_UP 0x04
:void DefineAndDrawWindow(dword _x, _y, _w, _h, _window_type, _bgcolor, _title, _flags)
{
	EAX = 12;              // function 12:tell os about windowdraw
	EBX = 1;
	$int 0x40
	
	$xor EAX,EAX
	EBX = _x << 16 + _w; 
	ECX = _y << 16 + _h;
	EDX = _window_type << 24 | _bgcolor;
	EDI = _title;
	ESI = _flags;
	$int 0x40
 
	EAX = 12;              // function 12:tell os about windowdraw
	EBX = 2;
	$int 0x40
}
 
inline fastcall MoveSize( EBX,ECX,EDX,ESI)
{
	$mov eax, 67
	$int 0x40
}
 
inline fastcall void DrawTitle( ECX)
{
	EAX = 71;
	EBX = 1;
	$int 0x40;
}
 
// @EDX is a process id, -1 for self
// @ESI is a new LayerBehaviour
// @RETURN: EAX, 0 is fail, 1 is success
#define ZPOS_DESKTOP     -2
#define ZPOS_ALWAYS_BACK -1
#define ZPOS_NORMAL      0
#define ZPOS_ALWAYS_TOP  1
inline fastcall dword SetWindowLayerBehaviour(EDX, ESI)
{
	EAX = 18;
	EBX = 25;
	ECX = 2;
	$int 64
}
 
:void WriteTextB(dword x,y,byte fontType, dword color, str_offset)
{
	EAX = 4;
	EBX = x<<16+y;
	ECX = fontType<<24+color;
	EDX = str_offset;
	ESI = 0;
	$int 0x40;
	$add ebx, 1<<16
	$int 0x40
}
 
:void WriteText(dword x,y,byte fontType, dword color, str_offset)
{
	EAX = 4;
	EBX = x<<16+y;
	ECX = fontType<<24+color;
	EDX = str_offset;
	$int 0x40;
}
 
:dword WriteBufText(dword x,y,byte fontType, dword color, str_offset, buf_offset)
{
	EDI = buf_offset;
	WriteText(x,y, fontType, color, str_offset);
}
 
:void WriteTextWithBg(dword x,y,byte fontType, dword color, str_offset, bgcolor)
{
	EDI = bgcolor;
	WriteText(x,y, fontType, color, str_offset);
}
 
:void WriteNumber(dword x,y,byte fontType, dword color, count, number_or_offset)
{
	EAX = 47;
	EBX = count<<16;
	ECX = number_or_offset;
	EDX = x<<16+y;
	ESI = fontType<<24+color;
	$int 0x40;
}
 
:void CopyScreen(dword dst_offset, x, y, w, h)
{
  EAX = 36;
  EBX = dst_offset;
  ECX = w << 16 + h;
  EDX = x << 16 + y;
  $int  0x40;
}
 
:dword GetPixelColorFromScreen(dword _x, _y)
{
	EAX = 35;
	EBX = _y * screen.w + _x;
	$int 64
}
 
#define DRAW_DESKTOP_BG_TILE 1
#define DRAW_DESKTOP_BG_STRETCH 2
:void SetBackgroundImage(dword w,h, image, mode)
{
	$mov     eax,15      // SF_BACKGROUND_SET 15 - work with desktop background graphics
	$mov     ebx,4       // SSF_MODE_BG 4 - set drawing mode for the background
	$mov     ecx,mode    // drawing mode - tile (1), stretch (2)
	$int     64
 
	$mov     eax,15      // SF_BACKGROUND_SET 15 - work with desktop background graphics
	$mov     ebx,1       // SSF_SIZE_BG=1 - set a size of the background image
	$mov     ecx,w       // width
	$mov     edx,h       // height
	$int     64
 
	$mov     eax,15      // SF_BACKGROUND_SET 15 - work with desktop background graphics
	$mov     ebx,5       // SSF_IMAGE_BG=5 - put block of pixels on the background image
	$mov     ecx,image   // pointer to the data in the format BBGGRRBBGGRR...
	$mov     edx,0       // offset in data of the background image
	ESI      = 3*w*h;    // size of data in bytes = 3 * number of pixels
	$int     64
 
	$mov     eax,15      // SF_BACKGROUND_SET 15 - work with desktop background graphics
	$mov     ebx,3       // SSF_REDRAW_BG=3 - redraw background
	$int     64
}
 
:void _PutImage(dword x,y, w,h, data_offset)
{
	EAX = 7;
	EBX = data_offset;
	ECX = w<<16+h;
	EDX = x<<16+y;
	$int 0x40
}
 
:void PutPaletteImage(dword inbuf,w,h,x,y,bits,pal)
{
	if (h<1) || (w<0) return;
	EAX = 65;
	EBX = inbuf;
	ECX = w<<16+h;
	EDX = x<<16+y;
	ESI = bits;
	EDI = pal;
	EBP = 0;
	$int 0x40
}
 
inline fastcall void PutPixel( EBX,ECX,EDX)
{
  EAX=1;
  $int 0x40
}
 
:void DrawBar(dword x,y,w,h,color)
{
	EAX = 13;
	EBX = x<<16+w;
	ECX = y<<16+h;
	EDX = color;
	$int 0x40
}
 
:void DefineButton(dword x,y,w,h,id,color)
{
	EAX = 8;
	EDX = id + BT_DEL;
	$int 0x40;
	EDX = id;
	ESI = color;
	EBX = x<<16+w;
	ECX = y<<16+h;
	$int 0x40
}
 
:void UnsafeDefineButton(dword x,y,w,h,id,color)
{
	EAX = 8;
	EBX = x<<16+w;
	ECX = y<<16+h;
	EDX = id;
	ESI = color;
	$int 0x40
}
 
:void DefineDragableWindow(dword _x, _y, _w, _h)
{
	DefineAndDrawWindow(_x, _y, _w, _h, 0x41,0x000000,NULL,0b);
}
 
:void DefineUnDragableWindow(dword _x, _y, _w, _h)
{
	DefineAndDrawWindow(_x, _y, _w, _h, 0x01, 0, 0, 0x01fffFFF);
}
 
:void EventDragWindow()
{
	proc_info Form1;
	dword tmp_x,tmp_y;
	dword z1,z2;
	tmp_x = mouse.x;
	tmp_y = mouse.y;
	do {
		GetProcessInfo(#Form1, SelfInfo);
		mouse.get();
		if (tmp_x!=mouse.x) || (tmp_y!=mouse.y) 
		{
			z1 = Form1.left + mouse.x - tmp_x;
			z2 = Form1.top + mouse.y - tmp_y;
			if(z1<=10) || (z1>20000) z1=0; else if(z1>screen.w-Form1.width-10)z1=screen.w-Form1.width;
			if(z2<=10) || (z2>20000) z2=0; else if(z2>screen.h-Form1.height-10)z2=screen.h-Form1.height;
			MoveSize(z1 , z2, OLD, OLD);
			draw_window();
		}
		pause(1);
	} while (mouse.lkm);
}
 
:void DefineHiddenButton(dword _x, _y, _w, _h, _id)
{
	DefineButton(_x, _y, _w, _h, _id + BT_HIDE, 0);
}
 
inline fastcall void DeleteButton( EDX)
{
	EAX = 8;
	EDX += BT_DEL;
	$int 0x40
}
 
inline fastcall dword GetStartTime()
{
	$mov eax,26
	$mov ebx,9
	$int 0x40
}
 
:dword X_EventRedrawWindow,Y_EventRedrawWindow;
:void _EventRedrawWindow()
{
	DefineAndDrawWindow(X_EventRedrawWindow,Y_EventRedrawWindow,1,1,0x34,0xFFFFFF,NULL,0);
	//pause(10);
	ExitProcess();
}
:char REDRAW_BUFF_EVENT_[4096];
:void EventRedrawWindow(dword x,y)
{
	X_EventRedrawWindow = x;
	Y_EventRedrawWindow = y;
	CreateThread(#_EventRedrawWindow,#REDRAW_BUFF_EVENT_+4092);
}
 
:struct _screen
{
	dword w,h;
} screen;
 
:byte skin_h;
 
dword __generator;  // random number generator init
 
//The initialization of the initial data before running
:void ______INIT______()
{
	skin_h   = @GetSkinHeight();
	screen.w  = @GetScreenWidth()+1;
	screen.h = @GetScreenHeight()+1;
	__generator = @GetStartTime();	
	mem_init();
	main();
}
______STOP______:
#endif
 
#ifndef INCLUDE_MEM_H
#include "../lib/mem.h"
#endif
 
#ifndef INCLUDE_DEBUG_H
#include "../lib/debug.h"
#endif
 
#ifndef INCLUDE_IPC_H
#include "../lib/ipc.h"
#endif
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

Rev 9594	Rev 9597
1	//CODED by Veliant, Leency, Nable, Pavelyakov. GNU GPL licence.	1	//CODED by Veliant, Leency, Nable, Pavelyakov. GNU GPL licence.
2		2
3	#ifndef INCLUDE_KOLIBRI_H	3	#ifndef INCLUDE_KOLIBRI_H
4	#define INCLUDE_KOLIBRI_H	4	#define INCLUDE_KOLIBRI_H
5		5
6	#pragma option OST	6	#pragma option OST
7	#pragma option ON	7	#pragma option ON
8	#pragma option cri-	8	#pragma option cri-
9	#pragma option -CPA	9	#pragma option -CPA
10	#initallvar 0	10	#initallvar 0
11	#jumptomain FALSE	11	#jumptomain FALSE
12		12
13	#startaddress 0	13	#startaddress 0
14		14
15	#code32 TRUE	15	#code32 TRUE
16		16
17	#ifndef ENTRY_POINT	17	#ifndef ENTRY_POINT
18	#define ENTRY_POINT #______INIT______	18	#define ENTRY_POINT #______INIT______
19	#endif	19	#endif
20		20
21	char os_name[] = "MENUET01"n;	21	char os_name[] = "MENUET01"n;
22	dword os_version = 0x00000001;	22	dword os_version = 0x00000001;
23	dword start_addr = ENTRY_POINT;	23	dword start_addr = ENTRY_POINT;
24	dword final_addr = #______STOP______+32;	24	dword final_addr = #______STOP______+32;
25	dword alloc_mem = MEMSIZE;	25	dword alloc_mem = MEMSIZE;
26	dword x86esp_reg = MEMSIZE;	26	dword x86esp_reg = MEMSIZE;
27	dword I_Param = #param;	27	dword I_Param = #param;
28	dword I_Path = #program_path;	28	dword I_Path = #program_path;
29	char param[4096];	29	char param[4096];
30	char program_path[4096];	30	char program_path[4096];
31		31
32	#define bool int	32	#define bool int
33		33
34	#define NULL 0	34	#define NULL 0
35	#define OLD -1	35	#define OLD -1
36	#define true 1	36	#define true 1
37	#define false 0	37	#define false 0
38		38
39	//Process Events	39	//Process Events
40	#define evReDraw 1	40	#define evReDraw 1
41	#define evKey 2	41	#define evKey 2
42	#define evButton 3	42	#define evButton 3
43	#define evDesktop 5	43	#define evDesktop 5
44	#define evMouse 6	44	#define evMouse 6
45	#define evIPC 7	45	#define evIPC 7
46	#define evNetwork 8	46	#define evNetwork 8
47	#define evDebug 9	47	#define evDebug 9
48		48
49	//Event mask bits for function 40	49	//Event mask bits for function 40
50	#define EVM_REDRAW 1b	50	#define EVM_REDRAW 1b
51	#define EVM_KEY 10b	51	#define EVM_KEY 10b
52	#define EVM_BUTTON 100b	52	#define EVM_BUTTON 100b
53	#define EVM_DESKTOPBG 10000b	53	#define EVM_DESKTOPBG 10000b
54	#define EVM_MOUSE 100000b	54	#define EVM_MOUSE 100000b
55	#define EVM_IPC 1000000b	55	#define EVM_IPC 1000000b
56	#define EVM_STACK 10000000b	56	#define EVM_STACK 10000000b
57	#define EVM_DEBUG 100000000b	57	#define EVM_DEBUG 100000000b
58	#define EVM_STACK2 1000000000b	58	#define EVM_STACK2 1000000000b
59	#define EVM_MOUSE_FILTER 0x80000000	59	#define EVM_MOUSE_FILTER 0x80000000
60	#define EVM_CURSOR_FILTER 0x40000000	60	#define EVM_CURSOR_FILTER 0x40000000
61		61
62	//Button options	62	//Button options
63	#define BT_DEL 0x80000000	63	#define BT_DEL 0x80000000
64	#define BT_HIDE 0x40000000	64	#define BT_HIDE 0x40000000
65	#define BT_NOFRAME 0x20000000	65	#define BT_NOFRAME 0x20000000
66		66
67	#define CLOSE_BTN 1	67	#define CLOSE_BTN 1
68		68
69	//-------------------------------------------------------------------------	69	//-------------------------------------------------------------------------
70		70
71	#include "../lib/system.h"	71	#include "../lib/system.h"
72	#include "../lib/mouse.h"	72	#include "../lib/mouse.h"
73	#include "../lib/keyboard.h"	73	#include "../lib/keyboard.h"
74		74
75	inline fastcall dword calc(EAX) { return EAX; }	75	inline fastcall dword calc(EAX) { return EAX; }
76		76
77		77
78	:struct raw_image {	78	:struct raw_image {
79	dword w, h, data;	79	dword w, h, data;
80	};	80	};
81		81
82	//------------------------------------------------------------------------------	82	//------------------------------------------------------------------------------
83	inline fastcall dword WaitEvent()	83	inline fastcall dword WaitEvent()
84	{	84	{
85	$mov eax,10	85	$mov eax,10
86	$int 0x40	86	$int 0x40
87	}	87	}
88		88
89	inline fastcall dword CheckEvent()	89	inline fastcall dword CheckEvent()
90	{	90	{
91	$mov eax,11	91	$mov eax,11
92	$int 0x40	92	$int 0x40
93	}	93	}
94		94
95	inline fastcall dword WaitEventTimeout(EBX)	95	inline fastcall dword WaitEventTimeout(EBX)
96	{	96	{
97	EAX = 23;	97	EAX = 23;
98	$int 0x40	98	$int 0x40
99	}	99	}
100		100
101	inline fastcall dword SetEventMask(EBX)	101	inline fastcall dword SetEventMask(EBX)
102	{	102	{
103	$mov eax,40	103	$mov eax,40
104	$int 0x40	104	$int 0x40
105	}	105	}
106		106
107		107
108	inline fastcall pause(EBX)	108	inline fastcall pause(EBX)
109	{	109	{
110	$mov eax, 5	110	$mov eax, 5
111	$int 0x40	111	$int 0x40
112	}	112	}
113		113
114	inline fastcall word GetButtonID()	114	inline fastcall word GetButtonID()
115	{	115	{
116	$mov eax,17	116	$mov eax,17
117	$int 0x40	117	$int 0x40
118	$shr eax,8	118	$shr eax,8
119	}	119	}
120		120
121	inline fastcall int GetKernelRev()	121	inline fastcall int GetKernelRev()
122	{	122	{
123	char buf[16];	123	char buf[16];
124	EAX = 18;	124	EAX = 18;
125	EBX = 13;	125	EBX = 13;
126	ECX = #buf;	126	ECX = #buf;
127	$int 0x40	127	$int 0x40
128	EAX = ESDWORD[#buf+5];	128	EAX = ESDWORD[#buf+5];
129	}	129	}
130		130
131	inline fastcall dword GetFreeRAM()	131	inline fastcall dword GetFreeRAM()
132	{	132	{
133	$mov eax, 18	133	$mov eax, 18
134	$mov ebx, 16	134	$mov ebx, 16
135	$int 0x40	135	$int 0x40
136	//return eax = free RAM size in Kb	136	//return eax = free RAM size in Kb
137	}	137	}
138		138
139	inline fastcall dword GetTotalRAM()	139	inline fastcall dword GetTotalRAM()
140	{	140	{
141	$mov eax, 18	141	$mov eax, 18
142	$mov ebx, 17	142	$mov ebx, 17
143	$int 0x40	143	$int 0x40
144	//return eax = total RAM size in Kb	144	//return eax = total RAM size in Kb
145	}	145	}
146		146
147	inline fastcall int GetCpuIdleCount()	147	inline fastcall int GetCpuIdleCount()
148	{	148	{
149	EAX = 18;	149	EAX = 18;
150	EBX = 4;	150	EBX = 4;
151	$int 0x40	151	$int 0x40
152	}	152	}
153		153
154	inline fastcall int GetCpuFrequency()	154	inline fastcall int GetCpuFrequency()
155	{	155	{
156	EAX = 18;	156	EAX = 18;
157	EBX = 5;	157	EBX = 5;
158	$int 0x40	158	$int 0x40
159	}	159	}
160		160
161	inline fastcall dword LoadDriver(ECX) //ECX - èìÿ äðàéâåðà	161	inline fastcall dword LoadDriver(ECX) //ECX - èìÿ äðàéâåðà
162	{	162	{
163	$mov eax, 68	163	$mov eax, 68
164	$mov ebx, 16	164	$mov ebx, 16
165	$int 0x40	165	$int 0x40
166	//return 0 - íåóäà÷à, èíà÷å eax = õýíäë äðàéâåðà	166	//return 0 - íåóäà÷à, èíà÷å eax = õýíäë äðàéâåðà
167	}	167	}
168		168
169	inline fastcall dword RuleDriver(ECX) //óêàçàòåëü íà óïðàâëÿþùóþ ñòðóêòóðó	169	inline fastcall dword RuleDriver(ECX) //óêàçàòåëü íà óïðàâëÿþùóþ ñòðóêòóðó
170	{	170	{
171	$mov eax, 68	171	$mov eax, 68
172	$mov ebx, 17	172	$mov ebx, 17
173	$int 0x40	173	$int 0x40
174	//return eax = îïðåäåëÿåòñÿ äðàéâåðîì	174	//return eax = îïðåäåëÿåòñÿ äðàéâåðîì
175	}	175	}
176		176
177	struct proc_info	177	struct proc_info
178	{	178	{
179	#define SelfInfo -1	179	#define SelfInfo -1
180	dword use_cpu;	180	dword use_cpu;
181	word pos_in_stack,slot,rezerv1;	181	word pos_in_stack,slot,rezerv1;
182	unsigned char name[11];	182	unsigned char name[11];
183	char rezerv2;	183	char rezerv2;
184	dword adress,use_memory,ID,left,top,width,height;	184	dword adress,use_memory,ID,left,top,width,height;
185	word status_slot,rezerv3;	185	word status_slot,rezerv3;
186	dword cleft,ctop,cwidth,cheight;	186	dword cleft,ctop,cwidth,cheight;
187	char status_window;	187	char status_window;
188	byte reserved[1024-71];	188	byte reserved[1024-71];
189	};	189	};
190		190
191	:void GetProcessInfo(dword _process_struct_pointer, _process_id)	191	:void GetProcessInfo(dword _process_struct_pointer, _process_id)
192	{	192	{
193	EAX = 9;	193	EAX = 9;
194	EBX = _process_struct_pointer;	194	EBX = _process_struct_pointer;
195	ECX = _process_id;	195	ECX = _process_id;
196	$int 0x40	196	$int 0x40
197	}	197	}
198		198
199	inline fastcall int GetPointOwner( EBX, ECX) //ebx=m.x, ecx=m.y	199	inline fastcall int GetPointOwner( EBX, ECX) //ebx=m.x, ecx=m.y
200	{	200	{
201	$mov eax,34	201	$mov eax,34
202	$int 0x40	202	$int 0x40
203	}	203	}
204		204
205	inline fastcall int GetProcessSlot( ECX)	205	inline fastcall int GetProcessSlot( ECX)
206	{	206	{
207	EAX = 18;	207	EAX = 18;
208	EBX = 21;	208	EBX = 21;
209	$int 0x40	209	$int 0x40
210	}	210	}
211		211
212	inline fastcall int GetActiveProcess()	212	inline fastcall int GetActiveProcess()
213	{	213	{
214	EAX = 18;	214	EAX = 18;
215	EBX = 7;	215	EBX = 7;
216	$int 0x40	216	$int 0x40
217	}	217	}
218		218
219	:int CheckActiveProcess(int Form_ID)	219	:int CheckActiveProcess(int Form_ID)
220	{	220	{
221	int id9=GetProcessSlot(Form_ID);	221	int id9=GetProcessSlot(Form_ID);
222	if (id9==GetActiveProcess()) return 1;	222	if (id9==GetActiveProcess()) return 1;
223	return 0;	223	return 0;
224	}	224	}
225		225
226	inline fastcall void ActivateWindow( ECX) //ECX - slot	226	inline fastcall void ActivateWindow( ECX) //ECX - slot
227	{	227	{
228	EAX = 18;	228	EAX = 18;
229	EBX = 3;	229	EBX = 3;
230	$int 0x40	230	$int 0x40
231	}	231	}
232		232
233	:void ActivateWindow_Self()	233	:void ActivateWindow_Self()
234	{	234	{
235	proc_info Form;	235	proc_info Form;
236	GetProcessInfo(#Form, SelfInfo);	236	GetProcessInfo(#Form, SelfInfo);
237	ActivateWindow(GetProcessSlot(Form.ID));	237	ActivateWindow(GetProcessSlot(Form.ID));
238	}	238	}
239		239
240	:void RefreshWindow(dword ID_REFRESH,ID_ACTIVE)	240	:void RefreshWindow(dword ID_REFRESH,ID_ACTIVE)
241	{	241	{
242	ActivateWindow(ID_REFRESH);	242	ActivateWindow(ID_REFRESH);
243	ActivateWindow(ID_ACTIVE);	243	ActivateWindow(ID_ACTIVE);
244	}	244	}
245		245
246	inline fastcall int MinimizeWindow()	246	inline fastcall int MinimizeWindow()
247	{	247	{
248	EAX = 18;	248	EAX = 18;
249	EBX = 10;	249	EBX = 10;
250	$int 0x40	250	$int 0x40
251	}	251	}
252		252
253	inline fastcall int CreateThread(ECX,EDX)	253	inline fastcall int CreateThread(ECX,EDX)
254	{	254	{
255	$mov eax,51	255	$mov eax,51
256	$mov ebx,1	256	$mov ebx,1
257	$int 0x40	257	$int 0x40
258	}	258	}
259		259
260	inline fastcall void SwitchToAnotherThread()	260	inline fastcall void SwitchToAnotherThread()
261	{	261	{
262	$mov eax,68	262	$mov eax,68
263	$mov ebx,1	263	$mov ebx,1
264	$int 0x40	264	$int 0x40
265	}	265	}
266		266
267	inline fastcall int SendWindowMessage( ECX, EDX)	267	inline fastcall int SendWindowMessage( ECX, EDX)
268	{	268	{
269	$mov eax, 72	269	$mov eax, 72
270	$mov ebx, 1	270	$mov ebx, 1
271	$int 0x40	271	$int 0x40
272	}	272	}
273		273
274	inline fastcall int KillProcess( ECX)	274	inline fastcall int KillProcess( ECX)
275	{	275	{
276	$mov eax,18;	276	$mov eax,18;
277	$mov ebx,18;	277	$mov ebx,18;
278	$int 0x40	278	$int 0x40
279	}	279	}
280		280
281	#define TURN_OFF 2	281	#define TURN_OFF 2
282	#define REBOOT 3	282	#define REBOOT 3
283	#define KERNEL 4	283	#define KERNEL 4
284	inline fastcall int ExitSystem( ECX)	284	inline fastcall int ExitSystem( ECX)
285	{	285	{
286	$mov eax, 18	286	$mov eax, 18
287	$mov ebx, 9	287	$mov ebx, 9
288	$int 0x40	288	$int 0x40
289	}	289	}
290		290
291	inline fastcall ExitProcess()	291	inline fastcall ExitProcess()
292	{	292	{
293	$mov eax,-1;	293	$mov eax,-1;
294	$int 0x40	294	$int 0x40
295	}	295	}
296		296
297	//------------------------------------------------------------------------------	297	//------------------------------------------------------------------------------
298		298
299	//eax = ÿçûê ñèñòåìû (1=eng, 2=fi, 3=ger, 4=rus)	299	//eax = ÿçûê ñèñòåìû (1=eng, 2=fi, 3=ger, 4=rus)
300	///SYSFUNC DOESN'T WORK!!! => https://bit.ly/2XNdiTD	300	///SYSFUNC DOESN'T WORK!!! => https://bit.ly/2XNdiTD
301	#define SYS_LANG_ENG 1	301	#define SYS_LANG_ENG 1
302	#define SYS_LANG_FIN 2	302	#define SYS_LANG_FIN 2
303	#define SYS_LANG_GER 3	303	#define SYS_LANG_GER 3
304	#define SYS_LANG_RUS 4	304	#define SYS_LANG_RUS 4
305	inline fastcall int GetSystemLanguage()	305	inline fastcall int GetSystemLanguage()
306	{	306	{
307	EAX = 26;	307	EAX = 26;
308	EBX = 5;	308	EBX = 5;
309	$int 0x40	309	$int 0x40
310	}	310	}
311		311
312	#define BUTTON_STYLE_FLAT 0	312	#define BUTTON_STYLE_FLAT 0
313	#define BUTTON_STYLE_GRADIENT 1	313	#define BUTTON_STYLE_GRADIENT 1
314	inline fastcall SetButtonStyle(ECX) //ECX - button style	314	inline fastcall SetButtonStyle(ECX) //ECX - button style
315	{	315	{
316	$mov eax,48	316	$mov eax,48
317	$mov ebx,1	317	$mov ebx,1
318	int 64	318	int 64
319	}	319	}
320		320
321	inline fastcall GetSkinHeight()	321	inline fastcall GetSkinHeight()
322	{	322	{
323	$push ebx	323	$push ebx
324	$mov eax,48	324	$mov eax,48
325	$mov ebx,4	325	$mov ebx,4
326	$int 0x40	326	$int 0x40
327	$pop ebx	327	$pop ebx
328	}	328	}
329		329
330	inline fastcall void SetSystemSkin( ECX)	330	inline fastcall void SetSystemSkin( ECX)
331	{	331	{
332	EAX = 48;	332	EAX = 48;
333	EBX = 8;	333	EBX = 8;
334	$int 0x40	334	$int 0x40
335	}	335	}
336		336
337	inline fastcall int GetScreenWidth()	337	inline fastcall int GetScreenWidth()
338	{	338	{
339	$mov eax, 14	339	$mov eax, 14
340	$int 0x40	340	$int 0x40
341	$shr eax, 16	341	$shr eax, 16
342	}	342	}
343		343
344	inline fastcall int GetScreenHeight()	344	inline fastcall int GetScreenHeight()
345	{	345	{
346	$mov eax, 14	346	$mov eax, 14
347	$int 0x40	347	$int 0x40
348	$and eax,0x0000FFFF	348	$and eax,0x0000FFFF
349	}	349	}
350		350
351	inline fastcall int GetClientTop()	351	inline fastcall int GetClientTop()
352	{	352	{
353	$mov eax, 48	353	$mov eax, 48
354	$mov ebx, 5	354	$mov ebx, 5
355	$int 0x40	355	$int 0x40
356	$mov eax, ebx	356	$mov eax, ebx
357	$shr eax, 16	357	$shr eax, 16
358	}	358	}
359		359
360	inline fastcall int GetClientHeight()	360	inline fastcall int GetClientHeight()
361	{	361	{
362	$mov eax, 48	362	$mov eax, 48
363	$mov ebx, 5	363	$mov ebx, 5
364	$int 0x40	364	$int 0x40
365	$mov eax, ebx	365	$mov eax, ebx
366	}	366	}
367		367
368	inline fastcall dword LoadLibrary( ECX)	368	inline fastcall dword LoadLibrary( ECX)
369	{	369	{
370	$mov eax, 68	370	$mov eax, 68
371	$mov ebx, 19	371	$mov ebx, 19
372	$int 0x40	372	$int 0x40
373	}	373	}
374		374
375	inline fastcall int TestBit( EAX, CL)	375	inline fastcall int TestBit( EAX, CL)
376	{	376	{
377	$shr eax,cl	377	$shr eax,cl
378	$and eax,1	378	$and eax,1
379	}	379	}
380		380
381	:void SetClientScreenArea(dword _left, _right, _top, _bottom)	381	:void SetClientScreenArea(dword _left, _right, _top, _bottom)
382	{	382	{
383	EAX = 48;	383	EAX = 48;
384	EBX = 6;	384	EBX = 6;
385	ECX = _left * 65536 + _right;	385	ECX = _left * 65536 + _right;
386	EDX = _top * 65536 + _bottom;	386	EDX = _top * 65536 + _bottom;
387	$int 64;	387	$int 64;
388	}	388	}
389		389
390	//------------------------------------------------------------------------------	390	//------------------------------------------------------------------------------
391		391
392	#define ROLLED_UP 0x04	392	#define ROLLED_UP 0x04
393	:void DefineAndDrawWindow(dword _x, _y, _w, _h, _window_type, _bgcolor, _title, _flags)	393	:void DefineAndDrawWindow(dword _x, _y, _w, _h, _window_type, _bgcolor, _title, _flags)
394	{	394	{
395	EAX = 12; // function 12:tell os about windowdraw	395	EAX = 12; // function 12:tell os about windowdraw
396	EBX = 1;	396	EBX = 1;
397	$int 0x40	397	$int 0x40
398		398
399	$xor EAX,EAX	399	$xor EAX,EAX
400	EBX = _x << 16 + _w;	400	EBX = _x << 16 + _w;
401	ECX = _y << 16 + _h;	401	ECX = _y << 16 + _h;
402	EDX = _window_type << 24 \| _bgcolor;	402	EDX = _window_type << 24 \| _bgcolor;
403	EDI = _title;	403	EDI = _title;
404	ESI = _flags;	404	ESI = _flags;
405	$int 0x40	405	$int 0x40
406		406
407	EAX = 12; // function 12:tell os about windowdraw	407	EAX = 12; // function 12:tell os about windowdraw
408	EBX = 2;	408	EBX = 2;
409	$int 0x40	409	$int 0x40
410	}	410	}
411		411
412	inline fastcall MoveSize( EBX,ECX,EDX,ESI)	412	inline fastcall MoveSize( EBX,ECX,EDX,ESI)
413	{	413	{
414	$mov eax, 67	414	$mov eax, 67
415	$int 0x40	415	$int 0x40
416	}	416	}
417		417
418	inline fastcall void DrawTitle( ECX)	418	inline fastcall void DrawTitle( ECX)
419	{	419	{
420	EAX = 71;	420	EAX = 71;
421	EBX = 1;	421	EBX = 1;
422	$int 0x40;	422	$int 0x40;
423	}	423	}
424		424
425	// @EDX is a process id, -1 for self	425	// @EDX is a process id, -1 for self
426	// @ESI is a new LayerBehaviour	426	// @ESI is a new LayerBehaviour
427	// @RETURN: EAX, 0 is fail, 1 is success	427	// @RETURN: EAX, 0 is fail, 1 is success
428	#define ZPOS_DESKTOP -2	428	#define ZPOS_DESKTOP -2
429	#define ZPOS_ALWAYS_BACK -1	429	#define ZPOS_ALWAYS_BACK -1
430	#define ZPOS_NORMAL 0	430	#define ZPOS_NORMAL 0
431	#define ZPOS_ALWAYS_TOP 1	431	#define ZPOS_ALWAYS_TOP 1
432	inline fastcall dword SetWindowLayerBehaviour(EDX, ESI)	432	inline fastcall dword SetWindowLayerBehaviour(EDX, ESI)
433	{	433	{
434	EAX = 18;	434	EAX = 18;
435	EBX = 25;	435	EBX = 25;
436	ECX = 2;	436	ECX = 2;
437	$int 64	437	$int 64
438	}	438	}
439		439
440	:void WriteTextB(dword x,y,byte fontType, dword color, str_offset)	440	:void WriteTextB(dword x,y,byte fontType, dword color, str_offset)
441	{	441	{
442	EAX = 4;	442	EAX = 4;
443	EBX = x<<16+y;	443	EBX = x<<16+y;
444	ECX = fontType<<24+color;	444	ECX = fontType<<24+color;
445	EDX = str_offset;	445	EDX = str_offset;
446	ESI = 0;	446	ESI = 0;
447	$int 0x40;	447	$int 0x40;
448	$add ebx, 1<<16	448	$add ebx, 1<<16
449	$int 0x40	449	$int 0x40
450	}	450	}
451		451
452	:void WriteText(dword x,y,byte fontType, dword color, str_offset)	452	:void WriteText(dword x,y,byte fontType, dword color, str_offset)
453	{	453	{
454	EAX = 4;	454	EAX = 4;
455	EBX = x<<16+y;	455	EBX = x<<16+y;
456	ECX = fontType<<24+color;	456	ECX = fontType<<24+color;
457	EDX = str_offset;	457	EDX = str_offset;
458	$int 0x40;	458	$int 0x40;
459	}	459	}
460		460
461	:dword WriteBufText(dword x,y,byte fontType, dword color, str_offset, buf_offset)	461	:dword WriteBufText(dword x,y,byte fontType, dword color, str_offset, buf_offset)
462	{	462	{
463	EDI = buf_offset;	463	EDI = buf_offset;
464	WriteText(x,y, fontType, color, str_offset);	464	WriteText(x,y, fontType, color, str_offset);
465	}	465	}
466		466
467	:void WriteTextWithBg(dword x,y,byte fontType, dword color, str_offset, bgcolor)	467	:void WriteTextWithBg(dword x,y,byte fontType, dword color, str_offset, bgcolor)
468	{	468	{
469	EDI = bgcolor;	469	EDI = bgcolor;
470	WriteText(x,y, fontType, color, str_offset);	470	WriteText(x,y, fontType, color, str_offset);
471	}	471	}
472		472
473	:void WriteNumber(dword x,y,byte fontType, dword color, count, number_or_offset)	473	:void WriteNumber(dword x,y,byte fontType, dword color, count, number_or_offset)
474	{	474	{
475	EAX = 47;	475	EAX = 47;
476	EBX = count<<16;	476	EBX = count<<16;
477	ECX = number_or_offset;	477	ECX = number_or_offset;
478	EDX = x<<16+y;	478	EDX = x<<16+y;
479	ESI = fontType<<24+color;	479	ESI = fontType<<24+color;
480	$int 0x40;	480	$int 0x40;
481	}	481	}
482		482
483	:void CopyScreen(dword dst_offset, x, y, w, h)	483	:void CopyScreen(dword dst_offset, x, y, w, h)
484	{	484	{
485	EAX = 36;	485	EAX = 36;
486	EBX = dst_offset;	486	EBX = dst_offset;
487	ECX = w << 16 + h;	487	ECX = w << 16 + h;
488	EDX = x << 16 + y;	488	EDX = x << 16 + y;
489	$int 0x40;	489	$int 0x40;
490	}	490	}
491		491
492	:dword GetPixelColorFromScreen(dword _x, _y)	492	:dword GetPixelColorFromScreen(dword _x, _y)
493	{	493	{
494	EAX = 35;	494	EAX = 35;
495	EBX = _y * screen.width + _x;	495	EBX = _y * screen.w + _x;
496	$int 64	496	$int 64
497	}	497	}
498		498
499	#define DRAW_DESKTOP_BG_TILE 1	499	#define DRAW_DESKTOP_BG_TILE 1
500	#define DRAW_DESKTOP_BG_STRETCH 2	500	#define DRAW_DESKTOP_BG_STRETCH 2

Subversion Repositories Kolibri OS

(root)/programs/cmm/lib/kolibri.h – Rev 9594 → 9597