C ------------------------- C I GESTION D'ESPACE DISQUE I C ------------------------- C C LTRK LONGUEUR D'UN BLOC EN MOTS C NTRK NOMBRE DE BLOCS ESPACE DISQUE C NTRF PROCHAIN BLOC A FORMATTER C NTRL TETE DE CHAINE DES BLOCS LIBRES C JTRK CONTIENT TOUT LES CHAINAGE DE BLOC C C UN CHAINAGE DE BLOC EST MATERIALISE PAR UN NUMERO C DE PREMIER BLOC : ITRK1 C LE BLOC SUIVANT EST : ITRK2 = JTRK(ITRK1) C ET AINSI DE SUITE C LE DERNIER BLOC EST : ITRKN TEL QUE JTRK(ITRKN)=0 C C SEGMENT /PTRK/ (LLTRK=LTRK,NNTRK=NTRK,NTRF=1,NTRL=0,JTRK(NTRK)) SEGMENT , PTRK INTEGER LLTRK , NNTRK , NTRF , NTRL , JTRK(NTRK) ENDSEGMENT C C PROGRAMMEUR : MOUGIN C MODIF : 312/01/89 A LA MODE PTRK ... C C----------------------------------------------------------------------- C
© Cast3M 2003 - Tous droits réservés.
Mentions légales