retroforth/example/top-of-address-stack.retro
crc 9e03717deb normalize names for examples (with a couple of exceptions), closes #38
FossilOrigin-Name: 088675e452ed86a712563c8b2597fe4d47da59bdea0e40becdd1e028a84c47b0
2021-01-24 01:13:04 +00:00

7 lines
194 B
Forth

Short for *top of return stack*, this returns the top item on the
address stack. As an analog to traditional Forth, this is equivilent
to `R@`.
~~~
:tors (-n) pop pop dup push swap push ;
~~~