collapseos/blk/312

15 lines
192 B
Plaintext
Raw Permalink Normal View History

2020-04-22 21:19:12 -04:00
( a b -- )
CODE 2DROP
HL POPqq,
HL POPqq,
;CODE
2020-05-09 11:55:58 -04: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-22 21:19:12 -04:00