<TITLE SSNAME>
	<DECLARE ("VALUE" <PRIMTYPE WORD> <PRIMTYPE WORD>)>
	<DPUSH	TP* (AB)>
	<PUSHJ	P* OUT>
	<JRST	FINIS>

<INTERNAL-ENTRY OUT 1>
	<SUBM	M* (P)>
	<MOVE	A* -1(TP)>
	<MOVE	B* (TP)>
	<*SUSET	[<(*400016*) B>]>
	<SUB	TP* [<(2) 2>]>
	<JRST 	MPOPJ>