WebSVN – Kolibri OS – Blame – /programs/macros.inc

Rev	Author	Line No.	Line
485	heavyiron	1	@^ fix macro comment {
		2	^@ fix }
		3
4795	Akyltist	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	}
485	heavyiron	15
4795	Akyltist	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
485	heavyiron	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
1567	dunkaist	185	macro sz name,[data] { ; from MFAR [mike.dld]
485	heavyiron	186	common
		187	if used name
		188	name db data
		189	.size = $-name
		190	end if
		191	}
		192
5943	pathoswith	193	macro szZ name,[data] { ; same as sz, but for zero terminated string [dunkaist]
1567	dunkaist	194	common
		195	if used name
		196	name db data,0
		197	.size = $-name-1
		198	end if
		199	}
		200	sz0 fix szZ
		201
485	heavyiron	202	macro lsz name,[lng,data] { ; from MFAR [mike.dld]
		203	common
		204	if used name
		205	label name
		206	forward
		207	if lang eq lng
		208	db data
		209	end if
		210	common
		211	.size = $-name
		212	end if
		213	}
		214
1567	dunkaist	215	macro szc name,elsz,[data] { ; from MFAR [mike.dld]
485	heavyiron	216	common
		217	local s,m
		218	m = 0
		219	if used name
		220	label name
		221	forward
		222	virtual at 0
		223	db data
		224	s = $
		225	end virtual
		226	d#elsz s
		227	if m < s
		228	m = s
		229	end if
		230	db data
		231	common
		232	.size = $-name
		233	.maxl = m
		234	end if
		235	}
		236
		237	macro lszc name,elsz,[lng,data] { ; from MFAR [mike.dld]
		238	common
		239	local s,m,c
		240	m = 0
		241	c = 0
		242	if used name
		243	label name
		244	forward
		245	if lang eq lng
		246	virtual at 0
		247	db data
		248	s = $
		249	end virtual
		250	d#elsz s
		251	if m < s
		252	m = s
		253	end if
		254	db data
		255	c = c+1
		256	end if
		257	common
		258	.size = $-name
		259	.maxl = m
		260	.count = c
		261	end if
		262	}
		263
		264
		265	; easy system call macro
		266	macro mpack dest, hsrc, lsrc
		267	{
		268	if (hsrc eqtype 0) & (lsrc eqtype 0)
		269	mov dest, (hsrc) shl 16 + lsrc
		270	else
		271	if (hsrc eqtype 0) & (~lsrc eqtype 0)
		272	mov dest, (hsrc) shl 16
		273	add dest, lsrc
		274	else
5947	pathoswith	275	mov dest, hsrc
485	heavyiron	276	shl dest, 16
		277	add dest, lsrc
		278	end if
		279	end if
		280	}
		281
1567	dunkaist	282	macro __mov reg,a,b { ; mike.dld

Subversion Repositories Kolibri OS

(root)/programs/macros.inc – Rev 6025