Télécharger la plaquette Cast3M


fr en

Télécharger oooxmv.eso

Retour à la liste

Numérotation des lignes : 

oooxmv

  1. C OOOXMV    SOURCE    PV090527  26/04/24    08:23:34     12524          
  2.       SUBROUTINE OOOXMV (LRET,PSEG,LSEG)
  3. C---------------------------------------------------------------------
  4. C
  5. C        DEPLACER UN SEGMENT EN MEMOIRE AVEC EXTENSION EVENTUELLE
  6. C                      EN ZONE MEMOIRE DYNAMIQUE
  7. C
  8. C   ->LRET  1  PLUS DE PLACE MEMOIRE
  9. C           2  OK
  10. C
  11. C     PSEG     POINTEUR DU SEGMENT
  12. C     LSEG     LONGUEUR DE DONNEES DE LA NOUVELLE VERSION DU SEGMENT
  13. C
  14. C PROGRAMMEUR : MOUGIN
  15. C       MODIF : 03/01/89    SUPPRIMER L'ARGUMENT  LRET  DU CALL OOOSUS
  16. C       MODIF : 25/01/89    SUPPRIMER L'ARGUMENT  IRET
  17. C
  18. C---------------------------------------------------------------------
  19. C
  20. %INC IOOADR
  21. %INC IOOADZ
  22. %INC IOODES
  23. %INC IOOSGM
  24. C
  25.       POINTEUR PSEG.PSEG
  26. C
  27.       LRET=2
  28. C
  29. C****** ACTIVATION DU SEGMENT A DEPLACER
  30. C
  31.       IDE = PSEG
  32. C      SAUVEGARDE DU DESCRIPTEUR DU SEGMENT A COPIER
  33.       ITYP =MDTYP(IDE)
  34.       IETAT=MDETAT(ITYP)
  35.       IQUEU=MDQUEU(ITYP)
  36.       IF (IETAT.NE.MDACT)                              THEN
  37.         CALL OOOACT (LRET,IDE,0)
  38.         IF (LRET.EQ.1)                                 RETURN
  39.       ENDIF
  40. C      SUPER SEGMENT ? : ON L'ECLATE :
  41.       IF (MDCAT(ITYP).EQ.MDBLOCK) CALL OOOSUS (MDMK(IDE))
  42. C
  43. C****** INITIALISATION DU NOUVEAU SEGMENT AVEC REGLE D'INSERTION GAUCHE
  44. C
  45.       LATGD = MZATGD(IZA,ZMEMDYN)
  46.       MZATGD(IZA,ZMEMDYN) = 0
  47.       CALL OOOINI (LRET,ID2,LSEG)
  48.       MZATGD(IZA,ZMEMDYN) = LATGD
  49.       IF (LRET.EQ.1)                                   RETURN
  50. C
  51.       ISG=MDISG(IDE)
  52.       LSG=MSLS1(ISG)
  53.       IS1=ISG+MSLZ1
  54.       IS2=MDISG(ID2)+MSLZ1
  55. C      TRANSFERT DONNEES-MOTS DE CONTROLE DE TETE
  56.       CALL OOOZMV (JSG(IS1+1),JSG(IS2+1),LSG-(MSLCZ))
  57.       MZJSS(DEPLACES)=MZJSS(DEPLACES)+1
  58.       MZJSM(DEPLACES)=MZJSM(DEPLACES)+LSG-(MSLCZ)
  59. C      ECHANGE DES DESCRIPTEURS
  60.       MSECH , IDE(ID2)
  61. C      SUPPRESSION DE L'ANCIEN SEGMENT ET DESACTIVATION DE LA NOUVELLE
  62. C       VERSION SI NECESSAIRE
  63.       IF (IETAT.NE.MDACT)                              THEN
  64.         IF (IQUEU.EQ.MDLRU)                            THEN
  65.           NDES=LMOD
  66.         ELSE
  67.           NDES=MMOD
  68.         ENDIF
  69.         CALL OOODES (LRET,IDE,NDES-1)
  70.       ENDIF
  71.       CALL OOOSUP   (LRET,ID2,0)
  72.  
  73.       END
  74.  
  75.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales