***********************************************************************************************
***********************************************************************************************
*********  P D L 0 ** Liste des Instructions **************************************************
***********************************************************************************************
***********************************************************************************(Al1 96/03/29)

(En cours de developpement.  Liste des rubriques.)
En fait on a du ZBM ainsi que les instructions FEI
            (Frenquently Encouentered Instructions)
Ecrit pour Futura avec note des non implements.


Entry Points

Parcours pour scanning des connections.
Processeur de Transfer                               Processeur de Cellule
From TR(LTR)                                           From CL(LCL)
< Skip thru TV(LTV)                                    < Skip thru SV(LSV)
  < Read thru CX(LCX) (j0cx=1,*)                         < Skip thru CX(LCX)
    < Skip thru SV(LSV)                                    < Skip thru TV(LTV)
      < Get CL(LCL);                                         < Get CL(LCL);
        From CL(LCL) < Get CD(LCD); >;                         From TR(LTR) < Get TD(LTD); >;
      >;"End LSV"                                            >;"End LTV"
    >;"End LCX"                                            >;"End LCX"
  >;"End LTV"                                            >;"End LSV"
>;"End From TR"                                        >;"End From CL"

Formes abbregees equivallentes
 Skip thru CX(LCX) (JOCx=1,*)/.CL(LCL)/SV(LSV2)/CX(LCX2.ne.LCX)/
          .TV(LTV2)/.TR(LTR2)
 < IF (LTR2).Types(2).EQ. 01 01 02   "TCdM"
   <
   >"End TCdM"
 > "close Skip thru CX/../TR2"

 effectue les tests pour skiper les T_Probes ( (LTV).Nb_Tr_Var=0 ).

 CX(LCX2.ne.LCX) : skip en cas d'egalite (test uniquement sur banks CX).
     *** adresse de la boucle CX locale. (LCX supposee definie precedemment);

 Aucun test sur les CPlugs;
Futura : (LSV).C_Plug_Nb .ne.3
         (LSV).C_Plug_Nm .eq.'Face'  (ATTENTION : respecte minuscules/Majuscules)
! /SV(LSV).eq.*-*/  pas d'effet
! /SV(LSV).eq.'Face'-*/  /SV(LSV).eq.*-1/
! /SV(LSV).eq.'Face'-(mod(machin)+1)/
! /SV(LSV).eq.*-1,2,3,4/
! /SV(LSV).eq.'Face'-1,2,3,4/  /SV(LSV).eq.*-1/
! /SV(LSV).ne.'Face-*/
! /SV(LSV).ne.'Face-1,2,3,4/

 Autres possibilites :

 .../TProbe(LTV)/ : ne prend que les T_Probes;
 .../All_TV(LTV)/ : prend tout;

 CX(LCX2.eq.LCX)  : skip en cas de non egalite;

 signification du /. : genere un get,                (=> ne prend donc que le premier Bk)
                       skip si (LTV).Nb_Tr_Var=0:
                       suivit d' un from;
 pour CX( )/.TV( )<  : skip to next CX si T_Probe;
 (avec son pendant /.TProbe( ) of course);

 Formes equivalentes :
  TPlug == TV;
  CPlug == SV;
  TPlug_Tprobe == All_TV;

 Rq : On peut toujours utiliser la forme CX(LCX) (JOCx=1,NCX), ou NCX a ete
definie precedemment.
    to next LSV etc  exit from LTV ???
    exit, next



Embranchements logiques

Facilites (en Librairie ou tours de mains)

Les differents types de variables et leur utilisation

Les symboles
(LSV).CPlug_Nm (CHAR*4) et (LSV).CPlug_Nb (INT*4)  (Futura)

Les Variables TEF et leurs flags

Les matrices TEF a remplir

Impressions

Passage de valeurs de parametres a VIZU

Utilisation de facilite ADA like : Procedures, Case etc

Les commentaires et Help

Remarques d'origines diverses et conseil d'ecriture d'un processeur

Instructions de plus bas niveau (pour information)
==================================================

Les +SEQ et +CDE du debut de DECK

SUGGESTIONS, CRITIQUES, FEATURES and UPGRADES that could help