CMNT	 	Patches the 'Ordinal/Do logic' primitive
CMNT	 	Input:  É ¥ MSB/3SB/2SB/LSB/MAP/É
CMNT	 	Output:  É ¥ Result/É
PRIM	Stack/Pop to aux	É/MSB ¥ 3SB/2SB/LSB/MAP/É
PRIM	Stack/Pop to aux	É/MSB/3SB ¥ 2SB/LSB/MAP/É
PRIM	Stack/Pop to aux	É/MSB/3SB/2SB ¥ LSB/MAP/É
LCAL	Do1	É/MSB/3SB/2SB ¥ MAP1/É
LCAL	Do2	É/MSB/3SB ¥ MAP2/É
LCAL	Do3	É/MSB ¥ MAP3/É
LCAL	Do4	É ¥ MAP4/É
LITO	1	É ¥ 1/MAP4/É
PRIM	Ordinal/And	É ¥ Result/É
LDEF	Do1
	BRFL	 	É/MSB/3SB/2SB ¥ MAP/É
		PRIM	Misc/Idle
	BRTR
	PRIM	Ordinal/Right	É/MSB/3SB/2SB ¥ MAP1/É
EDEF
LDEF	Do2
	PRIM	Stack/Push from aux	É/MSB/3SB ¥ 2SB/MAP1/É
	BRFL	 	É/MSB/3SB ¥ MAP1/É
		PRIM	Misc/Idle
	BRTR
	PRIM	Ordinal/Right
	PRIM	Ordinal/Right	É/MSB/3SB ¥ MAP2/É
EDEF
LDEF	Do3
	PRIM	Stack/Push from aux	É/MSB ¥ 3SB/MAP2/É
	BRFL	 	É/MSB ¥ MAP2/É
		PRIM	Misc/Idle
	BRTR
	PRIM	Ordinal/Right
	PRIM	Ordinal/Right
	PRIM	Ordinal/Right
	PRIM	Ordinal/Right	É/MSB ¥ MAP3/É
EDEF
LDEF	Do4
	PRIM	Stack/Push from aux	É ¥ MSB/MAP3/É
	BRFL	 	É ¥ MAP3/É
		PRIM	Misc/Idle
	BRTR
	PRIM	Ordinal/Right
	PRIM	Ordinal/Right
	PRIM	Ordinal/Right
	PRIM	Ordinal/Right
	PRIM	Ordinal/Right
	PRIM	Ordinal/Right
	PRIM	Ordinal/Right
	PRIM	Ordinal/Right	É ¥ MAP4/É
EDEF