macro1.s

来自「俄罗斯高人Mamaich的Pocket gcc编译器（运行在PocketPC上）」· S 代码 · 共 13 行

* 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	*AR1			; should produce an error msg
	.end