Télécharger la plaquette Cast3M


fr en

Télécharger IOOADR.INC

Retour à la liste

Numérotation des lignes : 

  1. C                        ---------------------                                  
  2. C                       I  BASES D'ADRESSAGE  I                                 
  3. C                        ---------------------                                  
  4. C                                                                               
  5. C     SEGMENTS BIDONS FORCANT ESOPE A GENERER LES COMMON D'ADRESSAGE            
  6. C                                                                               
  7.       SEGMENT , PPPP(0)                                                         
  8. C                                                                               
  9. C     IZA  DEPLACEMENT DE LA ZONE  ESOPE  PAR RAPPORT AU :                      
  10. C          COMMON /OOOCOM/ OOA(1),OOT,OOV(8)                                    
  11. C     JZZ  ACCES AU CONTENU DE LA ZONE ESOPE : JZZ(    IZA+I),I=1,LZA           
  12. C     JSG  ACCES AU CONTENU D'UN SEGMENT     : JSG(    IS +I),I=1,LS            
  13. C     JTR  ACCES AU CONTENU D'UN TROU        : JTR(    IT +I),I=1,LT            
  14. C     JDE  ACCES AU CONTENU D'UN DESCRIPTEUR : JDE(OOT+IDE+I),I=0,LDE-1         
  15. C                                                                               
  16.       MACRO , IZA = OOA(1)                                                      
  17.       MACRO , JZZ = OOV , JSG=OOV , JTR=OOV , JDE=OOA                           
  18. C                                                                               
  19. C     DANS UN COMMON ASSOCIE , ON TROUVE UN CERTAIN NOMBRE                      
  20. C       D'INFORMATIONS DE CONTROLE                                              
  21. C                                                                               
  22.       COMMON /OOOCO1/    MZOC4     ,MZLB                                        
  23.      *       , MZIDE1   ,MZIDEX    ,MZIDEY   ,MZIDDX   , MZNDEX                 
  24.      *       , MZPTRK   ,MZPBUF    ,MZPRTR                                      
  25.      *       , MZCHN(64),MZQCHN(12),MZMKSS(8),MZCBUF(8),MZCMRU(12)              
  26.      *       , MZJSS(11),MZJSM(11)                                              
  27.      *       , MZJMM(7) ,MZSURV, MZATTE
  28. C                                                                               
  29. C     MZOC4         CONSTANTE ADRESSE PRODUISANT UNE ADRESSE INVALIDE           
  30. C     MZLB          DIMENSION DE LA ZONE BUFFER (BUF= ...)                      
  31. C     MZPTRK        POINTEUR SUR LE SEGMENT GESTION DISQUE                      
  32. C     MZPBUF        POINTEUR SUR LE SEGMENT BUFFER                              
  33. C     MZPRTR        PREMIER TROU POUR RETASSEMENT                               
  34. C     MZCHAIN(I)    TABLE TYPE D'UN SEGMENT(ITYP) --> CHAINE(ICHN)              
  35. C                                                                               
  36. C     MZQCHN (I)    COMPTEURS DE CHAINES DE SEGMENTS (UN PAR CHAINE)            
  37. C                   MZQCHN(I) I=1,MDNNCHN                                       
  38. C                                                                               
  39. C     MZMKSS (I)    TABLE TYPE D'UN COMPOSANT(ITYP) -->                         
  40. C                   --> ETAT DU SUPER SEGMENT(ISTAT)                            
  41. C     MZCBUF (I)    TABLE TYPE D'UN COMPOSANT(ITYP) -->                         
  42. C                   --> FILE BUFFER EN RECHERCHE DE PLACE(ICHNIO)               
  43. C     MZCMRU (I)    TABLE CHAINES MRU ---> CHAINES LRU                          
  44. C     MZIDE1        IDE1=BASE DE LA CHAINE DES DESCRIPTEURS LIBRES              
  45. C     MZIDEX        IDEX=PROCHAIN DESCRIPTEUR A ATTRIBUER                       
  46. C     MZIDEY        IDEY=DERNIER DESCRIPTEUR POUVANT ETRE ATTRIBUE SANS         
  47. C                        EXTENSION DU SGM DES DESCRIPTEURS                      
  48. C     MZIDDX        IDDX=DESCRIPTEUR DU SEGMENT DES DESCRIPTEURS                
  49. C     MZNDEX        NDEX=INCREMENT NOMBRE DE DESCRIPTEURS (EXTENSION)           
  50. C     MZSURV        numero du segment à surveiller         
  51. C     MZATTE        duree d'attente au dela de laquelle on affiche un message
  52. C                                                                               
  53. C                    -------------------------                                  
  54. C                   I  VARIABLES STATISTIQUES I                                 
  55. C                    -------------------------                                  
  56. C                                                                               
  57.       MACRO , MZNSTATS=11                                                       
  58. C                                                                               
  59.       MACRO , ( ACTUEL , DEF    , ACTACTIF , MAXACTIF , DEPLACES                
  60.      *        , VIDES  , RAPPEL , LUACT    , ECRIS    , LUS  ,DESCR    )              
  61. C                                                                               
  62. C                                                                               
  63. C     MZJSS( 1)     NOMBRE  ACTUEL  DE SEGMENTS                                 
  64. C     MZJSS( 2)     NOMBRE  MAXIMUM DE SEGMENTS                                 
  65. C     MZJSS( 3)     NOMBRE  ACTUEL  DE SEGMENTS ACTIFS                          
  66. C     MZJSS( 4)     NOMBRE  MAXIMUM DE SEGMENTS ACTIFS                          
  67. C     MZJSS( 5)     NOMBRE  DE SEGMENTS DEPLACES ( EN MEMOIRE )                 
  68. C     MZJSS( 6)     NOMBRE  DE SEGMENTS VIDES HORS MEMOIRE                      
  69. C     MZJSS( 7)     NOMBRE  DE SEGMENTS RAPPELES EN MEMOIRE                     
  70. C     MZJSS( 8)     NOMBRE  DE SEGMENTS LUS ET ACTIVES                          
  71. C     MZJSS( 9)     NOMBRE  DE BLOCS ECRITS SUR DISQUE                          
  72. C     MZJSS(10)     NOMBRE  DE BLOCS LUS SUR DISQUE                             
  73. C     MZJSS(11)     TAILLE  DU SEGMENT des DESCRIPTEURS                         
  74. C                                                                               
  75. C     MZJSM(I),I=1,MZNSTATS  IDEM  JSS  MAIS POUR LES MOTS                      
  76. C                                                                               
  77. C           *  LES VARIABLES STATISTIQUES DE GESTION MEMOIRE :                  
  78. C                                                                               
  79.       MACRO , MZNMM=7                                                           
  80. C                                                                               
  81.       MACRO , ( QBESOINPLACE  , NTROUSBALAYES , QRAZ                            
  82.      1        , NXFNG , NXFND , NXFNINI       , QXFNRAZ )                       
  83. C                                                                               
  84. C     MZJMM(1)     NOMBRE DE RECHERCHE DE PLACE (APPEL OOOMIN)                  
  85. C     MZJMM(2)     NOMBRE DE PARCOURS DE LA CHAINE DES TROUS (OOOMIN)           
  86. C     MZJMM(3)     QUANTITE DE MOTS REMISE A ZERO (OOOZRG)                      
  87. C     MZJMM(4)     NOMBRE D'EXTENSION GAUCHE(OOOXFN)                            
  88. C     MZJMM(5)     NOMBRE D'EXTENSION DROITE(OOOXFN)                            
  89. C     MZJMM(6)     NOMBRE DE RECOPIE POUR EXTENSION (OOOXFN)                    
  90. C     MZJMM(7)     QUANTITE DE RAZ LORS D'EXTENSION GAUCHE OOOXFN)              
  91. C                                                                               
  92. C-----------------------------------------------------------------------        
  93. C                                                                               
  94.  

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