collapseos/blk/307
2020-05-22 14:19:02 -04:00

18 lines
201 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