| 0,0 → 1,620 |
|---|
| #startaddress 0 |
| #code32 TRUE |
| |
| char os_name[8] = {'M','E','N','U','E','T','0','1'}; |
| dword os_version = 0x00000001; |
| dword start_addr = #main; |
| dword final_addr = #stop+32; |
| dword alloc_mem = 0x00100000; |
| dword x86esp_reg = 0x0007fff0; |
| dword I_Param = 0x0; |
| dword I_Icon = 0x0; |
| dword skin_width; |
| |
| // KeyCode constant |
| #define UP_KEY 130+48 |
| #define DOWN_KEY 129+48 |
| #define LEFT_KEY 128+48 |
| #define RIGHT_KEY 131+48 |
| #define RETURN_KEY 13 |
| |
| // Color constant |
| #define clWhite 0x00ffffff |
| #define clBlack 0x00000000 |
| #define clRed 0x00ff0000 |
| #define clGreen 0x0000ff00 |
| #define clBlue 0x000000ff |
| |
| #define evButton 3 |
| #define evKey 2 |
| #define evReDraw 1 |
| #define evNet 8 |
| |
| #define BT_DEL 0x80000000 |
| #define BT_HIDE 0x40000000 |
| #define BT_NOFRAME 0x20000000 |
| |
| #define OLD -1 |
| |
| struct FileInfo{ |
| dword read, firstBlock, qnBlockRead, retPtr, Work; |
| byte filedir; |
| }; |
| //------------------------------------------------------------------------- |
| struct system_colors{ |
| dword frame,grab,grab_button,grab_button_text,grab_text,work,work_button,work_button_text,work_text,work_graph; |
| void get(); |
| }; |
| void system_colors::get() |
| { |
| EAX = 48; |
| EBX = 3; |
| ECX = #frame; |
| EDX = 40; |
| $int 0x40 |
| } |
| |
| struct mouse{ |
| dword x,y,lkm,pkm; |
| void get(); |
| }; |
| |
| void mouse::get() |
| { |
| EAX = 37; |
| EBX = 1; |
| $int 0x40 |
| $mov ebx, eax |
| $shr eax, 16 |
| $and ebx,0x0000FFFF |
| x = EAX; |
| y = EBX; |
| EAX = 37; |
| EBX = 2; |
| $int 0x40 |
| $mov ebx, eax |
| $and eax, 0x00000001 |
| $shr ebx, 1 |
| $and ebx, 0x00000001 |
| lkm = EAX; |
| pkm = EBX; |
| |
| } |
| //--------------------------------------------------------------------------- |
| struct f70{ |
| dword func; |
| dword param1; |
| dword param2; |
| dword param3; |
| dword param4; |
| char rezerv; |
| dword name; |
| }; |
| //--------------------------------------------------------------------------- |
| struct BDVK{ |
| dword attr; |
| byte type_name; |
| byte rez1, rez2, rez3; |
| dword timecreate; |
| dword datecreate; |
| dword timelastaccess; |
| dword datelastaccess; |
| dword timelastedit; |
| dword datelastedit; |
| dword sizelo; |
| dword sizehi; |
| char name[518]; |
| }; |
| //--------------------------------------------------------------------------- |
| struct proc_info{ |
| dword use_cpu; |
| word pos_in_stack,num_slot,rezerv1; |
| char name[11]; |
| char rezerv2; |
| dword adress,use_memory,ID,left,top,width,height; |
| word status_slot,rezerv3; |
| dword work_left,work_top,work_width,work_height; |
| char status_window; |
| void getme(); |
| }; |
| |
| void proc_info::getme() |
| { |
| EAX = 9; |
| EBX = #use_cpu; |
| ECX = -1; |
| $int 0x40 |
| } |
| //------------------------------------------------------------------------------- |
| |
| inline fastcall void begin_paint(){ |
| #speed |
| EAX = 12; // function 12:tell os about windowdraw |
| EBX = 1; // 1, start of draw |
| $int 0x40 |
| #codesize |
| } |
| |
| inline fastcall void end_paint(){ |
| #speed |
| EAX = 12; // function 12:tell os about windowdraw |
| EBX = 2; // 1, start of draw |
| $int 0x40 |
| #codesize |
| } |
| |
| /* |
| âà¨á®¢ª ®ª |
| {x_start|y_start}, {x_size|y_size}, color_back, color_title, color_frames |
| |
| DrawWindow( |
| EBX = [x_start][x_size] |
| ECX = [y_start][y_size] |
| EDX, ESI, EDI = [00RRGGBB] |
| ) |
| */ |
| |
| inline fastcall void DrawWindow(dword EBX, ECX, EDX, ESI, EDI){ |
| #speed |
| EAX = 0; // function 0 : define and draw window |
| $int 0x40 |
| #codesize |
| } |
| |
| inline fastcall void DrawButton(dword EBX, ECX, EDX, ESI){ |
| #speed |
| EAX = 8; |
| $int 0x40 |
| #codesize |
| } |
| |
| inline fastcall dword WaitEvent(){ |
| #speed |
| EAX = 10; // wait here for event |
| $int 0x40 |
| #codesize |
| } |
| |
| inline fastcall void ExitProcess(){ |
| #speed |
| EAX = -1; // close this program |
| $int 0x40 |
| #codesize |
| } |
| |
| /* |
| 02 = GET KEY |
| |
| ret: al 0 successful -> ah = key |
| al 1 no key in buffer |
| */ |
| inline fastcall word GetKey(){ |
| #speed |
| EAX = 2; // just read it key from buffer |
| $int 0x40 |
| EAX = EAX >> 8; |
| #codesize |
| } |
| |
| /* |
| 17 = GET PRESSED BUTTON ID |
| |
| ret: al 0 successful -> ah = id number |
| al 1 no key in buffer |
| */ |
| inline fastcall word GetButtonID(){ |
| #speed |
| EAX = 17; // Get ID |
| $int 0x40 |
| EAX = EAX >> 8; |
| #codesize |
| } |
| |
| /* |
| 58 = SYSTEM TREE ACCESS |
| |
| ebx pointer to fileinfo block |
| |
| fileinfo: |
| |
| dd 0x0 ; 0=read (/write/delete/append) |
| dd 0x0 ; 512 block to read 0+ |
| dd 0x1 ; blocks to read (/bytes to write/append) |
| dd 0x20000 ; return data pointer |
| dd 0x10000 ; work area for os - 16384 bytes |
| db '/RAMDISK/FIRST/KERNEL.ASM',0 ; ASCIIZ dir & filename |
| */ |
| inline fastcall void AccessSystemTree(dword EBX){ |
| #speed |
| EAX = 58; |
| $int 0x40 |
| #codesize |
| } |
| |
| /* |
| 04 = WRITE TEXT TO WINDOW |
| |
| ebx [x start]*65536 + [y start] |
| ecx text color 0x00RRGGBB |
| edx pointer to text beginning |
| esi text length |
| ret: nothing changed |
| */ |
| inline fastcall void WriteTextXY(dword EBX, ECX, EDX, ESI){ |
| #speed |
| EAX = 4; |
| $int 0x40; |
| #codesize |
| } |
| |
| /* |
| 13 = DRAW BAR |
| |
| ebx [x start]*65536 + [x size] |
| ecx [y start]*65536 + [y size] |
| edx color 0x00RRGGBB |
| ret: nothing changed |
| */ |
| inline fastcall void kos_DrawBar(dword EBX, ECX, EDX){ |
| #speed |
| EAX = 13; |
| $int 0x40 |
| #codesize |
| } |
| |
| //CODED by Veliant |
| /*eax = 38 - íîìåð ôóíêöèè |
| ebx = [êîîðäèíàòà íà÷àëà ïî îñè x]*65536 + [êîîðäèíàòà êîíöà ïî îñè x] |
| ecx = [êîîðäèíàòà íà÷àëà ïî îñè y]*65536 + [êîîðäèíàòà êîíöà ïî îñè y] |
| edx = 0x00RRGGBB - öâåò |
| edx = 0x01xxxxxx - ðèñîâàòü èíâåðñíûé îòðåçîê (ìëàäøèå 24 áèòà èãíîðèðóþòñÿ) */ |
| inline fastcall void DrawLine(dword EBX, ECX, EDX){ |
| #speed |
| EAX = 38; |
| $int 0x40 |
| #codesize |
| } |
| |
| inline fastcall void DrawTitle(dword ECX) |
| { |
| #speed |
| EAX = 71; |
| EBX = 1; |
| $int 0x40; |
| #codesize |
| } |
| |
| inline fastcall dword GetSkinWidth() |
| { |
| #speed |
| EAX = 48; |
| EBX = 4; |
| $int 0x40 |
| #codesize |
| } |
| |
| inline fastcall dword GetScreenWidth() |
| { |
| #speed |
| EAX = 14; |
| EBX = 4; |
| $int 0x40 |
| $shr eax, 16 |
| $and eax,0x0000FFFF |
| #codesize |
| } |
| |
| inline fastcall void DeleteButton(dword EDX) |
| { |
| #speed |
| EAX = 8; |
| EDX = EDX + BT_DEL; |
| $int 0x40; |
| #codesize |
| } |
| |
| inline fastcall dword LoadLibrary(dword ECX) |
| { |
| #speed |
| $mov eax, 68 |
| $mov ebx, 19 |
| $int 0x40 |
| #codesize |
| } |
| |
| //function GetProcAdress(hLib:integer; name:string):integer; |
| inline fastcall dword GetProcAdress(dword ECX, EAX) |
| { |
| #speed |
| #codesize |
| } |
| |
| inline fastcall dword strlen(dword ESI) |
| { |
| #speed |
| int len=0; |
| while (AL=ESBYTE[ESI]) |
| { |
| len++; |
| ESI++; |
| } |
| EAX=len; |
| #codesize |
| } |
| |
| //-1 - íå ðàâíû |
| // 0 - ðàâíû |
| inline fastcall dword strcmp(dword ESI,EDI) |
| { |
| #speed |
| dword strcmp_i,ret,len1,len2,sovpadenij,str1,str2; |
| str1=ESI; |
| str2=EDI; |
| ret=-1; |
| sovpadenij=0; |
| len1=strlen(str1); |
| len2=strlen(str2); |
| if (len1==len2) |
| { |
| for (strcmp_i=0;strcmp_i<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; |
| #codesize |
| } |
| |
| inline fastcall dword upcase(dword ESI) |
| { |
| #speed |
| dword str, i; |
| str = ESI; |
| for (i=0;i<strlen(i);i++) |
| { |
| EAX = str+i; |
| EDX = ESBYTE[EAX]; |
| if (EDX>=97) && (EDX<=122) ESBYTE[str+i] = DL - 32; //a-z |
| if (EDX>=160) && (EDX<=175) ESBYTE[str+i] = DL - 32; //à-ï |
| if (EDX>=224) && (EDX<=239) ESBYTE[str+i] = DL - 80; //ð-ÿ |
| if (EDX == 241) ESBYTE[EAX] = 240; //¸ |
| } |
| EAX = str; |
| //EAX = ESDWORD[EAX]; |
| //if (EAX != 0x5249443C) $int 3; |
| #codesize |
| } |
| |
| inline fastcall dword lowcase(dword ESI) |
| { |
| #speed |
| dword str, i; |
| str = ESI; |
| for (i=0;i<strlen(i);i++) |
| { |
| EAX = str+i; |
| EDX = ESBYTE[EAX]; |
| if (EDX>=65) && (EDX<=90) ESBYTE[str+i] = DL + 32; //a-z |
| if (EDX>=128) && (EDX<=143) ESBYTE[str+i] = DL + 32; //à-ï |
| if (EDX>=144) && (EDX<=159) ESBYTE[str+i] = DL + 80; //ð-ÿ |
| if (EDX == 240) ESBYTE[EAX] = 241; //¸ |
| } |
| EAX = str; |
| //EAX = ESDWORD[EAX]; |
| //if (EAX != 0x5249443C) $int 3; |
| #codesize |
| } |
| |
| inline fastcall void dostowin (dword ESI) |
| { |
| #speed |
| dword stroka,dlina; |
| stroka = ESI; |
| while (BL=ESBYTE[ESI]) |
| { |
| if (BL>128) |
| if (BL>=240) |
| ESBYTE[ESI] = BL - 16; |
| else |
| ESBYTE[ESI] = BL - 64; |
| ESI++; |
| } |
| #codesize |
| } |
| |
| void WindowRedrawStatus(dword i) |
| { |
| EAX = 12; // function 12:tell os about windowdraw |
| EBX = i; // 1, start of draw |
| $int 0x40 |
| } |
| |
| void DefineAndDrawWindow(dword x,y,sizeX,sizeY,byte mainAreaType,dword mainAreaColour,byte headerType,dword headerColour,borderColour) |
| { |
| dword arg1, arg2, arg3, arg4; |
| |
| // |
| arg1 = x << 16 + sizeX; |
| arg2 = y << 16 + sizeY; |
| arg3 = mainAreaType << 24 | mainAreaColour; |
| arg4 = headerType << 24 | headerColour; |
| // |
| $mov eax, 0 |
| $mov ebx, arg1 |
| $mov ecx, arg2 |
| $mov edx, arg3 |
| $mov esi, arg4 |
| $mov edi, borderColour |
| $int 0x40 |
| } |
| void DefineButton(dword x,y,w,h,id,color) |
| { |
| DrawButton(x<<16+w, skin_width+y<<16+h, id, color); |
| } |
| void WriteText(dword x,y,byte fontType, dword color, text, len) |
| { |
| EBX = x<<16+skin_width+y; |
| ECX = fontType<<24+color; |
| EDX = text; |
| ESI = len; |
| EAX = 4; |
| $int 0x40; |
| } |
| void DrawBar(dword x,y,w,h,color) |
| { |
| kos_DrawBar(x<<16+w,skin_width+y<<16+h,color); |
| } |
| |
| void DrawRegion(dword x,y,width,height,color1) |
| { |
| DrawBar(x,y,width,1,color1); //ïîëîñà ãîð ñâåðõó |
| DrawBar(x,y+height,width,1,color1); //ïîëîñà ãîð ñíèçó |
| DrawBar(x,y,1,height,color1); //ïîëîñà âåðò ñëåâà |
| DrawBar(x+width,y,1,height+1,color1); //ïîëîñà âåðò ñïðàâà |
| } |
| |
| void DrawFlatButton(dword x,y,width,height,id,color) |
| { |
| DrawRegion(x,y,width,height,0x94AECE); |
| DrawBar(x+1,y+1,width-1,1,0xFFFFFF); //ïîëîñà ãîð áåëàÿ |
| DrawBar(x+1,y+height-1,width-2,1,0xC7C7C7); //òåíü âåðò |
| DrawBar(x+1,y+1,1,height-1,0xFFFFFF); //ïîëîñà âåðò áåëàÿ |
| DrawBar(x+width-1,y+2,1,height-2,0xC7C7C7); //òåíü âåðò |
| DrawBar(x+2,y+2,width-3,height-3,color); //çàëèâêà |
| if (id<>0) |
| { |
| DefineButton(x,y,width,height,id+BT_DEL,0xEFEBEF); //óäàëÿåì êíîïêó |
| DefineButton(x,y,width,height,id+BT_HIDE,0xEFEBEF); //îïðåäåëÿåì êíîïêó |
| } |
| } |
| |
| void PutImage(dword buf,w,h,x,y) |
| { |
| int i,r,g,b; |
| EDI=buf; |
| EAX = 7; |
| EBX = buf; |
| ECX = w<<16+h; |
| EDX = x<<16+y+skin_width; |
| $int 0x40 |
| } |
| |
| void copystr(dword s,d) |
| { |
| ECX=strlen(d);//î÷èùàåì ñòàðîå |
| $mov edi,d |
| $xor al,al |
| $cld |
| $rep $stosb |
| |
| ECX=strlen(s);//êîïèðóåì |
| $mov esi,s |
| $mov edi,d |
| $cld |
| $rep $movsb |
| } |
| int pos,razr,backup,j=0; |
| char buffer[11]=""; |
| int chislo; |
| inline fastcall dword IntToStr(dword ESI) |
| { |
| #speed |
| chislo=ESI; |
| ECX=12; |
| $push edi |
| $mov edi,#buffer |
| $xor al,al |
| $cld |
| $rep $stosb |
| pos=razr=backup=j=0; |
| if (chislo<0) |
| { |
| buffer[pos]='-'; |
| chislo=-1*chislo; |
| pos++; |
| } |
| backup=chislo; |
| do |
| { |
| backup=backup/10; |
| razr++; |
| } |
| while (backup!=0); |
| razr--; |
| for (j=razr+pos;j>pos-1;j--) |
| { |
| backup=chislo/10; |
| backup=backup*10; |
| buffer[j]=chislo-backup+48; |
| chislo=chislo/10; |
| } |
| //return #buffer; |
| $pop edi; |
| EAX = #buffer; |
| #codesize |
| } |
| |
| inline fastcall dword MoveSize(dword EBX,ECX,EDX,ESI) |
| { |
| #speed |
| EAX = 67; |
| $int 0x40 |
| #codesize |
| } |
| |
| f70 CopyFile_f; |
| BDVK CopyFile_atr; |
| inline fastcall dword CopyFile(dword EBX,ECX) |
| { |
| #speed |
| dword s, d, buf; |
| s = EBX; |
| d = ECX; |
| |
| CopyFile_f.func = 5; |
| CopyFile_f.param1 = 0; |
| CopyFile_f.param2 = 0; |
| CopyFile_f.param3 = 0; |
| CopyFile_f.param4 = #CopyFile_atr; |
| CopyFile_f.rezerv = 0; |
| CopyFile_f.name = s; |
| $mov eax, 70 |
| $mov ebx, #CopyFile_f |
| $int 0x40 |
| |
| if (EAX == 0) |
| { |
| buf = malloc(CopyFile_atr.sizelo); |
| CopyFile_f.func = 0; |
| CopyFile_f.param1 = 0; |
| CopyFile_f.param2 = 0; |
| CopyFile_f.param3 = CopyFile_atr.sizelo; |
| CopyFile_f.param4 = buf; |
| CopyFile_f.rezerv = 0; |
| CopyFile_f.name = s; |
| $mov eax, 70 |
| $mov ebx, #CopyFile_f |
| $int 0x40 |
| |
| if (EAX == 0) |
| { |
| CopyFile_f.func = 2; |
| CopyFile_f.param1 = 0; |
| CopyFile_f.param2 = 0; |
| CopyFile_f.param3 = CopyFile_atr.sizelo; |
| CopyFile_f.param4 = buf; |
| CopyFile_f.rezerv = 0; |
| CopyFile_f.name = d; |
| $mov eax, 70 |
| $mov ebx, #CopyFile_f |
| $int 0x40 |
| } |
| } |
| #codesize |
| } |