Changed structure of svn repository

git-svn-id: svn://kolibrios.org@109 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/develop/examples/example/trunk/build_en.bat

@@ -0,0 +1,4 @@
+@erase lang.inc
+@echo lang fix en >lang.inc
+@fasm example.asm example
+@pause

programs/develop/examples/example/trunk/build_ru.bat

@@ -0,0 +1,4 @@
+@erase lang.inc
+@echo lang fix ru >lang.inc
+@fasm example.asm example
+@pause

programs/develop/examples/example/trunk/example.asm

@@ -0,0 +1,177 @@
+;
+;   <20>ਬ¥à ¯à®£à ¬¬ë ¤«ï MenuetOS
+;   ®§¢ã稢 ¥â ª®¤ ­ ¦ â®© ª« ¢¨è¨ ;)
+;
+;   Š®¬¯¨«¨à®¢ âì FASM'®¬
+;
+;   ‘¬. â ª¦¥:
+;     template.asm  -  ¯à¨¬¥à ¯à®á⥩襩 ¯à®£à ¬¬ë (­®¢ë©!)
+;     rb.asm        -  ª®­â¥ªáâ­®¥ ¬¥­î à ¡®ç¥£® á⮫ 
+;     example2.asm  -  ¯à¨¬¥à ¬¥­î ¨ ¤®¯®«­¨â¥«ì­ëå ®ª®­
+;     example3.asm  -  ¯à¨¬¥à ¬¥­î, ॠ«¨§®¢ ­­®£® ¯®-¤à㣮¬ã
+;---------------------------------------------------------------------
+
+  use32              ; ¢ª«îç¨âì 32-¡¨â­ë© ०¨¬  áᥬ¡«¥à 
+  org    0x0         ;  ¤à¥á æ¨ï á ­ã«ï
+
+  db     'MENUET01'  ; 8-¡ ©â­ë© ¨¤¥­â¨ä¨ª â®à MenuetOS
+  dd     0x01        ; ¢¥àá¨ï § £®«®¢ª  (¢á¥£¤  1)
+  dd     START       ;  ¤à¥á ¯¥à¢®© ª®¬ ­¤ë
+  dd     I_END       ; à §¬¥à ¯à®£à ¬¬ë
+  dd     0x1000      ; ª®«¨ç¥á⢮ ¯ ¬ïâ¨
+  dd     0x1000      ;  ¤à¥á ¢¥à設ë áâíª 
+  dd     0x0         ;  ¤à¥á ¡ãä¥à  ¤«ï ¯ à ¬¥â஢ (­¥ ¨á¯®«ì§ã¥âáï)
+  dd     0x0         ; § à¥§¥à¢¨à®¢ ­®
+
+include 'lang.inc'
+include 'macros.inc' ; ¬ ªà®áë ®¡«¥£ç îâ ¦¨§­ì  áᥬ¡«¥à騪®¢!
+
+;---------------------------------------------------------------------
+;---  <20>€—€‹Ž <20><>Žƒ<C5BD>€ŒŒ›  ----------------------------------------------
+;---------------------------------------------------------------------
+
+START:
+
+red:                    ; ¯¥à¥à¨á®¢ âì ®ª­®
+
+    call draw_window    ; ¢ë§ë¢ ¥¬ ¯à®æ¥¤ãàã ®âà¨á®¢ª¨ ®ª­ 
+
+;---------------------------------------------------------------------
+;---  –ˆŠ‹ Ž<><C5BD>€<EFBFBD>Ž’Šˆ ‘Ž<E28098>›’ˆ‰  ----------------------------------------
+;---------------------------------------------------------------------
+
+still:
+    mcall 10            ; äã­ªæ¨ï 10 - ¦¤ âì ᮡëâ¨ï
+
+    cmp  eax,1          ; ¯¥à¥à¨á®¢ âì ®ª­® ?
+    je   red            ; ¥á«¨ ¤  - ­  ¬¥âªã red
+    cmp  eax,2          ; ­ ¦ â  ª« ¢¨è  ?
+    je   key            ; ¥á«¨ ¤  - ­  key
+    cmp  eax,3          ; ­ ¦ â  ª­®¯ª  ?
+    je   button         ; ¥á«¨ ¤  - ­  button
+
+    jmp  still          ; ¥á«¨ ¤à㣮¥ ᮡë⨥ - ¢ ­ ç «® 横« 
+
+
+;---------------------------------------------------------------------
+
+
+  key:                  ; ­ ¦ â  ª« ¢¨è  ­  ª« ¢¨ âãà¥
+    mcall 2             ; äã­ªæ¨ï 2 - áç¨â âì ª®¤ ᨬ¢®«  (¢ ah)
+
+    mov  [Music+1], ah  ; § ¯¨á âì ª®¤ ᨬ¢®«  ª ª ª®¤ ­®âë
+
+    ; äã­ªæ¨ï 55-55: á¨á⥬­ë© ¤¨­ ¬¨ª ("PlayNote")
+    ;   esi -  ¤à¥á ¬¥«®¤¨¨
+
+    ;   mov  eax,55
+    ;   mov  ebx,eax
+    ;   mov  esi,Music
+    ;   int  0x40
+
+    ; ¨«¨ ª®à®âª®:
+    mcall 55, eax, , , Music
+
+    jmp  still          ; ¢¥à­ãâìáï ª ­ ç «ã 横« 
+
+;---------------------------------------------------------------------
+
+  button:
+    mcall 17            ; 17 - ¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª­®¯ª¨
+
+    cmp   ah, 1         ; ¥á«¨ <20>… ­ ¦ â  ª­®¯ª  á ­®¬¥à®¬ 1,
+    jne   still         ;  ¢¥à­ãâìáï
+
+  .exit:
+    mcall -1            ; ¨­ ç¥ ª®­¥æ ¯à®£à ¬¬ë
+
+
+
+;---------------------------------------------------------------------
+;---  Ž<><C5BD>…„…‹…<E280B9>ˆ… ˆ Ž’<C5BD>ˆ‘Ž‚Š€ ŽŠ<C5BD>€  ----------------------------------
+;---------------------------------------------------------------------
+
+draw_window:
+
+    mcall 12, 1                    ; äã­ªæ¨ï 12: á®®¡é¨âì Ž‘ ®¡ ®âà¨á®¢ª¥ ®ª­ 
+                                   ; 1 - ­ ç¨­ ¥¬ à¨á®¢ âì
+
+    ; ¤ «¥¥: á­ ç «  ¤«¨­­ë© ¢ à¨ ­â (§ ª®¬¬¥­â¨à®¢ ­­ë©)
+    ;        § â¥¬ ª®à®âª¨©  ­ «®£ á ¨á¯®«ì§®¢ ­¨¥¬ ¬ ªà®á®¢
+
+
+                                   ; ‘Ž‡„€ðŒ ŽŠ<C5BD>Ž
+;   mov  eax,0                     ; äã­ªæ¨ï 0 : ®¯à¥¤¥«¨âì ¨ ®âà¨á®¢ âì ®ª­®
+;   mov  ebx,200*65536+200         ; [x áâ àâ] *65536 + [x à §¬¥à]
+;   mov  ecx,200*65536+100         ; [y áâ àâ] *65536 + [y à §¬¥à]
+;   mov  edx,0x02aabbcc            ; 梥â à ¡®ç¥© ®¡« á⨠ RRGGBB,8->color gl
+;   mov  esi,0x805080d0            ; 梥⠯®«®áë § £®«®¢ª  RRGGBB,8->color gl
+;   mov  edi,0x005080d0            ; 梥â à ¬ª¨            RRGGBB
+;   int  0x40
+
+    mcall 0, <200,200>, <200,50>, 0x02AABBCC, 0x805080D0, 0x005080D0
+
+                                   ; ‡€ƒŽ‹Ž‚ŽŠ ŽŠ<C5BD>€
+;   mov  eax,4                     ; äã­ªæ¨ï 4 : ­ ¯¨á âì ¢ ®ª­¥ ⥪áâ
+;   mov  ebx,8*65536+8             ; [x] *65536 + [y]
+;   mov  ecx,0x10ddeeff            ; èà¨äâ 1 ¨ 梥â ( 0xF0RRGGBB )
+;   mov  edx,header                ;  ¤à¥á áâப¨
+;   mov  esi,header.size           ; ¨ ¥ñ ¤«¨­ 
+;   int  0x40
+
+    mcall 4, <8,8>, 0x10DDEEFF, header, header.size
+
+;   mov  eax,4
+;   mov  ebx,8 shl 16 + 30
+;   mov  ecx,0
+;   mov  edx,message
+;   mov  esi,message.size
+;   int  0x40
+
+    mcall 4, <8, 30>, 0, message, message.size
+
+                                   ; Š<>Ž<EFBFBD>Š€ ‡€Š<E282AC>›’ˆŸ ŽŠ<C5BD>€
+;   mov  eax,8                     ; äã­ªæ¨ï 8 : ®¯à¥¤¥«¨âì ¨ ­ à¨á®¢ âì ª­®¯ªã
+;   mov  ebx,(200-19)*65536+12     ; [x áâ àâ] *65536 + [x à §¬¥à]
+;   mov  ecx,5*65536+12            ; [y áâ àâ] *65536 + [y à §¬¥à]
+;   mov  edx,1                     ; ¨¤¥­â¨ä¨ª â®à ª­®¯ª¨ - 1
+;   mov  esi,0x6688dd              ; 梥⠪­®¯ª¨ RRGGBB
+;   int  0x40
+
+    mcall 8, <200-19, 12>, <5, 12>, 1, 0x6688DD
+
+    mcall 12, 2                    ; äã­ªæ¨ï 12: á®®¡é¨âì Ž‘ ®¡ ®âà¨á®¢ª¥ ®ª­ 
+                                   ; 2, § ª®­ç¨«¨ à¨á®¢ âì
+
+    ret                            ; ¢ë室¨¬ ¨§ ¯à®æ¥¤ãàë
+
+
+;---------------------------------------------------------------------
+;---  „€<E2809E><E282AC>›… <20><>Žƒ<C5BD>€ŒŒ›  ----------------------------------------------
+;---------------------------------------------------------------------
+
+; ‚®â â ª ï ¢®â ª®à®âª ï "¬¥«®¤¨ï".
+; ‚â®à®© ¡ ©â ¨§¬¥­ï¥âáï ­ ¦ â¨¥¬ ª« ¢¨èë
+
+Music:
+  db  0x90, 0x30, 0
+
+
+;---------------------------------------------------------------------
+
+; ¨­â¥àä¥©á ¯à®£à ¬¬ë ¬­®£®ï§ëç­ë©
+;  ‚ë ¬®¦¥â¥ § ¤ âì ï§ëª ¢ MACROS.INC (lang fix ï§ëª)
+
+lsz message,\
+  ru,'<27> ¦¬¨â¥ «î¡ãî ª« ¢¨èã...',\
+  en,'Press any key...',\
+  fr,'Pressez une touche...'
+
+lsz header,\
+  ru,'<27><>ˆŒ…<C592> <20><>Žƒ<C5BD>€ŒŒ›',\
+  en,'EXAMPLE APPLICATION',\
+  fr,"L'exemplaire programme"
+
+;---------------------------------------------------------------------
+
+I_END:                             ; ¬¥âª  ª®­æ  ¯à®£à ¬¬ë

programs/develop/examples/example/trunk/macros.inc

@@ -0,0 +1,267 @@
+; 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:
+ }
+DATA fix data
+
+macro udata
+ {
+  if used __params & ~defined __params
+    __params:
+      db 0
+    __end:
+      rb 255
+  else
+    __end:
+  end if
+  __udata:
+ }
+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
+ }
+
+
+; strings
+macro sz name,[data] {       ; from MFAR [mike.dld]
+  common
+   if used name
+    label name
+   end if
+  forward
+   if used name
+    db data
+   end if
+  common
+   if used name
+    .size = $-name
+   end if
+}
+
+macro lsz name,[lng,data] {  ; from MFAR [mike.dld]
+  common
+   if used name
+    label name
+   end if
+  forward
+   if (used name)&(lang eq lng)
+    db data
+   end if
+  common
+   if used name
+    .size = $-name
+   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
+}
+
+macro mcall a,b,c,d,e,f {   ; mike.dld
+ __mov eax,a
+ __mov ebx,b
+ __mov ecx,c
+ __mov edx,d
+ __mov esi,e
+ __mov edi,f
+ int   0x40
+}
+
+
+
+
+
+
+
+; 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)
+      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 struct name
+ {
+  virtual at 0
+   name name
+   sizeof.#name = $ - name
+  end virtual
+ }
+
+; structures used in MeOS
+struc process_information
+ {
+  .cpu_usage               dd ?  ; +0
+  .window_stack_position   dw ?  ; +4
+  .window_stack_value      dw ?  ; +6
+  .not_used1               dw ?  ; +8
+  .process_name            rb 12 ; +10
+  .memory_start            dd ?  ; +22
+  .used_memory             dd ?  ; +26
+  .PID                     dd ?  ; +30
+  .x_start                 dd ?  ; +34
+  .y_start                 dd ?  ; +38
+  .x_size                  dd ?  ; +42
+  .y_size                  dd ?  ; +46
+  .slot_state              dw ?  ; +50
+  rb (1024-52)
+ }
+struct process_information
+
+struc 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 ?
+ }
+struct system_colors
+
+
+; 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