CMNT	 	This is a patch instruction for 'Misc/Value to ordinal'
CMNT	 	Input:  É ¥ base/arg/É
CMNT	 	Output:  É ¥ rslt/É
CMNT	 	This patch assumes the ROM12 data formats
CMNT	 	and loses one bit of precision in the ordinal
PRIM	Ordinal/Right	Input:  É ¥ baseÖ2/arg/É
PRIM	Stack/Swap	É ¥ arg/baseÖ2/É
PRIM	Value/Test negative	É ¥ rslt/arg/baseÖ2/É
BRFL	 	branch if nonnegative
	PRIM	Value/Multiply	Input:  É ¥ arg*baseÖ2/É
	PRIM	Ordinal/Left	Input:  É ¥ rslt/É
BRTR
PRIM	Stack/Drop	É ¥ baseÖ2/É
PRIM	Stack/Drop	É ¥ É
LVAL	0	É ¥ 0/É