KolibriOS/kolibrios
12
4
Fork 12
Code Issues 78 Pull Requests 5 Projects Releases Activity

bugfix Num,Caps,Scroll Lock & remove in dir libraries

Browse Source 
git-svn-id: svn://kolibrios.org@1032 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Alexey Teplov ( 2009-02-13 09:04:33 +00:00
parent 00b249be6f
commit 5b18f6aea9
22 changed files with 5034 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
programs/develop/libraries/box_lib/C--/lib/RANDOM.H-- Normal file
View File

@ -0,0 +1,52 @@
/*******************************************************************************
MenuetOS MineSweeper
Copyright (C) 2003 Ivan Poddubny
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*******************************************************************************/
dword generator; // random number generator - äëÿ ãåíåðàöèè ñëó÷àéíûõ ÷èñåë
:int random(int max)
// get pseudo-random number - ïîëó÷èòü ïñåâäîñëó÷àéíîå ÷èñëî
{
$rdtsc // eax & edx
$xor eax,edx
$not eax
EBX = generator;
$ror ebx,3
$xor ebx,0xdeadbeef
EBX += EAX;
generator = EBX;
EAX += EBX;
EAX = EAX % max;
return EAX;
}
:randomize()
// initialize random number generator - èíèöèàëèçèðîâàòü ãåíåðàòîð ñëó÷àéíûõ ÷èñåë
{
asm
{
mov eax,3
int 0x40
ror eax,16
}
generator = EAX;
}

558
programs/develop/libraries/box_lib/C--/lib/kolibri.h-- Normal file
View File

@ -0,0 +1,558 @@
#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 = #stop+0x100;
dword x86esp_reg = #stop+0x100;
dword I_Param = 0x0;
dword I_Icon = 0x0;
dword skin_width;
//Events
#define evMouse 6
#define evButton 3
#define evKey 2
#define evReDraw 1
#define evNet 8
//Button options
#define BT_DEL 0x80000000
#define BT_HIDE 0x40000000
#define BT_NOFRAME 0x20000000
#define OLD -1
#define true 1
#define false 0
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
}
int vert;
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;
EAX = 37; //ª®«ñᨪ®
EBX = 7;
$int 0x40
$mov ebx, eax
$shr eax, 16
$and ebx,0x0000FFFF
//hor = EAX;
vert = 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
}
//-------------------------------------------------------------------------------
/*
Žâà¨á®¢ª  ®ª­ 
{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){
EAX = 8;
$int 0x40
}
inline fastcall dword WaitEvent(){
EAX = 10; // wait here for event
$int 0x40
}
inline fastcall void ExitProcess(){
EAX = -1; // close this program
$int 0x40
}
/*
02 = GET KEY
ret: al 0 successful -> ah = key
al 1 no key in buffer
*/
inline fastcall word GetKey(){
EAX = 2; // just read this key from buffer
$int 0x40
// EAX = EAX >> 8;
}
/*
17 = GET PRESSED BUTTON ID
ret: al 0 successful -> ah = id number
al 1 no key in buffer
*/
inline fastcall word GetButtonID(){
EAX = 17; // Get ID
$int 0x40
EAX = EAX >> 8;
}
/*
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
}
/* function EBX=5 (GetBackgroun) ECX[]->EDX[], length ESI
inline fastcall void GetBackground(dword ECX, EDX, ESI){
#speed
EAX = 39;
EBX = 5;
$int 0x40
#codesize
}*/
//CODED by Veliant
/*eax = 38 - íîìåð ôóíêöèè
ebx = [êîîðäèíàòà íà÷àëà ïî îñè x]*65536 + [êîîðäèíàòà êîíöà ïî îñè x]
ecx = [êîîðäèíàòà íà÷àëà ïî îñè y]*65536 + [êîîðäèíàòà êîíöà ïî îñè y]
edx = 0x00RRGGBB - öâåò
edx = 0x01xxxxxx - ðèñîâàòü èíâåðñívé îòðåçîê (ìëàäøèå 24 áèòà èãíîðèðó³òñÿ) */
inline fastcall void DrawLine(dword EBX, ECX, EDX){
EAX = 38;
$int 0x40
}
inline fastcall void DrawTitle(dword ECX)
{
EAX = 71;
EBX = 1;
$int 0x40;
}
inline fastcall dword GetSkinWidth()
{
EAX = 48;
EBX = 4;
$int 0x40
}
inline fastcall void ChangeSkin(){
EAX = 48;
EBX = 8;
ECX = #file_path;
$int 0x40
}
inline fastcall dword GetScreenWidth()
{
EAX = 14;
EBX = 4;
$int 0x40
$shr eax, 16
$and eax,0x0000FFFF
}
inline fastcall void DeleteButton(dword EDX)
{
EAX = 8;
EDX = EDX + BT_DEL;
$int 0x40;
}
inline fastcall dword LoadLibrary(dword ECX)
{
$mov eax, 68
$mov ebx, 19
$int 0x40
}
inline fastcall dword strlen(dword EDI)
{
#speed
ECX=0;
EAX=0;
ECX--;
$REPNE $SCASB
EAX=EAX-2-ECX;
#codesize
}
//-1 - ­¥ à ¢­ë
// 0 - ­¥ à ¢­ë
inline fastcall dword strcmp(dword ESI,EDI)
{
dword strcmp_i,ret=-1,len1,len2,sovpadenij=0,str1,str2;
str1=ESI;
str2=EDI;
len1=strlen(str1);
len2=strlen(str2);
IF (len1==len2)
{
FOR (strcmp_i=0;strcmp_i<len1;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;
}
inline fastcall dword upcase(dword ESI)
{
dword str, i;
str = ESI;
for (i=0;i<strlen(str);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;
}
inline fastcall dword lowcase(dword ESI)
{
dword str=ESI, i;
FOR (i=0;i<strlen(str);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;
}
inline fastcall void dostowin (dword ESI)
{
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++;
}
}
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;
}
inline fastcall void PutPixel(dword EBX,ECX,EDX) //Coded by Leency :D
{
EAX=1;
$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,text)
{
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_HIDE,0xEFEBEF); //îïðåäåëÿåì êíîïêó
WriteText(-strlen(text)*6+width/2+x+1,height/2-3+y,0x80,0,text,strlen(text));
}
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)
{
$mov esi,s
$mov edi,d
$cld
l1:
$lodsb
$stosb
$test al,al
$jnz l1
}
int pos,razr,backup,j=0,chislo;
char buffer[11]="";
inline fastcall dword IntToStr(dword ESI)
{
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;
}
inline fastcall dword MoveSize(dword EBX,ECX,EDX,ESI)
{
EAX = 67;
$int 0x40
}
f70 CopyFile_f;
BDVK CopyFile_atr;
inline fastcall dword CopyFile(dword EBX,ECX)
{
dword s, d, bufer=0;
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)
{
bufer = 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 = bufer;
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 = bufer;
CopyFile_f.rezerv = 0;
CopyFile_f.name = d;
$mov eax, 70
$mov ebx, #CopyFile_f
$int 0x40
}
}
}

67
programs/develop/libraries/box_lib/C--/lib/load_bmp.h-- Normal file
View File

@ -0,0 +1,67 @@
//Load BMP by Veliant
struct readimage{
dword func, param1, param2, size, buffer;
byte z;
dword name;
};
void Put_Image(dword x,y,w,h,name)
{
int i, j, size, off, off2;
byte r, g, b;
readimage image;
dword buf;
size=w*h*3+100;
buf=malloc(size);
image.func = 0;
image.param1 = 0;
image.param2 = 0;
image.size = size;
image.buffer = buf;
image.z = 0;
image.name = #path;
EAX = 70;
EBX = #image;
$int 0x40;
for(i=0;i<h;i++)
for (j=0;j<w/2;j++)
{
off=w*3*i+buf+0x36;
off2=w-j*3+off;
off=j*3+off;
r=ESBYTE[off2-3];
g=ESBYTE[off2-2];
b=ESBYTE[off2-1];
ESBYTE[off2-3]=ESBYTE[off];
ESBYTE[off2-2]=ESBYTE[off+1];
ESBYTE[off2-1]=ESBYTE[off+2];
ESBYTE[off]=r;
ESBYTE[off+1]=g;
ESBYTE[off+2]=b;
}
size=w*h;
for(i=0;i<size/2;i++)
{
off=buf+0x36;
off2=size-i*3+off;
off=i*3+off;
r=ESBYTE[off2-3];
g=ESBYTE[off2-2];
b=ESBYTE[off2-1];
ESBYTE[off2-3]=ESBYTE[off];
ESBYTE[off2-2]=ESBYTE[off+1];
ESBYTE[off2-1]=ESBYTE[off+2];
ESBYTE[off]=r;
ESBYTE[off+1]=g;
ESBYTE[off+2]=b;
}
EAX = 7;
EBX = buf+0x36;
ECX = w<<16+h;
EDX = x<<16+y+skin_width;
$int 0x40
}

36
programs/develop/libraries/box_lib/C--/lib/memory.h-- Normal file
View File

@ -0,0 +1,36 @@
#code32 TRUE
dword heap;
inline fastcall dword malloc(dword ECX){
dword size;
#speed
size = ECX;
EAX = 68;
EBX = 11;
$int 0x40;
heap = EAX;
IF (size<=heap)
{
EAX = 68;
EBX = 12;
ECX = size;
$int 0x40;
}
ELSE EAX=-1;
#codesize
}
inline fastcall dword free(dword ECX){
#speed
EAX = 68;
EBX = 13;
$int 0x40;
#codesize
}
inline fastcall dword realloc(dword ECX, EDX){
#speed
EAX = 68;
EBX = 20;
$int 0x40;
#codesize
}

96
programs/develop/libraries/box_lib/C--/trunk/EditBox2.c-- Normal file
View File

@ -0,0 +1,96 @@
//EditBox in C-- example v0.1
//Veliant 2007 Leency 2008
#pragma option A
#codesize
#include "..\lib\kolibri.h--"
#include "use_library.h--"
//////////////////////////////////////////////////////////////////
//Bit mask from editbox
//////////////////////////////////////////////////////////////////
//char edit_path[256] = "You can edit me!"; //ᮤ¥à¦¨¬®¥ EditBox'a
char way_of_ini[250] = "/sys/lib/box_lib.obj",NULL; //ᮤ¥à¦¨¬®¥ EditBox'a
edit_box edit1= {250,14,35,0xffffff,0x6f9480,0,0xAABBCC,0,248,#way_of_ini,2,20,20};
//ed_width equ [edi] ;è¨à¨­  ª®¬¯®­¥­â 
//ed_left equ [edi+4] ;¯®«®¦¥­¨¥ ¯® ®á¨ å
//ed_top equ [edi+8] ;¯®«®¦¥­¨¥ ¯® ®á¨ ã
//ed_color equ [edi+12] ;梥â ä®­  ª®¬¯®­¥­â 
//shift_color equ [edi+16] ;=0x6a9480
//ed_focus_border_color equ [edi+20] ;梥â à ¬ª¨ ª®¬¯®­¥­â 
//ed_blur_border_color equ [edi+24] ;梥⠭¥  ªâ¨¢­®£® ª®¬¯®­¥­â 
//ed_text_color equ [edi+28] ;梥â ⥪áâ 
//ed_max equ [edi+32] ;ª®«-¢® ᨬ¢®«®¢ ª®â®àë¥ ¬®¦­® ¬ ªá¨¬ «ì­® ¢¢¥áâ¨
//ed_text equ [edi+36] ;㪠§ â¥«ì ­  ¡ãä¥à
//ed_flags equ [edi+40] ;ä« £¨
//ed_size equ [edi+42] ;ª®«-¢® ᨬ¢®«®¢
//ed_pos equ [edi+46] ;¯®§¨æ¨ï ªãàá®à 
//ed_offset equ [edi+50] ;ᬥ饭¨¥
//cl_curs_x equ [edi+54] ;¯à¥¤ë¤ã饥 ª®®à¤¨­ â  ªãàá®à  ¯® å
//cl_curs_y equ [edi+58] ;¯à¥¤ë¤ã饥 ª®®à¤¨­ â  ªãàá®à  ¯® ã
//ed_shift_pos equ [edi+62] ;¯®«®¦¥­¨¥ ªãàá®à 
//ed_shift_pos_old equ [edi+66] ;áâ à®¥ ¯®«®¦¥­¨¥ ªãàá®à 
proc_info Form;
void main()
byte id;
{
load_dll();
draw_window();
loop()
{
switch(WaitEvent())
{
//Button pressed----------------------------------------------------
CASE evButton:
id=GetButtonID();
IF (id==1) || (id==2) ExitProcess();
break;
//Key pressed-------------------------------------------------------
case evKey:
GetKey();
edit_box_key stdcall (#edit1);
break;
case evReDraw: draw_window(); break;
// default: break;
}
edit_box_mouse stdcall (#edit1);
}
ExitProcess();
}
void draw_window()
{
WindowRedrawStatus(1);
skin_width = GetSkinWidth();
DefineAndDrawWindow(400,200,280,200,0x04,0x00E4DFE1,0,0,0); DrawTitle("Extended EditBox in C--");
Form.getme();
//òåêñò
WriteText(30,40,0x80,0,"<22> ¨¯à®á⥩訩 ¯à¨¬¥à EditBox'a ­  ‘--",0);
WriteText(30,50,0x80,0,"<22>® ¥£® ¬®¦­® ­¥¬­®£® ãá«®¦­¨âì á 楫ìî",0);
WriteText(30,60,0x80,0,"㬥­ì襭¨ï ¯¥à¥à¨á®¢ª¨.",0);
//êíîïû
DrawFlatButton(100,105,70,22,2,0xD7D7D7,"Close");
//EditBox
// DrawRegion(30,14,201,16,0x94AECE); //®¡®¤®ª ¯®«®áë  ¤à¥á 
edit_box_draw stdcall (#edit1);
// typedef void (*edit_box_draw)(dword edit_b); // ®¡ê¥­¨¥ 㪠§ â¥«ï ­  äã­ªæ¨î
// edit_box_draw(edit_b); // ¢ë§®¢ ä㭪樨
WindowRedrawStatus(2);
}
stop:

952
programs/develop/libraries/box_lib/C--/trunk/EditBox2.lst Normal file
View File

@ -0,0 +1,952 @@
SPHINX/SHEKER C-- One Pass Disassembler. Version 0.239c b26 Apr 27 2007
..\lib\kolibri.h-- 4: char os_name[8] = {'M','E','N','U','E','T','0','1'};
00000000 4D454E5545543031 db 4Dh,45h,4Eh,55h,45h,54h,30h,31h
..\lib\kolibri.h-- 5: dword os_version = 0x00000001;
00000008 01000000 dd 1
..\lib\kolibri.h-- 6: dword start_addr = #main;
0000000C 88050000 dd 588h
..\lib\kolibri.h-- 7: dword final_addr = #stop+32;
00000010 5D070000 dd 75Dh
..\lib\kolibri.h-- 8: dword alloc_mem = #stop+0x100;
00000014 3D080000 dd 83Dh
..\lib\kolibri.h-- 9: dword x86esp_reg = #stop+0x100;
00000018 3D080000 dd 83Dh
..\lib\kolibri.h-- 10: dword I_Param = 0x0;
0000001C 00000000 dd 0
..\lib\kolibri.h-- 11: dword I_Icon = 0x0;
00000020 00000000 dd 0
..\lib\kolibri.h-- 39: void system_colors::get()
00000024 55 push ebp
00000025 89E5 mov ebp,esp
..\lib\kolibri.h-- 41: EAX = 48;
00000027 6A30 push 30h
00000029 58 pop eax
..\lib\kolibri.h-- 42: EBX = 3;
0000002A 6A03 push 3
0000002C 5B pop ebx
..\lib\kolibri.h-- 43: ECX = #frame;
0000002D 8B4D08 mov ecx,[ebp+8]
..\lib\kolibri.h-- 44: EDX = 40;
00000030 6A28 push 28h
00000032 5A pop edx
..\lib\kolibri.h-- 45: $int 0x40
00000033 CD40 int 40h
00000035 5D pop ebp
00000036 C20400 ret 4
..\lib\kolibri.h-- 55: void mouse::get()
00000039 55 push ebp
0000003A 89E5 mov ebp,esp
..\lib\kolibri.h-- 57: EAX = 37;
0000003C 6A25 push 25h
0000003E 58 pop eax
..\lib\kolibri.h-- 58: EBX = 1;
0000003F 31DB xor ebx,ebx
00000041 43 inc ebx
..\lib\kolibri.h-- 59: $int 0x40
00000042 CD40 int 40h
..\lib\kolibri.h-- 60: $mov ebx, eax
00000044 89C3 mov ebx,eax
..\lib\kolibri.h-- 61: $shr eax, 16
00000046 C1E810 shr eax,10h
..\lib\kolibri.h-- 62: $and ebx,0x0000FFFF
00000049 81E3FFFF0000 and ebx,0FFFFh
..\lib\kolibri.h-- 63: x = EAX;
0000004F 8B7508 mov esi,[ebp+8]
00000052 8906 mov [esi],eax
..\lib\kolibri.h-- 64: y = EBX;
00000054 895E04 mov [esi+4],ebx
..\lib\kolibri.h-- 65: EAX = 37;
00000057 6A25 push 25h
00000059 58 pop eax
..\lib\kolibri.h-- 66: EBX = 2;
0000005A 6A02 push 2
0000005C 5B pop ebx
..\lib\kolibri.h-- 67: $int 0x40
0000005D CD40 int 40h
..\lib\kolibri.h-- 68: $mov ebx, eax
0000005F 89C3 mov ebx,eax
..\lib\kolibri.h-- 69: $and eax, 0x00000001
00000061 83E001 and eax,1
..\lib\kolibri.h-- 70: $shr ebx, 1
00000064 D1EB shr ebx,1
..\lib\kolibri.h-- 71: $and ebx, 0x00000001
00000066 83E301 and ebx,1
..\lib\kolibri.h-- 72: lkm = EAX;
00000069 8B7508 mov esi,[ebp+8]
0000006C 894608 mov [esi+8],eax
..\lib\kolibri.h-- 73: pkm = EBX;
0000006F 895E0C mov [esi+0Ch],ebx
..\lib\kolibri.h-- 74: EAX = 37; //ª®«ñᨪ®
00000072 6A25 push 25h
00000074 58 pop eax
..\lib\kolibri.h-- 75: EBX = 7;
00000075 6A07 push 7
00000077 5B pop ebx
..\lib\kolibri.h-- 76: $int 0x40
00000078 CD40 int 40h
..\lib\kolibri.h-- 77: $mov ebx, eax
0000007A 89C3 mov ebx,eax
..\lib\kolibri.h-- 78: $shr eax, 16
0000007C C1E810 shr eax,10h
..\lib\kolibri.h-- 79: $and ebx,0x0000FFFF
0000007F 81E3FFFF0000 and ebx,0FFFFh
..\lib\kolibri.h-- 81: vert = EBX;
00000085 891D88070000 mov [788h],ebx
0000008B 5D pop ebp
0000008C C20400 ret 4
..\lib\kolibri.h-- 123: void proc_info::getme()
0000008F 55 push ebp
00000090 89E5 mov ebp,esp
..\lib\kolibri.h-- 125: EAX = 9;
00000092 6A09 push 9
00000094 58 pop eax
..\lib\kolibri.h-- 126: EBX = #use_cpu;
00000095 8B5D08 mov ebx,[ebp+8]
..\lib\kolibri.h-- 127: ECX = -1;
00000098 83C9FF or ecx,0FFFFFFFFh
..\lib\kolibri.h-- 128: $int 0x40
0000009B CD40 int 40h
0000009D 5D pop ebp
0000009E C20400 ret 4
..\lib\kolibri.h-- 367: void WindowRedrawStatus(dword i)
000000A1 55 push ebp
000000A2 89E5 mov ebp,esp
..\lib\kolibri.h-- 369: EAX = 12; // function 12:tell os about windowdraw
000000A4 6A0C push 0Ch
000000A6 58 pop eax
..\lib\kolibri.h-- 370: EBX = i; // 1, start of draw
000000A7 8B5D08 mov ebx,[ebp+8]
..\lib\kolibri.h-- 371: $int 0x40
000000AA CD40 int 40h
000000AC 5D pop ebp
000000AD C20400 ret 4
..\lib\kolibri.h-- 374: void DefineAndDrawWindow(dword x,y,sizeX,sizeY,byte mainAreaType,dword mainAreaColour,byte headerType,dword headerColour,border
000000B0 C8100000 enter 10h,0
..\lib\kolibri.h-- 378: arg1 = x << 16 + sizeX;
000000B4 8B4528 mov eax,[ebp+28h]
000000B7 C1E010 shl eax,10h
000000BA 034520 add eax,[ebp+20h]
000000BD 8945FC mov [ebp-4],eax
..\lib\kolibri.h-- 379: arg2 = y << 16 + sizeY;
000000C0 8B4524 mov eax,[ebp+24h]
000000C3 C1E010 shl eax,10h
000000C6 03451C add eax,[ebp+1Ch]
000000C9 8945F8 mov [ebp-8],eax
..\lib\kolibri.h-- 380: arg3 = mainAreaType << 24 | mainAreaColour;
000000CC 0FB64518 movzx eax,[ebp+18h]
000000D0 C1E018 shl eax,18h
000000D3 0B4514 or eax,[ebp+14h]
000000D6 8945F4 mov [ebp-0Ch],eax
..\lib\kolibri.h-- 381: arg4 = headerType << 24 | headerColour;
000000D9 0FB64510 movzx eax,[ebp+10h]
000000DD C1E018 shl eax,18h
000000E0 0B450C or eax,[ebp+0Ch]
000000E3 8945F0 mov [ebp-10h],eax
..\lib\kolibri.h-- 383: $mov eax, 0
000000E6 B800000000 mov eax,0
..\lib\kolibri.h-- 384: $mov ebx, arg1
000000EB 8B5DFC mov ebx,[ebp-4]
..\lib\kolibri.h-- 385: $mov ecx, arg2
000000EE 8B4DF8 mov ecx,[ebp-8]
..\lib\kolibri.h-- 386: $mov edx, arg3
000000F1 8B55F4 mov edx,[ebp-0Ch]
..\lib\kolibri.h-- 387: $mov esi, arg4
000000F4 8B75F0 mov esi,[ebp-10h]
..\lib\kolibri.h-- 388: $mov edi, borderColour
000000F7 8B7D08 mov edi,[ebp+8]
..\lib\kolibri.h-- 389: $int 0x40
000000FA CD40 int 40h
000000FC C9 leave
000000FD C22400 ret 24h
..\lib\kolibri.h-- 392: void DefineButton(dword x,y,w,h,id,color)
00000100 55 push ebp
00000101 89E5 mov ebp,esp
..\lib\kolibri.h-- 394: DrawButton(x<<16+w, skin_width+y<<16+h, id, color);
00000103 8B5D1C mov ebx,[ebp+1Ch]
00000106 C1E310 shl ebx,10h
00000109 035D14 add ebx,[ebp+14h]
0000010C 8B0D84070000 mov ecx,[784h]
00000112 034D18 add ecx,[ebp+18h]
00000115 C1E110 shl ecx,10h
00000118 034D10 add ecx,[ebp+10h]
0000011B 8B550C mov edx,[ebp+0Ch]
0000011E 8B7508 mov esi,[ebp+8]
00000121 E84E060000 call 774h
00000126 5D pop ebp
00000127 C21800 ret 18h
..\lib\kolibri.h-- 397: void WriteText(dword x,y,byte fontType, dword color, text, len)
0000012A 55 push ebp
0000012B 89E5 mov ebp,esp
..\lib\kolibri.h-- 399: EBX = x<<16+skin_width+y;
0000012D 8B5D1C mov ebx,[ebp+1Ch]
00000130 C1E310 shl ebx,10h
00000133 031D84070000 add ebx,[784h]
00000139 035D18 add ebx,[ebp+18h]
..\lib\kolibri.h-- 400: ECX = fontType<<24+color;
0000013C 0FB64D14 movzx ecx,[ebp+14h]
00000140 C1E118 shl ecx,18h
00000143 034D10 add ecx,[ebp+10h]
..\lib\kolibri.h-- 401: EDX = text;
00000146 8B550C mov edx,[ebp+0Ch]
..\lib\kolibri.h-- 402: ESI = len;
00000149 8B7508 mov esi,[ebp+8]
..\lib\kolibri.h-- 403: EAX = 4;
0000014C 6A04 push 4
0000014E 58 pop eax
..\lib\kolibri.h-- 404: $int 0x40;
0000014F CD40 int 40h
00000151 5D pop ebp
00000152 C21800 ret 18h
..\lib\kolibri.h-- 413: void DrawBar(dword x,y,w,h,color)
00000155 55 push ebp
00000156 89E5 mov ebp,esp
..\lib\kolibri.h-- 415: kos_DrawBar(x<<16+w,skin_width+y<<16+h,color);
00000158 8B5D18 mov ebx,[ebp+18h]
0000015B C1E310 shl ebx,10h
0000015E 035D10 add ebx,[ebp+10h]
00000161 8B0D84070000 mov ecx,[784h]
00000167 034D14 add ecx,[ebp+14h]
0000016A C1E110 shl ecx,10h
0000016D 034D0C add ecx,[ebp+0Ch]
00000170 8B5508 mov edx,[ebp+8]
00000173 E8D2050000 call 74Ah
00000178 5D pop ebp
00000179 C21400 ret 14h
..\lib\kolibri.h-- 418: void DrawRegion(dword x,y,width,height,color1)
0000017C 55 push ebp
0000017D 89E5 mov ebp,esp
..\lib\kolibri.h-- 420: DrawBar(x,y,width,1,color1); //ïîëîñà ãîð ñâåðõó
0000017F FF7518 push dword ptr [ebp+18h]
00000182 FF7514 push dword ptr [ebp+14h]
00000185 FF7510 push dword ptr [ebp+10h]
00000188 6A01 push 1
0000018A FF7508 push dword ptr [ebp+8]
0000018D E8C3FFFFFF call 155h
..\lib\kolibri.h-- 421: DrawBar(x,y+height,width,1,color1); //ïîëîñà ãîð ñíèçó
00000192 FF7518 push dword ptr [ebp+18h]
00000195 8B4514 mov eax,[ebp+14h]
00000198 03450C add eax,[ebp+0Ch]
0000019B 50 push eax
0000019C FF7510 push dword ptr [ebp+10h]
0000019F 6A01 push 1
000001A1 FF7508 push dword ptr [ebp+8]
000001A4 E8ACFFFFFF call 155h
..\lib\kolibri.h-- 422: DrawBar(x,y,1,height,color1); //ïîëîñà âåðò ñëåâà
000001A9 FF7518 push dword ptr [ebp+18h]
000001AC FF7514 push dword ptr [ebp+14h]
000001AF 6A01 push 1
000001B1 FF750C push dword ptr [ebp+0Ch]
000001B4 FF7508 push dword ptr [ebp+8]
000001B7 E899FFFFFF call 155h
..\lib\kolibri.h-- 423: DrawBar(x+width,y,1,height+1,color1); //ïîëîñà âåðò ñïðàâà
000001BC 8B4518 mov eax,[ebp+18h]
000001BF 034510 add eax,[ebp+10h]
000001C2 50 push eax
000001C3 FF7514 push dword ptr [ebp+14h]
000001C6 6A01 push 1
000001C8 8B450C mov eax,[ebp+0Ch]
000001CB 40 inc eax
000001CC 50 push eax
000001CD FF7508 push dword ptr [ebp+8]
000001D0 E880FFFFFF call 155h
000001D5 5D pop ebp
000001D6 C21400 ret 14h
..\lib\kolibri.h-- 426: void DrawFlatButton(dword x,y,width,height,id,color,text)
000001D9 55 push ebp
000001DA 89E5 mov ebp,esp
..\lib\kolibri.h-- 428: DrawRegion(x,y,width,height,0x94AECE);
000001DC FF7520 push dword ptr [ebp+20h]
000001DF FF751C push dword ptr [ebp+1Ch]
000001E2 FF7518 push dword ptr [ebp+18h]
000001E5 FF7514 push dword ptr [ebp+14h]
000001E8 68CEAE9400 push 94AECEh
000001ED E88AFFFFFF call 17Ch
..\lib\kolibri.h-- 429: DrawBar(x+1,y+1,width-1,1,0xFFFFFF); //ïîëîñà ãîð áåëàÿ
000001F2 8B4520 mov eax,[ebp+20h]
000001F5 40 inc eax
000001F6 50 push eax
000001F7 8B451C mov eax,[ebp+1Ch]
000001FA 40 inc eax
000001FB 50 push eax
000001FC 8B4518 mov eax,[ebp+18h]
000001FF 48 dec eax
00000200 50 push eax
00000201 6A01 push 1
00000203 68FFFFFF00 push 0FFFFFFh
00000208 E848FFFFFF call 155h
..\lib\kolibri.h-- 430: DrawBar(x+1,y+height-1,width-2,1,0xC7C7C7); //òåíü âåðò
0000020D 8B4520 mov eax,[ebp+20h]
00000210 40 inc eax
00000211 50 push eax
00000212 8B451C mov eax,[ebp+1Ch]
00000215 034514 add eax,[ebp+14h]
00000218 48 dec eax
00000219 50 push eax
0000021A 8B4518 mov eax,[ebp+18h]
0000021D 48 dec eax
0000021E 48 dec eax
0000021F 50 push eax
00000220 6A01 push 1
00000222 68C7C7C700 push 0C7C7C7h
00000227 E829FFFFFF call 155h
..\lib\kolibri.h-- 431: DrawBar(x+1,y+1,1,height-1,0xFFFFFF); //ïîëîñà âåðò áåëàÿ
0000022C 8B4520 mov eax,[ebp+20h]
0000022F 40 inc eax
00000230 50 push eax
00000231 8B451C mov eax,[ebp+1Ch]
00000234 40 inc eax
00000235 50 push eax
00000236 6A01 push 1
00000238 8B4514 mov eax,[ebp+14h]
0000023B 48 dec eax
0000023C 50 push eax
0000023D 68FFFFFF00 push 0FFFFFFh
00000242 E80EFFFFFF call 155h
..\lib\kolibri.h-- 432: DrawBar(x+width-1,y+2,1,height-2,0xC7C7C7); //òåíü âåðò
00000247 8B4520 mov eax,[ebp+20h]
0000024A 034518 add eax,[ebp+18h]
0000024D 48 dec eax
0000024E 50 push eax
0000024F 8B451C mov eax,[ebp+1Ch]
00000252 40 inc eax
00000253 40 inc eax
00000254 50 push eax
00000255 6A01 push 1
00000257 8B4514 mov eax,[ebp+14h]
0000025A 48 dec eax
0000025B 48 dec eax
0000025C 50 push eax
0000025D 68C7C7C700 push 0C7C7C7h
00000262 E8EEFEFFFF call 155h
..\lib\kolibri.h-- 433: DrawBar(x+2,y+2,width-3,height-3,color); //çàëèâêà
00000267 8B4520 mov eax,[ebp+20h]
0000026A 40 inc eax
0000026B 40 inc eax
0000026C 50 push eax
0000026D 8B451C mov eax,[ebp+1Ch]
00000270 40 inc eax
00000271 40 inc eax
00000272 50 push eax
00000273 8B4518 mov eax,[ebp+18h]
00000276 83E803 sub eax,3
00000279 50 push eax
0000027A 8B4514 mov eax,[ebp+14h]
0000027D 83E803 sub eax,3
00000280 50 push eax
00000281 FF750C push dword ptr [ebp+0Ch]
00000284 E8CCFEFFFF call 155h
..\lib\kolibri.h-- 434: IF (id<>0) DefineButton(x,y,width,height,id+BT_HIDE,0xEFEBEF); //îïðåäåëÿåì êíîïêó
00000289 837D1000 cmp dword ptr [ebp+10h],0
0000028D 741F je 2AEh
0000028F FF7520 push dword ptr [ebp+20h]
00000292 FF751C push dword ptr [ebp+1Ch]
00000295 FF7518 push dword ptr [ebp+18h]
00000298 FF7514 push dword ptr [ebp+14h]
0000029B 8B4510 mov eax,[ebp+10h]
0000029E 0500000040 add eax,40000000h
000002A3 50 push eax
000002A4 68EFEBEF00 push 0EFEBEFh
000002A9 E852FEFFFF call 100h
..\lib\kolibri.h-- 435: WriteText(-strlen(text)*6+width/2+x+1,height/2-3+y,0x80,0,text,strlen(text));
000002AE 8B7D08 mov edi,[ebp+8]
000002B1 E887040000 call 73Dh
000002B6 F7D8 neg eax
000002B8 B906000000 mov ecx,6
000002BD F7E1 mul ecx
000002BF 034518 add eax,[ebp+18h]
000002C2 83D200 adc edx,0
000002C5 0FACD001 shrd eax,edx,1
000002C9 034520 add eax,[ebp+20h]
000002CC 40 inc eax
000002CD 50 push eax
000002CE 8B4514 mov eax,[ebp+14h]
000002D1 D1E8 shr eax,1
000002D3 83E803 sub eax,3
000002D6 03451C add eax,[ebp+1Ch]
000002D9 50 push eax
000002DA 6880000000 push 80h
000002DF 6A00 push 0
000002E1 FF7508 push dword ptr [ebp+8]
000002E4 8B7D08 mov edi,[ebp+8]
000002E7 E851040000 call 73Dh
000002EC 50 push eax
000002ED E838FEFFFF call 12Ah
000002F2 5D pop ebp
000002F3 C21C00 ret 1Ch
..\lib\kolibri.h-- 439: void PutImage(dword buf,w,h,x,y)
000002F6 C8100000 enter 10h,0
..\lib\kolibri.h-- 442: EDI=buf;
000002FA 8B7D18 mov edi,[ebp+18h]
..\lib\kolibri.h-- 443: EAX = 7;
000002FD 6A07 push 7
000002FF 58 pop eax
..\lib\kolibri.h-- 444: EBX = buf;
00000300 89FB mov ebx,edi
..\lib\kolibri.h-- 445: ECX = w<<16+h;
00000302 8B4D14 mov ecx,[ebp+14h]
00000305 C1E110 shl ecx,10h
00000308 034D10 add ecx,[ebp+10h]
..\lib\kolibri.h-- 446: EDX = x<<16+y+skin_width;
0000030B 8B550C mov edx,[ebp+0Ch]
0000030E C1E210 shl edx,10h
00000311 035508 add edx,[ebp+8]
00000314 031584070000 add edx,[784h]
..\lib\kolibri.h-- 447: $int 0x40
0000031A CD40 int 40h
0000031C C9 leave
0000031D C21400 ret 14h
..\lib\kolibri.h-- 451: void copystr(dword s,d)
00000320 55 push ebp
00000321 89E5 mov ebp,esp
..\lib\kolibri.h-- 453: $mov esi,s
00000323 8B750C mov esi,[ebp+0Ch]
..\lib\kolibri.h-- 454: $mov edi,d
00000326 8B7D08 mov edi,[ebp+8]
..\lib\kolibri.h-- 455: $cld
00000329 FC cld
..\lib\kolibri.h-- 457: $lodsb
0000032A AC lodsb
..\lib\kolibri.h-- 458: $stosb
0000032B AA stosb
..\lib\kolibri.h-- 459: $test al,al
0000032C 84C0 test al,al
..\lib\kolibri.h-- 460: $jnz l1
0000032E 75FA jne 32Ah
00000330 5D pop ebp
00000331 C20800 ret 8
..\lib\kolibri.h-- 464: int pos,razr,backup,j=0,chislo;
00000334 00000000 dd 0
..\lib\kolibri.h-- 465: char buffer[11]="";
00000338 000000000000000000000000 db 0,0,0,0,0,0,0,0,0,0,0,0
use_library.h-- 2: dword edit_box_draw = #aEdit_box_draw;
00000344 5C030000 dd 35Ch
use_library.h-- 3: dword edit_box_key = #aEdit_box_key;
00000348 66030000 dd 366h
use_library.h-- 4: dword edit_box_mouse = #aEdit_box_mouse;
0000034C 74030000 dd 374h
use_library.h-- 5: dword version_ed = #aVersion_ed;
00000350 84030000 dd 384h
use_library.h-- 28: dword am__ = 0x0;
00000354 00000000 dd 0
use_library.h-- 29: dword bm__ = 0x0;
00000358 00000000 dd 0
use_library.h-- 31: char aEdit_box_draw[9] = "edit_box\0";
0000035C 656469745F626F780000 db 'edit_box',0,0
use_library.h-- 32: char aEdit_box_key[13] = "edit_box_key\0";
00000366 656469745F626F785F6B6579 db 'edit_box_key'
00000372 0000 db 0,0
use_library.h-- 33: char aEdit_box_mouse[15] = "edit_box_mouse\0";
00000374 656469745F626F785F6D6F75 db 'edit_box_mou'
00000380 73650000 db 'se',0,0
use_library.h-- 34: char aVersion_ed[11] = "version_ed\0";
00000384 76657273696F6E5F65640000 db 'version_ed',0,0
use_library.h-- 36: char aCheck_box_draw [15] = "check_box_draw\0";
00000390 636865636B5F626F785F6472 db 'check_box_dr'
0000039C 61770000 db 'aw',0,0
use_library.h-- 37: char aCheck_box_mouse [16] = "check_box_mouse\0";
000003A0 636865636B5F626F785F6D6F db 'check_box_mo'
000003AC 7573650000 db 'use',0,0
use_library.h-- 38: char aVersion_ch [11] = "version_ch\0";
000003B1 76657273696F6E5F63680000 db 'version_ch',0,0
use_library.h-- 40: char aOption_box_draw [16] = "option_box_draw\0";
000003BD 6F7074696F6E5F626F785F64 db 'option_box_d'
000003C9 7261770000 db 'raw',0,0
use_library.h-- 41: char aOption_box_mouse[17] = "option_box_mouse\0";
000003CE 6F7074696F6E5F626F785F6D db 'option_box_m'
000003DA 6F7573650000 db 'ouse',0,0
use_library.h-- 42: char aVersion_op [11] = "version_op\0" ;
000003E0 76657273696F6E5F6F700000 db 'version_op',0,0
use_library.h-- 65: $mov eax,40
000003EC B828000000 mov eax,28h
use_library.h-- 66: $mov ebx,0x27
000003F1 BB27000000 mov ebx,27h
use_library.h-- 67: $int 0x40
000003F6 CD40 int 40h
use_library.h-- 69: $mov eax, 68
000003F8 B844000000 mov eax,44h
use_library.h-- 70: $mov ebx, 19
000003FD BB13000000 mov ebx,13h
use_library.h-- 71: ECX=#way_of_ini;
00000402 B946040000 mov ecx,446h
use_library.h-- 72: $int 0x40
00000407 CD40 int 40h
use_library.h-- 73: $test eax, eax
00000409 85C0 test eax,eax
use_library.h-- 74: $jz exit
0000040B 7435 je 442h
use_library.h-- 77: $mov edx,eax
0000040D 89C2 mov edx,eax
use_library.h-- 78: ESI=#edit_box_draw;
0000040F BE44030000 mov esi,344h
use_library.h-- 80: $lodsd
00000414 AD lodsd
use_library.h-- 81: $test eax,eax
00000415 85C0 test eax,eax
use_library.h-- 82: $jz import_done
00000417 7426 je 43Fh
use_library.h-- 83: $push edx
00000419 52 push edx
use_library.h-- 85: $mov ebx,DSDWORD[EDX]
0000041A 8B1A mov ebx,[edx]
use_library.h-- 86: $test ebx, ebx
0000041C 85DB test ebx,ebx
use_library.h-- 87: $jz exit
0000041E 7422 je 442h
use_library.h-- 88: $push eax
00000420 50 push eax
use_library.h-- 90: $mov cl,DSBYTE[EAX];
00000421 8A08 mov cl,[eax]
use_library.h-- 91: $cmp cl,DSBYTE[EBX];
00000423 3A0B cmp cl,[ebx]
use_library.h-- 92: $jnz import_find_next
00000425 7508 jne 42Fh
use_library.h-- 93: $test cl,cl
00000427 84C9 test cl,cl
use_library.h-- 94: $jz import_found
00000429 740A je 435h
use_library.h-- 95: $inc eax
0000042B 40 inc eax
use_library.h-- 96: $inc ebx
0000042C 43 inc ebx
use_library.h-- 97: $jmp nex1
0000042D EBF2 jmp short 421h
use_library.h-- 99: $pop eax
0000042F 58 pop eax
use_library.h-- 100: $add edx, 8
00000430 83C208 add edx,8
use_library.h-- 101: $jmp import_find
00000433 EBE5 jmp short 41Ah
use_library.h-- 103: $pop eax
00000435 58 pop eax
use_library.h-- 104: $mov eax,DSDWORD[edx+4]
00000436 8B4204 mov eax,[edx+4]
use_library.h-- 105: $mov DSDWORD[esi-4],eax
00000439 8946FC mov [esi-4],eax
use_library.h-- 106: $pop edx
0000043C 5A pop edx
use_library.h-- 107: $jmp import_loop
0000043D EBD5 jmp short 414h
use_library.h-- 109: return 0;
0000043F 31C0 xor eax,eax
00000441 C3 ret
use_library.h-- 111: return -1;
00000442 83C8FF or eax,0FFFFFFFFh
00000445 C3 ret
EditBox2.c-- 13: char way_of_ini[250] = "/sys/lib/box_lib.obj",NULL; //ᮤ¥à¦¨¬®¥ EditBox'a
00000446 2F7379732F6C69622F626F78 db '/sys/lib/box'
00000452 5F6C69622E6F626A00000000 db '_lib.obj',0,0,0,0
0000045E 000000000000000000000000 db 0,0,0,0,0,0,0,0,0,0,0,0
0000046A 000000000000000000000000 db 0,0,0,0,0,0,0,0,0,0,0,0
00000476 000000000000000000000000 db 0,0,0,0,0,0,0,0,0,0,0,0
00000482 000000000000000000000000 db 0,0,0,0,0,0,0,0,0,0,0,0
0000048E 000000000000000000000000 db 0,0,0,0,0,0,0,0,0,0,0,0
0000049A 000000000000000000000000 db 0,0,0,0,0,0,0,0,0,0,0,0
000004A6 000000000000000000000000 db 0,0,0,0,0,0,0,0,0,0,0,0
000004B2 000000000000000000000000 db 0,0,0,0,0,0,0,0,0,0,0,0
000004BE 000000000000000000000000 db 0,0,0,0,0,0,0,0,0,0,0,0
000004CA 000000000000000000000000 db 0,0,0,0,0,0,0,0,0,0,0,0
000004D6 000000000000000000000000 db 0,0,0,0,0,0,0,0,0,0,0,0
000004E2 000000000000000000000000 db 0,0,0,0,0,0,0,0,0,0,0,0
000004EE 000000000000000000000000 db 0,0,0,0,0,0,0,0,0,0,0,0
000004FA 000000000000000000000000 db 0,0,0,0,0,0,0,0,0,0,0,0
00000506 000000000000000000000000 db 0,0,0,0,0,0,0,0,0,0,0,0
00000512 000000000000000000000000 db 0,0,0,0,0,0,0,0,0,0,0,0
0000051E 000000000000000000000000 db 0,0,0,0,0,0,0,0,0,0,0,0
0000052A 000000000000000000000000 db 0,0,0,0,0,0,0,0,0,0,0,0
00000536 00000000000000000000 db 0,0,0,0,0,0,0,0,0,0
EditBox2.c-- 15: edit_box edit1= {250,14,35,0xffffff,0x6f9480,0,0xAABBCC,0,248,#way_of_ini,2,20,20};
00000540 FA0000000E00000023000000 dd 0FAh,0Eh,23h
0000054C FFFFFF0080946F0000000000 dd 0FFFFFFh,6F9480h,0
00000558 CCBBAA0000000000F8000000 dd 0AABBCCh,0,0F8h
00000564 460400000200000014000000 dd 446h,2,14h
00000570 140000000000000000000000 dd 14h,0,0
0000057C 000000000000000000000000 dd 0,0,0
EditBox2.c-- 39: void main()
00000588 C8040000 enter 4,0
EditBox2.c-- 42: load_dll();
0000058C E85BFEFFFF call 3ECh
EditBox2.c-- 44: draw_window();
00000591 E868000000 call 5FEh
EditBox2.c-- 47: switch(WaitEvent())
00000596 E8B5010000 call 750h
0000059B 83F801 cmp eax,1
0000059E 0F8441000000 jz 5E5h
000005A4 83F802 cmp eax,2
000005A7 0F8423000000 jz 5D0h
000005AD 83F803 cmp eax,3
000005B0 0F8534000000 jnz 5EAh
EditBox2.c-- 51: id=GetButtonID();
000005B6 E8B0010000 call 76Bh
000005BB 8845FC mov [ebp-4],al
EditBox2.c-- 52: IF (id==1) || (id==2) ExitProcess();
000005BE 3C01 cmp al,1
000005C0 7404 je 5C6h
000005C2 3C02 cmp al,2
000005C4 7505 jne 5CBh
000005C6 E88B010000 call 756h
EditBox2.c-- 53: break;
000005CB E91A000000 jmp 5EAh
EditBox2.c-- 56: GetKey();
000005D0 E887010000 call 75Ch
EditBox2.c-- 57: edit_box_key stdcall (#edit1);
000005D5 6840050000 push 540h
000005DA FF1548030000 call dword ptr [348h]
EditBox2.c-- 58: break;
000005E0 E905000000 jmp 5EAh
EditBox2.c-- 60: case evReDraw: draw_window(); break;
000005E5 E814000000 call 5FEh
EditBox2.c-- 65: edit_box_mouse stdcall (#edit1);
000005EA 6840050000 push 540h
000005EF FF154C030000 call dword ptr [34Ch]
000005F5 EB9F jmp short 596h
EditBox2.c-- 69: ExitProcess();
000005F7 E85A010000 call 756h
000005FC C9 leave
000005FD C3 ret
EditBox2.c-- 74: WindowRedrawStatus(1);
000005FE 6A01 push 1
00000600 E89CFAFFFF call 0A1h
EditBox2.c-- 75: skin_width = GetSkinWidth();
00000605 E858010000 call 762h
0000060A A384070000 mov [784h],eax
EditBox2.c-- 76: DefineAndDrawWindow(400,200,280,200,0x04,0x00E4DFE1,0,0,0); DrawTitle("Extended EditBox in C--");
0000060F 6890010000 push 190h
00000614 68C8000000 push 0C8h
00000619 6818010000 push 118h
0000061E 68C8000000 push 0C8h
00000623 6A04 push 4
00000625 68E1DFE400 push 0E4DFE1h
0000062A 6A00 push 0
0000062C 6A00 push 0
0000062E 6A00 push 0
00000630 E87BFAFFFF call 0B0h
00000635 B9BA060000 mov ecx,6BAh
0000063A E83B010000 call 77Ah
EditBox2.c-- 77: Form.getme();
0000063F 68E6090000 push 9E6h
00000644 E846FAFFFF call 8Fh
EditBox2.c-- 79: WriteText(30,40,0x80,0,"<22> ¨¯à®á⥩訩 ¯à¨¬¥à EditBox'a ­  ‘--",0);
00000649 6A1E push 1Eh
0000064B 6A28 push 28h
0000064D 6880000000 push 80h
00000652 6A00 push 0
00000654 68D2060000 push 6D2h
00000659 6A00 push 0
0000065B E8CAFAFFFF call 12Ah
EditBox2.c-- 80: WriteText(30,50,0x80,0,"<22>® ¥£® ¬®¦­® ­¥¬­®£® ãá«®¦­¨âì á 楫ìî",0);
00000660 6A1E push 1Eh
00000662 6A32 push 32h
00000664 6880000000 push 80h
00000669 6A00 push 0
0000066B 68F8060000 push 6F8h
00000670 6A00 push 0
00000672 E8B3FAFFFF call 12Ah
EditBox2.c-- 81: WriteText(30,60,0x80,0,"㬥­ì襭¨ï ¯¥à¥à¨á®¢ª¨.",0);
00000677 6A1E push 1Eh
00000679 6A3C push 3Ch
0000067B 6880000000 push 80h
00000680 6A00 push 0
00000682 681F070000 push 71Fh
00000687 6A00 push 0
00000689 E89CFAFFFF call 12Ah
EditBox2.c-- 83: DrawFlatButton(100,105,70,22,2,0xD7D7D7,"Close");
0000068E 6A64 push 64h
00000690 6A69 push 69h
00000692 6A46 push 46h
00000694 6A16 push 16h
00000696 6A02 push 2
00000698 68D7D7D700 push 0D7D7D7h
0000069D 6837070000 push 737h
000006A2 E832FBFFFF call 1D9h
EditBox2.c-- 88: edit_box_draw stdcall (#edit1);
000006A7 6840050000 push 540h
000006AC FF1544030000 call dword ptr [344h]
EditBox2.c-- 92: WindowRedrawStatus(2);
000006B2 6A02 push 2
000006B4 E8E8F9FFFF call 0A1h
000006B9 C3 ret
000006BA 457874656E64656420456469 db 'Extended Edi'
000006C6 74426F7820696E20432D2D00 db 'tBox in C--',0
000006D2 8DA0A8AFE0AEE1E2A5A9E8A8 db '<27> ¨¯à®á⥩è¨'
000006DE A920AFE0A8ACA5E020456469 db '© ¯à¨¬¥à Edi'
000006EA 74426F78276120ADA020912D db 'tBox'a ­  ‘-'
000006F6 2D008DAE20A5A3AE20ACAEA6 db '-',0,'<27>® ¥£® ¬®¦'
00000702 ADAE20ADA5ACADAEA3AE20E3 db '­® ­¥¬­®£® ã'
0000070E E1ABAEA6ADA8E2EC20E120E6 db 'á«®¦­¨âì á æ'
0000071A A5ABECEE00E3ACA5ADECE8A5 db '¥«ìî',0,'㬥­ìè¥'
00000726 ADA8EF20AFA5E0A5E0A8E1AE db '­¨ï ¯¥à¥à¨á®'
00000732 A2AAA82E00436C6F736500 db '¢ª¨.',0,'Close',0
..\lib\kolibri.h-- 287: ECX=0;
0000073D 31C9 xor ecx,ecx
..\lib\kolibri.h-- 288: EAX=0;
0000073F 89C8 mov eax,ecx
..\lib\kolibri.h-- 289: ECX--;
00000741 49 dec ecx
..\lib\kolibri.h-- 290: $REPNE $SCASB
00000742 F2AE repne scasb
..\lib\kolibri.h-- 291: EAX=EAX-2-ECX;
00000744 83E802 sub eax,2
00000747 29C8 sub eax,ecx
00000749 C3 ret
..\lib\kolibri.h-- 215: EAX = 13;
0000074A 6A0D push 0Dh
0000074C 58 pop eax
..\lib\kolibri.h-- 216: $int 0x40
0000074D CD40 int 40h
..\lib\kolibri.h-- 217: #codesize
0000074F C3 ret
..\lib\kolibri.h-- 156: EAX = 10; // wait here for event
00000750 6A0A push 0Ah
00000752 58 pop eax
..\lib\kolibri.h-- 157: $int 0x40
00000753 CD40 int 40h
00000755 C3 ret
..\lib\kolibri.h-- 161: EAX = -1; // close this program
00000756 83C8FF or eax,0FFFFFFFFh
..\lib\kolibri.h-- 162: $int 0x40
00000759 CD40 int 40h
0000075B C3 ret
..\lib\kolibri.h-- 172: EAX = 2; // just read this key from buffer
0000075C 6A02 push 2
0000075E 58 pop eax
..\lib\kolibri.h-- 173: $int 0x40
0000075F CD40 int 40h
00000761 C3 ret
..\lib\kolibri.h-- 249: EAX = 48;
00000762 6A30 push 30h
00000764 58 pop eax
..\lib\kolibri.h-- 250: EBX = 4;
00000765 6A04 push 4
00000767 5B pop ebx
..\lib\kolibri.h-- 251: $int 0x40
00000768 CD40 int 40h
0000076A C3 ret
..\lib\kolibri.h-- 184: EAX = 17; // Get ID
0000076B 6A11 push 11h
0000076D 58 pop eax
..\lib\kolibri.h-- 185: $int 0x40
0000076E CD40 int 40h
..\lib\kolibri.h-- 186: EAX = EAX >> 8;
00000770 C1E808 shr eax,8
00000773 C3 ret
..\lib\kolibri.h-- 151: EAX = 8;
00000774 6A08 push 8
00000776 58 pop eax
..\lib\kolibri.h-- 152: $int 0x40
00000777 CD40 int 40h
00000779 C3 ret
..\lib\kolibri.h-- 242: EAX = 71;
0000077A 6A47 push 47h
0000077C 58 pop eax
..\lib\kolibri.h-- 243: EBX = 1;
0000077D 31DB xor ebx,ebx
0000077F 43 inc ebx
..\lib\kolibri.h-- 244: $int 0x40;
00000780 CD40 int 40h
00000782 C3 ret

5
programs/develop/libraries/box_lib/C--/trunk/compile.bat Normal file
View File

@ -0,0 +1,5 @@
C-- EditBox2.c--
del EditBox2.kex
rename EditBox2 EditBox2.kex
rename EditBox2.com EditBox2.kex
pause

112
programs/develop/libraries/box_lib/C--/trunk/use_library.h-- Normal file
View File

@ -0,0 +1,112 @@
//BOX_LIB
dword edit_box_draw = #aEdit_box_draw;
dword edit_box_key = #aEdit_box_key;
dword edit_box_mouse = #aEdit_box_mouse;
dword version_ed = #aVersion_ed;
//dword
//dword
//dword
//dword
//dword
//dword
//$edit_box_draw dword aEdit_box_draw
//$edit_box_key dword aEdit_box_key
//$edit_box_mouse dword aEdit_box_mouse
//$version_ed dword aVersion_ed
//$check_box_draw dword aCheck_box_draw
//$check_box_mouse dword aCheck_box_mouse
//$version_ch dword aVersion_ch
//$option_box_draw dword aOption_box_draw
//$option_box_mouse dword aOption_box_mouse
//$version_op dword aVersion_op
dword am__ = 0x0;
dword bm__ = 0x0;
char aEdit_box_draw[9] = "edit_box\0";
char aEdit_box_key[13] = "edit_box_key\0";
char aEdit_box_mouse[15] = "edit_box_mouse\0";
char aVersion_ed[11] = "version_ed\0";
char aCheck_box_draw [15] = "check_box_draw\0";
char aCheck_box_mouse [16] = "check_box_mouse\0";
char aVersion_ch [11] = "version_ch\0";
char aOption_box_draw [16] = "option_box_draw\0";
char aOption_box_mouse[17] = "option_box_mouse\0";
char aVersion_op [11] = "version_op\0" ;
struct edit_box{
dword width, left, top, color, shift_color, focus_border_color, blur_border_color,
text_color, max, text, flags, size, pos, offset, cl_curs_x, cl_curs_y, shift, shift_old;
};
//void Edit_box_draw(dword edit_b)
//{
// $ PUSH dword edit_b
// $ CALL dword [edit_box_draw]
//}
//struct load_dll{
// dword way_of_ini, myimport;
// void get();
//};
int load_dll(EAX)
{
//set mask
$mov eax,40
$mov ebx,0x27
$int 0x40
// load DLL
$mov eax, 68
$mov ebx, 19
ECX=#way_of_ini;
$int 0x40
$test eax, eax
$jz exit
// initialize import
$mov edx,eax
ESI=#edit_box_draw;
import_loop:
$lodsd
$test eax,eax
$jz import_done
$push edx
import_find:
$mov ebx,DSDWORD[EDX]
$test ebx, ebx
$jz exit
$push eax
nex1:
$mov cl,DSBYTE[EAX];
$cmp cl,DSBYTE[EBX];
$jnz import_find_next
$test cl,cl
$jz import_found
$inc eax
$inc ebx
$jmp nex1
import_find_next:
$pop eax
$add edx, 8
$jmp import_find
import_found:
$pop eax
$mov eax,DSDWORD[edx+4]
$mov DSDWORD[esi-4],eax
$pop edx
$jmp import_loop
import_done:
return 0;
exit:
return -1;
}

50
programs/develop/libraries/box_lib/C--/trunk/warning.txt Normal file
View File

@ -0,0 +1,50 @@
..\lib\kolibri.h--(43)> Warning! ECX has been used by compiler.
..\lib\kolibri.h--(63)> Warning! ESI has been used by compiler.
..\lib\kolibri.h--(64)> Warning! Register ESI already initialized.
..\lib\kolibri.h--(72)> Warning! ESI has been used by compiler.
..\lib\kolibri.h--(73)> Warning! Register ESI already initialized.
..\lib\kolibri.h--(126)> Warning! EBX has been used by compiler.
..\lib\kolibri.h--(435)> Warning! Expansion variable.
..\lib\kolibri.h--(435)> Warning! ECX has been used by compiler.
..\lib\kolibri.h--(444)> Warning! Register EBX same as EDI.
..\lib\kolibri.h--(439)> Warning! Local variable 'i' possible not used.
..\lib\kolibri.h--(439)> Warning! Local variable 'r' possible not used.
..\lib\kolibri.h--(439)> Warning! Local variable 'g' possible not used.
..\lib\kolibri.h--(439)> Warning! Local variable 'b' possible not used.
EditBox2.c--(42)> Warning! Missing parameter in function .
EditBox2.c--(52)> Warning! Register AL already initialized.
EditBox2.c--(52)> Warning! Register AL already initialized.
EditBox2.c--(55)> Warning! Short operator 'CASE' may be used.
EditBox2.c--(60)> Warning! Short operator 'CASE' may be used.
EditBox2.c--(47)> Warning! Short operator 'SWITCH' may be used.
EditBox2.c--(53)> Warning! Short operator 'BREAK' may be used.
EditBox2.c--(58)> Warning! Short operator 'BREAK' may be used.
..\lib\kolibri.h--(288)> Warning! Register EAX same as ECX.
..\lib\kolibri.h--(4)> Warning! Variable 'os_name' possible not used.
..\lib\kolibri.h--(5)> Warning! Variable 'os_version' possible not used.
..\lib\kolibri.h--(6)> Warning! Variable 'start_addr' possible not used.
..\lib\kolibri.h--(9)> Warning! Variable 'x86esp_reg' possible not used.
use_library.h--(5)> Warning! Variable 'version_ed' possible not used.
..\lib\kolibri.h--(464)> Warning! Variable 'pos' possible not used.
..\lib\kolibri.h--(464)> Warning! Variable 'razr' possible not used.
..\lib\kolibri.h--(7)> Warning! Variable 'final_addr' possible not used.
..\lib\kolibri.h--(464)> Warning! Variable 'j' possible not used.
..\lib\kolibri.h--(8)> Warning! Variable 'alloc_mem' possible not used.
..\lib\kolibri.h--(451)> Warning! Function 'copystr' possible not used.
..\lib\kolibri.h--(464)> Warning! Variable 'backup' possible not used.
..\lib\kolibri.h--(464)> Warning! Variable 'chislo' possible not used.
..\lib\kolibri.h--(465)> Warning! Variable 'buffer' possible not used.
use_library.h--(29)> Warning! Variable 'bm__' possible not used.
use_library.h--(28)> Warning! Variable 'am__' possible not used.
use_library.h--(42)> Warning! Variable 'aVersion_op' possible not used.
use_library.h--(38)> Warning! Variable 'aVersion_ch' possible not used.
use_library.h--(40)> Warning! Variable 'aOption_box_draw' possible not used.
use_library.h--(41)> Warning! Variable 'aOption_box_mouse' possible not used.
use_library.h--(36)> Warning! Variable 'aCheck_box_draw' possible not used.
use_library.h--(37)> Warning! Variable 'aCheck_box_mouse' possible not used.
..\lib\kolibri.h--(10)> Warning! Variable 'I_Param' possible not used.
..\lib\kolibri.h--(439)> Warning! Function 'PutImage' possible not used.
EditBox2.c--(13)> Warning! Variable 'NULL' possible not used.
..\lib\kolibri.h--(11)> Warning! Variable 'I_Icon' possible not used.
..\lib\kolibri.h--(510)> Warning! Structure 'CopyFile_f' possible not used.
..\lib\kolibri.h--(511)> Warning! Structure 'CopyFile_atr' possible not used.

67
programs/develop/libraries/box_lib/trunk/box_lib.asm Normal file
View File

@ -0,0 +1,67 @@
;Libray from Editbox
; SEE YOU File FAQ.txt and HISTORY. Good Like!
;Last Change 13/02/2009
;;;;;;;;;;;;;;;;;;
format MS COFF
public EXPORTS
section '.flat' code readable align 16
include 'macros.inc'
include 'editbox.mac' ;¬ ªà®á ª®â®àë© ¤®«¦¥­ ®¡«¥£ç¨âì ¦¨§­ì :) ᯥ樠«ì­® ¤«ï editbox
include 'checkbox.mac' ;¬ ªà®á ᮤ¥à¦¨â ॠ«¨§ æ¨î checkbox
include 'optionbox.mac' ;¬ ªà®á ᮤ¥à¦¨â ॠ«¨§ æ¨î optionbox
;----------------------------------------------------
;EditBox
;----------------------------------------------------
use_editbox_draw ;¬ ªà®á à ááªà뢠¥â äã­ªæ¨î ®â®¡à ¦¥­¨ï ¡®ªá .
use_editbox_key ;¬ ªà®á à ááªà뢠¥â äã­ªæ¨î ®¡à ¡®âª¨ ª« ¢¨èì.
use_editbox_mouse ;¬ ªà®á à ááªà뢠¥â äã­ªæ¨î ®¡à ¡®âª¨ ¬ëè¨.
;----------------------------------------------------
;CheckBox
;----------------------------------------------------
use_checkbox_draw ;¬ ªà®á à ááªà뢠¥â äã­ªæ¨î ®â®¡à ¦¥­¨ï ¡®ªá .
use_checkbox_mouse ;¬ ªà®á à ááªà뢠¥â äã­ªæ¨î ®¡à ¡®âª¨ ¬ëè¨.
;--------------------------------------------------
;radiobutton Group
;--------------------------------------------------
use_optionbox_driver ;¬ ªà®áë ª®â®àë¥ ã¯à ¢«ïîâ à ¡®â®© ¡®ªá  )
use_optionbox_draw ;¬ ªà®á à ááªà뢠¥â äã­ªæ¨î ®â®¡à ¦¥­¨ï ¡®ªá .
use_optionbox_mouse ;¬ ªà®á à ááªà뢠¥â äã­ªæ¨î ®¡à ¡®âª¨ ¬ëè¨.
align 16
EXPORTS:
dd sz_edit_box, edit_box
dd sz_edit_box_key, edit_box_key
dd sz_edit_box_mouse, edit_box_mouse
dd szVersion_ed, 0x00000001
dd sz_check_box_draw, check_box_draw
dd sz_check_box_mouse, check_box_mouse
dd szVersion_ch, 0x00000001
dd sz_option_box_draw, option_box_draw
dd sz_option_box_mouse, option_box_mouse
dd szVersion_op, 0x00000001
dd 0,0
sz_edit_box db 'edit_box',0
sz_edit_box_key db 'edit_box_key',0
sz_edit_box_mouse db 'edit_box_mouse',0
szVersion_ed db 'version_ed',0
sz_check_box_draw db 'check_box_draw',0
sz_check_box_mouse db 'check_box_mouse',0
szVersion_ch db 'version_ch',0
sz_option_box_draw db 'option_box_draw',0
sz_option_box_mouse db 'option_box_mouse',0
szVersion_op db 'version_op',0
;;;;;;;;;;;
;;Data
;;;;;;;;;;;
align 16
mouse_flag dd 0x0

148
programs/develop/libraries/box_lib/trunk/checkbox.mac Normal file
View File

@ -0,0 +1,148 @@
;файл создан 13.02.2009 <Lrz> На код применена GPL2 лицензия
;Макрос для системной библиотеки box_lib.obj
;Checkbox
macro use_checkbox_draw
{
check_box_draw:
;ch_struc_size=24
ch_left equ [edi] ;координата начала рисования по х
ch_top equ [edi+2] ;координата начала рисования по у
ch_text_margin equ [edi+4] ;=4 расстояние от прямоугольника чек бокса до надписи
ch_size equ [edi+8] ;12 размер квадрата чек бокса
ch_color equ [edi+12]
ch_border_color equ [edi+16] ; or [edi+4] ;цвет рамки checkbox ее можно задать самостоятельно
ch_text_color equ [edi+20];[edi+4] ;цвет текста
ch_text_ptr equ [edi+24] ;указатель на начало текстовой строки
ch_text_length equ [edi+28]
ch_flags equ [edi+32] ;флаги
pusha ;сохраним все регистры
mov edi,dword [esp+36]
mov eax,13
movzx ebx,word ch_left
shl ebx,16
add ebx,ch_size
mov ecx,ch_top
shl ecx,16
add ecx,dword ch_size
mov edx,dword ch_border_color
mcall ;рисуем рамку
mov edx,dword ch_color
add ebx,1 shl 16 - 2
add ecx,1 shl 16 - 2
mcall ;закрашиваем внутренности чекбокса
test dword ch_flags,2 ;достать значение бита из переменной и поместить в флаг CF
jz @f ;в если CF=1, то выполним следующую процедуру иначе перейти на нижнюю @@
call check_box_draw_ch ;нарисовать включенный чек бокс
@@:
;----------------------------
;расчет куда будет произведен вывод текста
;----------------------------
movzx ebx,word ch_left ;загрузить значение х для чек бокса
add ebx,dword ch_size
add ebx,dword ch_text_margin;добавить размер стороны и расстояние на котором начнется вывод текста
shl ebx,16 ;сдвинем на 16 разрядов в лево (умножим на 65536)
mov bx,word ch_top ;загрузим значение по y
add ebx,ch_size
mov ecx,dword ch_text_color ;загрузим цвет надписи + flags
sub ebx,7 ;добавим значение длины стороны -9+2
mov edx,dword ch_text_ptr ;укажем адрес от куда нужно выводить строку
mov esi,dword ch_text_length
;внесем в eax значение вывода надписи на канву
mov eax,4
mcall ;Вывод
popa ;восстановить значения регистров из стека
ret 4 ;выйдем из процедуры
check_box_clear_ch: ;очистка чек бокса
mov edx,dword ch_color ;цвет внутри чек бокса
jmp @f ;безусловный прыжок на нижнюю метку @@
check_box_draw_ch: ;нарисовать включенный чек бокс
mov edx,dword ch_border_color ;загрузить цвет
@@:
movzx ebx,word ch_left ;загрузить координату по х
mov eax,dword ch_size
push ax
shr eax,2
add ebx,eax ;добавить (сторона прямоугольника/3)
shl ebx,16 ;сдвинем на 16 разрядов в лево (умножим на 65536)
pop bx
shr bx,1 ;загрузить (сторона прямоугольника/2)
mov bp,bx ;сохраним регистр bx в регистре указателя базы
movzx ecx,word ch_top ;загрузить координату по у
mov eax,dword ch_size
shr eax,2
add ecx,eax ;добавить (сторона прямоугольника/4)
shl ecx,16 ;сдвинем на 16 разрядов в лево (умножим на 65536)
mov cx,bp ;загрузим значения регистра указателя базы в cx
mov eax,13 ;в eax - значения функции для вывода полосы т.е. по сути прямоугольника, который отображает включенный компонент чек бокс
mcall ;вывод
ret ;выйти из процедуры
}
macro use_checkbox_mouse
{
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Обработчик mouse
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
check_box_mouse: ;обработка мыши
pusha
mov edi,dword [esp+36]
mov eax,37 ;будем что то делать если у нас что - нить нажато
mov ebx,2 ;внести в регистр значение 2
mcall ;проверка не нажал ли пользователь кнопку мышки
test eax,eax ;проверка если у нас в eax=0, то установим флаг и выйдем
jnz @f ;перейти на нижнюю метку @@
btr dword ch_flags,2 ;извлечение значения заданного бита в флаг cf и изменение его значения на нулевое.
jmp check_box_mouse_end
@@:
bts dword ch_flags,2 ;проверка флага т.е. перенос в cf значение бита и установка бита в состояние включено
jc check_box_mouse_end ;если CF=1 то перейти в конец т.е. это выход
mov esi,dword ch_text_length ;загрузить кол-во символов в текстовой строке
;Умножение на 6 Быстрое умножение можно воспользоваться любым мз методов, но на старых Процессорах (386,486,P1)быстрее будет с инструкцией Lea
;lea esi,[eax*2+eax]
;shl eax,1
imul esi,6 ; или можно и так умножить на 6
add esi,dword ch_text_margin ;добавить 3 - расстояние от чек бокса до надписи
mov eax,37 ;получим координаты мышки
mov ebx,1 ;добавить 1
mcall ;получить координаты курсора относительно окна
movzx ebx,word ch_top ;загрузить в bx значение координаты у
cmp ax,bx ;сравнить с с координатой курсора
jl check_box_mouse_end ;SF <> OF если меньше
add ebx,dword ch_size ;добавить размер
cmp ax,bx ;сравнить
jg check_box_mouse_end ;ZF = 0 и SF = OF если больше
shr eax,16 ;разделим на 65536 или просто сдвинем биты на 16 значений
movzx ebx,word ch_left ;произведем аналогичное сравнение
cmp ax,bx ;сравнить регистры
jl check_box_mouse_end ;если меньше
add ebx,dword ch_size ;добавить длину стороны прямоугольника
add ebx,esi ;Учесть в значении по х еще и длину надписи к чекбоксу
cmp ax,bx ;стравнить регистры
jg check_box_mouse_end ;если больше
bts dword ch_flags,1 ;извлечение значения заданного бита в флаг cf и изменение его значения на 1.
jc @f ;CF=1 то перейти на нижнюю @@
call check_box_draw_ch ;отобразить включенный чек бокс
; mov dword [esp+24],1 ;дальнейшая проверка чек боксов бесмыслена, по этому в стек, где располагается ecx поместитм 0
jmp check_box_mouse_end ;выйти
@@:
btr word ch_flags,1 ;извлечение значения заданного бита в флаг cf и изменение его значения на нулевое.
call check_box_clear_ch ;выключить чек бокс т.е. на месте закрашенного прямоугольника отобразить цвет фона.
check_box_mouse_end:
popa ;восстановить регистры из стека
ret 4 ;выйти
}

1
programs/develop/libraries/box_lib/trunk/config.inc Normal file
View File

@ -0,0 +1 @@
__CPU_type fix p5

1397
programs/develop/libraries/box_lib/trunk/editbox.mac Normal file
View File

File diff suppressed because it is too large Load Diff

245
programs/develop/libraries/box_lib/trunk/editbox_ex.asm Normal file
View File

@ -0,0 +1,245 @@
;§ £®«®¢®ª ¯à¨«®¦¥­¨ï
use32 ; âà ­á«ïâ®à, ¨á¯®«ì§ãî騩 32 à §à來ëå ª®¬ ­¤ë
org 0x0 ; ¡ §®¢ë©  ¤à¥á ª®¤ , ¢á¥£¤  0x0
db 'MENUET01' ; ¨¤¥­â¨ä¨ª â®à ¨á¯®«­ï¥¬®£® ä ©«  (8 ¡ ©â)
dd 0x1 ; ¢¥àá¨ï ä®à¬ â  § £®«®¢ª  ¨á¯®«­ï¥¬®£® ä ©« 
dd start ;  ¤à¥á, ­  ª®â®àë© á¨á⥬  ¯¥à¥¤ ñâ ã¯à ¢«¥­¨¥
; ¯®á«¥ § £à㧪¨ ¯à¨«®¦¥­¨ï ¢ ¯ ¬ïâì
dd i_end ; à §¬¥à ¯à¨«®¦¥­¨ï
dd mem ; Ž¡ê¥¬ ¨á¯®«ì§ã¥¬®© ¯ ¬ïâ¨, ¤«ï á⥪  ®â¢¥¤¥¬ 0å100 ¡ ©â ¨ ¢ë஢­¨¬ ­  £à­¨æã 4 ¡ ©â 
dd mem ; à á¯®«®¦¨¬ ¯®§¨æ¨î á⥪  ¢ ®¡« á⨠¯ ¬ïâ¨, áࠧ㠧  ⥫®¬ ¯à®£à ¬¬ë. ‚¥à設  á⥪  ¢ ¤¨ ¯ §®­¥ ¯ ¬ïâ¨, 㪠§ ­­®¬ ¢ëè¥
dd 0x0 ; 㪠§ â¥«ì ­  áâபã á ¯ à ¬¥âà ¬¨.
dd way_of_ini
include 'macros.inc'
include 'editbox_ex.mac'
start:
;Get way for ini file.
mov edi,way_of_ini
mov ecx,1024
xor eax,eax
cld
repne scasb
test ecx,ecx
jz @f
mov esi,1024
sub esi,ecx
mov ecx,esi
std
mov al,'/'
repne scasb
test ecx,ecx
jz next_way
add edi,2
@@:
mov esi,ini_file
cld
@@: lodsb
test al,al
jz @f
stosb
jmp @b
@@: xor eax,eax
stosb
; load DLL
mov ecx,way_of_ini
mov eax, 68
mov ebx, 19
mcall
test eax, eax
jz next_way
jmp import_init_
next_way:
mov ecx,ini_file
mov eax, 68
mov ebx, 19
mcall
test eax, eax
jz exit
import_init_:
; initialize import
mov edx, eax
mov esi,myimport
import_loop:
lodsd
test eax, eax
jz import_done
push edx
import_find:
mov ebx, [edx]
test ebx, ebx
jz exit;import_not_found
push eax
@@:
mov cl, [eax]
cmp cl, [ebx]
jnz import_find_next
test cl, cl
jz import_found
inc eax
inc ebx
jmp @b
import_find_next:
pop eax
add edx, 8
jmp import_find
import_found:
pop eax
mov eax, [edx+4]
mov [esi-4], eax
pop edx
jmp import_loop
import_done:
mcall 40,0x27 ;ãáâ ­®¢¨âì ¬ áªã ¤«ï ®¦¨¤ ¥¬ëå ᮡë⨩
red_win:
call draw_window ;¯¥à¢®­ ç «ì­® ­¥®¡å®¤¨¬® ­ à¨á®¢ âì ®ª­®
align 4
still: ;®á­®¢­®© ®¡à ¡®â稪
mcall 10 ;Ž¦¨¤ âì ᮡëâ¨ï
dec eax
jz red_win
dec eax
jz key
dec eax
jz button
push dword edit1
call [edit_box_mouse]
push dword edit2
call [edit_box_mouse]
push dword check1
call [check_box_mouse]
push dword check2
call [check_box_mouse]
push dword Option_boxs
call [option_box_mouse]
push dword Option_boxs2
call [option_box_mouse]
jmp still ;¥á«¨ ­¨ç¥£® ¨§ ¯¥à¥ç¨á«¥­­®£® â® á­®¢  ¢ 横«
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
button:
mcall 17 ;¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª« ¢¨è¨
test ah,ah ;¥á«¨ ¢ ah 0, â® ¯¥à¥©â¨ ­  ®¡à ¡®â稪 ᮡë⨩ still
jz still
exit: mcall -1
key:
mcall 2 ;§ £à㧨¬ §­ ç¥­¨¥ 2 ¢ ॣ¨áâ®à eax ¨ ¯®«ã稬 ª®¤ ­ ¦ â®© ª« ¢¨è¨
push dword edit1
call [edit_box_key]
push dword edit2
call [edit_box_key]
jmp still
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
align 4
draw_window: ;à¨á®¢ ­¨¥ ®ª­  ¯à¨«®¦¥­¨ï
mcall 12,1
mcall 0,(50*65536+390),(30*65536+200),0xb3AABBCC,0x805080DD,hed
push dword edit1
call [edit_box_draw]
push dword edit2
call [edit_box_draw]
push dword check1
call [check_box_draw]
push dword check2
call [check_box_draw]
push dword Option_boxs
call [option_box_draw]
push dword Option_boxs2
call [option_box_draw]
mcall 12,2
ret
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;DATA ¤ ­­ë¥
ini_file db '/sys/lib/box_lib.obj',0
myimport:
edit_box_draw dd aEdit_box_draw
edit_box_key dd aEdit_box_key
edit_box_mouse dd aEdit_box_mouse
version_ed dd aVersion_ed
check_box_draw dd aCheck_box_draw
check_box_mouse dd aCheck_box_mouse
version_ch dd aVersion_ch
option_box_draw dd aOption_box_draw
option_box_mouse dd aOption_box_mouse
version_op dd aVersion_op
dd 0
dd 0
aEdit_box_draw db 'edit_box',0
aEdit_box_key db 'edit_box_key',0
aEdit_box_mouse db 'edit_box_mouse',0
aVersion_ed db 'version_ed',0
aCheck_box_draw db 'check_box_draw',0
aCheck_box_mouse db 'check_box_mouse',0
aVersion_ch db 'version_ch',0
aOption_box_draw db 'option_box_draw',0
aOption_box_mouse db 'option_box_mouse',0
aVersion_op db 'version_op',0
check1 check_box 10,45,6,12,0x80AABBCC,0,0,check_text,14,ch_flag_en
check2 check_box 10,60,6,12,0x80AABBCC,0,0,check_text2,15
edit1 edit_box 350,3,5,0xffffff,0x6f9480,0,0xAABBCC,0,308,hed,ed_focus,hed_end-hed-1,hed_end-hed-1
edit2 edit_box 350,3,25,0xffffff,0x6a9480,0,0,0,99,ed_buffer,ed_figure_only
op1 option_box option_group1,10,90,6,12,0xffffff,0,0,op_text.1,op_text.e1-op_text.1
op2 option_box option_group1,10,105,6,12,0xFFFFFF,0,0,op_text.2,op_text.e2-op_text.2
op3 option_box option_group1,10,120,6,12,0xffffff,0,0,op_text.3,op_text.e3-op_text.3
op11 option_box option_group2,120,90,6,12,0xffffff,0,0,op_text.1,op_text.e1-op_text.1
op12 option_box option_group2,120,105,6,12,0xffffff,0,0,op_text.2,op_text.e2-op_text.2
op13 option_box option_group2,120,120,6,12,0xffffff,0,0,op_text.3,op_text.e3-op_text.3
option_group1 dd op1 ;㪠§ â¥«¨, ®­¨ ®â®¡à ¦ îâáï ¯® 㬮«ç ­¨î, ª®£¤  ¢ë¢®¤¨âáï
option_group2 dd op12 ;¯à¨«®¦¥­¨¥
Option_boxs dd op1,op2,op3,0
Option_boxs2 dd op11,op12,op13,0
hed db 'BOXs load from lib <Lrz> date 27.09.2007',0
hed_end:
rb 256
check_text db 'First checkbox'
check_text2 db 'Second checkbox'
op_text: ; ‘®¯à®¢®¦¤ î騩 ⥪áâ ¤«ï 祪 ¡®ªá®¢
.1 db 'Option_Box #1'
.e1:
.2 db 'Option_Box #2'
.e2:
.3 db 'Option_Box #3'
.e3:
ed_buffer rb 100
way_of_ini rb 1024
i_end:
rb 1024
mem:

BIN
programs/develop/libraries/box_lib/trunk/editbox_ex.kex Normal file
View File

Binary file not shown.

77
programs/develop/libraries/box_lib/trunk/editbox_ex.mac Normal file
View File

@ -0,0 +1,77 @@
ed_struc_size=72
struc edit_box width,left,top,color,shift_color,focus_border_color,\
blur_border_color,text_color,max,text,flags,size,pos
{
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Bit mask from editbox
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ed_figure_only= 1000000000000000b ;®¤­¨ ᨬ¢®«ë
ed_always_focus= 100000000000000b
ed_focus= 10b ;䮪ãá ¯à¨«®¦¥­¨ï
ed_shift_on= 1000b ;¥á«¨ ­¥ ãáâ ­®¢«¥­ -§­ ç¨â ¢¯¥à¢ë¥ ­ ¦ â shift,¥á«¨ ¡ë« ãáâ ­®¢«¥­, §­ ç¨â ¬ë 㦥 çâ® - â® ¤¥« «¨ 㤥ন¢ ï shift
ed_shift_on_off=1111111111110111b
ed_shift= 100b ;¢ª«îç ¥âáï ¯à¨ ­ ¦ â¨¨ ­  shift â.¥. ¥á«¨ ­ ¦¨¬ î
ed_shift_off= 1111111111111011b
ed_shift_bac= 10000b ;¡¨â ¤«ï ®ç¨á⪨ ¢ë¤¥«¥­®£® shift â.¥. ¯à¨ ãáâ ­®¢ª¥ £®¢®à¨â çâ® ¥áâì ¢ë¤¥«¥­¨¥
ed_shift_bac_cl=1111111111101111b ;®ç¨á⪠ ¯à¨ 㤠«¥­¨¨ ¢ë¤¥«¥­¨ï
ed_shift_cl= 1111111111100011b
ed_shift_mcl= 1111111111111011b
ed_left_fl= 100000b
ed_right_fl= 1111111111011111b
ed_offset_fl= 1000000b
ed_offset_cl= 1111111110111111b
ed_insert= 10000000b
ed_insert_cl= 1111111101111111b
ed_mouse_on = 100000000b
ed_mous_adn_b= 100011000b
ed_mouse_on_off=1111111011111111b
ed_height=14 ; ¢ëá®â 
.width dd width
.left dd left
.top dd top
.color dd color
.shift_color dd shift_color
.focus_border_color dd focus_border_color
.blur_border_color dd blur_border_color
.text_color dd text_color
.max dd max
.text dd text
.flags dd flags+0
.size dd size+0
.pos dd pos+0
.offset dd 0
.cl_curs_x dd 0
.cl_curs_y dd 0
.shift dd 0
.shift_old dd 0
}
struc check_box left,top,ch_text_margin,ch_size,color,border_color,text_color,text,ch_text_length,flags
{ ;áâàãªâãà  ¯ à ¬¥â஢ ¤«ï 祪 ¡®ªá 
ch_flag_en=10b
.left: dw left ;+0 ;¯®«®¦¥­¨¥ ¯® å
.top: dw top ;¯®«®¦¥­¨¥ ¯® ã
.ch_text_margin: dd ch_text_margin ;à ááâ®ï­¨¥ ®â ¯àאַ㣮«ì­¨ª  祪 ¡®ªá  ¤® ­ ¤¯¨á¨
.ch_size: dd ch_size ;à §¬¥à ª¢ ¤à â  祪 ¡®ªá , ¤«ï ¯à¨¬¥à  12
.color: dd color ;梥⠢­ãâਠ祪¡®ªá 
.border_color: dd border_color ;梥â à ¬ª¨
.text_color: dd text_color ;梥⠭ ¤¯¨á¨
.text: dd text ; ¤à¥á ¢ ª®¤¥ ¯à®£à ¬¬ë £¤¥ à á¯®«®¦¥­ ⥪áâ
.ch_text_length: dd ch_text_length ;¤«¨­­  áâப¨ á ᨬ¢®« ¬¨
.flags: dd flags+0 ; ä« £¨
}
struc option_box point_gr,left,top,op_text_margin,op_size,color,border_color,text_color,text,op_text_length,flags
{ ;áâàãªâãà  ¯ à ¬¥â஢ ¤«ï 祪 ¡®ªá 
op_flag_en=10b
.option_group: dd point_gr
.left: dw left ;+0 ;¯®«®¦¥­¨¥ ¯® å
.top: dw top ;¯®«®¦¥­¨¥ ¯® ã
.ch_text_margin: dd op_text_margin ;à ááâ®ï­¨¥ ®â ¯àאַ㣮«ì­¨ª  祪 ¡®ªá  ¤® ­ ¤¯¨á¨
.ch_size: dd op_size ;à §¬¥à ª¢ ¤à â  祪 ¡®ªá , ¤«ï ¯à¨¬¥à  12
.color: dd color ;梥⠢­ãâਠ祪¡®ªá 
.border_color: dd border_color ;梥â à ¬ª¨
.text_color: dd text_color ;梥⠭ ¤¯¨á¨
.text: dd text ; ¤à¥á ¢ ª®¤¥ ¯à®£à ¬¬ë £¤¥ à á¯®«®¦¥­ ⥪áâ
.ch_text_length: dd op_text_length ;¤«¨­­  áâப¨ á ᨬ¢®« ¬¨
.flags: dd flags+0 ; ä« £¨
}

502
programs/develop/libraries/box_lib/trunk/macros.inc Normal file
View File

@ -0,0 +1,502 @@
@^ fix macro comment {
^@ fix }
macro m2m dest,src {
push src
pop dest
}
macro iglobal {
IGlobals equ IGlobals,
macro __IGlobalBlock { }
macro uglobal {
UGlobals equ UGlobals,
macro __UGlobalBlock { }
endg fix } ; Use endg for ending iglobal and uglobal blocks.
macro IncludeIGlobals{
macro IGlobals dummy,[n] \{ __IGlobalBlock
purge __IGlobalBlock \}
match I, IGlobals \{ I \} }
macro IncludeUGlobals{
macro UGlobals dummy,[n] \{
\common
\local begin, size
begin = $
virtual at $
\forward
__UGlobalBlock
purge __UGlobalBlock
\common
size = $ - begin
end virtual
rb size
\}
match U, UGlobals \{ U \} }
uglobal
endg
iglobal
endg
; new application structure
macro meos_app_start
{
use32
org 0x0
db 'MENUET01'
dd 0x01
dd __start
dd __end
dd __memory
dd __stack
if used __params & ~defined __params
dd __params
else
dd 0x0
end if
dd 0x0
}
MEOS_APP_START fix meos_app_start
macro code
{
__start:
}
CODE fix code
macro data
{
__data:
IncludeIGlobals
}
DATA fix data
macro udata
{
if used __params & ~defined __params
__params:
db 0
__end:
rb 255
else
__end:
end if
__udata:
IncludeUGlobals
}
UDATA fix udata
macro meos_app_end
{
align 32
rb 2048
__stack:
__memory:
}
MEOS_APP_END fix meos_app_end
; macro for defining multiline text data
struc mstr [sstring]
{
forward
local ssize
virtual at 0
db sstring
ssize = $
end virtual
dd ssize
db sstring
common
dd -1
}
; macro for defining multiline text data
struc mls [sstring]
{
forward
local ssize
virtual at 0
db sstring ; mod
ssize = $
end virtual
db ssize
db sstring
common
db -1 ; mod
}
; strings
macro sz name,[data] { ; from MFAR [mike.dld]
common
if used name
name db data
.size = $-name
end if
}
macro lsz name,[lng,data] { ; from MFAR [mike.dld]
common
if used name
label name
forward
if lang eq lng
db data
end if
common
.size = $-name
end if
}
macro szc name,elsz,[data] { ; from MFAR [mike.dld]
common
local s,m
m = 0
if used name
label name
forward
virtual at 0
db data
s = $
end virtual
d#elsz s
if m < s
m = s
end if
db data
common
.size = $-name
.maxl = m
end if
}
macro lszc name,elsz,[lng,data] { ; from MFAR [mike.dld]
common
local s,m,c
m = 0
c = 0
if used name
label name
forward
if lang eq lng
virtual at 0
db data
s = $
end virtual
d#elsz s
if m < s
m = s
end if
db data
c = c+1
end if
common
.size = $-name
.maxl = m
.count = c
end if
}
; easy system call macro
macro mpack dest, hsrc, lsrc
{
if (hsrc eqtype 0) & (lsrc eqtype 0)
mov dest, (hsrc) shl 16 + lsrc
else
if (hsrc eqtype 0) & (~lsrc eqtype 0)
mov dest, (hsrc) shl 16
add dest, lsrc
else
mov dest, hsrc
shl dest, 16
add dest, lsrc
end if
end if
}
macro __mov reg,a,b { ; mike.dld
if (~a eq)&(~b eq)
mpack reg,a,b
else if (~a eq)&(b eq)
mov reg,a
end if
}
include 'config.inc'
;__CPU_type equ p5
SYSENTER_VAR equ 0
macro mcall a,b,c,d,e,f,i { ; mike.dld, updated by Ghost for Fast System Calls
local ..ret_point
__mov eax,a
__mov ebx,b
__mov ecx,c
__mov edx,d
__mov esi,e
__mov edi,f
__mov ebp,i
if __CPU_type eq p5
int 0x40
else
if __CPU_type eq p6
push ebp
mov ebp, esp
push ..ret_point ; it may be 2 or 5 byte
sysenter
..ret_point:
pop edx
pop ecx
else
if __CPU_type eq k6
push ecx
syscall
pop ecx
else
display 'ERROR : unknown CPU type'
int 0x40
end if
end if
end if
}
; -------------------------
macro header a,[b] {
common
use32
org 0
db 'MENUET',a
forward
if b eq
dd 0
else
dd b
end if }
macro section name { align 16
label name }
macro func name {
if ~used name
display 'FUNC NOT USED: ',`name,13,10
else
align 4
name:
;diff16 `name,0,name
;pushad
;pushfd
;dps `name
;newline
;mcall 5,1
;popfd
;popad
}
macro endf { end if }
macro diff16 title,l1,l2
{
local s,d
s = l2-l1
display title,': 0x'
repeat 8
d = '0' + s shr ((8-%) shl 2) and $0F
if d > '9'
d = d + 'A'-'9'-1
end if
display d
end repeat
display 13,10
}
macro diff10 title,l1,l2
{
local s,d,z,m
s = l2-l1
z = 0
m = 1000000000
display title,': '
repeat 10
d = '0' + s / m
s = s - (s/m)*m
m = m / 10
if d <> '0'
z = 1
end if
if z <> 0
display d
end if
end repeat
display 13,10
}
; optimize the code for size
__regs fix <eax,ebx,ecx,edx,esi,edi,ebp,esp>
macro add arg1,arg2
{
if (arg2 eqtype 0)
if (arg2) = 1
inc arg1
else
add arg1,arg2
end if
else
add arg1,arg2
end if
}
macro sub arg1,arg2
{
if (arg2 eqtype 0)
if (arg2) = 1
dec arg1
else
sub arg1,arg2
end if
else
sub arg1,arg2
end if
}
macro mov arg1,arg2
{
if (arg1 in __regs) & ((arg2 eqtype 0) | (arg2 eqtype '0'))
if (arg2) = 0
xor arg1,arg1
else if (arg2) = 1
xor arg1,arg1
inc arg1
else if (arg2) = -1
or arg1,-1
else if (arg2) > -128 & (arg2) < 128
push arg2
pop arg1
else
mov arg1,arg2
end if
else
mov arg1,arg2
end if
}
macro RGB [a] {
common
match (r=,g=,b),a \{
\dd ((r) shl 16) or ((g) shl 8) or (b)
\}
}
struc POINT _t,_dx,_dy {
.x _t _dx
.y _t _dy
}
; structure definition helper
include 'struct.inc'
struct RECT
left dd ?
top dd ?
right dd ?
bottom dd ?
ends
struct BOX
left dd ?
top dd ?
width dd ?
height dd ?
ends
; structures used in MeOS
struct process_information
cpu_usage dd ? ; +0
window_stack_position dw ? ; +4
window_stack_value dw ? ; +6
dw ? ; +8
process_name rb 12 ; +10
memory_start dd ? ; +22
used_memory dd ? ; +26
PID dd ? ; +30
box BOX ; +34
slot_state dw ? ; +50
dw ? ; +52
client_box BOX ; +54
wnd_state db ? ; +70
rb (1024-71)
ends
struct system_colors
frame dd ?
grab dd ?
grab_button dd ?
grab_button_text dd ?
grab_text dd ?
work dd ?
work_button dd ?
work_button_text dd ?
work_text dd ?
work_graph dd ?
ends
struct FILEDATE
Second db ?
Minute db ?
Hour db ?
db ?
Day db ?
Month db ?
Year dw ?
ends
struct FILEINFO
Attributes dd ?
IsUnicode db ?
db 3 dup(?)
DateCreate FILEDATE
DateAccess FILEDATE
DateModify FILEDATE
Size dq ?
ends
; constants
; events
EV_IDLE = 0
EV_TIMER = 0
EV_REDRAW = 1
EV_KEY = 2
EV_BUTTON = 3
EV_EXIT = 4
EV_BACKGROUND = 5
EV_MOUSE = 6
EV_IPC = 7
EV_STACK = 8
; event mask bits for function 40
EVM_REDRAW = 1b
EVM_KEY = 10b
EVM_BUTTON = 100b
EVM_EXIT = 1000b
EVM_BACKGROUND = 10000b
EVM_MOUSE = 100000b
EVM_IPC = 1000000b
EVM_STACK = 10000000b

201
programs/develop/libraries/box_lib/trunk/optionbox.mac Normal file
View File

@ -0,0 +1,201 @@
;файл создан 13.02.2009 <Lrz> На код применена GPL2 лицензия
;Макрос для системной библиотеки box_lib.obj
;Optionbox
macro use_optionbox_driver ;макросы которые управляют работой бокса )
{
option_box_draw:
pusha
mov eax,dword [esp+36]
@@: mov edi,dword [eax]
test edi,edi
je option_check
call option_box_draw_box
add eax,4
jmp @b
option_check:
mov eax,dword [esp+36]
@@: mov edi,dword [eax]
test edi,edi
je @f
mov ebx,dword [edi]
mov ebx,dword [ebx]
cmp edi,ebx
jne .clear_op
pusha
call option_box_draw_op
popa
add eax,4
jmp @b
.clear_op:
pusha
call option_box_clear_op
popa
add eax,4
jmp @b
@@: popa
ret 4
; exit вообще :)
option_box_mouse:
pusha
mov eax,dword [esp+36]
@@: mov edi,dword [eax]
test edi,edi
je option_check
call option_box_mouse_op
add eax,4
jmp @b
}
macro use_optionbox_draw
{
option_box_draw_box:
option_group equ [edi]
op_left equ [edi+4] ;координата начала рисования по х
op_top equ [edi+6] ;координата начала рисования по у
op_text_margin equ [edi+8] ;=4 расстояние от прямоугольника чек бокса до надписи
op_size equ [edi+12] ;12 размер квадрата чек бокса
op_color equ [edi+16]
op_border_color equ [edi+20] ; or [edi+4] ;цвет рамки checkbox ее можно задать самостоятельно
op_text_color equ [edi+24];[edi+4] ;цвет текста
op_text_ptr equ [edi+28] ;указатель на начало текстовой строки
op_text_length equ [edi+32]
op_flags equ [edi+36] ;флаги
pusha ;сохраним все регистры
movzx ebx,word op_left
shl ebx,16
add ebx,dword op_size
movzx ecx,word op_top
shl ecx,16
add ecx,dword op_size
mov edx,dword op_border_color
mov eax,13
mcall ;рисуем рамку
mov edx,dword op_color
add ebx,1 shl 16 - 2
add ecx,1 shl 16 - 2
mcall ;закрашиваем внутренности чекбокса
; mov eax,dword option_group
; mov dword eax,[eax]
; cmp eax,edi
; jne @f
; call option_box_draw_op ;нарисовать включенный чек бокс
;----------------------------
;расчет куда будет произведен вывод текста
;----------------------------
@@: movzx ebx,word op_left ;загрузить значение х для чек бокса
add ebx,dword op_size
add ebx,dword op_text_margin;добавить размер стороны и расстояние на котором начнется вывод текста
shl ebx,16 ;сдвинем на 16 разрядов в лево (умножим на 65536)
mov bx,word op_top ;загрузим значение по y
add ebx,op_size
mov ecx,dword op_text_color ;загрузим цвет надписи + flags
sub ebx,7 ;добавим значение длины стороны -9+2
mov edx,dword op_text_ptr ;укажем адрес от куда нужно выводить строку
mov esi,dword op_text_length
;внесем в eax значение вывода надписи на канву
mov eax,4
mcall ;Вывод
popa ;восстановить значения регистров из стека
ret ;выйдем из процедуры
option_box_clear_op: ;очистка чек бокса
mov edx,dword op_color ;цвет внутри чек бокса
jmp @f ;безусловный прыжок на нижнюю метку @@
option_box_draw_op: ;нарисовать включенный чек бокс
mov edx,dword op_border_color ;загрузить цвет
@@:
movzx ebx,word op_left ;загрузить координату по х
mov eax,dword op_size
push ax
shr eax,2
add ebx,eax ;добавить (сторона прямоугольника/3)
shl ebx,16 ;сдвинем на 16 разрядов в лево (умножим на 65536)
pop bx
shr bx,1 ;загрузить (сторона прямоугольника/2)
mov bp,bx ;сохраним регистр bx в регистре указателя базы
movzx ecx,word op_top ;загрузить координату по у
mov eax,dword op_size
shr eax,2
add ecx,eax ;добавить (сторона прямоугольника/4)
shl ecx,16 ;сдвинем на 16 разрядов в лево (умножим на 65536)
mov cx,bp ;загрузим значения регистра указателя базы в cx
mov eax,13 ;в eax - значения функции для вывода полосы т.е. по сути прямоугольника, который отображает включенный компонент чек бокс
mcall ;вывод
ret ;выйти из процедуры
}
macro use_optionbox_mouse
{
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Обработчик mouse
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
option_box_mouse_op: ;обработка мыши
pusha
mov eax,37 ;будем что то делать если у нас что - нить нажато
mov ebx,2 ;внести в регистр значение 2
mcall ;проверка не нажал ли пользователь кнопку мышки
test eax,eax ;проверка если у нас в eax=0, то установим флаг и выйдем
jnz @f ;перейти на нижнюю метку @@
jmp option_box_mouse_end
;если ничего не произошло, то восстановим значения регистров из стека
;выход
@@:
mov esi,dword op_text_length ;загрузить кол-во символов в текстовой строке
;Умножение на 6 Быстрое умножение можно воспользоваться любым мз методов, но на старых Процессорах (386,486,P1)быстрее будет с инструкцией Lea
;lea esi,[eax*2+eax]
;shl eax,1
imul esi,6 ; или можно и так умножить на 6
xor ebx,ebx
add esi,dword op_text_margin ;добавить 3 - расстояние от чек бокса до надписи
mov eax,37 ;получим координаты мышки
inc ebx ;добавить 1
mcall ;получить координаты курсора относительно окна
movzx ebx,word op_top ;загрузить в bx значение координаты у
cmp ax,bx ;сравнить с с координатой курсора
jl option_box_mouse_end ;SF <> OF если меньше
add ebx,dword op_size ;добавить размер
cmp ax,bx ;сравнить
jg option_box_mouse_end ;ZF = 0 и SF = OF если больше
shr eax,16 ;разделим на 65536 или просто сдвинем биты на 16 значений
movzx ebx,word op_left ;произведем аналогичное сравнение
cmp ax,bx ;сравнить регистры
jl option_box_mouse_end ;если меньше
add ebx,dword op_size ;добавить длину стороны прямоугольника
add ebx,esi ;Учесть в значении по х еще и длину надписи к чекбоксу
cmp ax,bx ;стравнить регистры
jg option_box_mouse_end ;если больше
mov eax,dword option_group
mov [eax],edi
option_box_mouse_end:
popa ;восстановить регистры из стека
ret ;выйти
}

270
programs/develop/libraries/box_lib/trunk/proc32.inc Normal file
View File

@ -0,0 +1,270 @@
; Macroinstructions for defining and calling procedures
macro stdcall proc,[arg] ; directly call STDCALL procedure
{ common
if ~ arg eq
reverse
pushd arg
common
end if
call proc }
macro invoke proc,[arg] ; indirectly call STDCALL procedure
{ common
if ~ arg eq
reverse
pushd arg
common
end if
call [proc] }
macro ccall proc,[arg] ; directly call CDECL procedure
{ common
size@ccall = 0
if ~ arg eq
reverse
pushd arg
size@ccall = size@ccall+4
common
end if
call proc
if size@ccall
add esp,size@ccall
end if }
macro cinvoke proc,[arg] ; indirectly call CDECL procedure
{ common
size@ccall = 0
if ~ arg eq
reverse
pushd arg
size@ccall = size@ccall+4
common
end if
call [proc]
if size@ccall
add esp,size@ccall
end if }
macro proc [args] ; define procedure
{ common
match name params, args>
\{ define@proc name,<params \} }
prologue@proc equ prologuedef
macro prologuedef procname,flag,parmbytes,localbytes,reglist
{ if parmbytes | localbytes
push ebp
mov ebp,esp
if localbytes
sub esp,localbytes
end if
end if
irps reg, reglist \{ push reg \} }
epilogue@proc equ epiloguedef
macro epiloguedef procname,flag,parmbytes,localbytes,reglist
{ irps reg, reglist \{ reverse pop reg \}
if parmbytes | localbytes
leave
end if
if flag and 10000b
retn
else
retn parmbytes
end if }
macro define@proc name,statement
{ local params,flag,regs,parmbytes,localbytes,current
if used name
name:
match =stdcall args, statement \{ params equ args
flag = 11b \}
match =stdcall, statement \{ params equ
flag = 11b \}
match =c args, statement \{ params equ args
flag = 10001b \}
match =c, statement \{ params equ
flag = 10001b \}
match =params, params \{ params equ statement
flag = 0 \}
virtual at ebp+8
match =uses reglist=,args, params \{ regs equ reglist
params equ args \}
match =regs =uses reglist, regs params \{ regs equ reglist
params equ \}
match =regs, regs \{ regs equ \}
match =,args, params \{ defargs@proc args \}
match =args@proc args, args@proc params \{ defargs@proc args \}
parmbytes = $ - (ebp+8)
end virtual
name # % = parmbytes/4
all@vars equ
current = 0
match prologue:reglist, prologue@proc:<regs> \{ prologue name,flag,parmbytes,localbytes,reglist \}
macro locals
\{ virtual at ebp-localbytes+current
macro label def \\{ match . type,def> \\\{ deflocal@proc .,label,<type \\\} \\}
struc db [val] \\{ \common deflocal@proc .,db,val \\}
struc du [val] \\{ \common deflocal@proc .,du,val \\}
struc dw [val] \\{ \common deflocal@proc .,dw,val \\}
struc dp [val] \\{ \common deflocal@proc .,dp,val \\}
struc dd [val] \\{ \common deflocal@proc .,dd,val \\}
struc dt [val] \\{ \common deflocal@proc .,dt,val \\}
struc dq [val] \\{ \common deflocal@proc .,dq,val \\}
struc rb cnt \\{ deflocal@proc .,rb cnt, \\}
struc rw cnt \\{ deflocal@proc .,rw cnt, \\}
struc rp cnt \\{ deflocal@proc .,rp cnt, \\}
struc rd cnt \\{ deflocal@proc .,rd cnt, \\}
struc rt cnt \\{ deflocal@proc .,rt cnt, \\}
struc rq cnt \\{ deflocal@proc .,rq cnt, \\} \}
macro endl
\{ purge label
restruc db,du,dw,dp,dd,dt,dq
restruc rb,rw,rp,rd,rt,rq
current = $-(ebp-localbytes)
end virtual \}
macro ret operand
\{ match any, operand \\{ retn operand \\}
match , operand \\{ match epilogue:reglist, epilogue@proc:<regs>
\\\{ epilogue name,flag,parmbytes,localbytes,reglist \\\} \\} \}
macro finish@proc \{ localbytes = (((current-1) shr 2)+1) shl 2
end if \} }
macro defargs@proc [arg]
{ common
if ~ arg eq
forward
local ..arg,current@arg
match argname:type, arg
\{ current@arg equ argname
label ..arg type
argname equ ..arg
if dqword eq type
dd ?,?,?,?
else if tbyte eq type
dd ?,?,?
else if qword eq type | pword eq type
dd ?,?
else
dd ?
end if \}
match =current@arg,current@arg
\{ current@arg equ arg
arg equ ..arg
..arg dd ? \}
common
args@proc equ current@arg
forward
restore current@arg
common
end if }
macro deflocal@proc name,def,[val]
{ common
match vars, all@vars \{ all@vars equ all@vars, \}
all@vars equ all@vars name
forward
local ..var,..tmp
match =label,def \{ ..tmp equ \}
match tmp,..tmp \{ ..var def val \}
match ,..tmp \{ label ..var val \}
match =?, val \{ ..tmp equ \}
match any =dup (=?), val \{ ..tmp equ \}
match tmp : value, ..tmp : val
\{ tmp: end virtual
initlocal@proc ..var,def value
virtual at tmp\}
common
match first rest, ..var, \{ name equ first \} }
macro initlocal@proc name,def
{ virtual at name
def
size@initlocal = $ - name
end virtual
position@initlocal = 0
while size@initlocal > position@initlocal
virtual at name
def
if size@initlocal - position@initlocal < 2
current@initlocal = 1
load byte@initlocal byte from name+position@initlocal
else if size@initlocal - position@initlocal < 4
current@initlocal = 2
load word@initlocal word from name+position@initlocal
else
current@initlocal = 4
load dword@initlocal dword from name+position@initlocal
end if
end virtual
if current@initlocal = 1
mov byte [name+position@initlocal],byte@initlocal
else if current@initlocal = 2
mov word [name+position@initlocal],word@initlocal
else
mov dword [name+position@initlocal],dword@initlocal
end if
position@initlocal = position@initlocal + current@initlocal
end while }
macro endp
{ purge ret,locals,endl
finish@proc
purge finish@proc
restore regs@proc
match all,args@proc \{ restore all \}
restore args@proc
match all,all@vars \{ restore all \} }
macro local [var]
{ common
locals
forward done@local equ
match varname[count]:vartype, var
\{ match =BYTE, vartype \\{ varname rb count
restore done@local \\}
match =WORD, vartype \\{ varname rw count
restore done@local \\}
match =DWORD, vartype \\{ varname rd count
restore done@local \\}
match =PWORD, vartype \\{ varname rp count
restore done@local \\}
match =QWORD, vartype \\{ varname rq count
restore done@local \\}
match =TBYTE, vartype \\{ varname rt count
restore done@local \\}
match =DQWORD, vartype \\{ label varname dqword
rq count+count
restore done@local \\}
match , done@local \\{ virtual
varname vartype
end virtual
rb count*sizeof.\#vartype
restore done@local \\} \}
match :varname:vartype, done@local:var
\{ match =BYTE, vartype \\{ varname db ?
restore done@local \\}
match =WORD, vartype \\{ varname dw ?
restore done@local \\}
match =DWORD, vartype \\{ varname dd ?
restore done@local \\}
match =PWORD, vartype \\{ varname dp ?
restore done@local \\}
match =QWORD, vartype \\{ varname dq ?
restore done@local \\}
match =TBYTE, vartype \\{ varname dt ?
restore done@local \\}
match =DQWORD, vartype \\{ label varname dqword
dq ?,?
restore done@local \\}
match , done@local \\{ varname vartype
restore done@local \\} \}
match ,done@local
\{ var
restore done@local \}
common
endl }

14
programs/develop/libraries/box_lib/trunk/readme.txt Normal file
View File

@ -0,0 +1,14 @@
<Lrz> Теплов Алексей, Челябинск.
Пример простого испльзования editbox в библиотеке,
EditBox переписан для работы в библиотеке.
Дата 25.06.2008
сделана поддержка запуска ассемблерного примера при расположении текущей библиотеки по 2-м местам
1. /sys/lib/box_lib.obj и когда библиотека находиться в папке с программой.
Дата 21.09.2007
Сделан упор на поддрежку С и передачи параметров в стеке stdcall.
На данный момент, носит эксперементальный, тестовый характер.
Библиотеку box_lib.obj нужно поместить в папку с выполняющейся программой editbox_ex, или по адресу /sys/lib/? но тогда нужно подменить путь в файле ini_file на путь к библиотеке
. Пример сам вычисляет путь к библиотеке, не зависимо от своего месторасположения
13.09.2009 - обработка клавишь NUM, Caps,Scroll Lock. При нажатии на них, не происходит отображение символа.
24.09.2007 - сделал поддрежку checkbox. Добавил ошибки, программа глючит очень серьезно :(

4
programs/develop/libraries/box_lib/trunk/run.bat Normal file
View File

@ -0,0 +1,4 @@
@fasm.exe -m 16384 box_lib.asm
@fasm.exe -m 16384 editbox_ex.asm editbox_ex.kex
REM ..\FASM\kpack.exe editbox_ex
@klbrinwin.exe editbox_ex.kex

180
programs/develop/libraries/box_lib/trunk/struct.inc Normal file
View File

@ -0,0 +1,180 @@
; Macroinstructions for defining data structures
macro struct name
{ fields@struct equ name
match child parent, name \{ fields@struct equ child,fields@\#parent \}
sub@struct equ
struc db [val] \{ \common fields@struct equ fields@struct,.,db,<val> \}
struc dw [val] \{ \common fields@struct equ fields@struct,.,dw,<val> \}
struc du [val] \{ \common fields@struct equ fields@struct,.,du,<val> \}
struc dd [val] \{ \common fields@struct equ fields@struct,.,dd,<val> \}
struc dp [val] \{ \common fields@struct equ fields@struct,.,dp,<val> \}
struc dq [val] \{ \common fields@struct equ fields@struct,.,dq,<val> \}
struc dt [val] \{ \common fields@struct equ fields@struct,.,dt,<val> \}
struc rb count \{ fields@struct equ fields@struct,.,db,count dup (?) \}
struc rw count \{ fields@struct equ fields@struct,.,dw,count dup (?) \}
struc rd count \{ fields@struct equ fields@struct,.,dd,count dup (?) \}
struc rp count \{ fields@struct equ fields@struct,.,dp,count dup (?) \}
struc rq count \{ fields@struct equ fields@struct,.,dq,count dup (?) \}
struc rt count \{ fields@struct equ fields@struct,.,dt,count dup (?) \}
macro db [val] \{ \common \local anonymous
fields@struct equ fields@struct,anonymous,db,<val> \}
macro dw [val] \{ \common \local anonymous
fields@struct equ fields@struct,anonymous,dw,<val> \}
macro du [val] \{ \common \local anonymous
fields@struct equ fields@struct,anonymous,du,<val> \}
macro dd [val] \{ \common \local anonymous
fields@struct equ fields@struct,anonymous,dd,<val> \}
macro dp [val] \{ \common \local anonymous
fields@struct equ fields@struct,anonymous,dp,<val> \}
macro dq [val] \{ \common \local anonymous
fields@struct equ fields@struct,anonymous,dq,<val> \}
macro dt [val] \{ \common \local anonymous
fields@struct equ fields@struct,anonymous,dt,<val> \}
macro rb count \{ \local anonymous
fields@struct equ fields@struct,anonymous,db,count dup (?) \}
macro rw count \{ \local anonymous
fields@struct equ fields@struct,anonymous,dw,count dup (?) \}
macro rd count \{ \local anonymous
fields@struct equ fields@struct,anonymous,dd,count dup (?) \}
macro rp count \{ \local anonymous
fields@struct equ fields@struct,anonymous,dp,count dup (?) \}
macro rq count \{ \local anonymous
fields@struct equ fields@struct,anonymous,dq,count dup (?) \}
macro rt count \{ \local anonymous
fields@struct equ fields@struct,anonymous,dt,count dup (?) \}
macro union \{ fields@struct equ fields@struct,,union,<
sub@struct equ union \}
macro struct \{ fields@struct equ fields@struct,,substruct,<
sub@struct equ substruct \}
virtual at 0 }
macro ends
{ match , sub@struct \{ restruc db,dw,du,dd,dp,dq,dt
restruc rb,rw,rd,rp,rq,rt
purge db,dw,du,dd,dp,dq,dt
purge rb,rw,rd,rp,rq,rt
purge union,struct
match name=,fields,fields@struct \\{ fields@struct equ
make@struct name,fields
fields@\\#name equ fields \\}
end virtual \}
match any, sub@struct \{ fields@struct equ fields@struct> \}
restore sub@struct }
macro make@struct name,[field,type,def]
{ common
if $
display 'Error: definition of ',`name,' contains illegal instructions.',0Dh,0Ah
err
end if
local define
define equ name
forward
local sub
match , field \{ make@substruct type,name,sub def
define equ define,.,sub, \}
match any, field \{ define equ define,.#field,type,<def> \}
common
match fields, define \{ define@struct fields \} }
macro define@struct name,[field,type,def]
{ common
local list
list equ
forward
if ~ field eq .
name#field type def
sizeof.#name#field = $ - name#field
else
rb sizeof.#type
end if
local value
match any, list \{ list equ list, \}
list equ list <value>
common
sizeof.#name = $
restruc name
match values, list \{
struc name value \\{
match any, fields@struct \\\{ fields@struct equ fields@struct,.,name,<values> \\\}
match , fields@struct \\\{ label .
forward
match , value \\\\{ field type def \\\\}
match any, value \\\\{ field type value
if ~ field eq .
rb sizeof.#name#field - ($-field)
end if \\\\}
common \\\} \\} \} }
macro enable@substruct
{ macro make@substruct substruct,parent,name,[field,type,def]
\{ \common
\local define
define equ parent,name
\forward
\local sub
match , field \\{ match any, type \\\{ enable@substruct
make@substruct type,name,sub def
purge make@substruct
define equ define,.,sub, \\\} \\}
match any, field \\{ define equ define,.\#field,type,<def> \\}
\common
match fields, define \\{ define@\#substruct fields \\} \} }
enable@substruct
macro define@union parent,name,[field,type,def]
{ common
virtual at 0
forward
if ~ field eq .
virtual at 0
parent#field type def
sizeof.#parent#field = $ - parent#field
end virtual
if sizeof.#parent#field > $
rb sizeof.#parent#field - $
end if
else if sizeof.#type > $
rb sizeof.#type - $
end if
common
sizeof.#name = $
end virtual
struc name [value] \{ \common
label .\#name
last@union equ
forward
match any, last@union \\{ virtual at .\#name
field type def
end virtual \\}
match , last@union \\{ match , value \\\{ field type def \\\}
match any, value \\\{ field type value \\\} \\}
last@union equ field
common rb sizeof.#name - ($ - .\#name) \} }
macro define@substruct parent,name,[field,type,def]
{ common
virtual at 0
forward
if ~ field eq .
parent#field type def
sizeof.#parent#field = $ - parent#field
else
rb sizeof.#type
end if
local value
common
sizeof.#name = $
end virtual
struc name value \{
label .\#name
forward
match , value \\{ field type def \\}
match any, value \\{ field type value
if ~ field eq .
rb sizeof.#parent#field - ($-field)
end if \\}
common \} }