collapseos/blk/307
2020-06-04 10:39:59 -04:00

17 lines
200 B
Plaintext

( a -- a a )
CODE DUP
HL POPqq, chkPS,
HL PUSHqq, HL PUSHqq,
;CODE
CODE ?DUP
HL POPqq, chkPS,
HL PUSHqq,
HLZ, IFNZ, HL PUSHqq, THEN,
;CODE
( a -- )
CODE DROP
HL POPqq,
;CODE