1* asg/eval test substitution symbols
2* .eval	value, symbol
3* .asg "string", symbol
4* .asg string, symbol
5	.global L1,L2,L3,newlabel,end
6	.sslist				; list line substitutions
7	.text
8	.asg	*ar0+, INC		; replace a complete operand
9	.asg	ar0, FP			; replace a sub-operand
10	.asg	"add #1,a", doit	; macro-style
11	.asg	newlabel, LABEL		; replace a label
12	.asg	.word 0, PSEUDO		; replace with a directive
13
14L1:	add	#100,a
15L2:	ld	*FP+,a
16L3:	ld	INC,a
17	.asg	0,L2
18LABEL:	add	#L2,a
19	doit
20	.asg	0, x
21	.loop	5
22	.eval	x+1,x
23	.word	x
24	.endloop
25	PSEUDO
26
27* Tests from 5.3.2
28	.asg	AR0,FP
29	.asg	*AR1+,Ind
30	.asg	*AR1+0b,Rc_Prop
31	.asg	"string",strng		; NOTE:	"""string""" not supported
32	.asg	"a,b,c",parms
33	.asg	1,counter
34	.loop	100
35	.word	counter
36	.eval	counter + 1, counter
37	.endloop
38end:	.word	0x100
39	.end
40