STRE
	SGLB	Misc/Class Reference
		CLAS	354026
	ESBR
	SORD	2	main data structure
		LITO	0	state of acknowledge input
		LITO	1	/o,1,255;Default legend
		LITO	0	last message sent to display
	ESBR
	SORD	5	/e,,,,,,Alarm channels;Channel List
		ICAL	Dummy	/*/o;Channel name
		ICAL	Dummy	/o;Channel name
	ESBR
	CMNT	 	SORD 7  (ack'd alarm list)
	CMNT	 	SORD 8  (unack'd alarm list)
	SGLB	Output/#1	alarm connector list
		LCON	 	/*+;Alarm output
	ESBR
	SGLB	Output/#2	new alarm connector list
		LCON	 	/*+;Unack'd alarm output
	ESBR
	SGLB	Output/#3	display connector list
		LCON	 	/*+;Display output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	General/Initialize	for internal class use only
		CMNT	 	Expects:  É ¥ inst/É
		MACR	 	initialize channels
			PRIM	Heap/Name of self	É ¥ name/inst/É
			PRIM	Stack/Pop to aux	É/name ¥ inst/É
			LITO	0	É/name ¥ 0/inst/É
			LITO	5	É/name ¥ 5/0/inst/É
			PRIM	S_tree/Read	É/name ¥ channel_list/inst/É
			LCAL	Init	É/name ¥ inst/É
			PRIM	Stack/Push from aux	É ¥ name/inst/É
			PRIM	Heap/Set self	É ¥ inst/É
		EMAC
		MACR	 	initialize outputs
			LITO	0	É ¥ 0/inst/
			GSYM	Output/#1	É ¥ #1/0/inst/
			CALL	354024	É ¥ inst/
			LITO	0	É ¥ 0/inst/
			GSYM	Output/#2	É ¥ #2/0/inst/
			CALL	354024	É ¥ inst/
		EMAC
		MACR	 	initialize display
			LITO	2	É ¥ 2/inst/
			LITO	2	É ¥ 2/2/inst/
			PRIM	S_tree/Read	É ¥ legend/inst/
			GSYM	Output/#3	É ¥ #3/legend/inst/
			CALL	354024	É ¥ inst/
		EMAC
		PRIM	Heap/Store self
	ESBR
	SGLB	Alarm/Acknowledge	/3t5,false,true;Select...
		CMNT	 	Expects:  É ¥ inst/arg/É
		CALL	354063	É ¥ last/arg/inst/É
		BRFL	 	branch if last=0
			BRFL	 	branch if new=0
				PRIM	Heap/Store self
			BRTR
			LITO	8	É ¥ 8/inst/É
			PRIM	S_tree/Test for entry	É ¥ rslt/8/inst/É
			BRFL	 	branch if no unack'd alarms
				PRIM	Stack/Drop	É ¥ inst/É
				LITO	1	É ¥ 1/inst/É
				CALL	354065
			BRTR
			LITO	1	É ¥ 1/8/inst/É
			PRIM	Stack/Swap	É ¥ 8/1/inst/É
			PRIM	S_tree/Read	É ¥ index/inst/É
			GSYM	Alarm/IntAck	É ¥ method/index/inst/É
			CALL	354059	É ¥ inst/É
			LITO	1	É ¥ 1/inst/É
			CALL	354065
		BRTR
		BRFL	 	branch if new=0
			LITO	0	É ¥ 0/inst/É
			CALL	354065
		BRTR
		PRIM	Heap/Store self
	ESBR
	SGLB	Alarm/Report	for internal class use only
		CMNT	 	Expects:  É ¥ inst/transition/index/É
		PRIM	Stack/Switch	É ¥ index/transition/inst/É
		PRIM	Stack/Pop to aux	É/index ¥ transition/inst/É
		STRE	 	transition s-tree
			SORD	1	from safe to unack'd
				LITO	8	É/index ¥ 8/inst/É
				LCAL	attach	É ¥ rslt/inst/É
				BRFL	 	branch if no such entry
					MACR	 	set new alarm output high
						LITO	1	É ¥ 1/inst/É
						GSYM	Output/#2	É ¥ #2/1/inst/É
						CALL	354024	É ¥ inst/É
					EMAC
					LCAL	Display	É ¥ inst/É
					LITO	7	É ¥ 7/inst/É
					PRIM	S_tree/Test for entry	É ¥ rslt/7/inst/É
					PRIM	Stack/Xdrop	É ¥ rslt/inst/É
					BRFL	 	branch if no such entry
						LITO	1	É ¥ 1/inst/É
						GSYM	Output/#1	É ¥ #1/1/inst/É
						CALL	354024	É ¥ inst/É
						PRIM	Heap/Store self
					BRTR
					PRIM	Heap/Store self
				BRTR
				PRIM	Heap/Store self
			ESBR
			SORD	2	from ack'd to safe
				LITO	7	É/index ¥ 7/inst/É
				LCAL	remove	É/index ¥ rslt/inst/É
				PRIM	Stack/Drop from aux	É ¥ rslt/inst/É
				BRFL	 	branch if list removed
					LITO	8	É ¥ 8/inst/É
					PRIM	S_tree/Test for entry	É ¥ rslt/8/inst/É
					PRIM	Stack/Xdrop	É ¥ rslt/inst/É
					BRFL	 	branch if no unack'd entry
						MACR	 	set alarm output to low
							LITO	0	É ¥ 0/inst/É
							GSYM	Output/#1	É ¥ #1/0/inst/É
							CALL	354024	É ¥ inst/É
						EMAC
						LCAL	Display	É ¥ inst/É
						PRIM	Heap/Store self
					BRTR
					LCAL	Display	É ¥ inst/É
					PRIM	Heap/Store self
				BRTR
				LCAL	Display	É ¥ inst/É
				PRIM	Heap/Store self
			ESBR
			SORD	3	from unack'd to safe
				LITO	8	É/index ¥ 8/inst/É
				LCAL	remove	É/index ¥ rslt/inst/É
				PRIM	Stack/Drop from aux	É ¥ rslt/inst/É
				BRFL	 	branch if list removed
					LITO	7	É ¥ 7/inst/É
					PRIM	S_tree/Test for entry	É ¥ rslt/7/inst/É
					PRIM	Stack/Xdrop	É ¥ rslt/inst/É
					BRFL	 	branch if no ack'd entry
						MACR	 	Set alarm output to low
							LITO	0	É ¥ 0/inst/É
							GSYM	Output/#1	É ¥ #1/0/inst/É
							CALL	354024	É ¥ inst/É
						EMAC
						MACR	 	Set new alarm output to low
							LITO	0	É ¥ 0/inst/É
							GSYM	Output/#2	É ¥ #2/0/inst/É
							CALL	354024	É ¥ inst/É
						EMAC
						LCAL	Display	É ¥ inst/É
						PRIM	Heap/Store self
					BRTR
					MACR	 	set new alarm output to low
						LITO	0	É ¥ 0/inst/É
						GSYM	Output/#2	É ¥ #2/0/inst/É
						CALL	354024	É ¥ inst/É
					EMAC
					LCAL	Display	É ¥ inst/É
					PRIM	Heap/Store self
				BRTR
				LCAL	Display	É ¥ inst/É
				PRIM	Heap/Store self
			ESBR
			SORD	4	from unack'd to ack'd
				LITO	8	É/index ¥ 8/inst/É
				LCAL	remove	É/index ¥ rslt/inst/É
				PRIM	Stack/Swap	É/index ¥ inst/unack'd?/É
				LITO	7	É/index ¥ 7/inst/unack'd?/É
				LCAL	attach	É ¥ rslt/inst/unack'd?/É
				PRIM	Stack/Drop	É ¥ inst/unack'd?/É
				PRIM	Stack/Swap	É ¥ unack'd?/inst/É
				BRFL	 	branch if no more unack'd alarms
					MACR	 	set new alarm output to low
						LITO	0	É ¥ 0/inst/É
						GSYM	Output/#2	É ¥ #2/0/inst/É
						CALL	354024	É ¥ inst/É
					EMAC
					LCAL	Display	É ¥ inst/É
					PRIM	Heap/Store self
				BRTR
				LCAL	Display	É ¥ inst/É
				PRIM	Heap/Store self
			ESBR
		ESTR
	ESBR
	SGLB	Alarm/Get State	/2e85,No Alarms,Ack'd Alarms,Unack'd Alarms
		CMNT	 	Expects:  É ¥ inst/route/É
		LITO	8	É ¥ 8/inst/route/É
		PRIM	S_tree/Test for entry	É ¥ rslt/8/inst/route/É
		PRIM	Stack/Xdrop	É ¥ rslt/inst/route/É
		BRFL	 	branch if no unack'd alarms
			LITO	7	É ¥ 7/inst/route/É
			PRIM	S_tree/Test for entry	É ¥ rslt/7/inst/route/É
			PRIM	Stack/Xdrop	É ¥ rslt/inst/route/É
			CALL	354056
		BRTR
		LITO	2	É ¥ 2/inst/route/É
		CALL	354056
	ESBR
ESTR
LDEF	Init
	CMNT	 	Initializes all of the channels
	CMNT	 	Input:  É/master ¥ channel_list/inst/É
	CMNT	 	Output:  É/master ¥ inst/É
	PRIM	List/Test for leaf	Input:  É/master ¥ rslt/channel_list/inst/É
	BRFL	 	branch if not a leaf
		PRIM	List/Behead	É/master ¥ instance/channel_list/inst/É
		LCAL	InitSend	É/master ¥ channel_list/inst/É
		LCAL	Init
	BRTR
	PRIM	List/List to item	Input:  É/master ¥ instance/inst/É
	LCAL	InitSend
EDEF
LDEF	InitSend
	CMNT	 	Sends the initialize message
	CMNT	 	Input:  É/master ¥ instance/É
	CMNT	 	Output:  É/master ¥ É
	LIST	 	É/master ¥ list/instanceÉ
		GSYM	Alarm/Init
	ELST
	PRIM	List/Add	É/master ¥ list'É
	PRIM	Tags/Set delegate	É/master ¥ MSGE/É
	PRIM	Stack/Dup from aux	É/master ¥ master/MSGE/É
	PRIM	Stack/Swap	É/master ¥ MSGE/master/É
	PRIM	Misc/Execute	É/master ¥ É
EDEF
LDEF	Legend
	CMNT	 	Gets the legend number from the channel
	CMNT	 	Input:  É ¥ index/inst/É
	CMNT	 	Output:  É ¥ legend/inst/É
	PRIM	Heap/Name of self	É ¥ self/index/inst/É
	LIST	 	É ¥ list/self/index/inst/É
		GSYM	Alarm/Enquire
	ELST
	PRIM	Stack/Rotate down	É ¥ index/list/self/inst/É
	PRIM	List/Splice	É ¥ list'/self/inst/É
	PRIM	Tags/Set delegate	É ¥ MSGE/self/inst/É
	PRIM	Misc/Execute	É ¥ legend/self/inst/É
	PRIM	Stack/Swap	É ¥ self/legend/inst/É
	PRIM	Heap/Set self	É ¥ legend/inst/É
EDEF
LDEF	chop
	CMNT	 	recursive routine for removing the first entry of a specified element
	CMNT	 	rslt is false if the list was destroyed
	CMNT	 	Input:  É/index ¥ list/É
	CMNT	 	Output:  É/index ¥ rslt/(list')/É
	PRIM	List/Test for leaf	É/index ¥ rslt/list/É
	BRFL	 	branch if end of list
		PRIM	List/Behead	É/index ¥ entry/list'/É
		PRIM	Stack/Dup from aux	É/index ¥ index/entry/list'/É
		PRIM	Ordinal/Test equal	É/index ¥ rslt/entry/list'/É
		BRFL	 	branch if not equal
			PRIM	Stack/Swap	É/index ¥ list'/entry/É
			LCAL	chop	É/index ¥ rslt/(list')/entry/É
			BRFL	 	branch if the list was destroyed
				PRIM	List/Item to list	É/index ¥ list/É
				LITO	1	É/index ¥ 1/list/É
			BRTR
			PRIM	List/Add	É/index ¥ list/É
			LITO	1	É/index ¥ 1/list/É
		BRTR
		PRIM	Stack/Drop	É/index ¥ list'/É
		LITO	1	É/index ¥ 1/list'/É
	BRTR
	CMNT	 	temp
	PRIM	List/List to item	É/index ¥ entry/É
	PRIM	Stack/Dup from aux	É/index ¥ index/entry/É
	PRIM	Ordinal/Compare	É/index ¥ rslt/entry/É
	BRFL	 	branch if not equal
		PRIM	List/Item to list	É/index ¥ list/É
		LITO	1	É/index ¥ 1/list/É
	BRTR
	PRIM	Stack/Drop	É/index ¥ É
	LITO	0	É/index ¥ 0/É
EDEF
LDEF	attach
	CMNT	 	attaches to the end of, or creates entry
	CMNT	 	rslt is false if the list was created
	CMNT	 	Input:  É/index ¥ key/inst/É
	CMNT	 	Output:  É ¥ rslt/inst/É
	PRIM	S_tree/Test for entry	É/index ¥ rslt/key/inst/É
	BRFL	 	branch if no such entry
		PRIM	Stack/Push from aux	É ¥ index/key/inst/É
		PRIM	List/Item to list	É ¥ list/key/inst/É
		PRIM	S_tree/Put	É ¥ inst/É
		LITO	0	É ¥ 0/inst/É
	BRTR
	PRIM	S_tree/Get exact	É/index ¥ list/key/inst/É
	PRIM	Stack/Push from aux	É ¥ index/list/key/inst/É
	CALL	354107	É ¥ list'/key/inst/É
	PRIM	S_tree/Put	É ¥ inst/É
	LITO	1	É ¥ 1/inst/É
EDEF
LDEF	remove
	CMNT	 	recursive routine for removing the first entry of a specified element
	CMNT	 	Input:  É/index ¥ key/instÉ
	CMNT	 	Output:  É/index ¥ rslt/inst/É
	PRIM	S_tree/Get exact	É/index ¥ list/key/inst/É
	LCAL	chop	É/index ¥ rslt/(list)/key/inst/É
	BRFL	 	branch if list destroyed
		PRIM	Stack/Drop	É/index ¥ inst/É
		LITO	0	É/index ¥ 0/inst/É
	BRTR
	PRIM	S_tree/Put	É/index ¥ inst/É
	LITO	1	É/index ¥ 1/inst/É
EDEF
LDEF	Display
	CMNT	 	updates the display
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ inst/É
	LITO	1	É ¥ 1/inst/É
	LITO	8	É ¥ 8/1/inst/É
	PRIM	S_tree/Test and read	É ¥ rslt/(entry)/inst/É
	BRFL	 	branch if no unack'd alarms
		LITO	1	É ¥ 1/inst/É
		LITO	7	É ¥ 7/1/inst/É
		PRIM	S_tree/Test and read	É ¥ rslt/(entry)/inst/É
		BRFL	 	branch if no alarms
			LITO	2	É ¥ 2/inst/É
			LITO	2	É ¥ 2/2/inst/É
			PRIM	S_tree/Read	É ¥ default/inst/É
			LITO	256	É ¥ 256/default/inst/É
			PRIM	Ordinal/Add	É ¥ legend'/inst/É
			LCAL	DispEnd
		BRTR
		LCAL	Legend	É ¥ legend/inst/É
		LITO	512	É ¥ 512/legend/inst/É
		PRIM	Ordinal/Add	É ¥ legend'/inst/É
		LCAL	DispEnd
	BRTR
	LCAL	Legend	É ¥ legend/inst/É
	LITO	768	É ¥ 768/legend/inst/É
	PRIM	Ordinal/Add	É ¥ legend'/inst/É
	LCAL	DispEnd
EDEF
LDEF	DispEnd
	CMNT	 	Completes the Display LCAL
	CMNT	 	Input:  É ¥ legend/inst/É
	CMNT	 	Output:  É ¥ inst/É
	PRIM	Stack/Swap	É ¥ inst/legend/É
	LITO	3	É ¥ 3/inst/legend/É
	LITO	2	É ¥ 2/3/inst/legend/É
	PRIM	S_tree/Read	É ¥ last/inst/legend/É
	PRIM	Stack/Xswap	É ¥ last/legend/inst/É
	PRIM	Ordinal/Test equal	É ¥ rslt/legend/inst/É
	BRFL	 	branch if not equal
		PRIM	Stack/Dup down	É ¥ legend/inst/legend/É
		GSYM	Output/#3	É ¥ #3/legend/inst/legend/É
		CALL	354024	É ¥ inst/legend/É
		PRIM	Stack/Swap	É ¥ legend/inst/É
		LITO	3	É ¥ 3/legend/inst/É
		LITO	2	É ¥ 2/3/legend/inst/É
		PRIM	S_tree/Replace	É ¥ inst/É
	BRTR
	PRIM	Stack/Drop	É ¥ inst/É
EDEF