Subversion Repositories Kolibri OS

//CODED by Veliant, Leency, Nable, Pavelyakov. GNU GPL licence.

#ifndef INCLUDE_KOLIBRI_H

#define INCLUDE_KOLIBRI_H

#print "[include ]\n"

#pragma option OST

#pragma option ON

#pragma option cri-

#pragma option -CPA

#initallvar 0

#jumptomain FALSE

#startaddress 0

#code32 TRUE

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

dword  os_version   = 0x00000001;

dword  start_addr   = #______INIT______;

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      char

#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

//Button options

#define BT_DEL      0x80000000

#define BT_HIDE     0x40000000

#define BT_NOFRAME  0x20000000

//ASCII KEYS

#define ASCII_KEY_BS    008

#define ASCII_KEY_TAB   009

#define ASCII_KEY_ENTER 013

#define ASCII_KEY_ESC   027

#define ASCII_KEY_DEL   182

#define ASCII_KEY_INS   185

#define ASCII_KEY_SPACE 032

#define ASCII_KEY_LEFT  176

#define ASCII_KEY_RIGHT 179

#define ASCII_KEY_DOWN  177

#define ASCII_KEY_UP    178

#define ASCII_KEY_HOME  180

#define ASCII_KEY_END   181

#define ASCII_KEY_PGDN  183

#define ASCII_KEY_PGUP  184

//SCAN CODE KEYS

#define SCAN_CODE_BS    014

#define SCAN_CODE_TAB   015

#define SCAN_CODE_ENTER 028

#define SCAN_CODE_ESC   001

#define SCAN_CODE_DEL   083

#define SCAN_CODE_INS   082

#define SCAN_CODE_SPACE 057

#define SCAN_CODE_LEFT  075

#define SCAN_CODE_RIGHT 077

#define SCAN_CODE_DOWN  080

#define SCAN_CODE_UP    072

#define SCAN_CODE_HOME  071

#define SCAN_CODE_END   079

#define SCAN_CODE_PGDN  081

#define SCAN_CODE_PGUP  073

#define KEY_LSHIFT     00000000001b

#define KEY_RSHIFT     00000000010b

#define KEY_LCTRL      00000000100b

#define KEY_RCTRL      00000001000b

#define KEY_LALT       00000010000b

#define KEY_RALT       00000100000b

#define KEY_CAPSLOCK   00001000000b

#define KEY_NUMLOCK    00010000000b

#define KEY_SCROLLLOCK 00100000000b

#define KEY_LWIN       01000000000b

#define KEY_RWIN       10000000000b

dword calc(EAX) { return EAX; }

inline fastcall word GetKey()  //+Gluk fix

{

		$push edx

GETKEY:

		$mov  eax,2

		$int  0x40

		$cmp eax,1

		$jne GETKEYI

		$mov ah,dh

		$jmp GETKEYII //jz?

GETKEYI:

		$mov dh,ah

		$jmp GETKEY

GETKEYII:

		$pop edx

		$shr eax,8

}

unsigned char key_ascii;

dword key_scancode, key_modifier;

int GetKeys()

{

		$push edx

GETKEY:

		$mov  eax,2

		$int  0x40

		$cmp eax,1

		$jne GETKEYI

		$mov eax,edx

		$jmp GETKEYII

GETKEYI:

		$mov edx,eax

		$jmp GETKEY

GETKEYII:

		$pop edx

	key_ascii = AH;

	$shr  eax,16

	key_scancode = AL;

	//get alt/shift/ctrl key status

	$mov eax,66

	$mov ebx,3

	$int 0x40

	key_modifier = EAX;

}

//allow event mask

#define EVENT_MASK_REDRAW   000000001b

#define EVENT_MASK_KEYBOARD 000000010b

#define EVENT_MASK_BUTTONS  000000100b

#define EVENT_MASK_DESKTOP  000010000b

#define EVENT_MASK_MOUSE    000100000b

#define EVENT_MASK_IPC      001000000b

#define EVENT_MASK_NETWORK  010000000b

#define EVENT_MASK_DEBUG    100000000b

//ARGS FUNCTION

#define END_ARGS 0xFF00FF

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

#ifndef INCLUDE_SYSTEM_H

#include "../lib/system.h"

#endif

#ifndef INCLUDE_MOUSE_H

#include "../lib/mouse.h"

#endif

:struct raw_image {

	dword w, h, data;

};

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

:dword wait_event_code;

inline fastcall dword WaitEvent()

{

	$mov eax,10

	$int 0x40

	wait_event_code = EAX;

	//if(wait_event_code==evMouse) MOUSE.get();

	//return wait_event_code;

}

inline fastcall dword CheckEvent()

{

	$mov eax,11

	$int 0x40

}

inline fastcall dword WaitEventTimeout(EBX)

{

	$mov eax,23

	$int 0x40

}

inline fastcall 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 dword GetFreeRAM()

{

	$mov eax, 18

	$mov ebx, 16

	$int 0x40

	//return eax = ðàçìåð ñâîáîäíîé ïàìÿòè â êèëîáàéòàõ

}

inline void draw_line(dword x1,y1,x2,y2,color)

{

	x2--;y2--;y1--;

	$mov EAX,38

	EBX = x1<<16;

	EBX |= x2;

	ECX = y1<<16;

	ECX |= y2;

	$mov EDX,color

	$int 0x40

}