diff options
| author | nratan <narenratan@gmail.com> | 2019-11-03 18:39:09 +0000 |
|---|---|---|
| committer | nratan <narenratan@gmail.com> | 2019-11-03 18:39:09 +0000 |
| commit | 47ab3e9e83210929097ed400ff29be40895fa586 (patch) | |
| tree | 89ccbaed146bf1eb70fc1fc9c788e55864678abf /original_jonesforth/test_stack.f | |
| download | jonesforth_arm64_apl-47ab3e9e83210929097ed400ff29be40895fa586.tar.gz | |
First commit
Diffstat (limited to 'original_jonesforth/test_stack.f')
| -rw-r--r-- | original_jonesforth/test_stack.f | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/original_jonesforth/test_stack.f b/original_jonesforth/test_stack.f new file mode 100644 index 0000000..1c4563d --- /dev/null +++ b/original_jonesforth/test_stack.f @@ -0,0 +1,17 @@ +( -*- text -*- ) + +: TEST + DEPTH . CR + + 42 DUP . . CR + 23 DROP DEPTH . CR + 1 2 SWAP . . CR + 1 2 OVER . . . CR + 1 2 3 -ROT . . . CR + 1 2 3 ROT . . . CR + 1 2 3 4 2DROP . . CR + 1 2 3 4 2DUP . . . . . . CR + 1 2 3 4 2SWAP . . . . CR + + DEPTH . CR +; |