IDP         "SIP DEF PROCESSEUR"
         PAGE
<
<
<        I N T E R F A C E   D ' O V E R L A Y  :
<
<
<        FONCTION :
<                      CETTE ROUTINE EST CHARGEE DE CHARGER
<                    LA BRANCHE DE L'OVERLAY 'GE'/'EI' ;
<                    SI LE CHARGEMENT EST REUSSI , ELLE
<                    LUI DONNE LA MAIN ,
<                    SINON , ELLE REVIENT EN ERREUR.
<
<
<        ARGUMENT :
<                    W=ADRESSE 'BRANCH',
<                    A=ADRESSE DE 'DEMSGN'.
<
<
<        RESULTAT :
<                    LE RETOUR N'EST FAIT QU'EN CAS D'ERREUR.
<
<
         PROG
ZERO:    EQU         $
<
<
<        T R A N S M I S S I O N   D E S   A R G U M E N T S  :
<
<
         DZS         7               < ZONE DE TRANSMISSION ARGUMENTS :
CDRET:   VAL         2               < MOT2=CONDITIONS DE RETOUR (0=OK).
NCEI:    VAL         3               < <NOMC> DU NOEUD COURANT SUR
                                     < 6 CARACTERES (MOT3,MOT4,MOT5).
MODCAL:  VAL         6               < IDENTIFICATION DE L'APPELANT :
                                     < 0 : APPEL PAR !GE ,
                                     < 1 : APPEL PAR 'EI'.
<
<
<        A P P E L   O V E R L A Y  :
<
<
OVL:     EQU         $               < ENTRY DE CHARGEMENT DE LA
                                     < BRANCHE D'OVERLAY.
<        ON A ICI :
<                    A=@DEMSGN ,
<                    W=@BRANCHE.
         SVC         0               < ENVOI DE LA DEMANDE AU SGN.
         JNE         XXXRLD          < RETOUR EN ERREUR DU SGN.
<
< CAS OU LE CHARGEMENT DE L'OVERLAY EST CORRECT :
<
         BR          5,W             < ON PASSE ALORS LA MAIN A LA
                                     < BRANCHE QUE L'ON VIENT DE
                                     < CHARGER.
<
< CAS DES RETOURS EN ERREUR :
<
XXXRLD:  EQU         $
         RSR                         < RETOUR AU PROCESSEUR.
<
<
<        E N - T E T E   D U   P R O C E S S E U R  :
<
<
         TABLE
BRANCH:  EQU         $
NCEI:    VAL         ZERO-BRANCH+NCEI
CDRET:   VAL         ZERO-BRANCH+CDRET
MODCAL:  VAL         ZERO-BRANCH+MODCAL
         WORD        NMPROC          < NOM DU PROCESSEUR
         ASCI        "    "          < DESTINE A LA GENERATION.
         BYTE        '04;'D0         < <EON>-'P'+'80.
         WORD        '1F00           < TAILLE EN OCTETS AU CAS D'UN
                                     < APPEL PAR !CALL.