FORTH
* (c) PPC Paris et l'Auteur, 1987

* Les mots en langage machine ne sont pas
* commentEs car ceux-ci (H part LIT-TY) sont
* trIs simples dans leur fonctionnement. Quand
* H LIT-TY son action est assez particuliIre,
* en effet la sEquence COMPILE LIT-TY , Equivaut
* H :  [COMPILE] LITERAL , O@ +



DEPTH  EQU    10     * A modifier pour imbriquer +

       WORD   'OSTACK'  * ( --- )
       RTNCC
PT     CON(5) STK
STK    BSS    5*DEPTH

       WORD   '>O'      * ( n --- )
       A=DAT1 A
       D1=D1+ 5
       CD1EX
       D=C    A
       D1=(5) PT
       C=DAT1 A
       CD1EX
       D1=D1+ 5
       DAT1=A A
       CD1EX
       DAT1=C A
       C=D    A
       D1=C
       RTNCC

       WORD   'O@'     * ( --- n)
       CD1EX
       D=C    A
       D1=(5) PT
       C=DAT1 A
       CD1EX
       A=DAT1 A
       C=D    A
       D1=C
       D1=D1- 5
       DAT1=A A
       RTNCC

       WORD   'O>'      * ( --- n)
       CD1EX
       D=C    A
       D1=(5) PT
       C=DAT1 A
       CD1EX
       A=DAT1 A
       D1=D1- 5
       CD1EX
       DAT1=C A
       C=D    A
       D1=C
       D1=D1- 5
       DAT1=A A
       RTNCC

       WORD   'O0'      * ( --- )
       AD1EX
       LC(5) STK
       D1=(5) PT
       DAT1=C A
       AD1EX
       RTNCC

       WORD   'LIT-TY'   * ( --- n)
       CD1EX
       D=C    A
       D1=(5) PT
       C=DAT1 A
       CD1EX
       C=DAT1 A
       A=DAT0 A
       A=A+C A
       D0=D0+ 5
       C=D    A
       D1=C
       D1=D1- 5
       DAT1=A A
       RTNCC

       END