ASMB,Q,L
      NAM DATCO,7 92067-1X544 REV.2001 791101 
***************************************************************** 
*                                                               * 
*  (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS       * 
*  RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,        * 
*  REPRODUCED OR TRANSLATED TO ANOTHER PROGRAMMING LANGUAGE     * 
*  WITHOUT THE PRIOR WRITTEN CONSENT OF THE HEWLETT-PACKARD     * 
*  COMPANY.                                                     * 
*                                                               * 
***************************************************************** 
* 
*    NAME:  DATCO 
*  SOURCE:  92067-18544 
*   RELOC:  PART OF 92067-12003 
*    PGMR:  J.S.W 
* 
* 
* NAME: DATCO 
*          SUBROUTINE TO GET DATE CODE AND RETURN TO FORTRAN CALLER 
* 
* CALLING SEQUENCE: 
*      I=DATCO(IDUMMY)
* 
      EXT $DATC,.ENTR 
      ENT DATCO 
* 
* 
DUMMY NOP 
DATCO NOP 
      JSB .ENTR     SET UP THE RETURN ADDRESS 
      DEF DUMMY 
      LDA $DATC     GET DATE CODE 
      STA DUMMY,I   SET PARAMETER 
      JMP DATCO,I 
      END 
      END$
                                                                                                      