Changed structure of svn repository

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

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

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

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

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

programs/develop/examples/hello/trunk/cmdipc.inc

@@ -0,0 +1,221 @@
+include "macros.inc"
+
+initipc:
+ mov eax,9
+ mov ebx,prc
+ mov ecx,-1
+ int 0x40
+
+ mov ecx,eax
+loop1:
+ push ecx
+
+ mov eax,9
+ mov ebx,prc
+ int 0x40
+
+ cmp word [prc+10],'CM'
+ jne no_cmd
+ cmp byte [prc+12],'D'
+ jne no_cmd
+
+ mov ebx,[prc+30]
+ mov dword [cmdpid],ebx
+
+ mov dword [cmdnumb],ecx
+
+no_cmd:
+ pop ecx
+ loop loop1
+
+ cmp dword [cmdpid],0
+ jne no_exit
+
+ jmp exit
+
+no_exit:
+ mov eax,60
+ mov ebx,2
+ mov ecx,dword [cmdpid]
+ mov edx,printf
+ mov esi,4
+ int 0x40
+
+ call initcmd
+
+waitcmdinit:
+ mov eax,40
+ mov ebx,01000000b
+ int 0x40
+
+ mov eax,23
+ mov ebx,100
+ int 0x40
+
+ cmp eax,7
+ je cmd_ok
+
+ jmp exit
+
+cmd_ok:
+ cmp byte [ipcb+16],'.'
+ jne exit
+
+ mov eax,18
+ mov ebx,3
+ mov ecx,dword [cmdnumb]
+ int 0x40
+
+ ret
+
+pause1:
+ mov eax,5
+ mov ebx,1
+ int 0x40
+ ret
+
+exit:
+ mov eax,-1
+ int 0x40
+
+cls:
+ mov eax,60
+ mov ebx,2
+ mov ecx,dword [cmdpid]
+ mov edx,ipccls
+ mov esi,4
+ int 0x40
+
+ call pause1
+
+ ret
+
+print:
+ mov ecx,84
+loopprt:
+ mov edi,stripc
+ add edi,ecx
+ mov esi,fill_symbol
+ movsb
+
+ loop loopprt
+
+ cld
+ mov ecx,4
+ mov edi,stripc
+ mov esi,printf
+ rep movsb
+
+ cld
+ mov edx,79
+ sub edx,eax
+ mov ecx,79
+ sub ecx,edx
+ mov edi,stripc+4
+ mov esi,ebx
+ rep movsb
+
+ mov eax,60
+ mov ebx,2
+ mov ecx,dword [cmdpid]
+ mov edx,stripc
+ mov esi,84
+ int 0x40
+
+ call pause1
+
+ ret
+
+eol:
+ mov eax,60
+ mov ebx,2
+ mov ecx,dword [cmdpid]
+ mov edx,ipceol
+ mov esi,4
+ int 0x40
+
+ call pause1
+
+ ret
+
+initcmd:
+ mov eax,60
+ mov ebx,2
+ mov ecx,dword [cmdpid]
+ mov edx,ipckey
+ mov esi,4
+ int 0x40
+
+ mov eax,60
+ mov ebx,1
+ mov ecx,ipcb
+ mov edx,28
+ int 0x40
+
+ cld
+ mov ecx,28
+ mov edi,ipcb
+ mov esi,ipcc
+ rep movsb
+
+ ret
+
+getkey:
+ call initcmd
+
+waitagain:
+ mov eax,40
+ mov ebx,01000000b
+ int 0x40
+
+ mov eax,10
+ int 0x40
+
+ cmp eax,7
+ jne waitagain
+
+ mov edi,key
+ mov esi,ipcb+16
+ movsb
+
+ ret
+
+endipc:
+ mov eax,60
+ mov ebx,2
+ mov ecx,dword [cmdpid]
+ mov edx,ipcend
+ mov esi,4
+ int 0x40
+
+ jmp exit
+
+cmdpid dd 0
+cmdnumb dd 0
+
+printf db '~ppp'
+ipceol db '~lll'
+ipcend db '~eee'
+ipccls db '~ccc'
+ipckey db '~kkk'
+
+key db 0
+
+ipcb:
+ db 0
+ db 0,0,0
+ dd 8
+times 20 db 0
+
+ipcc:
+ db 0
+ db 0,0,0
+ dd 8
+times 20 db 0
+
+stripc: times 84 db 0
+
+fill_symbol db 0
+
+prc: times 52 db 0
+

programs/develop/examples/hello/trunk/hello.asm

@@ -0,0 +1,71 @@
+; Hello, World! - Programm example for CMD shell
+; Compile with FASM for Menuet
+;
+; You must run this program from CMD shell only
+;
+
+use32
+
+   org 0x0
+
+   db 'MENUET01'
+   dd 0x01
+   dd START
+   dd I_END
+   dd 0x100000
+   dd 0x7fff0
+   dd 0x0
+   dd 0x0
+
+include "lang.inc"
+include "cmdipc.inc"       ; �®¤ª«îç¨âì ä ©« CMDIPC.INC
+
+START:
+ call initipc              ; ¨­¨æ¨ «¨§¨à®¢ âì ¤«ï à ¡®âë á CMD
+
+ mov eax,26                ; „«¨­  áâப¨
+ mov ebx,hello_text        ; “ª § â¥«ì ­  áâபã
+ call print                ; ‚뢥á⨠áâபã
+
+again:
+ call getkey               ; Ž¦¨¤ âì ­ ¦ â¨ï ª« ¢¨è¨ ¨ áç¨â âì ¥¥ ¢ key
+
+ cmp byte [key],'Y'        ; ’ã⠯ணࠬ¬  ¯à®¢¥àï¥â, ­ ¦ â  «¨ ­ã¦­. ª« ¢¨è 
+ je goodday
+ cmp byte [key],'y'
+ je goodday
+ cmp byte [key],'N'
+ je goodmorning
+ cmp byte [key],'n'
+ je goodmorning
+
+ jmp again                 ; …᫨ ­ã¦­. ª« ¢¨è  ­¥ ­ ¦ â , â® áç¨â âì ª« ¢¨èã
+                           ; § ­®¢®
+goodday:                   ; ‚뢥á⨠¯à¨¢¥âá⢨¥ Good Day, World!
+ call eol                  ; �யãáâ¨âì áâபã
+
+ mov eax,16
+ mov ebx,text4
+ call print
+
+ call eol                  ; �யãáâ¨âì áâபã
+
+ jmp endipc                ; ‡ ¢¥àè¨âì ¯à®£à ¬¬ã
+
+goodmorning:               ; ‚뢥á⨠¯à¨¢¥âá⢨¥ Good Morning, World!
+ call eol
+
+ mov eax,20
+ mov ebx,text5
+ call print
+
+ call eol
+
+ jmp endipc                ; ‡ ¢¥àé¨âì ¯à®£à ¬¬ã
+
+hello_text db 'Is it after 12 noon? [Y\N]?'
+
+text4 db 'Good day, World!'
+text5 db 'Good morning, World!'
+
+I_END:

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

@@ -0,0 +1,265 @@
+; 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 {         ; mike.dld
+ if ~a 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