collapseos/blk/307

18 lines
201 B
Plaintext
Raw Permalink Normal View History

2020-04-22 21:19:12 -04:00
( a -- a a )
CODE DUP
2020-05-22 13:48:30 -04:00
HL POPqq, chkPS,
HL PUSHqq, HL PUSHqq,
;CODE
CODE ?DUP
HL POPqq, chkPS,
HL PUSHqq,
HLZ, IFNZ, HL PUSHqq, THEN,
2020-04-22 21:19:12 -04:00
;CODE
( a -- )
CODE DROP
HL POPqq,
;CODE