STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354795	Modular Adder
	ESBR
	SORD	2
		PORD	0	/o,0,65535;Input 1 preset
		PORD	0	/o,0,65535;Input 2 preset
		PORD	1	/o,1,65535;Divisor preset
	ESBR
	SORD	3
		LITO	0	quotient
		LITO	0	remainder
	ESBR
	SGLB	Output/#1
		LCON	 	/*+0,200,216,45,Q;Quotient
	ESBR
	SGLB	Output/#2
		LCON	 	/*+0,200,288,45,R;Remainder
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008	Object
	ESBR
	SGLB	General/Initialize
		CMNT	 	Expects:  É ¥ inst/É
		LCAL	Calc and Send	É ¥ É
	ESBR
	SGLB	SignalP/Input 1	/3u
		CMNT	 	Expects:  É ¥ inst/arg/É
		LITO	1
		LCAL	Input
	ESBR
	SGLB	SignalP/Input 2	/3u
		CMNT	 	Expects:  É ¥ inst/arg/É
		LITO	2
		LCAL	Input
	ESBR
	SGLB	SignalP/Divisor	/3u
		CMNT	 	Expects:  É ¥ inst/arg/É
		LITO	3
		LCAL	Input
	ESBR
	SGLB	SignalP/Get Quotient	/2u
		CMNT	 	Expects:  É ¥ inst/route/É
		LITO	1
		LCAL	Get Output
	ESBR
	SGLB	SignalP/Get Remainder	/2u
		CMNT	 	Expects:  É ¥ inst/route/É
		LITO	2
		LCAL	Get Output
	ESBR
	SGLB	SignalP/Get Input 1	/2u
		CMNT	 	Expects:  É ¥ inst/route/É
		LITO	1
		LCAL	Get Input
	ESBR
	SGLB	SignalP/Get Input 2	/2u
		CMNT	 	Expects:  É ¥ inst/route/É
		LITO	2
		LCAL	Get Input
	ESBR
	SGLB	SignalP/Get Divisor	/2u
		CMNT	 	Expects:  É ¥ inst/route/É
		LITO	3
		LCAL	Get Input
	ESBR
ESTR
CMTL	5	graphic info
	CMNT	4	-18,-18,218,396
	CMTL	3	0
		CMNT	24	16,0,180,45,2,1,a;SignalP/Input 1
		CMNT	24	16,0,252,45,2,2,b;SignalP/Input 2
		CMNT	24	16,0,324,45,2,3,d;SignalP/Divisor
	ECMT
	CMTL	7	0
		CMNT	22	-10,172,0,2,1,SignalP/Get Input 1;/u
		CMNT	22	-10,244,0,2,2,SignalP/Get Input 2;/u
		CMNT	22	-10,316,0,2,3,SignalP/Get Divisor;/u
		CMNT	14	220,226,1,3,1,SignalP/Get Quotient;/u
		CMNT	14	220,298,1,3,2,SignalP/Get Remainder;/u
	ECMT
	CMNT	8	0,0,200,378
	CMNT	14	70,50,a+b
	CMNT	12	65,62,147,62
	CMNT	14	94,120,d
ECMT
LDEF	Calc and Send
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ É
	CMNT	 	Get args and do calculation
	LITO	2	É ¥ 2/inst/É
	PRIM	S_tree/Entry to stack	É ¥ divisor/input2/input1/inst/É
	ASIO	Ordinal/Mod Add	É ¥ quotient/remainder/inst/É
	CMNT	 	Dup results into list and replace out state
	PRIM	Stack/Switch	É ¥ inst/remainder/quotient/É
	PRIM	Stack/Xover
	PRIM	Stack/Xover	É ¥ remainder/quotient/inst/remainder/quotient/É
	PRIM	Stack/Xswap	É ¥ remainder/inst/quotient/remainder/quotient/É
	LITO	2
	LITO	3
	PRIM	S_tree/Replace	É ¥ inst/quotient/remainder/quotient/É
	PRIM	Stack/Swap
	LITO	1
	LITO	3
	PRIM	S_tree/Replace	É ¥ inst/remainder/quotient/É
	CMNT	 	Send new ordinal outputs
	PRIM	Stack/Swap
	GSYM	Output/#2	É ¥ #2/remainder/inst/quotient/É
	PRIM	Misc/Send entry	É ¥ inst/quotient/É
	PRIM	Stack/Swap
	GSYM	Output/#1
	PRIM	Misc/Send entry	É ¥ inst/É
	PRIM	Heap/Store self
EDEF
LDEF	Input
	CMNT	 	Input:  É ¥ index/inst/arg/É
	CMNT	 	Output:  É ¥ É
	PRIM	Stack/Xswap	É ¥ index/arg/inst/É
	LITO	2
	PRIM	S_tree/Replace	É ¥ inst/É
	LCAL	Calc and Send	É ¥ É
EDEF
LDEF	Get Input
	CMNT	 	Input:  É ¥ index/inst/route/É
	CMNT	 	Output:  É ¥ É
	LITO	2
	PRIM	S_tree/Read	É ¥ result/inst/route/É
	CALL	354056	Respond withData
EDEF
LDEF	Get Output
	CMNT	 	Input:  É ¥ index/inst/route/É
	CMNT	 	Output:  É ¥ É
	LITO	3
	PRIM	S_tree/Read	É ¥ result/inst/route/É
	CALL	354056	Respond withData
EDEF