STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354276
	ESBR
	SORD	3
		LITO	0	/t,Voltage,Current;Output type
		LITO	1	/t,Disabled,Enabled;Channel Status
	ESBR
	SORD	4
		LITO	0	Failed,Succeeded,Working;Voltage Output Cal
		LITO	0	Failed,Succeeded,Working;Current Output Cal
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354278
	ESBR
	SGLB	General/Initialize	for internal class use only
		CMNT	 	Expects:  É ¥ inst/É
		LCAL	Output Setup	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Analog/Get Output Type	/2t47,Voltage,Current
		LITO	1	output type index
		CALL	354074
	ESBR
	SGLB	Analog/Output Type	/3t46,Voltage,Current;Select...
		PRIM	Stack/Swap	É ¥ data/inst/É
		LITO	1	É ¥ 1/data/inst/É
		LITO	3	É ¥ 3/1/data/inst/É
		PRIM	S_tree/Replace	É ¥ inst/É
		LCAL	Output Setup
		PRIM	Heap/Store self
	ESBR
	SGLB	Analog/Output High Cal	/3v8,-100,100,0,100;Enter data (0% to 100%)...
		CMNT	 	expects:  É ¥ inst/target/É
		LITO	0	É ¥ 0/inst/target/É
		PRIM	Stack/Rotate down	É ¥ target/0/inst/É
		ASIO	Analog/SET_SLOPE	É ¥ inst/É
		LITO	1	É ¥ 1/inst/É
		LITO	3	É ¥ 3/1/inst/É
		PRIM	S_tree/Read	É ¥ output type/inst/É
		BRFL	 	É ¥ inst/É  (branch if output is volts)
			LITO	0	É ¥ 0/inst/É
			LITO	1	É ¥ 1/0/inst/É
			LITO	4	É ¥ 4/1/0/inst/É
			PRIM	S_tree/Replace	É ¥ inst/É  (reset Auto VCal Status)
			PRIM	Heap/Store self
		BRTR
		LITO	0	É ¥ 0/inst/É
		LITO	2	É ¥ 2/0/inst/É
		LITO	4	É ¥ 4/2/0/inst/É
		PRIM	S_tree/Replace	É ¥ inst/É  (reset Auto ICal Status)
		PRIM	Heap/Store self
	ESBR
	SGLB	Analog/Output Low Cal	/3v8,-100,100,0,100;Enter data (0% to 100%)...
		CMNT	 	expects:  É ¥ inst/target/É
		LITO	0	É ¥ 0/inst/target/É
		PRIM	Stack/Rotate down	É ¥ target/0/inst/É
		ASIO	Analog/SET_INTERCEPT	É ¥ inst/É
		LITO	1	É ¥ 1/inst/É
		LITO	3	É ¥ 3/1/inst/É
		PRIM	S_tree/Read	É ¥ output type/inst/É
		BRFL	 	É ¥ inst/É  (branch if output is volts)
			LITO	0	É ¥ 0/inst/É
			LITO	1	É ¥ 1/0/inst/É
			LITO	4	É ¥ 4/1/0/inst/É
			PRIM	S_tree/Replace	É ¥ inst/É  (reset Auto VCal Status)
			PRIM	Heap/Store self
		BRTR
		LITO	0	É ¥ 0/inst/É
		LITO	2	É ¥ 2/0/inst/É
		LITO	4	É ¥ 4/2/0/inst/É
		PRIM	S_tree/Replace	É ¥ inst/É  (reset Auto ICal Status)
		PRIM	Heap/Store self
	ESBR
	SGLB	Analog/Auto Vout Calibrate	/1
		CMTL	 	expects:  É ¥ inst/É
			CMNT	 	This method is designed for use with analog modules
			CMNT	 	which are connected to SSD's analog calibration station.
			CMNT	 	In general, it will not work otherwise.
		ECMT
		CMTL	 	inst will sit at bottom of stack throughout method
			CMNT	 	This method is designed for use with analog modules
			CMNT	 	which are connected to SSD's analog calibration station.
			CMNT	 	In general, it will not work otherwise.
		ECMT
		CMTL	 	although this won't be shown by stack descriptions
			CMNT	 	This method is designed for use with analog modules
			CMNT	 	which are connected to SSD's analog calibration station.
			CMNT	 	In general, it will not work otherwise.
		ECMT
		LITO	2	É ¥ 2/inst/É
		LITO	1	É ¥ 1/2/inst/É
		LITO	4	É ¥ 4/1/2/inst/É
		PRIM	S_tree/Replace	É ¥ inst/É  (set voltage calibration status register to 'working')
		LITO	0	É ¥ 0/inst/É
		LITO	1	É ¥ 1/0/inst/É
		LITO	3	É ¥ 3/1/0/inst/É
		PRIM	S_tree/Replace	É ¥ inst/É  (set voltage output mode)
		LCAL	Output Setup	É ¥ inst/É
		LVAL	0.0499893	É ¥ .05/É  (LoSetpoint)
		LVAL	0.0499893	É ¥ .05/.05/É  (LoRef/LoSP)
		LITO	1	É ¥ 1/.05/.05/É  (LoRecalFlag/LoRef/LoSP)
		LITO	0	É ¥ 0/1/.05/.05/É  (LoDataSetFlag/LoRecalFlag/LoRef/LoSP)
		LVAL	0.950011	É ¥ .95/0/1/.05/.05/É  (HiSP/LoDataSetFlag/LoRecalFlag/LoRef/LoSP)
		LVAL	0.950011	É ¥ .95/.95/0/1/.05/.05/É  (HiRef/HiSP/LoDataSetFlag/LoRecalFlag/LoRef/LoSP)
		LITO	1	É ¥ 1/.95/.95/0/1/.05/.05/É  (HiRecalFlag/HiRef/HiSP/LoDataSetFlag/LoRecalFlag/LoRef/LoSP)
		LITO	1	É ¥ 1/1/.95/.95/0/1/.05/.05/É  (HiDataSetFlag/HiRecalFlag/HiRef/HiSP/LoDataSetFlag/LoRecalFlag/LoRef/LoSP)
		LITO	20	É ¥ 20/1/1/.95/.95/0/1/.05/.05/É  (LoopCount/HiDataSetFlag/HiRecalFlag/HiRef/HiSP/LoDataSetFlag/LoRecalFlag/LoRef/LoSP)
		LCAL	ServoLoop	É ¥ rsltFlag/inst/É   (0 = failed;  1 = succeeded)
		LITO	1
		LITO	4
		PRIM	S_tree/Replace	update voltage calibration status register
		PRIM	Heap/Store self
	ESBR
	SGLB	Analog/Auto Iout Calibrate	/1
		CMTL	 	expects:  É ¥ inst/É
			CMNT	 	This method is designed for use with analog modules
			CMNT	 	which are connected to SSD's analog calibration station.
			CMNT	 	In general, it will not work otherwise.
		ECMT
		CMTL	 	inst will sit at bottom of stack throughout method
			CMNT	 	This method is designed for use with analog modules
			CMNT	 	which are connected to SSD's analog calibration station.
			CMNT	 	In general, it will not work otherwise.
		ECMT
		CMTL	 	although this won't be shown by stack descriptions
			CMNT	 	This method is designed for use with analog modules
			CMNT	 	which are connected to SSD's analog calibration station.
			CMNT	 	In general, it will not work otherwise.
		ECMT
		LITO	2	É ¥ 2/inst/É
		LITO	2	É ¥ 2/2/inst/É
		LITO	4	É ¥ 4/2/2/inst/É
		PRIM	S_tree/Replace	É ¥ inst/É  (set current calibration status register to 'working')
		LITO	1	É ¥ 1/inst/É
		LITO	1	É ¥ 1/1/inst/É
		LITO	3	É ¥ 3/1/1/inst/É
		PRIM	S_tree/Replace	É ¥ inst/É  (set current output mode)
		LCAL	Output Setup	É ¥ inst/É
		LVAL	0.149998	É ¥ LoSetpoint/É
		LVAL	0.319987	É ¥ LoRef/LoSP/É
		LITO	1	É ¥ LoRecalFlag/LoRef/LoSP/É
		LITO	0	É ¥ LoDataSetFlag/LoRecalFlag/LoRef/LoSP/É
		LVAL	0.850002	É ¥ HiSP/LoDataSetFlag/LoRecalFlag/LoRef/LoSP/É
		LVAL	0.880001	É ¥ HiRef/HiSP/LoDataSetFlag/LoRecalFlag/LoRef/LoSP/É
		LITO	1	É ¥ HiRecalFlag/HiRef/HiSP/LoDataSetFlag/LoRecalFlag/LoRef/LoSP/É
		LITO	1	É ¥ HiDataSetFlag/HiRecalFlag/HiRef/HiSP/LoDataSetFlag/LoRecalFlag/LoRef/LoSP/É
		LITO	20	É ¥ LoopCount/HiDataSetFlag/HiRecalFlag/HiRef/HiSP/LoDataSetFlag/LoRecalFlag/LoRef/LoSP/É
		LCAL	ServoLoop	É ¥ rsltFlag/É   (0 = failed;  1 = succeeded)
		LITO	2
		LITO	4
		PRIM	S_tree/Replace	update current calibration status register
		PRIM	Heap/Store self
	ESBR
	SGLB	Analog/Get Auto VCal Status	/2e112,Failed,Succeeded,Working
		LITO	1	output type index
		CALL	354076
	ESBR
	SGLB	Analog/Get Auto ICal Status	/2e112,Failed,Succeeded,Working
		LITO	2	output type index
		CALL	354076
	ESBR
ESTR
LDEF	Output Setup
	LITO	3	É ¥ 3/inst/É
	PRIM	S_tree/Entry to stack	É ¥ status/type/inst/É
	ASIO	Analog/ANLG_OP_TYPE	É ¥ inst/É
EDEF
LDEF	delay3
	CMNT	 	waits for 1.0 seconds
	PRIM	Timer/Get PAT	É ¥ time_now/É
	TIME	1000.000	É ¥ 1.0s/time_now/É
	PRIM	Timer/Add	É ¥ time_target/É
	LCAL	loop	É ¥ É
EDEF
LDEF	loop
	CMNT	 	delay loop
	PRIM	Timer/Get PAT	É ¥ time_now/time_target/É
	PRIM	Timer/Compare	É ¥ rslt/time_target/É
	BRFL	 	branch if done
		PRIM	Stack/Drop	É ¥ É
	BRTR
	LCAL	loop
EDEF
LDEF	ServoLoop
	CMNT	 	expects:  É ¥ LoopCount/DataSetFlag/RecalFlag/Ref/SP/DataSetFlag/RecalFlag/Ref/SP/É
	CMNT	 	abbrev.:  É ¥ LC/1DF/1RF/1Ref/1SP/2DF/2RF/2Ref/2SP/É
	CMTL	 	More info:
		CMNT	 	This code works by repeatedly calibrating the analog output
		CMNT	 	based on four data values (given as LoRef, LoSetpoint, HiRef, HiSetpoint)
		CMNT	 	which give the desired relationship for output setpoint and
		CMNT	 	output measured value at two different points along a line.
		CMNT	 	It is designed to be used with ServoVCal and ServoICal
		CMNT	 	and an analog module connected to SSD's calibration station.
	ECMT
	PRIM	Ordinal/Decrement	É ¥ LC-1/1DF/1RF/1Ref/1SP/2DF/2RF/2Ref/2SP/É
	PRIM	Stack/Duplicate	É ¥ LC-1/LC-1/1DF/1RF/1Ref/1SP/2DF/2RF/2Ref/2SP/É
	BRFL	 	É ¥ LC-1/1DF/1RF/1Ref/1SP/2DF/2RF/2Ref/2SP/É
		PRIM	Stack/Drop	É ¥ HDF/HRF/HiRef/HiSP/LDF/LRF/LoRef/LoSP/É
		PRIM	Stack/Drop	É ¥ HRF/HiRef/HiSP/LDF/LRF/LoRef/LoSP/É
		PRIM	Stack/Drop	É ¥ HiRef/HiSP/LDF/LRF/LoRef/LoSP/É
		PRIM	Stack/Drop	É ¥ HiSP/LDF/LRF/LoRef/LoSP/É
		PRIM	Stack/Drop	É ¥ LDF/LRF/LoRef/LoSP/É
		PRIM	Stack/Drop	É ¥ LRF/LoRef/LoSP/É
		PRIM	Stack/Drop	É ¥ LoRef/LoSP/É
		PRIM	Stack/Drop	É ¥ LoSP/É
		PRIM	Stack/Drop	É ¥ É
		LITO	0	É ¥ rsltFlag/É   (0 = unsuccessful calibration)
	BRTR
	PRIM	Stack/Pop to aux	É/LC-1 ¥ 1DF/1RF/1Ref/1SP/2DF/2RF/2Ref/2SP/É
	PRIM	Stack/Pop to aux	É/LC-1/1DF ¥ 1RF/1Ref/1SP/2DF/2RF/2Ref/2SP/É
	PRIM	Stack/Pop to aux	É/LC-1/1DF/1RF ¥ 1Ref/1SP/2DF/2RF/2Ref/2SP/É
	PRIM	Stack/Over	É/LC-1/1DF/1RF ¥ 1SP/1Ref/1SP/2DF/2RF/2Ref/2SP/É
	ASIO	Analog/SEND_ANLG_OUT	É/LC-1/1DF/1RF ¥ 1Ref/1SP/2DF/2RF/2Ref/2SP/É
	LCAL	delay3	(wait for 1.0 seconds)
	PRIM	Stack/Dup to aux	É/LC-1/1DF/1RF/1Ref ¥ 1Ref/1SP/2DF/2RF/2Ref/2SP/É
	CMNT	 	get scaled input 1 for output feedback
	CMTL	 	Note:
		CMNT	 	This assumes output is connected to input 1 externally
		CMNT	 	which is the case at the Analog Calibration Station
	ECMT
	LITO	1	É/LC-1/1DF/1RF/1Ref ¥ ch#/1Ref/1SP/2DF/2RF/2Ref/2SP/É
	ASIO	Analog/GET_ANLG_INPUT	É/LC-1/1DF/1RF/1Ref ¥ feedback/1Ref/1SP/2DF/2RF/2Ref/2SP/É
	PRIM	Stack/Dup to aux	É/LC-1/1DF/1RF/1Ref/fb ¥ fb/1Ref/1SP/2DF/2RF/2Ref/2SP/É
	PRIM	Value/Difference	É/LC-1/1DF/1RF/1Ref/fb ¥ fb-1Ref/1SP/2DF/2RF/2Ref/2SP/É
	PRIM	Value/Absolute	É/LC-1/1DF/1RF/1Ref/fb ¥ |fb-1Ref|/1SP/2DF/2RF/2Ref/2SP/É
	GSYM	Value/zero	É/LC-1/1DF/1RF/1Ref/fb ¥ zero/|fb-1Ref|/1SP/2DF/2RF/2Ref/2SP/É
	PRIM	Stack/Swap	É/LC-1/1DF/1RF/1Ref/fb ¥ |fb-1Ref|/zero/1SP/2DF/2RF/2Ref/2SP/É
	PRIM	Value/Compare	É/LC-1/1DF/1RF/1Ref/fb ¥ rslt/zero/1SP/2DF/2RF/2Ref/2SP/É   (rslt = 0 for fb ­ ref)
	PRIM	Stack/Xdrop	É/LC-1/1DF/1RF/1Ref/fb ¥ rslt/1SP/2DF/2RF/2Ref/2SP/É
	BRFL	 	É/LC-1/1DF/1RF/1Ref/fb ¥ 1SP/2DF/2RF/2Ref/2SP/É   (branch if fb ­ ref)
		CMNT	 	branch taken if fb ­ ref; recal flag will be set by SetCal
		PRIM	Stack/Push from aux	É/LC-1/1DF/1RF/1Ref ¥ fb/1SP/2DF/2RF/2Ref/2SP/É
		PRIM	Stack/Swap	É/LC-1/1DF/1RF/1Ref ¥ 1SP/fb/2DF/2RF/2Ref/2SP/É
		PRIM	Stack/Dup down	É/LC-1/1DF/1RF/1Ref ¥ 1SP/fb/1SP/2DF/2RF/2Ref/2SP/É
		PRIM	Value/Multiply	É/LC-1/1DF/1RF/1Ref ¥ 1SP*fb/1SP/2DF/2RF/2Ref/2SP/É
		PRIM	Stack/Dup from aux	É/LC-1/1DF/1RF/1Ref ¥ 1Ref/1SP*fb/1SP/2DF/2RF/2Ref/2SP/É
		PRIM	Value/Divide	É/LC-1/1DF/1RF/1Ref ¥ 1SP*fbÖ1Ref/1SP/2DF/2RF/2Ref/2SP/É
		PRIM	Stack/Swap	É/LC-1/1DF/1RF/1Ref ¥ 1SP/ScaledSP/2DF/2RF/2Ref/2SP/É
		PRIM	Stack/Pop to aux	É/LC-1/1DF/1RF/1Ref/1SP ¥ ScaledSP/2DF/2RF/2Ref/2SP/É
		LCAL	SetCal	É/LC-1/1DF/1RF/1Ref/1SP ¥ 2DF/2RF/2Ref/2SP/É
		LCAL	SetSwap	É ¥ LC-1/2DF/2RF/2Ref/2SP/1DF/1RF/1Ref/1SP/É   (activates inactive data point)
		LCAL	ServoLoop
	BRTR
	CMNT	 	branch not taken if fb = ref; clear active recal flag
	PRIM	Stack/Drop from aux	É/LC-1/1DF/1RF/1Ref ¥ 1SP/2DF/2RF/2Ref/2SP/É
	PRIM	Stack/Push from aux	É/LC-1/1DF/1RF ¥ 1Ref/1SP/2DF/2RF/2Ref/2SP/É
	PRIM	Stack/Drop from aux	É/LC-1/1DF ¥ 1Ref/1SP/2DF/2RF/2Ref/2SP/É
	LITO	0	É/LC-1/1DF ¥ 0/1Ref/1SP/2DF/2RF/2Ref/2SP/É   (clear active recal flag)
	PRIM	Stack/Pop to aux	É/LC-1/1DF/1RF ¥ 1Ref/1SP/2DF/2RF/2Ref/2SP/É
	PRIM	Stack/Pop to aux	É/LC-1/1DF/1RF/1Ref ¥ 1SP/2DF/2RF/2Ref/2SP/É
	PRIM	Stack/Rotate down	É/LC-1/1DF/1RF/1Ref ¥ 2RF/1SP/2DF/2Ref/2SP/É
	PRIM	Stack/Dup to aux	É/LC-1/1DF/1RF/1Ref/2RF ¥ 2RF/1SP/2DF/2Ref/2SP/É
	PRIM	Stack/Rotate up	É/LC-1/1DF/1RF/1Ref/2RF ¥ 1SP/2DF/2RF/2Ref/2SP/É
	PRIM	Stack/Push from aux	É/LC-1/1DF/1RF/1Ref ¥ 2RF/1SP/2DF/2RF/2Ref/2SP/É
	BRFL	 	É/LC-1/1DF/1RF/1Ref ¥ 1SP/2DF/2RF/2Ref/2SP/É
		CMNT	 	branch taken if both recal flags are clear indicating successful calibration
		PRIM	Stack/Drop	É/LC-1/1DF/1RF/1Ref ¥ 2DF/2RF/2Ref/2SP/É
		PRIM	Stack/Drop	É/LC-1/1DF/1RF/1Ref ¥ 2RF/2Ref/2SP/É
		PRIM	Stack/Drop	É/LC-1/1DF/1RF/1Ref ¥ 2Ref/2SP/É
		PRIM	Stack/Drop	É/LC-1/1DF/1RF/1Ref ¥ 2SP/É
		PRIM	Stack/Drop	É/LC-1/1DF/1RF/1Ref ¥ É
		PRIM	Stack/Drop from aux	É/LC-1/1DF/1RF ¥ É
		PRIM	Stack/Drop from aux	É/LC-1/1DF ¥ É
		PRIM	Stack/Drop from aux	É/LC-1 ¥ É
		PRIM	Stack/Drop from aux	É ¥ É
		LITO	1	É ¥ rsltFlag/É   (1 = successful calibration)
	BRTR
	CMNT	 	branch not taken if inactive recal flag is set
	CMNT	 	indicating that inactive data point must be cal'ed
	PRIM	Stack/Pop to aux	É/LC-1/1DF/1RF/1Ref/1SP ¥ 2DF/2RF/2Ref/2SP/É
	LCAL	SetSwap	É ¥ LC-1/2DF/2RF/2Ref/2SP/1DF/1RF/1Ref/1SP/É   (activates inactive data point)
	LCAL	ServoLoop
EDEF
LDEF	SetCal
	CMTL	 	expects:  É/LC-1/1DF/1RF/1Ref/1SP ¥ ScaledSP/2DF/2RF/2Ref/2SP/É
		CMNT	 	Aux Stack holds active data; Eval Stack holds inactive data
		CMNT	 	If 1DF = 0 then 2DF = 1 and Set Intercept is required
		CMNT	 	If 1DF = 1 then 2DF = 0 and Set Slope is required
	ECMT
	CMNT	 	Makes call to Set Slope or Set Intercept based on Hi/Lo data flag
	CMNT	 	using ScaledSP as target; also sets recal flag for active data set
	PRIM	Stack/Push from aux	É/LC-1/1DF/1RF/1Ref ¥ 1SP/ScaledSP/2DF/2RF/2Ref/2SP/É
	PRIM	Stack/Push from aux	É/LC-1/1DF/1RF ¥ 1Ref/1SP/ScaledSP/2DF/2RF/2Ref/2SP/É
	PRIM	Stack/Drop from aux	É/LC-1/1DF ¥ 1Ref/1SP/ScaledSP/2DF/2RF/2Ref/2SP/É
	LITO	1	É/LC-1/1DF ¥ 1/1Ref/1SP/ScaledSP/2DF/2RF/2Ref/2SP/É
	PRIM	Stack/Pop to aux	É/LC-1/1DF/1RF ¥ 1Ref/1SP/ScaledSP/2DF/2RF/2Ref/2SP/É
	PRIM	Stack/Pop to aux	É/LC-1/1DF/1RF/1Ref ¥ 1SP/ScaledSP/2DF/2RF/2Ref/2SP/É
	PRIM	Stack/Pop to aux	É/LC-1/1DF/1RF/1Ref/1SP ¥ ScaledSP/2DF/2RF/2Ref/2SP/É
	PRIM	Stack/Swap	É/LC-1/1DF/1RF/1Ref/1SP ¥ 2DF/ScaledSP/2RF/2Ref/2SP/É
	LITO	0	É/LC-1/1DF/1RF/1Ref/1SP ¥ 0/2DF/ScaledSP/2RF/2Ref/2SP/É   (0 is channel number for output calibration)
	PRIM	Stack/Swap	É/LC-1/1DF/1RF/1Ref/1SP ¥ 2DF/ch#/ScaledSP/2RF/2Ref/2SP/É
	PRIM	Stack/Duplicate	É/LC-1/1DF/1RF/1Ref/1SP ¥ 2DF/2DF/ch#/ScaledSP/2RF/2Ref/2SP/É
	PRIM	Stack/Pop to aux	É/LC-1/1DF/1RF/1Ref/1SP/2DF ¥ 2DF/ch#/ScaledSP/2RF/2Ref/2SP/É
	BRFL	 	É/LC-1/1DF/1RF/1Ref/1SP/2DF ¥ ch#/ScaledSP/2RF/2Ref/2SP/É   (branch if 2DF = 0; do Set Slope)
		PRIM	Stack/Swap	É/LC-1/1DF/1RF/1Ref/1SP/2DF ¥ ScaledSP/ch#/2RF/2Ref/2SP/É
		ASIO	Analog/SET_SLOPE	É/LC-1/1DF/1RF/1Ref/1SP/2DF ¥ 2RF/2Ref/2SP/É
		PRIM	Stack/Push from aux	É/LC-1/1DF/1RF/1Ref/1SP ¥ 2DF/2RF/2Ref/2SP/É
	BRTR
	PRIM	Stack/Swap	É/LC-1/1DF/1RF/1Ref/1SP/2DF ¥ ScaledSP/ch#/2RF/2Ref/2SP/É
	ASIO	Analog/SET_INTERCEPT	É/LC-1/1DF/1RF/1Ref/1SP/2DF ¥ 2RF/2Ref/2SP/É
	PRIM	Stack/Push from aux	É/LC-1/1DF/1RF/1Ref/1SP ¥ 2DF/2RF/2Ref/2SP/É
EDEF
LDEF	SetSwap
	CMNT	 	expects:  É/LC-1/1DF/1RF/1Ref/1SP ¥ 2DF/2RF/2Ref/2SP/É
	CMNT	 	returns:  É ¥ LC-1/2DF/2RF/2Ref/2SP/1DF/1RF/1Ref/1SP/É
	CMNT	 	Exchanges active and inactive data sets; also sets up stack frame
	CMNT	 	for tail recursive call to ServoLoop.
	PRIM	Stack/Push from aux	É/LC-1/1DF/1RF/1Ref ¥ 1SP/2DF/2RF/2Ref/2SP/É
	PRIM	Stack/Rotate up	....É/LC-1/1DF/1RF/1Ref ¥ 2DF/2RF/1SP/2Ref/2SP/É
	PRIM	Stack/Pop to aux	É/LC-1/1DF/1RF/1Ref/2DF ¥ 2RF/1SP/2Ref/2SP/É
	PRIM	Stack/Pop to aux	É/LC-1/1DF/1RF/1Ref/2DF/2RF ¥ 1SP/2Ref/2SP/É
	PRIM	Stack/Rotate up	....É/LC-1/1DF/1RF/1Ref/2DF/2RF ¥ 2Ref/2SP/1SP/É
	PRIM	Stack/Push from aux	É/LC-1/1DF/1RF/1Ref/2DF ¥ 2RF/2Ref/2SP/1SP/É
	PRIM	Stack/Push from aux	É/LC-1/1DF/1RF/1Ref ¥ 2DF/2RF/2Ref/2SP/1SP/É
	PRIM	Stack/Push from aux	É/LC-1/1DF/1RF ¥ 1Ref/2DF/2RF/2Ref/2SP/1SP/É
	PRIM	Stack/Rotate up	....É/LC-1/1DF/1RF ¥ 2DF/2RF/1Ref/2Ref/2SP/1SP/É
	PRIM	Stack/Pop to aux	É/LC-1/1DF/1RF/2DF ¥ 2RF/1Ref/2Ref/2SP/1SP/É
	PRIM	Stack/Pop to aux	É/LC-1/1DF/1RF/2DF/2RF ¥ 1Ref/2Ref/2SP/1SP/É
	PRIM	Stack/Rotate up	....É/LC-1/1DF/1RF/2DF/2RF ¥ 2Ref/2SP/1Ref/1SP/É
	PRIM	Stack/Push from aux	É/LC-1/1DF/1RF/2DF ¥ 2RF/2Ref/2SP/1Ref/1SP/É
	PRIM	Stack/Push from aux	É/LC-1/1DF/1RF ¥ 2DF/2RF/2Ref/2SP/1Ref/1SP/É
	PRIM	Stack/Push from aux	É/LC-1/1DF ¥ 1RF/2DF/2RF/2Ref/2SP/1Ref/1SP/É
	PRIM	Stack/Rotate up	....É/LC-1/1DF ¥ 2DF/2RF/1RF/2Ref/2SP/1Ref/1SP/É
	PRIM	Stack/Pop to aux	É/LC-1/1DF/2DF ¥ 2RF/1RF/2Ref/2SP/1Ref/1SP/É
	PRIM	Stack/Pop to aux	É/LC-1/1DF/2DF/2RF ¥ 1RF/2Ref/2SP/1Ref/1SP/É
	PRIM	Stack/Rotate up	....É/LC-1/1DF/2DF/2RF ¥ 2Ref/2SP/1RF/1Ref/1SP/É
	PRIM	Stack/Push from aux	É/LC-1/1DF/2DF ¥ 2RF/2Ref/2SP/1RF/1Ref/1SP/É
	PRIM	Stack/Push from aux	É/LC-1/1DF ¥ 2DF/2RF/2Ref/2SP/1RF/1Ref/1SP/É
	PRIM	Stack/Push from aux	É/LC-1 ¥ 1DF/2DF/2RF/2Ref/2SP/1RF/1Ref/1SP/É
	PRIM	Stack/Rotate up	....É/LC-1 ¥ 2DF/2RF/1DF/2Ref/2SP/1RF/1Ref/1SP/É
	PRIM	Stack/Pop to aux	É/LC-1/2DF ¥ 2RF/1DF/2Ref/2SP/1RF/1Ref/1SP/É
	PRIM	Stack/Pop to aux	É/LC-1/2DF/2RF ¥ 1DF/2Ref/2SP/1RF/1Ref/1SP/É
	PRIM	Stack/Rotate up	....É/LC-1/2DF/2RF ¥ 2Ref/2SP/1DF/1RF/1Ref/1SP/É
	PRIM	Stack/Push from aux	É/LC-1/2DF ¥ 2RF/2Ref/2SP/1DF/1RF/1Ref/1SP/É
	PRIM	Stack/Push from aux	É/LC-1 ¥ 2DF/2RF/2Ref/2SP/1DF/1RF/1Ref/1SP/É
	PRIM	Stack/Push from aux	É ¥ LC-1/2DF/2RF/2Ref/2SP/1DF/1RF/1Ref/1SP/É
EDEF