LEX    'CMD16LEX'
* (c) Copyright PPC Paris 1986
        ID     #E1
        MSG    0
        POLL   0

        ENTRY  CMD16e
        CHAR   #D

        KEY    'CMD16'
        TOKEN  19
        ENDTXT

IOBFEN  EQU    #2F576   fin des buffers et dÅbut
         *              de la Pile de Commandes
RAWBFR  EQU    #2F580   CALC Mode Raw Buffer (fin
         *              de Cmd Stack)
MAXCMD  EQU    #2F976   nombre de niveaux-1 de la
         *              pile de commandes
NXTSTM  EQU    #08A48   NeXT STatMent
STDp    EQU    #03FB2   analyse de STD
STDd    EQU    #05303   dÅcompilation de STD

        REL(5) CMD16d
        REL(5) CMD16p
CMD16e  D1=(5) IOBFEN
        A=DAT1 A
        D1=A            D1= ADR: adresse dÅbut
         *              Cmd Stack
        C=0    W
        C=C-1  S        C[S]= 15 : nombre de
         *              boucles-1
        P=     3
        C=P    3        C[5-0]= 003000
CMD10   DAT1=C 6        on remplit l'espace
         *              rÅservÅ È la Command Stack
        D1=D1+ 6        par 16 fois la chaÑne
         *              003000 (qui code une
         *              entrÅe)
        C=C-1  S        C[S]= compteur de boucle
        GONC   CMD10
        CD1EX           C[A]= ADR+96
        D1=(5) RAWBFR
        P=P-1           P= 2 : nombre de boucles-1
CMD20   DAT1=C A        on poke 3 fois la
         *              longueur de la CMDS, mais
         *              pourquoi??
        D1=D1+ 5
        P=P-1           3 boucles exÅcutÅes?
        GONC   CMD20    non
        D1=(5) MAXCMD
        DAT1=C S        MAXCMD= C[S]= 15
        GOVLNG NXTSTM

CMD16d  GOVLNG STDd
CMD16p  GOVLNG STDp
        END