Télécharger SMBLOC.INC

Retour à la liste

Numérotation des lignes :

  1. * -INC SMBLOC
  2. *
  3. * DESCRIPTEUR D'UN BLOC REPETER( UTILISER AUSSI POUR LES PROCEDURES)
  4. * MBLSUP EST LE POINTEUR SUR LE BLOC SUPERIEUR
  5. * IPSI EST LE NOMBRE DE SI COURAMMENT ACTIF DANS LE BLOC
  6. * MTXBLC CONTIENT LA DESCRIPTION DU BLOC SOUS FORME D'IMAGES CARTES
  7. * Y COMPRIT L'ORDRE DE FIN DE DESCRIPTION
  8. * MBCOUR CONTIENT LA POSITION COURANTE A L'INTERIEUR DU BLOC
  9. * MBCONT CONTIENT LE COMPTEUR
  10. * MBFONC INDIQUE SI ON EST EN INITIALISATION OU EN RELECTURE
  11. * MBERR CONTIENT LE NIVEAU D'ERREUR RENCONTRE PENDANT L'EXECUTION
  12. * DU BLOC
  13. * MDEOBJ POSITION A PARTIR DE LAQUELLE ON EXPLORE LA PILE OBJET POUR
  14. * UNE AFFECTATION
  15. * LE SEGMENT MPROCE SERT A SAUVER L'ETAT DE LA LECTURE
  16. * LE SEGMENT IARGUM EST SPECIFIQUE A LA PROCEDURE
  17. * IOBLIG =1 SI ARGUMENT OBLIGATOIRE
  18. *
  19. * SEGMENT /MBLOC/(MBLSUP,MBLPRO,MBCOUR,MBCONT,MBFONC,MTXBL,MBERR
  20. * # ,MDEOBJ,MFIOBJ,MSAPII,MPROCD,MARGUM), MBLO1.MBLOC
  21. SEGMENT MBLOC
  22. INTEGER MBLSUP,MBLPRO,MBCOUR,MBCONT,MBFONC,MTXBL,MBERR
  23. INTEGER MDEOBJ,MFIOBJ,MSAPII,MPROCD,MARGUM,ICONBO
  24. INTEGER ISPOTE,IIPOTE,MOBJCO
  25. CHARACTER*8 NCONBO
  26. ENDSEGMENT
  27. SEGMENT ISSPOT
  28. INTEGER IPOTEM(NVQTEM)
  29. ENDSEGMENT
  30. POINTEUR MBLO1.MBLOC
  31. SEGMENT MTXBLC
  32. INTEGER NINSTV
  33. C pointe sur mtxblm et MTXBLB mtxtem nuinst
  34. INTEGER LMTXBM(NINST),MTXTTM(NINST)
  35. C INTEGER NUINSV(NINST)
  36. CHARACTER*(8) MTXBLM(NBNOMM)
  37. C pointe sur MTXBLA
  38. INTEGER MTXBA(NINST)
  39. INTEGER MTXBLA(IPVINN),MTXBLB(NBNOMM)
  40. C MTXTEM,NUINST
  41. ENDSEGMENT
  42. C SEGMENT MTXBLC(NBMOT)
  43. SEGMENT MSAPI3
  44. INTEGER MSAPIJ(NBMOT)
  45. CHARACTER*(8) MSAPIL(NBMOT)
  46. INTEGER MSAPIN(NBMOT)
  47. ENDSEGMENT
  48. SEGMENT MPROCE
  49. INTEGER KTABNO,MPOOB
  50. INTEGER LSTOP,LLCTAB
  51. INTEGER LBPILE,LHPILE,LMOTLU,LPTEM,LBNOM,LNILU,LOMLU
  52. INTEGER LEGAL,LNTEXT,LIPOS,LDPAR,LFPAR
  53. INTEGER LTTINT,LPVINT,LINTPO,LNTEMP,LRAZ,LUTIL
  54. INTEGER LCOUR,LPREC,LRAN,LLU,LFINAN
  55. CHARACTER*(500) LEXT
  56. CHARACTER*(72) LOT
  57. ENDSEGMENT
  58. POINTEUR MPROC1.MPROCE
  59. SEGMENT IARGUM
  60. CHARACTER*(8) MTYARG(NARG)
  61. CHARACTER*(72) MSTYPA(NARG)
  62. INTEGER ILTYPA(NARG),IOBLIG(NARG),ITRESU,IVRESU,IFRESU,
  63. $ MTXBB,MTXFLO,MTXMET
  64. ENDSEGMENT
  65. SEGMENT MTRESU
  66. CHARACTER*(8) MTYRES(NRES)
  67. ENDSEGMENT
  68. SEGMENT MVRESU
  69. INTEGER IVARES(NRES)
  70. ENDSEGMENT
  71. SEGMENT MFRESU
  72. REAL*8 XFLRES(NRES)
  73. ENDSEGMENT
  74. SEGMENT MTXBI3
  75. INTEGER MTXBI(NIS)
  76. CHARACTER*8 MTXBD(NIS)
  77. INTEGER MTXBE(NIS)
  78. ENDSEGMENT
  79. SEGMENT MTXFL3
  80. REAL*8 XTFLO(NREE)
  81. INTEGER MITFLO(NREE)
  82. ENDSEGMENT
  83. *
  84.  

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