Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

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