* asg/eval test substitution symbols* .eval	value, symbol* .asg "string", symbol* .asg string, symbol	.global L1,L2,L3,newlabel,end	.sslist				; list line substitutions	.text	.asg	*ar0+, INC		; replace a complete operand	.asg	ar0, FP			; replace a sub-operand	.asg	"add #1,a", doit	; macro-style	.asg	newlabel, LABEL		; replace a label	.asg	.word 0, PSEUDO		; replace with a directive	L1:	add	#100,a 		L2:	ld	*FP+,a 			L3:	ld	INC,a 				.asg	0,L2			LABEL:	add	#L2,a				doit					.asg	0, x	.loop	5	.eval	x+1,x				.word	x				.endloop	PSEUDO					* Tests from 5.3.2		.asg	AR0,FP	.asg	*AR1+,Ind	.asg	*AR1+0b,Rc_Prop	.asg	"string",strng		; NOTE:	"""string""" not supported	.asg	"a,b,c",parms	.asg	1,counter	.loop	100	.word	counter	.eval	counter + 1, counter	.endloopend:	.word	0x100		.end