CMNT	 	Given a ref, returns a mask
CMNT	 	Input:  É ¥ ref/É
CMNT	 	Output:  É ¥ mask/É
STRE
	SORD	1
		LITO	1
	ESBR
	SORD	2
		LITO	2
	ESBR
	SORD	3
		LITO	4
	ESBR
	SORD	4
		LITO	8
	ESBR
	SORD	5
		LITO	16
	ESBR
	SORD	6
		LITO	32
	ESBR
	SORD	7
		LITO	64
	ESBR
	SORD	8
		LITO	128
	ESBR
	SORD	9
		LITO	256
	ESBR
	SORD	10
		LITO	512
	ESBR
	SORD	11
		LITO	1024
	ESBR
	SORD	12
		LITO	2048
	ESBR
	SORD	13
		LITO	4096
	ESBR
	SORD	14
		LITO	8192
	ESBR
	SORD	15
		LITO	16384
	ESBR
	SORD	16
		LITO	32768
	ESBR
ESTR