WebSVN – Kolibri OS – Diff – /programs/media/paint/trunk/PAINT.ASM

 ;   ¤ ç¨ ¢ ¨§ãç¥¨¨  á¬ !
 ;   ¢  ®¤¤ã¡ë©, ivan-yar@bk.ru
 ;******************************************************************************
 ; ®¤ª«îç ¥¬ ¥®¡å®¤¨¬ë¥ ¬ ªà®áë
-include 'macros.inc'
+include '../../../macros.inc'
+;******************************************************************************
-;******************************************************************************
+;
+use32
+	org  0x0
+	db   'MENUET01'      ; 8 byte id
+	dd   0x01            ; title version
+	dd   START           ; start of code
+	dd   I_END           ; size of image
+	dd   E_END           ; memory for app
 	dd   E_END           ; esp
-;
+	dd   0x0,0x0         ; I_Param , I_Icon
 meos_app_start
+;
-code
+START:
     mov  eax,40       ; á®®¡é¨¬ á¨áâ¥¬¥, ª ª¨¥ á®¡ëâ¨ï ¡ã¤¥¬ ®¡à ¡ âë¢ âì
     mov  ebx,0100101b ; ¬ áª  á®¡ëâ¨© - ¯¥à¥à¨á®¢ª  (1) + ª®¯ª  (3) + ¬ëèì (6
     int  0x40         ; íâ  ª®¬ ¤  ¢ë§ë¢ ¥â á¨áâ¥¬ãî äãªæ¨î
-    mov  [workarea.cx],10  ; ª®®à¤¨ âë à ¡®ç¥© (ª«¨¥âáª®©) ®¡« áâ¨
+    mov  [workarea.cx],5  ; ª®®à¤¨ âë à ¡®ç¥© (ª«¨¥âáª®©) ®¡« áâ¨
   .leftbtn:
     ; ¥¢ ï ª®¯ª   ¦ â ,  ¤® íâ® § ¯¨á âì!
     mov  [mouse_pressed],1
     ; ®«ãç¨¬ ª®®à¤¨ âë ªãàá®à  ¬ëè¨ (®â®á¨â¥«ì® ®ª )
-    mov  eax,37              ; äãªæ¨ï 37 - ¯®«ãç¨âì á®áâ®ï¨¥ ¬ëè¨
-    mov  ebx,1               ; ¯®¤äãªæ¨ï 1
-    int  0x40
+	mcall 37,1 ; ¯®«ãç¨âì á®áâ®ï¨¥ ¬ëè¨
     ; ¥à¥¤¥« ¥¬ ¨å â ª, çâ®¡ë ®¨ ¡ë«¨ ¢ à §ëå à¥£¨áâà å, â.¥. eax ¨ ebx
     mov  ebx,eax
   jmp still
 ;******************************************************************************
 save_canvas:
-    mov  eax,[process.x_size]
+    mov  eax,[proc_info.box.width]
     add  eax,[workarea.cx]
-    mov  ebx,[process.y_size]
+    mov  ebx,[proc_info.box.height]
     add  ebx,[workarea.cy]
 ;   *******      *******
 ;   *********************************************
 draw_window:
-    mov  eax,48                    ;
-    mov  ebx,3
-    mov  ecx,sc
-    mov  edx,sizeof.system_colors
-    int  0x40
-    mov  eax,12      ; äãªæ¨ï 12: á®®¡é¨âì  ®¡ ®âà¨á®¢ª¥ ®ª
-    mov  ebx,1       ; 1,  ç¨ ¥¬ à¨á®¢ âì
-    int  0x40
-                                   ; ð
-    mov  eax,0                     ; äãªæ¨ï 0 : ®¯à¥¤¥«¨âì ¨ ®âà¨á®¢ âì ®ª®
-    mov  ebx,100*65536+400         ; [x áâ àâ] *65536 + [x à §¬¥à]
-    mov  ecx,100*65536+300         ; [y áâ àâ] *65536 + [y à §¬¥à]
+    mcall 48,3,sc,sizeof.system_colors                     ;
-    mov  edx,[sc.work]             ; æ¢¥â à ¡®ç¥© ®¡« áâ¨  RRGGBB,8->color gl
-    or   edx,0x02000000
+	mcall 12, 1                    ;  ç «® ®âà¨á®¢ª¨ ®ª
-    mov  esi,[sc.grab]             ; æ¢¥â ¯®«®áë § £®«®¢ª  RRGGBB,8->color gl
+    mov edx, [sc.work]
-    or   esi,0x80000000
+    or  edx, 0x33000000
-    mov  edi,[sc.frame]            ; æ¢¥â à ¬ª¨            RRGGBB
+    mcall 0, (100 shl 16)+400, (100 shl 16)+300, , , title ; à¨áã¥¬ ®ª®
-    int  0x40
+	mcall 12, 1
-    mov  eax,9                     ; ¯®«ãç¨¬ ¨ä®à¬ æ¨î ® á¥¡¥
-    mov  ebx,process
-    mov  ecx,-1
-    int  0x40
+    mcall 9,proc_info,-1             ; ¯®«ãç¨¬ ¨ä®à¬ æ¨î ® á¢®¥¬ ¯®â®ª¥
-    mov  eax,[process.x_size]      ;  áâà®¨¬ à §¬¥à à ¡®ç¥© ®¡« áâ¨
+    mov  eax,[proc_info.box.width]   ;  áâà®¨¬ à §¬¥à à ¡®ç¥© ®¡« áâ¨
-    add  eax,-20                   ;   (å à §¬¥à ®ª  - 20)
+    sub  eax,20                      ; (å à §¬¥à ®ª  - 20)
-    mov  [workarea.sx],eax         ;
+    mov  [workarea.sx],eax
-    mov  eax,[process.y_size]      ;
+    mov  eax,[proc_info.box.height]
-    add  eax,-60                   ;   (ã à §¬¥à - 60)
-    mov  [workarea.sy],eax         ;
-                                   ;
-    mov  eax,4                     ; äãªæ¨ï 4 :  ¯¨á âì ¢ ®ª¥ â¥ªáâ
-    mov  ebx,8*65536+8             ; [x] *65536 + [y]
-    mov  ecx,[sc.grab_text]        ; æ¢¥â
-    or   ecx,0x10000000            ; èà¨äâ
-    mov  edx,header                ;  ¤à¥á áâà®ª¨
-    mov  esi,header_len            ; ¨ ¥ñ ¤«¨
-    int  0x40
-                                   ;
-    mov  eax,8                     ; äãªæ¨ï 8 : ®¯à¥¤¥«¨âì ¨  à¨á®¢ âì ª®¯ªã
-;   mov  ebx,(300-19)*65536+12     ; [x áâ àâ] *65536 + [x à §¬¥à]
-    mov  ebx,[process.x_size]
-    add  ebx,-19
-    shl  ebx,16
-    add  ebx,12
-    mov  ecx,5*65536+12            ; [y áâ àâ] *65536 + [y à §¬¥à]
-    mov  edx,1                     ; ¨¤¥â¨ä¨ª â®à ª®¯ª¨
-    mov  esi,[sc.grab_button]      ; æ¢¥â ª®¯ª¨ RRGGBB
+    sub  eax,63                      ; (ã à §¬¥à - 63)
-    int  0x40
+    mov  [workarea.sy],eax
+    cmp  [proc_info.box.height],80
     jb   .finish
-    cmp  [process.y_size],80
-    jb   .finish
+	mov eax, 8
 	mov edx, 1
     ; á®§¤ ñ¬ ª®¯ª¨ ¢ë¡®à  æ¢¥â :
-    mov  ebx,10*65536+10           ;  ç «ì ï x ª®®à¤¨ â  ¨ à §¬¥à
+    mov  ebx,10*65536+15           ;  ç «ì ï x ª®®à¤¨ â  ¨ à §¬¥à
-    mov  ecx,27*65536+10           ;  ç «ì ï y ª®®à¤¨ â  & size
+    mov  ecx, 7*65536+15           ;  ç «ì ï y ª®®à¤¨ â  & size
  .new_button:
     inc  edx                       ; ¨¤¥â¨ä¨ª â®à++;
     mov  esi,[btn_colors-8+edx*4]  ; æ¢¥â ª®¯ª¨
     int  0x40                      ; áâ ¢¨¬ ª®¯ªã
-    add  ebx,12*65536              ; á«¥¤ãîé ï ª®¯ª  ¯à ¢¥¥   12
+    add  ebx,18*65536              ; á«¥¤ãîé ï ª®¯ª  ¯à ¢¥¥   12
     shl  ebx,16
     shl  ecx,16
     add  ebx,[workarea.sx]
     add  ecx,[workarea.sy]
     mov  edx,0xffffff
-    int  0x40
+    mcall 13
- .finish:
-    mov  eax,12      ; á®®¡é ¥¬ á¨áâ¥¬¥ ® § ¢¥àè¥¨¨ ®âà¨á®¢ª¨ ®ª
-    mov  ebx,2
-    int  0x40
  .finish:
     ret
 ;******************************************************************************
 ;  ç «® ®¡« áâ¨ ¨¨æ¨ «¨§¨à®¢ ëå ¤ ëå
-; ¥á«¨ ªâ® ¥éñ ¥ § ¥â, çâ® § ç¨â "¨¨æ¨ «¨§¨à®¢ ë¥", â® ¯®ïáïî:
-; íâ® â¥ ¤ ë¥, ª®â®àë¬ ¯à¨á¢®¥®  ç «ì®¥ § ç¥¨¥
-data
+; ¥á«¨ ªâ® ¥éñ ¥ § ¥â, çâ® § ç¨â "¨¨æ¨ «¨§¨à®¢ ë¥", â® ¯®ïáïî:
+; íâ® â¥ ¤ ë¥, ª®â®àë¬ ¯à¨á¢®¥®  ç «ì®¥ § ç¥¨¥
-header:                  ; áâà®ª  § £®«®¢ª
+;data
    db  'PAINT v0.2 for MenuetOS'
-header_len = $ - header  ; ¨ ¥ñ ¤«¨
+title db  'Simple Paint v0.3',0
 ;******************************************************************************
 ;   ¢®â âãâ  ç¨ ¥âáï ®¡« áâì ¨¨æ¨ «¨§¨à®¢ ëå ¤ ëå, â.¥.
 ; §¤¥áì ¤ ë¬ § ç¥¨ï ¥ ¯à¨á¢®¥ë.  ®â«¨ç¨¥ ®â ¨¨æ., ¥ ã¢¥«¨ç¨¢ îâ à §¬¥à
 ; ä ©«
-udata
+I_END:
    active_color    dd  ?           ;  ªâ¨¢ë© æ¢¥â
        .cy     dd  ?
        .sx     dd  ?               ;   s - à §¬¥àë
        .sy     dd  ?
    sc          system_colors       ; á¨áâ¥¬ë¥ æ¢¥â
-   process     process_information ; ¨ä®à¬ æ¨ï ® ¯à®æ¥áá¥
+   proc_info   process_information ; ¨ä®à¬ æ¨ï ® ¯à®æ¥áá¥
    restflag    dd  ?

Subversion Repositories Kolibri OS

(root)/programs/media/paint/trunk/PAINT.ASM – Rev 3497 → 6165