WebSVN – Kolibri OS – Diff – /programs/system/rb/trunk/@RB.ASM

 ;   e-mail: ivan-yar@bk.ru
+;
 ;   Compile with flat assembler
+;
 include 'lang.inc'
-include 'macros.inc'
+include '..\..\..\macros.inc'
 meos_app_start
+code
+  mov   eax, 48                   ; ¯®«ãç¨âì á¨áâ¥¬ë¥ æ¢¥â
+  mov   ebx, 3
+  mov   ecx, sc                   ;   ¤à¥á áâàãªâãàë
+  mov   edx, sizeof.system_colors ;  ¨ ¥¥ à §¬¥à
-code
+  mcall
   mov   eax,40       ; ãáâ ®¢¨¬ ¬ áªã á®¡ëâ¨©
   mov   ebx,100000b  ;  á ¨â¥à¥áã¥â â®«ìª® ¬ëèì
-  int   0x40
+  mcall
 still:               ; £« ¢ë© æ¨ª« ®á®¢®£® ¯à®æ¥áá
   mov   eax,10       ; ¦¤ñ¬ á®¡ëâ¨ï
-  int   0x40
+  mcall
   mov   eax,37       ; ª ª¨¥  ¦ âë ª¯®¯ª¨?
   mov   ebx,2
-  int   0x40
+  mcall
   cmp   eax,2        ; ¥á«¨ ¥ ¯à ¢ ï, ¢®§¢à â
   jne   still
 ;---¯®¥å «¨!---
 ;  mov   eax,37       ; íâ® ¤«ï ®â« ¤ª¨ - ¥á«¨ ¬ëèì ¢ â®çª¥ (0;0), § ªà®¥¬áï
 ;  xor   ebx,ebx
-;  int   0x40
+;  mcall
 ;  test  eax,eax      ; ªãàá®à ¢ â®çª¥ (0;0), â.¥. eax = 0
 ;  je    exit
   mov   eax,9        ; ¯®«ãç¨¬ ç¨á«® ¯à®æ¥áá®¢ ¢ á¨áâ¥¬¥
   mov   ebx,procinfo
   xor   ecx,ecx
-  int   0x40
+  mcall
   inc   eax          ; â¥¯¥àì ¢ eax á®¤¥à¦¨âáï ç¨á«® ¯à®æ¥áá®¢ + 1
   mov   [processes],eax
   mov   ecx,1
  new_process:
   pushad
   mov   eax,9        ; ¯®«ãç¨¬ ¨ä®à¬ æ¨î ® ¯à®æ¥áá¥; ®¬¥à - ¢ ecx
   mov   ebx,procinfo
-  int   0x40
+  mcall
   mov   eax,37       ; ª®®à¤¨ âë ªãàá®à
   xor   ebx,ebx
-  int   0x40
+  mcall
   mov   ebx,eax                  ; eax = cursor_x
   shr   eax,16                   ; ebx = cursor_y
   and   ebx,0xffff
   mov   [curx1],eax              ; curx1 = cursor_x
   mov   [cury1],ebx              ; cury1 = cursor_y
 ; \begin{diamond}[18.09.2006]
 ; ignore minimized windows
 @@:             ; ¯®¤®¦¤ñ¬, ¯®ª  ¯®«ì§®¢ â¥«ì ¥ ®â¯ãáâ¨« ¯à ¢ãî ª®¯ªã ¬ëè¨
   mov   eax,37
   mov   ebx,2   ; äãªæ¨ï 37-2:
-  int   0x40    ;    ¦ âë «¨ ª®¯ª¨ ¬ëè¨?
+  mcall    ;    ¦ âë «¨ ª®¯ª¨ ¬ëè¨?
   cmp   eax,ebx ; ¥á«¨ ®â¯ãáâ¨«, (eax != 2)
   jnz   @f      ;   ¨¤ñ¬ ¢  ç «® £« ¢®£® æ¨ª«
   mov   eax,5   ; ¨ ç¥
   mov   ebx,2   ;   ¯®¤®¦¤ñ¬ 2 ¬á
-  int   0x40
+  mcall
   jmp   @b      ;   ¨ ¯à®¢¥à¨¬ ¬ëèì ®¯ïâì
 @@:
 ; ¥á«¨ ã¦¥ ¡ë«® ®âªàëâ® ¬¥î, ã¦® ¯®¤®¦¤ âì, ¯®ª  ®® § ªà®¥âáï:
 @@:
   cmp   [menu_opened],0
   je    @f
   mov   eax,5
   mov   ebx,3  ; ¦¤ñ¬ 3 ¬á
-  int   0x40
+  mcall
   jmp   @b
 @@:
   mov   eax,51           ;   â¥¯¥àì ¬®¦® á¬¥«® § ¯ãáª âì ¯à®æ¥áá (¯®â®ª) ¬¥î
   mov   ebx,1            ; á®§¤ ñ¬ ¯®â®ª (thread)
   mov   ecx,start_wnd    ; â®çª  ¢å®¤  ¯®â®ª
   mov   edx,stack_wnd    ; ¢¥àè¨  áâíª  ¤«ï ¯®â®ª
-  int   0x40
+  mcall
   jmp   still
 exit_menu:            ; ¥á«¨ ¢ëå®¤¨¬ ¨§ ¬¥î,  ¤® § ¯¨á âì ¢ [menu_opened] 0
   mov   [menu_opened],0
 exit:                 ; áî¤  ¬ë ¨¤ñ¬, ª®£¤  ¢ëå®¤¨¬ ¨§ ®á®¢®£® ¯à®æ¥áá
   or    eax,-1        ; eax = -1
-  int   0x40
+  mcall
 ; §¤¥áì áâ àâã¥â ¯à®æ¥áá ¬¥î
+;
 mouse:            ; ª®£¤  ¯®«ì§®¢ â¥«ì  ¦¬ñâ ª®¯ªã ¬ëè¨, § ªà®¥¬áï
   mov   eax,37
   mov   ebx,2     ; ª ª¨¥ ª®¯ª¨  ¦ âë?
-  int   0x40
+  mcall
   test  eax,eax   ; ¨ª ª¨¥? - â®£¤  ¯à¥ªà á®! ¢¥àñ¬áï ¢ £« ë© æ¨ª«
   jz    still2
   jmp   exit_menu ;   ¥á«¨ ¢áñ-â ª¨  ¦ âë - § ªà®¥¬ ®ª®
 ;
 button:
   mov   eax,17        ; ¯®«ãç¨âì ¨¤¥â¨ä¨ª â®à  ¦ â®© ª®¯ª¨
-  int   0x40
+  mcall
   jnz   @b
   mcall 70, start_info
 ;  mov   eax,5         ; ¯®¤®¦¤ñ¬, ¯®ª  ¯à®£à ¬¬  § ¯ãáâ¨âìáï
 ;  mov   ebx,1         ;   â® ¥ñ ®ª® ¥ ¡ã¤¥â ®âà¨á®¢ ® (¡ £ ¢ ï¤à¥???)
-;  int   0x40          ; à áª®¬¬¥â¨àã©â¥ íâ¨ áâà®ª¨, ¥á«¨ ã ¢ á ¯à®¡«¥¬ë
+;  mcall          ; à áª®¬¬¥â¨àã©â¥ íâ¨ áâà®ª¨, ¥á«¨ ã ¢ á ¯à®¡«¥¬ë
                        ; á ®âà¨á®¢ª®©
 nofuncbtns:           ; § ªàë¢ ¥¬ ¬¥î
   jmp   exit_menu
-_BTNS_            = 7     ; ª®«¨ç¥áâ¢® ª®¯®ª ("¯ãªâ®¢ ¬¥î")
+_BTNS_            = 6     ; ª®«¨ç¥áâ¢® ª®¯®ª ("¯ãªâ®¢ ¬¥î")
 if lang eq ru
   font            = 0x00000000
   string_length   = 20          ; ¤«¨  áâà®ª¨
   wnd_x_size      = 133         ; è¨à¨  ®ª
-  header_pos      = 36 shl 16 + 7
+  title_pos      = 36 shl 16 + 7
 else
   font            = 0x10000000
   string_length   = 12          ; ¤«¨  áâà®ª¨
   wnd_x_size      = 105         ; è¨à¨  ®ª
-  header_pos      = 23 shl 16 + 7
+  title_pos      = 23 shl 16 + 7
 end if
 ;*******************************
 ;********     ********
 ;*******************************
 draw_window:
   mov   eax,12           ;  ç¨ ¥¬ "à¨á®¢ âì"
   mov   ebx,1
-  int   0x40
+  mcall
   mov   eax,[curx1]      ; â¥ªãé¨¥ ª®®à¤¨ âë ªãàá®à
   mov   [curx],eax       ; § ¯¨è¥¬ ¢ ª®®à¤¨ âë ®ª
   cmp   ebx, [cury]
   jg    .oky                  ; ¯® ¢¥àâ¨ª «¨ â®ç® â ª¦¥
   add   [cury], -_BTNS_*15-21
  .oky:
-  mov   eax, 48                   ; ¯®«ãç¨âì á¨áâ¥¬ë¥ æ¢¥â
-  mov   ebx, 3
-  mov   ecx, sc                   ;   ¤à¥á áâàãªâãàë
-  mov   edx, sizeof.system_colors ;  ¨ ¥¥ à §¬¥à
-  int   0x40
   xor   eax, eax           ; äãªæ¨ï 0 - á®§¤ âì ®ª®
   mov   ebx, [curx]        ;  ebx = [ª®®à¤¨ â  ¯® x] shl 16 + [è¨à¨ ]
   shl   ebx, 16
   add   ebx, wnd_x_size
   add   ecx, _BTNS_*15+21
   mov   edx, [sc.work]     ;  æ¢¥â à ¡®ç¥© ®¡« áâ¨
   mov   esi, [sc.grab]     ;  æ¢¥â § £®«®¢ª
   or    esi, 0x81000000
   mov   edi, [sc.frame]    ;  æ¢¥â à ¬ª¨
-  int   0x40
+  mcall
   mov   eax, 4             ; § £®«®¢®ª
-  mov   ebx, header_pos    ;  [x] shl 16 + [y]
+  mov   ebx, title_pos    ;  [x] shl 16 + [y]
   mov   ecx, [sc.grab_text];  èà¨äâ ¨ æ¢¥â (á¥àë©)
   or    ecx, 0x10000000
 ;  add   ecx, -0x333333
   push  ecx
   mov   byte [esp+edx], 0
 @@:
   inc   edx
   jnp   .dec_color
   pop   ecx
-  mov   edx, header        ;   ¤à¥á § £®«®¢ª
+  mov   edx, title        ;   ¤à¥á § £®«®¢ª
-  mov   esi, header.size   ;  ¤«¨  § £®«®¢ª  ("M E N U")
+  mov   esi, title.size   ;  ¤«¨  § £®«®¢ª  ("M E N U")
-  int   0x40
+  mcall
   pop   ecx
   add   ebx, 1 shl 16      ;  á¤¢¨¥¬ ¢¯à ¢®   1
-  int   0x40
+  mcall
   mov   ebx, 1*65536+wnd_x_size-2  ;  ç¨ ¥¬ ¤¥« âì ª®¯ª¨
   mov   ecx, 20*65536+15
   mov   edx, 10 or 0x40000000 ; ¡¨â 30 ãáâ ®¢«¥ => ª®¯ª  ¥ à¨áã¥âáï
   mov   edi,_BTNS_           ; ª®«¨ç¥áâ¢® ª®¯®ª (áçñâç¨ª)
  newbtn:                     ;  ç «® æ¨ª«
   mov   eax,8                ;  á®§¤ ñ¬ ª®¯ªã
-  int   0x40
+  mcall
   add   edx, -10             ;   edx = ®¬¥à ª®¯ª¨;
   imul  edx, string_length   ;   edx *= ¤«¨  áâà®ª¨;
   add   edx, text            ;   edx += text;  â¥¯¥àì ¢ edx  ¤à¥á áâà®ª¨
   mov   esi, string_length   ;   ¢ esi - ¤«¨  áâà®ª¨
   mov   eax, 4               ;   äãªæ¨ï 4 - ¢ë¢®¤ â¥ªáâ
-  int   0x40
+  mcall
   popad
   inc   edx                  ;  ®¬¥à ª®¯ª¨++;
   add   ecx,15*65536         ;  ã¢¥«¨ç¨¬ á¬¥é¥¨¥ ¯® y
   dec   edi                  ;  ã¬¥ìè¨¬ áçñâç¨ª
   jnz   newbtn               ; ¥á«¨ ¥ ®«ì, ¯®¢â®à¨¬ ¢áñ ¥éñ à §
   mov   eax,12               ; § ª®ç¨«¨ "à¨á®¢ âì"
   mov   ebx,2
      str db string
+  }
   strtbl startapps       ,\
-    <"/RD/1/PIC4",0>     ,\
-    <"/RD/1/SKINSEL",0>  ,\
+    <"/RD/1/PIC4",0>     ,\
     <"/RD/1/DESKTOP",0>  ,\
-    <"/RD/1/ICON",0>     ,\
+    <"/RD/1/ICON",0>,\
     <"/RD/1/SETUP",0>    ,\
     <"/RD/1/VRR",0> ,\
     <"/RD/1/CPU",0>
-  sz header, "KolibriOS"
+  sz title, "KolibriOS"
   lsz text,\
-    en, 'Background  ',\
+  lsz text,\
-    en, 'Change skin ',\
+    en, 'Background  ',\
     en, 'Desktop     ',\
     en, 'Icon manager',\
     en, 'Device setup',\
     en, 'VRR         ',\
-    en, 'Processes   ',\
     en, 'Processes   ',\
     ru, '¥¥à â®à ®¡®¥¢     ',\
-    ru, '¬¥  áª¨          ',\
+    ru, '¥¥à â®à ®¡®¥¢     ',\
     ru, ' áâà®©ª  ®ª®      ',\
     ru, '¯à ¢«¥¨¥ ¨ª®ª ¬¨ ',\

Subversion Repositories Kolibri OS

(root)/programs/system/rb/trunk/@RB.ASM – Rev 318 → 485