asg.s

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

* 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
	.endloop
end:	.word	0x100	
	.end