&DL      PROC  &P,0                                                     00000000
XTIMSTP  NAME  X    . 07/31/74 ICAM/7 CONVERSION                        00000100
TIMSTP   NAME  0    . MPPS TIME STAMP (PACKET)                          00000200
.* .                                                                    00000300
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000400
.* .                                                                  * 00000500
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000600
.* .                                                                  * 00000700
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00000800
.* .                                                                  * 00000900
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001000
         GBL   &XT                                                      00001100
.* .                                                                    00001200
         DO    ''='&XT'                                                 00001300
&XT      SET   0                                                        00001400
         ENDO                                                           00001500
&XT      SET   &XT+1                                                    00001600
         DO    1-(''='&DL')                                             00001700
&DL      EQU   *                                                        00001800
         ENDO                                                           00001900
TK#LTB&XT EQU  *                                                        00002000
         DC    Y(TK#LTIM-TK#LMPPS)    . TIMSTP FUNCTION CODE            00002100
         DC    Y(TK#LTE&XT-TK#LTB&XT)  . LENGTH                         00002200
         DC    Y(6)                    . # CHARS                        00002300
         DC    H'0'                    . RESERVED                       00002400
TK#LTE&XT EQU  *                                                        00002500
         END                                                            00002600
