WebSVN – Kolibri OS – Diff – /programs/develop/tinypad/trunk/macros.inc


@^ fix macro comment {
^@ fix }
 
 
macro m2m dest,src {
 push src
 pop  dest
}
 
; new application structure
macro meos_app_start
 {
  use32
  org 0x0
 
  db 'MENUET01'
  dd 0x01
  dd __start
  dd __end
  dd __memory
  dd __stack
 
  if used __params & ~defined __params
    dd __params
  else
    dd 0x0
  end if
 
  dd 0x0
 }
MEOS_APP_START fix meos_app_start
 
macro code
 {
  __start:
 }
CODE fix code
 
macro data
 {
  __data:
 }
DATA fix data
 
macro udata
 {
  if used __params & ~defined __params
    __params:
      db 0
    __end:
      rb 255
  else
    __end:
  end if
  __udata:
 }
UDATA fix udata
 
macro meos_app_end
 {
  align 32
  rb 2048
  __stack:
  __memory:
 }
MEOS_APP_END fix meos_app_end
 
 
; macro for defining multiline text data
struc mstr [sstring]
 {
  forward
    local ssize
    virtual at 0
      db sstring
      ssize = $
    end virtual
    dd ssize
    db sstring
  common
    dd -1
 }
 
 
; strings
macro sz name,[data] {	     ; from MFAR [mike.dld]
 common
  if used name
   name db data
   .size = $-name
  end if
}
 
macro lsz name,[lng,data] {  ; from MFAR [mike.dld]
 common
  if used name
   label name
 forward
  if lang eq lng
   db data
  end if
 common
   .size = $-name
  end if
}
 
macro szc name,elsz,[data] {	     ; from MFAR [mike.dld]
 common
  local s,m
  m = 0
  if used name
   label name
   virtual at 0
    db data
    s = $
   end virtual
   d#elsz s
   if m < s
    m = s
   end if
   db data
   .size = $-name
   .maxl = m
  end if
}
 
macro lszc name,elsz,[lng,data] {  ; from MFAR [mike.dld]
 common
  local s,m,c
  m = 0
  c = 0
  if used name
   label name
 forward
  if lang eq lng
   virtual at 0
    db data
    s = $
   end virtual
   d#elsz s
   if m < s
    m = s
   end if
   db data
   c = c+1
  end if
 common
   .size  = $-name
   .maxl  = m
   .count = c
  end if
}
 
 
; easy system call macro
macro mpack dest, hsrc, lsrc
{
  if (hsrc eqtype 0) & (lsrc eqtype 0)
    mov dest, (hsrc) shl 16 + lsrc
  else
    if (hsrc eqtype 0) & (~lsrc eqtype 0)
      mov dest, (hsrc) shl 16
      add dest, lsrc
    else
      mov dest, hsrc
      shl dest, 16
      add dest, lsrc
    end if
  end if
}
 
;macro __mov reg,a {         ; mike.dld
; if ~a eq
;   mov reg,a
; end if
;}
 
macro __mov reg,a,b {	    ; mike.dld
 if (~a eq)&(~b eq)
   mpack reg,a,b
 else if (~a eq)&(b eq)
   mov reg,a
 end if
}
 
macro mcall a,b,c,d,e,f {   ; mike.dld
 __mov eax,a
 __mov ebx,b
 __mov ecx,c
 __mov edx,d
 __mov esi,e
 __mov edi,f
 int   0x40
}
 
 
; -------------------------
macro header a,[b] {
 common
  use32
  org 0
  db 'MENUET',a
 forward
  if b eq
   dd 0
  else
   dd b
  end if }
macro section name { align 16
 label name }
macro func name {
 if ~used name
  ;display 'FUNC NOT USED: ',`name,13,10
 else
  align 4
  name:
  ;diff16 `name,0,name
;pushad
;pushfd
;dps `name
;newline
;mcall 5,1
;popfd
;popad
}
macro endf { end if }
 
macro diff16 title,l1,l2
 {
  local s,d
  s = l2-l1
  display title,': 0x'
  repeat 8
   d = '0' + s shr ((8-%) shl 2) and $0F
   if d > '9'
    d = d + 'A'-'9'-1
   end if
   display d
  end repeat
  display 13,10
 }
 
macro diff10 title,l1,l2
 {
  local s,d,z,m
  s = l2-l1
  z = 0
  m = 1000000000
  display title,': '
  repeat 10
   d = '0' + s / m
   s = s - (s/m)*m
   m = m / 10
   if d <> '0'
    z = 1
   end if
   if z <> 0
    display d
   end if
  end repeat
  display 13,10
 }
 
; optimize the code for size
__regs fix 
 
macro add arg1,arg2
 {
   if (arg2 eqtype 0)
      if (arg2) = 1
	 inc arg1
      else
	 add arg1,arg2
      end if
   else
      add arg1,arg2
   end if
 }
 
macro sub arg1,arg2
 {
   if (arg2 eqtype 0)
      if (arg2) = 1
	 dec arg1
      else
	 sub arg1,arg2
      end if
   else
      sub arg1,arg2
   end if
 }
 
macro mov arg1,arg2
 {
   if (arg1 in __regs) & (arg2 eqtype 0)
      if (arg2) = 0
	 xor arg1,arg1
      else if (arg2) = 1
	 xor arg1,arg1
	 inc arg1
      else if (arg2) = -1
	 or  arg1,-1
      else if (arg2) > -128 & (arg2) < 128
	 push arg2
	 pop  arg1
      else
	 mov  arg1,arg2
      end if
   else
      mov arg1,arg2
   end if
 }
 
 
macro RGB [a] {
 common
  match (r=,g=,b),a \{
   \dd ((r) shl 16) or ((g) shl 8) or (b)
  \}
}
 
 
struc POINT _t,_dx,_dy {
 .x _t _dx
 .y _t _dy
}
 
; structure definition helper
include 'struct.inc'
 
struct RECT
  left	 dd ?
  top	 dd ?
  right  dd ?
  bottom dd ?
ends
 
struct BOX
  left	 dd ?
  top	 dd ?
  width  dd ?
  height dd ?
ends
 
; structures used in MeOS
struct process_information
  cpu_usage		  dd ?	; +0
  window_stack_position   dw ?	; +4
  window_stack_value	  dw ?	; +6
			  dw ?	; +8
  process_name		  rb 12 ; +10
  memory_start		  dd ?	; +22
  used_memory		  dd ?	; +26
  PID			  dd ?	; +30
  box			  BOX	; +34
  slot_state		  dw ?	; +50
			  dw ?	; +52
  client_box		  BOX	; +54
  rb (1024-52)
ends
 
struct system_colors
  frame 	   dd ?
  grab		   dd ?
  grab_button	   dd ?
  grab_button_text dd ?
  grab_text	   dd ?
  work		   dd ?
  work_button	   dd ?
  work_button_text dd ?
  work_text	   dd ?
  work_graph	   dd ?
ends
 
struct FILEDATE
  Second db ?
  Minute db ?
  Hour	 db ?
	 db ?
  Day	 db ?
  Month  db ?
  Year	 dw ?
ends
 
struct FILEINFO
  Attributes dd ?
  IsUnicode  db ?
	     db 3 dup(?)
  DateCreate FILEDATE
  DateAccess FILEDATE
  DateModify FILEDATE
  Size	     dq ?
ends
 
; constants
 
; events
EV_IDLE        = 0
EV_TIMER       = 0
EV_REDRAW      = 1
EV_KEY	       = 2
EV_BUTTON      = 3
EV_EXIT        = 4
EV_BACKGROUND  = 5
EV_MOUSE       = 6
EV_IPC	       = 7
EV_STACK       = 8
 
; event mask bits for function 40
EVM_REDRAW     =	1b
EVM_KEY        =       10b
EVM_BUTTON     =      100b
EVM_EXIT       =     1000b
EVM_BACKGROUND =    10000b
EVM_MOUSE      =   100000b
EVM_IPC        =  1000000b
EVM_STACK      = 10000000b

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

Subversion Repositories Kolibri OS

(root)/programs/develop/tinypad/trunk/macros.inc – Rev 178 → 259