Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Details | 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
 
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)
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
 
147
 
148
 
149
; optimize the code for size
150
__regs fix 
151
 
152
macro add arg1,arg2
153
 {
154
   if (arg2 eqtype 0)
155
      if (arg2) = 1
156
         inc arg1
157
      else
158
         add arg1,arg2
159
      end if
160
   else
161
      add arg1,arg2
162
   end if
163
 }
164
 
165
macro sub arg1,arg2
166
 {
167
   if (arg2 eqtype 0)
168
      if (arg2) = 1
169
         dec arg1
170
      else
171
         sub arg1,arg2
172
      end if
173
   else
174
      sub arg1,arg2
175
   end if
176
 }
177
 
178
macro mov arg1,arg2
179
 {
180
   if (arg1 in __regs) & (arg2 eqtype 0)
181
      if (arg2) = 0
182
         xor arg1,arg1
183
      else if (arg2) = 1
184
         xor arg1,arg1
185
         inc arg1
186
      else if (arg2) = -1
187
         or  arg1,-1
188
      else if (arg2) > -128 & (arg2) < 128
189
         push arg2
190
         pop  arg1
191
      else
192
         mov  arg1,arg2
193
      end if
194
   else
195
      mov arg1,arg2
196
   end if
197
 }
198
 
199
 
200
macro struct name
201
 {
202
  virtual at 0
203
   name name
204
   sizeof.#name = $ - name
205
  end virtual
206
 }
207
 
208
; structures used in MeOS
209
struc process_information
210
 {
211
  .cpu_usage               dd ?  ; +0
212
  .window_stack_position   dw ?  ; +4
213
  .window_stack_value      dw ?  ; +6
214
  .not_used1               dw ?  ; +8
215
  .process_name            rb 12 ; +10
216
  .memory_start            dd ?  ; +22
217
  .used_memory             dd ?  ; +26
218
  .PID                     dd ?  ; +30
219
  .x_start                 dd ?  ; +34
220
  .y_start                 dd ?  ; +38
221
  .x_size                  dd ?  ; +42
222
  .y_size                  dd ?  ; +46
223
  .slot_state              dw ?  ; +50
224
  rb (1024-52)
225
 }
226
struct process_information
227
 
228
struc system_colors
229
 {
230
  .frame            dd ?
231
  .grab             dd ?
232
  .grab_button      dd ?
233
  .grab_button_text dd ?
234
  .grab_text        dd ?
235
  .work             dd ?
236
  .work_button      dd ?
237
  .work_button_text dd ?
238
  .work_text        dd ?
239
  .work_graph       dd ?
240
 }
241
struct system_colors
242
 
243
 
244
; constants
245
 
246
; events
247
EV_IDLE        = 0
248
EV_TIMER       = 0
249
EV_REDRAW      = 1
250
EV_KEY         = 2
251
EV_BUTTON      = 3
252
EV_EXIT        = 4
253
EV_BACKGROUND  = 5
254
EV_MOUSE       = 6
255
EV_IPC         = 7
256
EV_STACK       = 8
257
 
258
; event mask bits for function 40
259
EVM_REDRAW     =        1b
260
EVM_KEY        =       10b
261
EVM_BUTTON     =      100b
262
EVM_EXIT       =     1000b
263
EVM_BACKGROUND =    10000b
264
EVM_MOUSE      =   100000b
265
EVM_IPC        =  1000000b
266
EVM_STACK      = 10000000b