OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [binutils-2.20.1/] [gas/] [testsuite/] [gas/] [tic54x/] [macro.s] - Rev 215

Compare with Previous | Blame | View Log

* Macro test
	.sslist
	.text
	.global abc, def, ghi, adr
 
* Macro library; load and use a macro in macros.lib
	.mlib "macros.lib"
 
	IN_MLIB	abc,def,ghi
 
add3	.macro	P1,P2,P3,ADDRP
	ld	P1,a			
	add	P2,a			
	add	P3,a			
	stl	a,ADDRP			
	.endm
	add3	abc, def, ghi, adr
 
* Forced substitution within a macro
force	.macro	x
	.asg	0, x
	.loop 8
AUX:x:	.set	x
	.eval	x+1,x
	.endloop		
	.endm
	force
 
* Subsripted substitution symbols
ADDX	.macro	ABC
	.var	TMP
	.asg	:ABC(1):,TMP	
	.if	$symcmp(TMP,"#") == 0
	ADD	ABC,A
	.else
	.emsg	"Bad macro parameter 'ABC'"
	.endif
	.endm
	ADDX	#100			; ADD #100,A
	.end
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.