mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-23 19:48:06 +11:00
e31527f5ac
There are many situations where it can be useful. Worth it.
14 lines
277 B
Plaintext
14 lines
277 B
Plaintext
CODE DROP ( a -- )
|
|
HL POP, chkPS,
|
|
;CODE
|
|
CODE SWAP ( a b -- b a )
|
|
HL POP, ( B ) DE POP, ( A )
|
|
chkPS,
|
|
HL PUSH, ( B ) DE PUSH, ( A )
|
|
;CODE
|
|
CODE OVER ( a b -- a b a )
|
|
HL POP, ( B ) DE POP, ( A )
|
|
chkPS,
|
|
DE PUSH, ( A ) HL PUSH, ( B ) DE PUSH, ( A )
|
|
;CODE
|