* -INC SMBLOC * * DESCRIPTEUR D'UN BLOC REPETER( UTILISER AUSSI POUR LES PROCEDURES) * MBLSUP EST LE POINTEUR SUR LE BLOC SUPERIEUR * IPSI EST LE NOMBRE DE SI COURAMMENT ACTIF DANS LE BLOC * MTXBLC CONTIENT LA DESCRIPTION DU BLOC SOUS FORME D'IMAGES CARTES * Y COMPRIT L'ORDRE DE FIN DE DESCRIPTION * MBCOUR CONTIENT LA POSITION COURANTE A L'INTERIEUR DU BLOC * MBCONT CONTIENT LE COMPTEUR * MBFONC INDIQUE SI ON EST EN INITIALISATION OU EN RELECTURE * MBERR CONTIENT LE NIVEAU D'ERREUR RENCONTRE PENDANT L'EXECUTION * DU BLOC * MBSOUC CONTIENT LE NIVEAU DE SOUCI RENCONTRE DANS LE BLOC * REINITIALISE A CHAQUE NOUVEAU PARCOURS DU BLOC * MBENUM CONTIENT EVENTUELLEMENT LE POINTEUR SUR LE LISTOBJE D'ENUMERATION * MDEOBJ POSITION A PARTIR DE LAQUELLE ON EXPLORE LA PILE OBJET POUR * UNE AFFECTATION * LE SEGMENT MPROCE SERT A SAUVER L'ETAT DE LA LECTURE * LE SEGMENT IARGUM EST SPECIFIQUE A LA PROCEDURE * IOBLIG =1 SI ARGUMENT OBLIGATOIRE * * SEGMENT /MBLOC/(MBLSUP,MBLPRO,MBCOUR,MBCONT,MBFONC,MTXBL,MBERR * # ,MDEOBJ,MFIOBJ,MSAPII,MPROCD,MARGUM,MBSOUC,MBENUM), MBLO1.MBLOC SEGMENT MBLOC INTEGER MBLSUP,MBLPRO,MBCOUR,MBCONT,MBFONC,MTXBL,MBERR,MBSOUC INTEGER MBENUM INTEGER MDEOBJ,MFIOBJ,MSAPII,MPROCD,MARGUM,ICONBO INTEGER ISPOTE,IIPOTE,MOBJCO ** CHARACTER*(LONOM) NCONBO CHARACTER*(24) NCONBO ENDSEGMENT SEGMENT ISSPOT INTEGER IPOTEM(NVQTEM) ENDSEGMENT POINTEUR MBLO1.MBLOC SEGMENT MTXBLC INTEGER NINSTV C pointe sur mtxblm et MTXBLB mtxtem nuinst INTEGER LMTXBM(NINST),MTXTTM(NINST) C INTEGER NUINSV(NINST) CHARACTER*(8) MTXBLM(NBNOMM) C pointe sur MTXBLA INTEGER MTXBA(NINST) INTEGER MTXBLA(IPVINN),MTXBLB(NBNOMM) C MTXTEM,NUINST ENDSEGMENT C SEGMENT MTXBLC(NBMOT) C SEGMENT MSAPI3 C INTEGER MSAPIJ(NBMOT) C CHARACTER*(8) MSAPIL(NBMOT) C INTEGER MSAPIN(NBMOT) C ENDSEGMENT SEGMENT MPROCE INTEGER KTABNO,MPOOB INTEGER LSTOP,LLCTAB INTEGER LBPILE,LHPILE,LMOTLU,LPTEM,LBNOM,LNILU,LOMLU INTEGER LEGAL,LNTEXT,LIPOS,LDPAR,LFPAR INTEGER LTTINT,LPVINT,LINTPO,LNTEMP,LRAZ,LUTIL INTEGER LCOUR,LPREC,LRAN,LLU,LFINAN CHARACTER*(500) LEXT CHARACTER*(72) LOT ENDSEGMENT POINTEUR MPROC1.MPROCE SEGMENT IARGUM CHARACTER*(8) MTYARG(NARG) CHARACTER*(72) MSTYPA(NARG) INTEGER ILTYPA(NARG),IOBLIG(NARG),ITRESU,MTXBB,MTXFLO,MTXMET ENDSEGMENT SEGMENT MTRESU INTEGER NRESI CHARACTER*(8) MTYRES(NRES) INTEGER IVARES(NRES) REAL*8 XFLRES(NRES) ENDSEGMENT SEGMENT MTXBI3 INTEGER MTXBI(NIS) CHARACTER*8 MTXBD(NIS) INTEGER MTXBE(NIS) ENDSEGMENT SEGMENT MTXFL3 REAL*8 XTFLO(NREE) INTEGER MITFLO(NREE) ENDSEGMENT *