LEX    'TYPELEX'
* (c) Copyright PPC Paris 1986
        ID     #02
        MSG    0
        POLL   0
        ENTRY  type
        CHAR   #F
        KEY    'TYPE'
        TOKEN  48
        ENDTXT

FNRTN4  EQU    #0F238

        NIBHEX C11      La fonction TYPE admet
         *              n'importe quel type de
         *              paramÉtre.
type    A=DAT1 7        On charge dans A(6-0) le
         *              dÅbut du spÅcificateur du
         *              paramÉtre se trouvant
                        sur la Math Stack.
        ASRC            On opÅre deux rotations
         *              circulaires, toutes les
         *              oprÅrations et tests
        ASRC            sont effectuÅs par la
         *              suite dans le registres
         *              A(15-14) et C(15-14).
        C=0    W        On charge dans 
        P=     14       C(14) la valeur hexa
        LCHEX  9        9.
        ?C<A   P        Si A(14) est supÅrieur È
         *              9 nous ne sommes pas en
         *              prÅsence d'un nombre
                        REAL, SHORT ou INTEGER.
        GOYES  NN       Alors on branche en NN.
        C=0    P        La variable est du type
         *              0, on charge 0 dans C(W)
        GONC   Fnrtn4   avant le retour È BASIC.
NN      A=A+A  S        Si la variable est un
         *              tableau: A(S) est
         *              diffÅrent de 0. D'oË A=A+A
         *              S.
        ?A#0   S        Est-on en prÅsence d'un
         *              tableau ?
        GOYES TY01      Oui: on branche alors en
         *              TY01.
        LCHEX  D
        C=A-C  P
        A=A+1  P        Si A(15-14)= 00 nous
         *              sommes en prÅsence d'une
         *              chaÑne. Autrement C(14)= 1
                        et c'est soit un COMPLEX
         *              ou COMPLEX SHORT: il n'y a
         *              pas de Carry au test
                        suivant.
        GOC    TY00     Branchement en TY00 pour
         *              retour È BASIC avec 2 pour
         *              une chaÑne.
        D1=D1+ 2        Nous avons affaire È un
         *              nombre complex, on
         *              dÅcrÅmente le pointeur D1
        D1=D1+ 16       pour sauter la signature
         *              et la partie imaginaire du
         *              nombre: D1=D1+ 16
        GONC   Fnrtn4   Retour È Basic.
TY00    CD1EX           C'est une chaÑne: on
         *              place D1 sur la fin de
                        la chaÑne.
        C=C+A  A        A(A) contient la longueur
         *              de la chaÑne en quartets.
        CD1EX           D1=D1+ A(A)
        GONC   Fnrtn4   Retour È BASIC.
TY01    LCHEX  7        C'est un tableau: A(P)-7
         *              varie de 3 È 7 (voir
         *              article).
        C=A-C  P

Fnrtn4 GOVLNG FNRTN4    Retour È BASIC (voir JPC
         *              prÅcÅdents).

        END