Subversion Repositories Kolibri OS

Rev

Rev 3076 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. //CODED by Veliant, Leency, Nable. GNU GPL licence.
  2.  
  3. #startaddress 0
  4. #code32 TRUE
  5.  
  6. char   os_name[8]   = {'M','E','N','U','E','T','0','1'};
  7. dword  os_version   = 0x00000001;
  8. dword  start_addr   = #main;
  9. dword  final_addr   = #stop+32;
  10. dword  alloc_mem    = #0x00100000;
  11. dword  x86esp_reg   = #0x00100000;
  12. dword  I_Param      = #param;
  13. dword  I_Path       = #program_path;
  14. char param[4096];
  15. char program_path[4096];
  16.  
  17. //Events
  18. #define evMouse   6
  19. #define evButton  3
  20. #define evKey     2
  21. #define evReDraw  1
  22.  
  23. #define OLD      -1
  24. #define true      1
  25. #define false     0
  26.  
  27. #define NULL      0
  28.  
  29. //Button options
  30. #define BT_DEL      0x80000000
  31. #define BT_HIDE     0x40000000
  32. #define BT_NOFRAME  0x20000000
  33.  
  34. //-------------------------------------------------------------------------
  35.  
  36. struct mouse
  37. {
  38.         int x,y,lkm,pkm,hor,vert;
  39.         void get();
  40. };
  41.  
  42. void mouse::get()
  43. {
  44.         EAX = 37;
  45.         EBX = 1;
  46.         $int    0x40
  47.         $mov    ebx, eax
  48.         $shr    eax, 16
  49.         $and    ebx,0x0000FFFF
  50.         x = EAX;
  51.         y = EBX;
  52.         EAX = 37;
  53.         EBX = 2;
  54.         $int    0x40
  55.         $mov    ebx, eax
  56.         $and    eax, 0x00000001
  57.         $shr    ebx, 1
  58.         $and    ebx, 0x00000001
  59.         lkm = EAX;
  60.         pkm = EBX;
  61.         EAX = 37; //скролл
  62.         EBX = 7;
  63.         $int    0x40
  64.         $mov    ebx, eax
  65.         $shr    eax, 16
  66.         $and    ebx,0x0000FFFF
  67.         //hor = EAX;
  68.         vert = EBX;
  69. }
  70.  
  71.  
  72. struct system_colors
  73. {
  74.         dword frame,grab,grab_button,grab_button_text,grab_text,
  75.               work,work_button,work_button_text,work_text,work_graph;
  76.         void get();
  77. };
  78.  
  79. void system_colors::get()
  80. {
  81.         EAX = 48;
  82.         EBX = 3;
  83.         ECX = #frame;
  84.         EDX = 40;
  85.         $int 0x40
  86. }
  87.  
  88. //------------------------------------------------------------------------------
  89.  
  90. inline fastcall dword WaitEvent()
  91. {
  92.         $mov eax,10
  93.         $int 0x40
  94. }
  95.  
  96. inline fastcall dword CheckEvent()
  97. {
  98.         $mov eax,11
  99.         $int 0x40
  100. }
  101.  
  102. inline fastcall dword WaitEventTimeout( EBX)
  103. {
  104.         $mov eax,23
  105.         $int 0x40
  106. }
  107.  
  108. inline fastcall SetEventMask( EBX)
  109. {
  110.         $mov eax,40
  111.         $int 0x40
  112. }
  113.  
  114. inline fastcall ScancodesGeting(){
  115.         $mov eax,66
  116.         $mov ebx,1
  117.         $mov ecx,1 //сканкоды
  118.         $int 0x40
  119. }
  120.  
  121. inline fastcall word GetKey()  //+Gluk fix
  122. {
  123.                 $push edx
  124. @getkey:
  125.                 $mov  eax,2
  126.                 $int  0x40
  127.                 $cmp eax,1
  128.                 $jne getkeyi
  129.                 $mov ah,dh
  130.                 $jmp getkeyii //jz?
  131. @getkeyi:
  132.                 $mov dh,ah
  133.                 $jmp getkey
  134. @getkeyii:
  135.                 $pop edx
  136.                 $shr eax,8
  137. }
  138.  
  139.  
  140. inline fastcall Pause( EBX)
  141. {
  142.         $mov eax, 5
  143.         $int 0x40
  144. }
  145.  
  146. inline fastcall word GetButtonID()
  147. {
  148.         $mov eax,17
  149.         $int  0x40
  150.         $shr eax,8
  151. }
  152.  
  153. //----------------------------------------
  154.  
  155. inline fastcall dword GetFreeRAM()
  156. {
  157.         $mov eax, 18
  158.         $mov ebx, 16
  159.         $int 0x40
  160.         //return eax = ЁрчьхЁ ётюсюфэющ ярь Єш т ъшыюсрщЄрї
  161. }
  162.  
  163. inline fastcall dword LoadDriver( ECX) //ECX - шь  фЁрщтхЁр
  164. {
  165.         $mov eax, 68
  166.         $mov ebx, 16
  167.         $int 0x40
  168.         //return 0 - эхєфрўр, шэрўх eax = ї¤эфы фЁрщтхЁр
  169. }
  170.  
  171. inline fastcall dword RuleDriver( ECX) //єърчрЄхы№ эр єяЁрты ■∙є■ ёЄЁєъЄєЁє
  172. {
  173.         $mov eax, 68
  174.         $mov ebx, 17
  175.         $int 0x40
  176.         //return eax = юяЁхфхы хЄё  фЁрщтхЁюь
  177. }
  178.  
  179. struct proc_info
  180. {
  181.         #define SelfInfo -1
  182.         dword   use_cpu;
  183.         word    pos_in_stack,num_slot,rezerv1;
  184.         char    name[11];
  185.         char    rezerv2;
  186.         dword   adress,use_memory,ID,left,top,width,height;
  187.         word    status_slot,rezerv3;
  188.         dword   work_left,work_top,work_width,work_height;
  189.         char    status_window;
  190.         void    GetInfo( ECX);
  191.         byte    reserved[1024-71];
  192. };
  193.  
  194. inline fastcall void GetProcessInfo( EBX, ECX)
  195. {
  196.         $mov eax,9;
  197.         $int  0x40
  198. }
  199.  
  200. inline fastcall int GetPointOwner( EBX, ECX) //ebx=m.x, ecx=m.y
  201. {
  202.         $mov eax,34
  203.         $int 0x40
  204. }
  205.  
  206. inline fastcall int GetProcessSlot( ECX)
  207. {
  208.         EAX = 18;
  209.         EBX = 21;
  210.         $int 0x40
  211. }
  212.  
  213. inline fastcall int GetActiveProcess()
  214. {
  215.         EAX = 18;
  216.         EBX = 7;
  217.         $int 0x40
  218. }
  219.  
  220. inline fastcall int CreateThread( ECX,EDX)
  221. {
  222.         $mov eax,51
  223.         $mov ebx,1
  224.         $int 0x40
  225. }
  226.  
  227. inline fastcall void SwitchToAnotherThread()
  228. {
  229.         $mov eax,68
  230.         $mov ebx,1
  231.         $int 0x40
  232. }
  233.  
  234. inline fastcall int KillProcess( ECX)
  235. {
  236.         $mov eax,18;
  237.         $mov ebx,18;
  238.         $int 0x40
  239. }
  240.  
  241. #define TURN_OFF 2
  242. #define REBOOT 3
  243. #define KERNEL 4
  244. inline fastcall int ExitSystem( ECX)
  245. {
  246.         $mov eax, 18
  247.         $mov ebx, 9
  248.         $int 0x40
  249. }
  250.  
  251. inline fastcall ExitProcess()
  252. {
  253.         $mov eax,-1;
  254.         $int 0x40
  255. }
  256.  
  257. //------------------------------------------------------------------------------
  258.  
  259. //eax =  ч√ъ ёшёЄхь√ (1=eng, 2=fi, 3=ger, 4=rus)
  260. inline fastcall int GetSystemLanguage()
  261. {
  262.         EAX = 26;
  263.         EBX = 5;
  264.         $int 0x40
  265. }
  266.  
  267. inline fastcall GetSkinHeight()
  268. {
  269.         $push ebx
  270.         $mov  eax,48
  271.         $mov  ebx,4
  272.         $int 0x40
  273.         $pop  ebx
  274. }
  275.  
  276. inline fastcall void SetSystemSkin( ECX)
  277. {
  278.         EAX = 48;
  279.         EBX = 8;
  280.         $int 0x40
  281. }
  282.  
  283. inline fastcall int GetScreenWidth()
  284. {
  285.         $mov eax, 14
  286.         $int 0x40
  287.         $shr eax, 16
  288. }
  289.  
  290. inline fastcall int GetScreenHeight()
  291. {
  292.         $mov eax, 14
  293.         $int 0x40
  294.         $and eax,0x0000FFFF
  295. }
  296.  
  297. inline fastcall dword LoadLibrary( ECX)
  298. {
  299.         $mov eax, 68
  300.         $mov ebx, 19
  301.         $int  0x40
  302. }
  303.  
  304. inline fastcall int TestBit( EAX, CL)
  305. {
  306.         $shr eax,cl
  307.         $and eax,1
  308. }
  309.  
  310. inline fastcall int PlaySpeaker( ESI)
  311. {
  312.         $mov eax, 55
  313.         $mov ebx, 55
  314.         $int 0x40
  315. }
  316.  
  317. inline fastcall void debug( EDX)
  318. {
  319.         $push ebx
  320.         $push ecx
  321.         $mov eax, 63
  322.         $mov ebx, 1
  323. next_char:
  324.         $mov ecx, DSDWORD[edx]
  325.         $or      cl, cl
  326.         $jz  done
  327.         $int 0x40
  328.         $inc edx
  329.         $jmp next_char
  330. done:
  331.         $mov cl, 13
  332.         $int 0x40
  333.         $mov cl, 10
  334.         $int 0x40
  335.         $pop ecx
  336.         $pop ebx
  337. }
  338. //------------------------------------------------------------------------------
  339.  
  340. void DefineAndDrawWindow(dword x,y, sizeX,sizeY, byte WindowType,dword WindowAreaColor, EDI, ESI)
  341. {
  342.         EAX = 12;              // function 12:tell os about windowdraw
  343.         EBX = 1;
  344.         $int 0x40
  345.        
  346.         EAX = 0;
  347.         EBX = x << 16 + sizeX;
  348.         ECX = y << 16 + sizeY;
  349.         EDX = WindowType << 24 | WindowAreaColor;
  350.         $int 0x40
  351.  
  352.         EAX = 12;              // function 12:tell os about windowdraw
  353.         EBX = 2;
  354.         $int 0x40
  355. }
  356.  
  357. inline fastcall DeleteAllButtons()
  358. {
  359.         EAX = 12;              // function 12:tell os about windowdraw
  360.         EBX = 1;
  361.         $int 0x40
  362.         EBX = 2;
  363.         $int 0x40
  364. }
  365.  
  366. inline fastcall MoveSize( EBX,ECX,EDX,ESI)
  367. {
  368.         $mov eax, 67
  369.         $int 0x40
  370. }
  371.  
  372. inline fastcall void DrawTitle( ECX)
  373. {
  374.         EAX = 71;
  375.         EBX = 1;
  376.         $int 0x40;
  377. }
  378.  
  379. void WriteText(dword x,y,byte fontType, dword color, EDX, ESI)
  380. {
  381.         EAX = 4;
  382.         EBX = x<<16+y;
  383.         ECX = fontType<<24+color;
  384.         $int 0x40;
  385. }
  386.  
  387. void WriteNumber(dword x,y,byte fontType, dword color, count, ECX)
  388. {
  389.         EAX = 47;
  390.         EBX = count<<16;
  391.         EDX = x<<16+y;
  392.         ESI = fontType<<24+color;
  393.         $int 0x40;
  394. }
  395.  
  396. void CopyScreen(dword EBX, x, y, sizeX, sizeY)
  397. {
  398.   EAX = 36;
  399.   ECX = sizeX << 16 + sizeY;
  400.   EDX = x << 16 + y;
  401.   $int  0x40;
  402. }
  403.  
  404. dword GetPixelColor(dword x, x_size, y)
  405. {
  406.         $mov eax, 35
  407.         EBX= y*x_size+x;
  408.         $int 0x40
  409. }
  410.  
  411. void PutImage(dword EBX,w,h,x,y)
  412. {
  413.         EAX = 7;
  414.         ECX = w<<16+h;
  415.         EDX = x<<16+y;
  416.         $int 0x40
  417. }
  418.  
  419. void _PutImage(dword x,y, w,h, EBX)
  420. {
  421.         EAX = 7;
  422.         ECX = w<<16+h;
  423.         EDX = x<<16+y;
  424.         $int 0x40
  425. }
  426.  
  427. void PutPaletteImage(dword EBX,w,h,x,y,ESI,EDI)
  428. {
  429.         EAX = 65;
  430.         ECX = w<<16+h;
  431.         EDX = x<<16+y;
  432.         EBP = 0;
  433.         $int 0x40
  434. }
  435.  
  436. inline fastcall void PutPixel( EBX,ECX,EDX)
  437. {
  438.   EAX=1;
  439.   $int 0x40
  440. }
  441.  
  442. void DrawBar(dword x,y,w,h,EDX)
  443. {
  444.         EAX = 13;
  445.         EBX = x<<16+w;
  446.         ECX = y<<16+h;
  447.         $int 0x40
  448. }
  449.  
  450. void DefineButton(dword x,y,w,h,EDX,ESI)
  451. {
  452.         EAX = 8;
  453.         EBX = x<<16+w;
  454.         ECX = y<<16+h;
  455.         $int 0x40
  456. }
  457.  
  458. inline fastcall void DeleteButton( EDX)
  459. {
  460.         EAX = 8;
  461.         EDX += BT_DEL;
  462.         $int 0x40;
  463. }