Sources Esope | Cast3M

ooohor
C OOOHOR    SOURCE    PV090527  26/04/24    08:23:10     12524          
C  horodatage des segments pour test si autorisation de suppression
C
      subroutine ooohor(IHOR)
%INC IOOWCOM
%INC IOODES
%INC IOOADR
 
C     On met un SEGMENT pour avoir OOTHRD (le traducteur s'en charge)
      SEGMENT ISEG(0)
 
C     Definition de l'horodatage courant
      horo(oothrd)=IHOR
      return
 
C     Recuperation de l'horodatage du segment ISEG
      entry oooho1(ISEG,IHOR)
      ihor = MDHOR(ISEG)
      return
 
C     Recuperation de l'horodatage courant
      entry oooho2(IHOR)
      IHOR = horo(oothrd)
      end