1* Subsripted substitution symbols
2ADDX	.macro	ABC
3	.var	TMP
4	.asg	:ABC(1):,TMP
5	.if	$symcmp(TMP,"#") == 0
6	ADD	ABC,A
7	.else
8	.emsg	"Bad macro parameter 'ABC'"
9	.endif
10	.endm
11	ADDX	*AR1			; should produce an error msg
12	.end
13