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$