1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-05 08:40:54 +11:00
collapseos/blk/046

17 lines
497 B
Plaintext
Raw Normal View History

Parameter Stack
DROP a --
DUP a -- a a
2020-05-23 03:48:30 +10:00
?DUP DUP if a is nonzero
OVER a b -- a b a
ROT a b c -- b c a
SWAP a b -- b a
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
push it's making right now.
S0 Returns address of PSP TOS. When PSP is empty,
2020-05-23 03:48:30 +10:00
'S == S0 (cont.)