Subversion Repositories Kolibri OS

Rev

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

Rev Author Line No. Line
205 heavyiron 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
; 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 mov arg1,arg2
176
 {
177
   if (arg1 in __regs) & ((arg2 eqtype 0) | (arg2 eqtype '0'))
178
      if (arg2) = 0
179
         xor arg1,arg1
180
      else if (arg2) = 1
181
         xor arg1,arg1
182
         inc arg1
183
      else if (arg2) = -1
184
         or  arg1,-1
185
      else if (arg2) > -128 & (arg2) < 128
186
         push arg2
187
         pop  arg1
188
      else
189
         mov  arg1,arg2
190
      end if
191
   else
192
      mov arg1,arg2
193
   end if
194
 }
195
 
196
 
197
macro struct name
198
 {
199
  virtual at 0
200
   name name
201
   sizeof.#name = $ - name
202
  end virtual
203
 }
204
 
205
; structures used in MeOS
206
struc process_information
207
 {
208
  .cpu_usage               dd ?  ; +0
209
  .window_stack_position   dw ?  ; +4
210
  .window_stack_value      dw ?  ; +6
211
  .not_used1               dw ?  ; +8
212
  .process_name            rb 12 ; +10
213
  .memory_start            dd ?  ; +22
214
  .used_memory             dd ?  ; +26
215
  .PID                     dd ?  ; +30
216
  .x_start                 dd ?  ; +34
217
  .y_start                 dd ?  ; +38
218
  .x_size                  dd ?  ; +42
219
  .y_size                  dd ?  ; +46
220
  .slot_state              dw ?  ; +50
221
                           dw ?  ; +52 - reserved
222
  .client_left             dd ?  ; +54
223
  .client_top              dd ?  ; +58
224
  .client_width            dd ?  ; +62
225
  .client_height           dd ?  ; +66
226
  .wnd_state               db ?  ; +70
227
  rb (1024-71)
228
 }
229
struct process_information
230
 
231
struc system_colors
232
 {
233
  .frame            dd ?
234
  .grab             dd ?
235
  .grab_button      dd ?
236
  .grab_button_text dd ?
237
  .grab_text        dd ?
238
  .work             dd ?
239
  .work_button      dd ?
240
  .work_button_text dd ?
241
  .work_text        dd ?
242
  .work_graph       dd ?
243
 }
244
struct system_colors
245
 
246
 
247
; constants
248
 
249
; events
250
EV_IDLE        = 0
251
EV_TIMER       = 0
252
EV_REDRAW      = 1
253
EV_KEY         = 2
254
EV_BUTTON      = 3
255
EV_EXIT        = 4
256
EV_BACKGROUND  = 5
257
EV_MOUSE       = 6
258
EV_IPC         = 7
259
EV_STACK       = 8
260
 
261
; event mask bits for function 40
262
EVM_REDRAW     =        1b
263
EVM_KEY        =       10b
264
EVM_BUTTON     =      100b
265
EVM_EXIT       =     1000b
266
EVM_BACKGROUND =    10000b
267
EVM_MOUSE      =   100000b
268
EVM_IPC        =  1000000b
134 diamond 269
EVM_STACK      = 10000000b