home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / forth / pfe-0.000 / pfe-0 / pfe-0.9.13 / test / stack.4th < prev    next >
Encoding:
Text File  |  1993-12-12  |  576 b   |  24 lines
  1. \
  2. \ test/stack.4th ---    test stack and return stack operators
  3. \ (duz 05Aug93)
  4. \
  5.  
  6. CR .( stack operators) CR .(    )
  7.  
  8. N1 N2        DROP    =N1        D SPACE
  9. N1 N2        DUP    =N2 =N2 =N1    D SPACE
  10. N1 N2        ?DUP    =N2 =N2 =N1    D SPACE
  11. N1 0        ?DUP    0= Y =N1    D SPACE
  12. N1 N2        SWAP    =N1 =N2        D SPACE
  13. N1 N2        OVER    =N1 =N2 =N1    D SPACE
  14. N1 N2 N3    ROT    =N1 =N3 =N2    D SPACE
  15. N1 N2        NIP    =N2        D SPACE
  16. N1 N2        TUCK    =N2 =N1 =N2    D SPACE
  17. N1 N2 N3    -ROT    =N2 =N1 =N3    D CR .(    )
  18.  
  19. D1 D2        2DROP    =D1        D SPACE
  20. D1 D2        2DUP    =D2 =D2 =D1    D SPACE
  21. D1 D2        2SWAP    =D1 =D2        D SPACE
  22. D1 D2        2OVER    =D1 =D2 =D1    D SPACE
  23. D1 D2 D3    2ROT    =D1 =D3 =D2    D SPACE
  24.