1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-30 20:38:05 +11:00
collapseos/blk/309
2020-04-22 21:19:12 -04:00

12 lines
176 B
Plaintext

( a b -- a b a )
CODE OVER
HL POPqq, ( B )
DE POPqq, ( A )
chkPS,
DE PUSHqq, ( A )
HL PUSHqq, ( B )
DE PUSHqq, ( A )
;CODE