stralign macros

#macro strlength(str)
	#define org_temp eval($)
	clr()
	wr("#define str \"",str,"\"")
	wr("#define strf concat(\"",str,"\")")
	run()
	.db str
	#define strl eval($-org_temp)
	.seek org_temp
#endmacro

#macro stralignl(str,x)
	strlength(str)
	stralignlloop(x-strl)
#endmacro
#macro stralignlloop(x)
	#if x > 0
		#define strf concat("\"",strf," \"")
		stralignlloop(x-1)
	#endif
#endmacro

#macro stralignm(str,x)
	strlength(str)
	stralignmloop1(x-strl)
#endmacro
#macro stralignmloop1(x)
	#if x > 0
		#define strf concat("\"",strf," \"")
		stralignmloop2(x-1)
	#endif
#endmacro
#macro stralignmloop2(x)
	#if x > 0
		#define strf concat("\" ",strf,"\"")
		stralignmloop1(x-1)
	#endif
#endmacro

#macro stralignr(str,x)
	strlength(str)
	stralignrloop(x-strl)
#endmacro
#macro stralignrloop(x)
	#if x > 0
		#define strf concat("\" ",strf,"\"")
		stralignrloop(x-1)
	#endif
#endmacro