collapseos/blk/309

12 lines
176 B
Plaintext
Raw Normal View History

2020-04-22 21:19:12 -04:00
( a b -- a b a )
CODE OVER
HL POPqq, ( B )
DE POPqq, ( A )
chkPS,
DE PUSHqq, ( A )
HL PUSHqq, ( B )
DE PUSHqq, ( A )
;CODE