1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 15:38:05 +11:00
collapseos/blk/309

12 lines
234 B
Plaintext
Raw Normal View History

2020-07-06 04:13:01 +10:00
CODE SWAP ( a b -- b a )
HL POP, ( B ) DE POP, ( A )
2020-04-23 11:19:12 +10:00
chkPS,
2020-07-06 04:13:01 +10: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-23 11:19:12 +10:00
;CODE