Subversion Repositories Kolibri OS

Rev

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