LEX    'TYPELEX'
* M. Martinet 1985
* JPC 25 p.48
        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