1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-28 14:18:05 +11:00
collapseos/blk/312
2020-05-09 11:55:58 -04:00

16 lines
203 B
Plaintext

( a b -- )
CODE 2DROP
HL POPqq,
HL POPqq,
chkPS,
;CODE
( a b -- a b a b )
CODE 2DUP
HL POPqq, ( b ) DE POPqq, ( a )
chkPS,
DE PUSHqq, HL PUSHqq,
DE PUSHqq, HL PUSHqq,
;CODE