Subversion Repositories openrisc_2011-10-31

*
* String substitution symbols
*			
	; if no quotes, interpret as subsymbol
	; if quotes, interpret as string, and do forced substitution
	.sslist
	.asg	value,SYMBOL
	.asg	SYMBOL,SYMBOL1
 
	.global label, x
	.word	x
 
* Substitution symbol functions	
label:	.word	$symlen(SYMBOL)		; 5, substitutes string for symbol
	.word	$symlen(":SYMBOL:")	; 5, forced substitution
	.word	$symlen("SYMBOL")	; 6, uses string directly
 
	.word	$symcmp(SYMBOL,"value")		; 0
 
	; requires 2nd arg to be a character; zero if not found
	.word	$firstch(":SYMBOL:",'a')	; 2
	.word	$lastch(SYMBOL,'a')		; 2
 
	.word	$isdefed(SYMBOL)		; 0 (value not in symtab)
	.word	$isdefed("label")		; 1 (string contents in symtab)
	.word	$isdefed("unknown")		; 0
 
	.asg	"1,2,3", list
	; both args must be identifiers
	.word	$ismember(SYMBOL,list)		; 1
	.word	SYMBOL				; now 1
	.word	list				; now 2,3
 
	.word	$iscons("010b")			; 1
	.word	$iscons("11111111B")		; 1
	.word	$iscons("011")			; 2 (5 -- TI bug)
	.word	$iscons("0x10")			; 3 (0 -- TI bug)
	.word	$iscons("'a'")			; 4
	.word	$iscons(SYMBOL)			; 5 ("1")
	.word	$iscons("SYMBOL")		; 0
 
	.word	$isname(SYMBOL)			; 0
 
	.word	$isreg(SYMBOL)			; 0
	.word	$isreg("AR0")			;
;	.word	$isreg("AG")			; should be 0, but we always 
						; use mmregs 
	.mmregs
x       .word   $isreg("AG")                    ; 1 if .mmregs, 0 otherwise
tag	.struct 10
	.word	1
	.endstruct
	.word	$structsz(tag)
	.word	$structacc(tag)			; this op is unspecified
	.end