2020-04-15 00:04:09 +10:00
|
|
|
Parameter Stack
|
|
|
|
|
|
|
|
DROP a --
|
|
|
|
DUP a -- a a
|
2020-05-23 03:48:30 +10:00
|
|
|
?DUP DUP if a is nonzero
|
2020-05-23 04:03:12 +10:00
|
|
|
NIP a b -- b
|
2020-04-15 00:04:09 +10:00
|
|
|
OVER a b -- a b a
|
|
|
|
ROT a b c -- b c a
|
|
|
|
SWAP a b -- b a
|
2020-05-23 04:17:38 +10:00
|
|
|
TUCK a b -- b a b
|
2020-04-15 00:04:09 +10:00
|
|
|
2DROP a a --
|
|
|
|
2DUP a b -- a b a b
|
|
|
|
2OVER a b c d -- a b c d a b
|
|
|
|
2SWAP a b c d -- c d a b
|
2020-04-21 21:45:23 +10:00
|
|
|
'S Returns current stack pointer, not counting the
|
2020-05-23 04:17:38 +10:00
|
|
|
push it's making right now. (cont.)
|