collapseos/blk/046

17 lines
444 B
Plaintext
Raw Normal View History

Parameter Stack
DROP a --
DUP a -- a a
2020-05-22 13:48:30 -04:00
?DUP DUP if a is nonzero
2020-05-22 14:03:12 -04:00
NIP a b -- b
OVER a b -- a b a
ROT a b c -- b c a
SWAP a b -- b a
2020-05-22 14:17:38 -04:00
TUCK a b -- b a b
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 07:45:23 -04:00
'S Returns current stack pointer, not counting the
2020-05-22 14:17:38 -04:00
push it's making right now. (cont.)