<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>
