TITLE	RTSYMBOL VALUES

	SEARCH	SIMMAC,SIMMCR

	IF2,<END>
	DEFINE XX(NA,VAL,S1,EN)<
	PRINTX NA	VAL	S1	EN
>
	DEFINE X(ROUT,S,DUM,N)<
	IFNB <N>,<XX(ROUT,\ROUT,S,N)>
	IFB  <N>,<XX(ROUT,\ROUT,S,.'ROUT)>
>
	DEFINE Y(PROT,SEG,S,F)<
	XX(PROT,\PROT,SEG,.'PROT)
>
	PRINTX SYMBOL	VALUE	SEG	ENTRY
	PRINTX ------------------------------
	RTSYMBOLS
	END