Subversion Repositories Kolibri OS

Rev

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

Rev Author Line No. Line
1863 yogev_ezra 1
@^ fix macro comment {
2
^@ fix }
3
 
4
; -------------------------
5
macro library [lname,fname]
6
{
7
  forward
8
    dd __#lname#_library_table__,__#lname#_library_name__
9
  common
10
    dd 0
11
  forward
12
    align 4
13
    __#lname#_library_name__ db fname,0
14
}
15
 
16
macro import lname,[name,sname]
17
{
18
  common
19
    align 4
20
    __#lname#_library_table__:
21
  forward
22
    if used name
23
      name dd __#name#_import_name__
24
    end if
25
  common
26
    dd 0
27
  forward
28
    if used name
29
      align 4
30
      __#name#_import_name__ db sname,0
31
    end if
32
}
33
 
34
macro export [name,sname]
35
{
36
  forward
37
    dd __#name#_export_name__,name
38
  common
39
    dd 0
40
  forward
41
    align 4
42
    __#name#_export_name__ db sname,0
43
}
44
; -------------------------
45
 
46
macro m2m dest,src {
47
 push src
48
 pop  dest
49
}
50
 
51
 
52
macro iglobal {
53
  IGlobals equ IGlobals,
54
  macro __IGlobalBlock { }
55
 
56
macro uglobal {
57
  UGlobals equ UGlobals,
58
  macro __UGlobalBlock { }
59
 
60
endg fix }	; Use endg for ending iglobal and uglobal blocks.
61
 
62
 
63
macro IncludeIGlobals{
64
  macro IGlobals dummy,[n] \{ __IGlobalBlock
65
     purge __IGlobalBlock  \}
66
  match I, IGlobals \{ I \} }
67
 
68
macro IncludeUGlobals{
69
  macro UGlobals dummy,[n] \{
70
    \common
71
      \local begin, size
72
      begin = $
73
      virtual at $
74
    \forward
75
      __UGlobalBlock
76
      purge __UGlobalBlock
77
    \common
78
      size = $ - begin
79
    end virtual
80
    rb size
81
  \}
82
  match U, UGlobals \{ U \} }
83
 
84
uglobal
85
endg
86
 
87
iglobal
88
endg
89
 
90
 
91
; new application structure
92
macro meos_app_start
93
 {
94
  use32
95
  org 0x0
96
 
97
  db 'MENUET01'
98
  dd 0x01
99
  dd __start
100
  dd __end
101
  dd __memory
102
  dd __stack
103
 
104
  if used __params & ~defined __params
105
    dd __params
106
  else
107
    dd 0x0
108
  end if
109
 
110
  dd 0x0
111
 }
112
MEOS_APP_START fix meos_app_start
113
 
114
macro code
115
 {
116
  __start:
117
 }
118
CODE fix code
119
 
120
macro data
121
 {
122
  __data:
123
  IncludeIGlobals
124
 }
125
DATA fix data
126
 
127
macro udata
128
 {
129
  if used __params & ~defined __params
130
    __params:
131
      db 0
132
    __end:
133
      rb 255
134
  else
135
    __end:
136
  end if
137
  __udata:
138
  IncludeUGlobals
139
 }
140
UDATA fix udata
141
 
142
macro meos_app_end
143
 {
144
  align 32
145
  rb 2048
146
  __stack:
147
  __memory:
148
 }
149
MEOS_APP_END fix meos_app_end
150
 
151
 
152
; macro for defining multiline text data
153
struc mstr [sstring]
154
 {
155
  forward
156
    local ssize
157
    virtual at 0
158
      db sstring
159
      ssize = $
160
    end virtual
161
    dd ssize
162
    db sstring
163
  common
164
    dd -1
165
 }
166
 
167
; macro for defining multiline text data
168
struc mls [sstring]
169
 {
170
  forward
171
    local ssize
172
    virtual at 0
173
      db sstring  ; mod
174
      ssize = $
175
    end virtual
176
    db ssize
177
    db sstring
178
  common
179
    db -1	  ; mod
180
 }
181
 
182
 
183
 
184
; strings
185
macro sz name,[data] {	     ; from MFAR [mike.dld]
186
 common
187
  if used name
188
   name db data
189
   .size = $-name
190
  end if
191
}
192
 
193
macro lsz name,[lng,data] {  ; from MFAR [mike.dld]
194
 common
195
  if used name
196
   label name
197
 forward
198
  if lang eq lng
199
   db data
200
  end if
201
 common
202
   .size = $-name
203
  end if
204
}
205
 
206
macro szc name,elsz,[data] {	     ; from MFAR [mike.dld]
207
 common
208
  local s,m
209
  m = 0
210
  if used name
211
   label name
212
 forward
213
   virtual at 0
214
    db data
215
    s = $
216
   end virtual
217
   d#elsz s
218
   if m < s
219
    m = s
220
   end if
221
   db data
222
 common
223
   .size = $-name
224
   .maxl = m
225
  end if
226
}
227
 
228
macro lszc name,elsz,[lng,data] {  ; from MFAR [mike.dld]
229
 common
230
  local s,m,c
231
  m = 0
232
  c = 0
233
  if used name
234
   label name
235
 forward
236
  if lang eq lng
237
   virtual at 0
238
    db data
239
    s = $
240
   end virtual
241
   d#elsz s
242
   if m < s
243
    m = s
244
   end if
245
   db data
246
   c = c+1
247
  end if
248
 common
249
   .size  = $-name
250
   .maxl  = m
251
   .count = c
252
  end if
253
}
254
 
255
 
256
; easy system call macro
257
macro mpack dest, hsrc, lsrc
258
{
259
  if (hsrc eqtype 0) & (lsrc eqtype 0)
260
    mov dest, (hsrc) shl 16 + lsrc
261
  else
262
    if (hsrc eqtype 0) & (~lsrc eqtype 0)
263
      mov dest, (hsrc) shl 16
264
      add dest, lsrc
265
    else
266
      mov dest, hsrc
267
      shl dest, 16
268
      add dest, lsrc
269
    end if
270
  end if
271
}
272
 
273
macro __mov reg,a,b {	    ; mike.dld
274
 if (~a eq)&(~b eq)
275
   mpack reg,a,b
276
 else if (~a eq)&(b eq)
277
   mov reg,a
278
 end if
279
}
280
 
281
 
282
include 'config.inc'
283
__CPU_type     equ     p5
284
SYSENTER_VAR	equ	0
285
 
286
macro mcall a,b,c,d,e,f {   ; mike.dld, updated by Ghost for Fast System Calls
287
 __mov eax,a
288
 __mov ebx,b
289
 __mov ecx,c
290
 __mov edx,d
291
 __mov esi,e
292
 __mov edi,f
293
 
294
	int	0x40
295
}
296
 
297
 
298
; -------------------------
299
macro header a,[b] {
300
 common
301
  use32
302
  org 0
303
  db 'MENUET',a
304
 forward
305
  if b eq
306
   dd 0
307
  else
308
   dd b
309
  end if }
310
macro section name { align 16
311
 label name }
312
macro func name {
313
 if ~used name
314
  display 'FUNC NOT USED: ',`name,13,10
315
 else
316
  align 4
317
  name:
318
  ;diff16 `name,0,name
319
;pushad
320
;pushfd
321
;dps `name
322
;newline
323
;mcall 5,1
324
;popfd
325
;popad
326
}
327
macro endf { end if }
328
 
329
macro diff16 title,l1,l2
330
 {
331
  local s,d
332
  s = l2-l1
333
  display title,': 0x'
334
  repeat 8
335
   d = '0' + s shr ((8-%) shl 2) and $0F
336
   if d > '9'
337
    d = d + 'A'-'9'-1
338
   end if
339
   display d
340
  end repeat
341
  display 13,10
342
 }
343
 
344
macro diff10 title,l1,l2
345
 {
346
  local s,d,z,m
347
  s = l2-l1
348
  z = 0
349
  m = 1000000000
350
  display title,': '
351
  repeat 10
352
   d = '0' + s / m
353
   s = s - (s/m)*m
354
   m = m / 10
355
   if d <> '0'
356
    z = 1
357
   end if
358
   if z <> 0
359
    display d
360
   end if
361
  end repeat
362
  display 13,10
363
 }
364
 
365
; optimize the code for size
366
__regs fix 
367
 
368
macro add arg1,arg2
369
 {
370
   if (arg2 eqtype 0)
371
      if (arg2) = 1
372
	 inc arg1
373
      else
374
	 add arg1,arg2
375
      end if
376
   else
377
      add arg1,arg2
378
   end if
379
 }
380
 
381
macro sub arg1,arg2
382
 {
383
   if (arg2 eqtype 0)
384
      if (arg2) = 1
385
	 dec arg1
386
      else
387
	 sub arg1,arg2
388
      end if
389
   else
390
      sub arg1,arg2
391
   end if
392
 }
393
 
394
macro mov arg1,arg2
395
 {
396
   if (arg1 in __regs) & ((arg2 eqtype 0) | (arg2 eqtype '0'))
397
      if (arg2) = 0
398
	 xor arg1,arg1
399
      else if (arg2) = 1
400
	 xor arg1,arg1
401
	 inc arg1
402
      else if (arg2) = -1
403
	 or  arg1,-1
404
      else if (arg2) > -128 & (arg2) < 128
405
	 push arg2
406
	 pop  arg1
407
      else
408
	 mov  arg1,arg2
409
      end if
410
   else
411
      mov arg1,arg2
412
   end if
413
 }
414
 
415
 
416
macro RGB [a] {
417
 common
418
  match (r=,g=,b),a \{
419
   \dd ((r) shl 16) or ((g) shl 8) or (b)
420
  \}
421
}
422
 
423
 
424
struc POINT _t,_dx,_dy {
425
 .x _t _dx
426
 .y _t _dy
427
}
428
 
429
; structure definition helper
430
include 'struct.inc'
431
 
432
struct RECT
433
  left	 dd ?
434
  top	 dd ?
435
  right  dd ?
436
  bottom dd ?
437
ends
438
 
439
struct BOX
440
  left	 dd ?
441
  top	 dd ?
442
  width  dd ?
443
  height dd ?
444
ends
445
 
446
; structures used in MeOS
447
struct process_information
448
  cpu_usage		  dd ?	; +0
449
  window_stack_position   dw ?	; +4
450
  window_stack_value	  dw ?	; +6
451
			  dw ?	; +8
452
  process_name		  rb 12 ; +10
453
  memory_start		  dd ?	; +22
454
  used_memory		  dd ?	; +26
455
  PID			  dd ?	; +30
456
  box			  BOX	; +34
457
  slot_state		  dw ?	; +50
458
			  dw ?	; +52
459
  client_box		  BOX	; +54
460
  wnd_state		  db ?	; +70
461
  rb (1024-71)
462
ends
463
 
464
struct system_colors
465
  frame 	   dd ?
466
  grab		   dd ?
467
  grab_button	   dd ?
468
  grab_button_text dd ?
469
  grab_text	   dd ?
470
  work		   dd ?
471
  work_button	   dd ?
472
  work_button_text dd ?
473
  work_text	   dd ?
474
  work_graph	   dd ?
475
ends
476
 
477
struct FILEDATE
478
  Second db ?
479
  Minute db ?
480
  Hour	 db ?
481
	 db ?
482
  Day	 db ?
483
  Month  db ?
484
  Year	 dw ?
485
ends
486
 
487
struct FILEINFO
488
  Attributes dd ?
489
  IsUnicode  db ?
490
	     db 3 dup(?)
491
  DateCreate FILEDATE
492
  DateAccess FILEDATE
493
  DateModify FILEDATE
494
  Size	     dq ?
495
ends
496
 
497
; constants
498
 
499
; events
500
EV_IDLE        = 0
501
EV_TIMER       = 0
502
EV_REDRAW      = 1
503
EV_KEY	       = 2
504
EV_BUTTON      = 3
505
EV_EXIT        = 4
506
EV_BACKGROUND  = 5
507
EV_MOUSE       = 6
508
EV_IPC	       = 7
509
EV_STACK       = 8
510
 
511
; event mask bits for function 40
512
EVM_REDRAW     =	1b
513
EVM_KEY        =       10b
514
EVM_BUTTON     =      100b
515
EVM_EXIT       =     1000b
516
EVM_BACKGROUND =    10000b
517
EVM_MOUSE      =   100000b
518
EVM_IPC        =  1000000b
519
EVM_STACK      = 10000000b