STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354496
	ESBR
	SORD	2
		LITO	6	state
		LITO	0	video ref
		LITO	1	blink state:  1-low, 2-high, 3-blink low, 4-blink high
	ESBR
	SORD	3	strings
		LIST	 	Default Legend (Initialization)
			STRG	Network OK	/o;Legend
		ELST
		LIST	 	Legend 2 (No Configuration)
			STRG	No Config.
		ELST
		LIST	 	Legend 3 (L Error)
			STRG	L Error
		ELST
		LIST	 	Legend 4 (H Error)
			STRG	H Error
		ELST
		LIST	 	Legend 5 (Failed Self-Test)
			STRG	*
		ELST
		LIST	 	Legend 6 (Shutdown)
			STRG	*
		ELST
		LIST	 	Legend 7 (OK [used internally])
			STRG	*
		ELST
		LIST	 	Legend 8 (Network Warning)
			STRG	*
		ELST
		LIST	 	Legend 9 (Network Failure)
			STRG	Network Failure
		ELST
		LIST	 	Legend 10 (Checking Network)
			STRG	*
		ELST
		LIST	 	Legend 11 (Peer Halted)
			STRG	*
		ELST
	ESBR
	SORD	4	connector to be installed in System Control
		LIST	 	connector to install connector in system control
			GSYM	Conns/Update[ignore]
			LIST	 	data to be sent to System Control (output # and connector)
				GSYM	Output/#1
				LIST	 	connector
					GSYM	Conns/Update[attach]
					LNOD
					MSGE
						ICAL	 System	/i
						GSYM	OpStn/Report
					EMSG
				ELST
			ELST
			LNOD
			MSGE
				ICAL	 System
				GSYM	Hierarchy/Attach Conn
			EMSG
		ELST
	ESBR
	SORD	5	Alarm list
		LITO	1	current item (1 if no items, pointer otherwise)
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354040	inherits from SuperPM to get button functionality
	ESBR
	SGLB	OpStn/Init	internal class use only
		CMNT	 	Expects:  É ¥ inst/index/base/É
		CALL	354089	É ¥ inst/video ref/É
		MACR	 	initializes video object
			PRIM	Stack/Second to aux	É/video ref ¥ inst/É
			LITO	9	É/video ref ¥ 0/inst/É
			LITO	32768	É/video ref ¥ 0/0/inst/É
			LITO	3	É/video ref ¥ 0/0/0/inst/É
			LITO	0	É/video ref ¥ 0/0/0/0/inst/É
			LITO	3	É/video ref ¥ 0/0/0/0/0/inst/É
			LITO	0	É/video ref ¥ 0/0/0/0/0/0/inst/É
			LITO	5	É/video ref ¥ 5/0/0/0/0/0/0/inst/É
			PRIM	Stack/Dup from aux	É/video ref ¥ video ref/5/0/3/0/3/32768/9/inst/É
			ASIO	OpStn/INIT_VIDOBJ	É/video ref ¥ inst/É
		EMAC
		MACR	 	install format string
			LIST	 	É/video ref ¥ string/inst/É
				STRG	Address: ####	format string
			ELST
			PRIM	List/List to stack	É/video ref ¥ stringÉ/inst/É
			PRIM	Stack/Push from aux	É ¥ video ref/stringÉ/inst/É
			ASIO	OpStn/INSTALL_STRING	É ¥ inst/É
		EMAC
		MACR	 	install System Control connector
			LITO	4	É ¥ 4/inst/É
			PRIM	Stack/Dup to aux	É/dummy ¥ 4/inst/É
			PRIM	S_tree/Get exact	É/dummy ¥ list/4/inst/É
			PRIM	Misc/Send	É ¥ 4/inst/É
			PRIM	Stack/Drop	É ¥ inst/É
		EMAC
		LCAL	Refresh	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	OpStn/Button	internal class use only
		CMNT	 	Expects:  É ¥ inst/new/prev/É
		PRIM	Stack/Switch	É ¥ prev/new/inst/É
		STRE	 	previous state
			SORD	0	pressed
				PRIM	Stack/Drop	É ¥ new/inst/É
				PRIM	Stack/Drop	É ¥ inst/É
				PRIM	Heap/Store self
			ESBR
			SORD	6	release
				STRE	 	new state
					SORD	0	(2-5) scroll button
						PRIM	Stack/Drop	É ¥ inst/É
						CMNT	 	Scroll
						LITO	5	É ¥ 5/inst/É
						PRIM	S_tree/Get exact	É ¥ list/5/inst/É
						CALL	354373	É ¥ length/list/5/inst/É
						STRE
							SORD	0	list has multiple entries
								PRIM	Stack/Swap	É ¥ list/length/5/inst/É
								PRIM	List/Behead	É ¥ pointer/list/length/5/inst/É
								PRIM	Ordinal/Increment	É ¥ pointer+1/list/length/5/inst/É
								PRIM	Stack/Rotate down	É ¥ length/pointer+1/list/5/inst/É
								PRIM	Ordinal/Reverse compare	É ¥ rslt/length/pointer+1/list/5/inst/É
								PRIM	Stack/Xdrop	É ¥ rslt/pointer+1/list/5/inst/É
								BRFL	 	branch if pointer > length of list
									PRIM	Stack/Drop	É ¥ list/5/inst/É
									LITO	2	É ¥ new_ptr/list/5/inst/É
									LCAL	ScrollEnd
								BRTR
								LCAL	ScrollEnd
							ESBR
							SORD	1	list empty
								PRIM	S_tree/Put	É ¥ inst/É
								PRIM	Heap/Store self
							ESBR
							SORD	2	list has one entry
								PRIM	S_tree/Put	É ¥ inst/É
								PRIM	Heap/Store self
							ESBR
						ESTR
					ESBR
					SORD	1	clear button
						CMNT	 	Ack
						LITO	5	É ¥ 5/inst/É
						PRIM	S_tree/Get exact	É ¥ list/5/inst/É
						CALL	354373	É ¥ length/list/5/inst/É
						STRE
							SORD	0	list has multiple entries
								PRIM	Stack/Swap	É ¥ list/length/5/inst/É
								PRIM	List/Behead	É ¥ ptr/list/length/5/inst/É
								PRIM	Stack/Rotate down	É ¥ length/ptr/list/5/inst/É
								PRIM	Ordinal/Test equal	É ¥ rslt/ptr/list/5/inst/É
								BRFL	 	branch if current item is NOT leaf
									PRIM	Stack/Dup to aux	É/ptr ¥ ptr/list/5/inst/É
									PRIM	Ordinal/Decrement	É/ptr ¥ ptr*/list/5/inst/É
									LCAL	Ack	É/ptr ¥ rslt/list/5/inst/É
									PRIM	Stack/Push from aux	É ¥ ptr/rslt/list/5/inst/É
									PRIM	Stack/Second to aux	É/rslt ¥ ptr/list/5/inst/É
									PRIM	List/Splice	É/rslt ¥ list/5/inst/É
									PRIM	S_tree/Put	É/rslt ¥ inst/É
									PRIM	Stack/Push from aux	É ¥ rslt/inst/É
									BRFL	 	branch if refresh NOT required
										PRIM	Heap/Store self
									BRTR
									LCAL	Refresh	É ¥ inst/É
									PRIM	Heap/Store self
								BRTR
								PRIM	Stack/Pop to aux	É/count ¥ list/5/inst/É
								PRIM	List/List to stack	É/count ¥ leaf/listÉ/5/inst/É
								LCAL	AckTest	É/count ¥ rslt/leaf/listÉ/5/inst/É
								BRFL	 	branch if not cleared
									PRIM	Stack/Dup from aux	É/count ¥ count/leaf/listÉ/5/inst/É
									PRIM	Ordinal/Decrement	É/count ¥ count-1/leaf/listÉ/5/inst/É
									PRIM	List/Stack to list	É/count ¥ list/5/inst/É
									PRIM	Stack/Push from aux	É ¥ count/list/5/inst/É
									PRIM	List/Splice	É ¥ list/5/inst/É
									PRIM	S_tree/Put	É ¥ inst/É
									PRIM	Heap/Store self
								BRTR
								PRIM	Stack/Drop	É/count ¥ listÉ/5/inst/É
								PRIM	Stack/Push from aux	É ¥ count/listÉ/5/inst/É
								PRIM	Ordinal/Decrement	É ¥ count-1/listÉ/5/inst/É
								PRIM	Ordinal/Decrement	É ¥ count-2/listÉ/5/inst/É
								PRIM	List/Stack to list	É ¥ list/5/inst/É
								LITO	2	É ¥ 2/list/5/inst/É
								PRIM	List/Splice	É ¥ list/5/inst/É
								PRIM	S_tree/Put	É ¥ inst/É
								LCAL	Refresh	É ¥ inst/É
								PRIM	Heap/Store self
							ESBR
							SORD	1	list empty
								PRIM	S_tree/Put	É ¥ inst/É
								PRIM	Heap/Store self
							ESBR
							SORD	2	list has one entry
								PRIM	List/Remove	É ¥ list/ptr/5/inst/É
								PRIM	List/List to item	É ¥ entry/ptr/5/inst/É
								LCAL	AckTest	É ¥ rslt/entry/ptr/5/inst/É
								BRFL	 	branch if not cleared
									PRIM	List/Item to list	É ¥ list/ptr/5/inst/É
									PRIM	List/Add	É ¥ list/5/inst/É
									PRIM	S_tree/Put	É ¥ inst/É
									PRIM	Heap/Store self
								BRTR
								PRIM	Stack/Drop	É ¥ ptr/5/inst/É
								PRIM	Ordinal/Decrement	É ¥ 1/5/inst/É
								PRIM	List/Item to list	É ¥ list/5/inst/É
								PRIM	S_tree/Put	É ¥ inst/É
								LCAL	Refresh	É ¥ inst/É
								PRIM	Heap/Store self
							ESBR
						ESTR
					ESBR
					SORD	6	release
						PRIM	Heap/Store self	É ¥ É
					ESBR
				ESTR
			ESBR
		ESTR
	ESBR
	SGLB	OpStn/Report	internal class use only (from System Control)
		CMNT	 	Expects:  É ¥ inst/data/É
		CMNT	 	data is : -->addr-->code--X
		PRIM	Stack/Swap	É ¥ data/inst/É
		PRIM	List/List to stack	É ¥ code/addr/inst/É
		PRIM	Stack/Switch	É ¥ inst/addr/code/É
		PRIM	Stack/Xover	É ¥ code/inst/addr/code/É
		STRE	 	code s-tree
			SORD	0	Discard
				PRIM	Stack/Drop	É ¥ inst/code/addr/É
				PRIM	Stack/Xdrop	É ¥ inst/addr/É
				PRIM	Stack/Xdrop	É ¥ inst/É
				PRIM	Heap/Store self
			ESBR
			SORD	2	No Config : Add
				LCAL	Add
			ESBR
			SORD	3	L Error : Add
				LCAL	Add
			ESBR
			SORD	4	H Error : Add
				LCAL	Add
			ESBR
			SORD	7	Mark as clear: Clear
				CMNT	 	É ¥ inst/addr/code/É
				PRIM	Stack/Second to aux	É/addr ¥ inst/code/É
				PRIM	Stack/Xdrop	É/addr ¥ inst/É
				LITO	5	É/addr ¥ 5/inst/É
				PRIM	S_tree/Get exact	É/addr ¥ list/5/inst/É
				PRIM	List/Test for leaf	É/addr ¥ rslt/list/5/inst/É
				BRFL	 	branch if not leaf
					PRIM	List/Remove	É/addr ¥ list/ptr/5/inst/É
					LCAL	Clear	É ¥ list/ptr/5/inst/É
					PRIM	List/Add	É ¥ list/5/inst/É
					PRIM	S_tree/Put	É ¥ inst/É
					LCAL	Refresh	É ¥ inst/É
					PRIM	Heap/Store self
				BRTR
				PRIM	Stack/Drop from aux	É ¥ list/5/inst/É
				PRIM	S_tree/Put	É ¥ inst/É
				PRIM	Heap/Store self
			ESBR
			SORD	9	Network Failure : Add
				LCAL	Add
			ESBR
		ESTR
	ESBR
	SGLB	OpStn/Measured Value	override
	ESBR
	SGLB	OpStn/Setpoint	override
	ESBR
	SGLB	OpStn/Get Measured Value	override
	ESBR
	SGLB	OpStn/Get Setpoint	override
	ESBR
	SGLB	OpStn/Highlight	override
	ESBR
ESTR
CMTL	5	graphic info
	CMNT	4	-18,-18,2088,288
	CMTL	7	0
		CMNT	18	1080,127,0,3,1,;/s;%s
	ECMT
	CMNT	8	0,0,2070,270
	CMNT	16	30,36,2040,162,54
ECMT
LDEF	ScrollEnd	Called from Scroll operation within Button
	CMNT	 	Input:  É ¥ new_ptr/list/5/inst/É
	PRIM	List/Splice	É ¥ list/5/inst/É
	PRIM	S_tree/Put	É ¥ inst/É
	LCAL	Refresh	É ¥ inst/É
	PRIM	Heap/Store self
EDEF
LDEF	Add	Called from Report
	CMNT	 	Input:  É ¥ inst/addr/code/É
	PRIM	Stack/Switch	É ¥ code/addr/inst/É
	PRIM	List/Item to list	É ¥ entry/addr/inst/É
	PRIM	List/Add	É ¥ entry/inst/É
	PRIM	List/Item to list	É ¥ leaf/inst/É
	PRIM	Stack/Pop to aux	É/leaf ¥ inst/É
	LITO	5	É/leaf ¥ 5/inst/É
	PRIM	S_tree/Get exact	É/leaf ¥ list/5/inst/É
	PRIM	List/Test for leaf	É/leaf ¥ rslt/list/5/inst/É
	BRFL	 	branch if NOT a leaf
		LITO	5	É/leaf ¥ count/list/5/inst/É
		LCAL	AddLoop	É ¥ list/5/inst/É
		PRIM	S_tree/Put	É ¥ inst/É
		PRIM	Heap/Store self
	BRTR
	PRIM	Stack/Drop	É/leaf ¥ 5/inst/É
	PRIM	Stack/Push from aux	É ¥ leaf/5/inst/É
	LITO	2	É ¥ 2/leaf/5/inst/É
	PRIM	List/Splice	É ¥ list/5/inst/É
	PRIM	S_tree/Put	É ¥ inst/É
	LCAL	Refresh	É ¥ inst/É
	PRIM	Heap/Store self
EDEF
LDEF	AddLoop	used by Add
	CMNT	 	Input:  É/leaf ¥ count/list/É
	CMNT	 	Output:  É ¥ list/É
	PRIM	Stack/Duplicate	É/leaf ¥ count/count/list/É
	BRFL	 	branch if 5 entries
		PRIM	Stack/Drop	É/leaf ¥ list/É
		PRIM	Stack/Drop from aux	É ¥ list/É
	BRTR
	PRIM	Ordinal/Decrement	É/leaf ¥ count-1/list/É
	PRIM	Stack/Swap	É/leaf ¥ list/count-1/É
	PRIM	List/Test for leaf	É/leaf ¥ rslt/list/count-1/É
	BRFL	 	branch if not leaf
		PRIM	List/Behead	É/leaf ¥ entry/list/count-1/É
		PRIM	Stack/Switch	É/leaf ¥ count-1/list/entry/É
		LCAL	AddLoop	É ¥ list/entry/É
		PRIM	List/Add	É ¥ list/É
	BRTR
	PRIM	List/List to item	É/leaf ¥ item/count-1/É
	PRIM	Stack/Push from aux	É ¥ leaf/item/count-1/É
	PRIM	List/Add	É ¥ list/count-1/É
	PRIM	Stack/Xdrop	É ¥ list/É
EDEF
LDEF	Clear	Called from Report
	CMNT	 	For each entry in the list, check for addr match
	CMNT	 	Input:  É/addr ¥ list/É
	CMNT	 	Output:  É ¥ list/É
	PRIM	List/Test for leaf	É/addr ¥ rslt/list/É
	BRFL	 	branch if not done
		PRIM	List/Behead	É/addr ¥ entry/list/É
		PRIM	List/Behead	É/addr ¥ test/entry/list/É
		PRIM	Stack/Dup from aux	É/addr ¥ addr/test/entry/list/É
		LCAL	SetClear	É/addr ¥ entry/list/É
		PRIM	Stack/Swap	É/addr ¥ list/entry/É
		LCAL	Clear	É ¥ list/entry/É
		PRIM	List/Add	É ¥ list/É
	BRTR
	PRIM	List/List to item	É/addr ¥ entry/É
	PRIM	List/Behead	É/addr ¥ test/entry/É
	PRIM	Stack/Push from aux	É ¥ addr/test/entry/É
	LCAL	SetClear	É ¥ entry/É
	PRIM	List/Item to list	É ¥ list/É
EDEF
LDEF	SetClear	used by Clear
	CMNT	 	Input:  É ¥ addr/test/entry/É
	CMNT	 	Output:  É ¥ entry/É
	PRIM	Ordinal/Test equal	É ¥ rslt/test/entry/É
	BRFL	 	branch if not equal
		PRIM	List/Splice	É ¥ entry/É
	BRTR
	PRIM	Stack/Swap	É ¥ entry/test/É
	PRIM	List/List to item	É ¥ code/test/É
	LITO	128	É ¥ 128/code/test/É
	PRIM	Ordinal/Ior	É ¥ code/test/É
	PRIM	List/Item to list	É ¥ entry/test/É
	PRIM	List/Add	É ¥ entry/É
EDEF
LDEF	Refresh	Called from:  Init, ScrollEnd, 'Ack' (Button/6/1), Report
	CMNT	 	Refreshes the display based on the current state
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output: É ¥ inst/É
	CALL	354093	É ¥ vref/inst/É
	PRIM	Stack/Pop to aux	É/vref ¥ inst/É
	LITO	1	É/vref ¥ 1/inst/É
	LITO	5	É/vref ¥ 5/1/inst/É
	PRIM	S_tree/Read	É/vref ¥ pointer/inst/É
	PRIM	Stack/Duplicate	É/vref ¥ pointer/pointer/inst/É
	PRIM	Ordinal/Decrement	É/vref ¥ pointer-1/pointer/inst/É
	BRFL	 	branch if no fault information to display
		PRIM	Stack/Drop	É/vref ¥ inst/É
		MACR	 	Draws addr placeholder and turns off highlighting
			LITO	132	É/vref ¥ 132/inst/É
			PRIM	Stack/Dup from aux	É/vref ¥ vref/132/inst/É
			ASIO	OpStn/DRAW_TEXT	É/vref ¥ inst/É
			PRIM	Heap/Name of self	É/vref ¥ name/inst/É
			GSYM	OpStn/Highlight	É/vref ¥ method/name/inst/É
			LITO	0	É/vref ¥ 0/method/name/inst/É
			PRIM	Stack/Pop to aux	É/vref/0 ¥ method/name/inst/É
			CALL	354060	É/vref ¥ inst/É
		EMAC
		MACR	 	Draws default legend
			LITO	1	É/vref ¥ 1/inst/É
			LITO	3	É/vref ¥ 3/1/inst/É
			PRIM	S_tree/Read	É/vref ¥ legend/inst/É
			PRIM	List/List to stack	É/vref ¥ stringÉ/inst/É
			PRIM	Stack/Push from aux	É ¥ vref/stringÉ/inst/É
			PRIM	Ordinal/Increment	É ¥ vref'/stringÉ/inst/É
			PRIM	Stack/Duplicate	É ¥ vref'/vref'/stringÉ/inst/É
			ASIO	OpStn/LOWLIGHT	É ¥ vref'/stringÉ/inst/É
			ASIO	OpStn/DRAW_TEXT	É ¥ inst/É
		EMAC
	BRTR
	MACR	 	turn on highlighting
		PRIM	Heap/Name of self	É/vref ¥ name/pointer/inst/É
		GSYM	OpStn/Highlight	É/vref ¥ method/name/pointer/inst/É
		LITO	2	É/vref ¥ 2/method/name/pointer/inst/É
		PRIM	Stack/Pop to aux	É/vref/2 ¥ method/name/pointer/inst/É
		CALL	354060	É/vref ¥ pointer/inst/É
	EMAC
	MACR	 	get info:-  É/vref ¥ ref/addr/code/inst/É
		PRIM	Stack/Dup to aux	É/vref/pointer ¥ pointer/inst/É
		LITO	5	É/vref/pointer ¥ 5/pointer/inst/É
		PRIM	S_tree/Read	É/vref/pointer ¥ entry/inst/É
		PRIM	List/List to stack	É/vref/pointer ¥ code/addr/inst/É
		PRIM	Stack/Swap	É/vref/pointer ¥ addr/code/inst/É
		PRIM	Stack/Push from aux	É/vref ¥ pointer/addr/code/inst/É
		PRIM	Ordinal/Decrement	É/vref ¥ pointer-1/addr/code/inst/É
	EMAC
	MACR	 	draw address
		PRIM	Stack/Dup from aux	É/vref ¥ vref/ref/addr/code/inst/É
		PRIM	Stack/Rotate down	É/vref ¥ addr/vref/ref/code/inst/É
		ASIO	OpStn/WRITE_VAL	É/vref ¥ ref/code/inst/É
	EMAC
	MACR	 	draw legend for code
		PRIM	Stack/Pop to aux	É/vref/item ¥ code/inst/É
		PRIM	Stack/Dup down	É/vref/item ¥ code/inst/code/É
		LITO	127	É/vref/item ¥ 127/code/inst/code/É
		PRIM	Ordinal/And	É/vref/item ¥ code'/inst/code/É
		LITO	3	É/vref/item ¥ 3/code'/inst/code/É
		PRIM	S_tree/Read	É/vref/item ¥ string/inst/code/É
		PRIM	List/List to stack	É/vref/item ¥ stringÉ/inst/code/É
		PRIM	Stack/Push from aux	É/vref ¥ item/stringÉ/inst/code/É
		LCAL	Number	É/vref ¥ str2/stringÉ/inst/code/É
		PRIM	List/List to stack	É/vref ¥ stringÉ/inst/code/É
		PRIM	Stack/Push from aux	É ¥ vref/stringÉ/inst/code/É
		PRIM	Ordinal/Increment	É ¥ vref'/stringÉ/inst/code/É
		PRIM	Stack/Dup to aux	É/vref' ¥ vref'/stringÉ/inst/code/É
		ASIO	OpStn/DRAW_TEXT	É/vref' ¥ inst/code/É
	EMAC
	MACR	 	apply appropriate highlighting
		PRIM	Stack/Push from aux	É ¥ vref'/inst/code/É
		PRIM	Stack/Rotate down	É ¥ code/vref'/inst/É
		LITO	127	É ¥ 127/code/vref'/inst/É
		PRIM	Ordinal/Compare	É ¥ rslt/code/vref'/inst/É
		PRIM	Stack/Xdrop	É ¥ rslt/vref'/inst/É
		BRFL
			ASIO	OpStn/HIGHLIGHT	É ¥ inst/É
		BRTR
		ASIO	OpStn/LOWLIGHT	É ¥ inst/É
	EMAC
EDEF
LDEF	Number	Called from Refresh
	CMNT	 	Accepts a number and returns a string
	CMNT	 	Input:  É ¥ key/É
	CMNT	 	Output:  É string/É
	STRE
		SORD	1
			LIST
				LITO	8233
				LITO	12584
			ELST
		ESBR
		SORD	2
			LIST
				LITO	8233
				LITO	12840
			ELST
		ESBR
		SORD	3
			LIST
				LITO	8233
				LITO	13096
			ELST
		ESBR
		SORD	4
			LIST
				LITO	8233
				LITO	13352
			ELST
		ESBR
		SORD	5
			LIST
				LITO	8233
				LITO	13608
			ELST
		ESBR
	ESTR
EDEF
LDEF	Ack	Called from 'Ack' (Button/6/1)
	CMNT	 	Input:  É ¥ ptr/list/É
	CMNT	 	Output: É ¥ list/rslt/É
	PRIM	Ordinal/Decrement	É ¥ ptr-1/list/É
	PRIM	Stack/Duplicate	É ¥ ptr-1/ptr-1/list/É
	BRFL	 	branch if at entry
		PRIM	Stack/Drop	É ¥ list/É
		PRIM	List/Behead	É ¥ entry/list/É
		LCAL	AckTest	É ¥ rslt/entry/list/É
		BRFL	 	branch if not cleared
			PRIM	List/Splice	É ¥ list/É
			LITO	0	É ¥ 0/list/É
		BRTR
		PRIM	Stack/Drop	É ¥ list/É
		LITO	1	É ¥ 1/list/É
	BRTR
	PRIM	Stack/Swap	É ¥ list/ptr-1/É
	PRIM	List/Behead	É ¥ entry/list/ptr-1/É
	PRIM	Stack/Switch	É ¥ ptr-1/list/entry/É
	LCAL	Ack	É ¥ list/rslt/entry/É
	PRIM	Stack/Rotate down	É ¥ entry/list/rslt/É
	PRIM	List/Splice	É ¥ list/rslt/É
EDEF
LDEF	AckTest	Called from 'Ack' and subroutines
	CMNT	 	Input:  É ¥ entry/É
	CMNT	 	Output: É ¥ rslt/entry/É
	LITO	2	É/ptr ¥ 2/entry/É
	PRIM	List/Read	É/ptr ¥ code/entry/É
	LITO	128	É/ptr ¥ 128/code/entry/É
	PRIM	Ordinal/And	É/ptr ¥ rslt/entry/É
EDEF