Subversion Repositories Kolibri OS

Rev

Rev 205 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
31 halyavin 1 
; new application structure
2 
macro meos_app_start
3 
 {
4 
  use32
5 
  org 0x0
6 
 
7 
  db 'MENUET01'
8 
  dd 0x01
9 
  dd __start
10 
  dd __end
11 
  dd __memory
12 
  dd __stack
13 
 
14 
  if used __params & ~defined __params
15 
    dd __params
16 
  else
17 
    dd 0x0
18 
  end if
19 
 
20 
  dd 0x0
21 
 }
22 
MEOS_APP_START fix meos_app_start
23 
 
24 
macro code
25 
 {
26 
  __start:
27 
 }
28 
CODE fix code
29 
 
30 
macro data
31 
 {
32 
  __data:
33 
 }
34 
DATA fix data
35 
 
36 
macro udata
37 
 {
38 
  if used __params & ~defined __params
39 
    __params:
40 
      db 0
41 
    __end:
42 
      rb 255
43 
  else
44 
    __end:
45 
  end if
46 
  __udata:
47 
 }
48 
UDATA fix udata
49 
 
50 
macro meos_app_end
51 
 {
52 
  align 32
53 
  rb 2048
54 
  __stack:
55 
  __memory:
56 
 }
57 
MEOS_APP_END fix meos_app_end
58 
 
59 
 
60 
; macro for defining multiline text data
61 
struc mstr [sstring]
62 
 {
63 
  forward
64 
    local ssize
65 
    virtual at 0
66 
      db sstring
67 
      ssize = $
68 
    end virtual
69 
    dd ssize
70 
    db sstring
71 
  common
72 
    dd -1
73 
 }
74 
 
75 
 
76 
; strings
77 
macro sz name,[data] {       ; from MFAR [mike.dld]
78 
  common
79 
   if used name
80 
    label name
81 
   end if
82 
  forward
83 
   if used name
84 
    db data
85 
   end if
86 
  common
87 
   if used name
88 
    .size = $-name
89 
   end if
90 
}
91 
 
92 
macro lsz name,[lng,data] {  ; from MFAR [mike.dld]
93 
  common
94 
   if used name
95 
    label name
96 
   end if
97 
  forward
98 
   if (used name)&(lang eq lng)
99 
    db data
100 
   end if
101 
  common
102 
   if used name
103 
    .size = $-name
104 
   end if
105 
}
106 
 
107 
 
108 
 
109 
; easy system call macro
110 
macro mpack dest, hsrc, lsrc
111 
{
112 
  if (hsrc eqtype 0) & (lsrc eqtype 0)
113 
    mov dest, (hsrc) shl 16 + lsrc
114 
  else
115 
    if (hsrc eqtype 0) & (~lsrc eqtype 0)
116 
      mov dest, (hsrc) shl 16
117 
      add dest, lsrc
118 
    else
119 
      mov dest, hsrc
120 
      shl dest, 16
121 
      add dest, lsrc
122 
    end if
123 
  end if
124 
}
125 
 
205 heavyiron 126 
macro __mov reg,a,b {         ; mike.dld
127 
 if (~a eq)&(~b eq)
128 
   mpack reg,a,b
129 
 else if (~a eq)&(b eq)
31 halyavin 130 
   mov reg,a
131 
 end if
132 
}
133 
 
134 
macro mcall a,b,c,d,e,f {   ; mike.dld
135 
 __mov eax,a
136 
 __mov ebx,b
137 
 __mov ecx,c
138 
 __mov edx,d
139 
 __mov esi,e
140 
 __mov edi,f
141 
 int   0x40
142 
}
143 
 
144 
 
145 
 
146 
; optimize the code for size
147 
__regs fix
148 
 
149 
macro add arg1,arg2
150 
 {
151 
   if (arg2 eqtype 0)
152 
      if (arg2) = 1
153 
         inc arg1
154 
      else
155 
         add arg1,arg2
156 
      end if
157 
   else
158 
      add arg1,arg2
159 
   end if
160 
 }
161 
 
162 
macro sub arg1,arg2
163 
 {
164 
   if (arg2 eqtype 0)
165 
      if (arg2) = 1
166 
         dec arg1
167 
      else
168 
         sub arg1,arg2
169 
      end if
170 
   else
171 
      sub arg1,arg2
172 
   end if
173 
 }
174 
 
175 
macro struct name
176 
 {
177 
  virtual at 0
178 
   name name
179 
   sizeof.#name = $ - name
180 
  end virtual
181 
 }
182 
 
183 
; structures used in MeOS
184 
struc process_information
185 
 {
186 
  .cpu_usage               dd ?  ; +0
187 
  .window_stack_position   dw ?  ; +4
188 
  .window_stack_value      dw ?  ; +6
189 
  .not_used1               dw ?  ; +8
190 
  .process_name            rb 12 ; +10
191 
  .memory_start            dd ?  ; +22
192 
  .used_memory             dd ?  ; +26
193 
  .PID                     dd ?  ; +30
194 
  .x_start                 dd ?  ; +34
195 
  .y_start                 dd ?  ; +38
196 
  .x_size                  dd ?  ; +42
197 
  .y_size                  dd ?  ; +46
198 
  .slot_state              dw ?  ; +50
205 heavyiron 199 
                           dw ?  ; +52 - reserved
200 
  .client_left             dd ?  ; +54
201 
  .client_top              dd ?  ; +58
202 
  .client_width            dd ?  ; +62
203 
  .client_height           dd ?  ; +66
204 
  .wnd_state               db ?  ; +70
205 
  rb (1024-71)
31 halyavin 206 
 }
207 
struct process_information
208 
 
209 
struc system_colors
210 
 {
211 
  .frame            dd ?
212 
  .grab             dd ?
213 
  .grab_button      dd ?
214 
  .grab_button_text dd ?
215 
  .grab_text        dd ?
216 
  .work             dd ?
217 
  .work_button      dd ?
218 
  .work_button_text dd ?
219 
  .work_text        dd ?
220 
  .work_graph       dd ?
221 
 }
222 
struct system_colors
223 
 
224 
 
225 
; constants
226 
 
227 
; events
228 
EV_IDLE        = 0
229 
EV_TIMER       = 0
230 
EV_REDRAW      = 1
231 
EV_KEY         = 2
232 
EV_BUTTON      = 3
233 
EV_EXIT        = 4
234 
EV_BACKGROUND  = 5
235 
EV_MOUSE       = 6
236 
EV_IPC         = 7
237 
EV_STACK       = 8
238 
 
239 
; event mask bits for function 40
240 
EVM_REDRAW     =        1b
241 
EVM_KEY        =       10b
242 
EVM_BUTTON     =      100b
243 
EVM_EXIT       =     1000b
244 
EVM_BACKGROUND =    10000b
245 
EVM_MOUSE      =   100000b
246 
EVM_IPC        =  1000000b
247 
EVM_STACK      = 10000000b