2020-07-05 14:13:01 -04:00
|
|
|
CODE SWAP ( a b -- b a )
|
|
|
|
HL POP, ( B ) DE POP, ( A )
|
2020-04-22 21:19:12 -04:00
|
|
|
chkPS,
|
2020-07-05 14:13:01 -04:00
|
|
|
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 )
|
2020-04-22 21:19:12 -04:00
|
|
|
;CODE
|