CMNT	 	sets input speed from jog/line speed
CMTL	 	Expects a jog data structure in SORD 4 (see enclosed)
	PORD	0	/t,Disabled,Enabled;Jog Enable
	PORD	0	/t,Off,Started;Start Signal
	PVAL	0	/o;Line Speed
	PVAL	0	/o;Jog Speed
ECMT
CMNT	 	Stores the result in SORD 6 at index 2
CMNT	 	Input:  É ¥ index/inst/data/É
CMNT	 	Output:  É ¥ É
PRIM	Stack/Xswap	É ¥ index/data/inst/É
LITO	4	É ¥ 4/index/data/inst/É
PRIM	S_tree/Replace	É ¥ inst/É
LITO	0	É ¥ 0/inst/É
LITO	4	É ¥ 4/0/inst/É
PRIM	S_tree/Read	É ¥ list/inst/É
PRIM	List/Behead	jog enable/list'/inst/É
BRFL	 	branch if not jog
	PRIM	List/Behead	start/list''/inst/É
	BRFL	 	branch if not start
		PRIM	Stack/Drop	inst/É
		LVAL	0	É ¥ 0/inst/É
		LCAL	JogEnd
	BRTR
	PRIM	List/Remove	list'''/line speed/inst/É
	PRIM	Stack/Drop	line speed/inst/É
	LCAL	JogEnd
BRTR
LITO	3	É ¥ 3/list'/inst/É
PRIM	List/Read	jog speed/list'/inst/É
PRIM	Stack/Xdrop	É ¥ jog speed/inst/É
LCAL	JogEnd
LDEF	JogEnd
	CMNT	 	Input:  É ¥ new speed/inst/É
	CMNT	 	Output:  É ¥ É
	LITO	6	É ¥ 6/new speed/inst/É
	LITO	2	É ¥ 2/6/new speed/inst/É
	PRIM	S_tree/Replace	inst/É
	PRIM	Heap/Store self
EDEF