1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 17:58:07 +11:00
collapseos/blk/312

16 lines
203 B
Plaintext
Raw Normal View History

2020-04-23 11:19:12 +10:00
( a b -- )
CODE 2DROP
HL POPqq,
HL POPqq,
chkPS,
;CODE
2020-05-10 01:55:58 +10:00
( a b -- a b a b )
CODE 2DUP
HL POPqq, ( b ) DE POPqq, ( a )
chkPS,
DE PUSHqq, HL PUSHqq,
DE PUSHqq, HL PUSHqq,
;CODE
2020-04-23 11:19:12 +10:00