ssname.1
<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>