collapseos/blk/307
2020-04-22 21:19:12 -04:00

14 lines
158 B
Plaintext

( a -- a a )
CODE DUP
HL POPqq, ( A )
chkPS,
HL PUSHqq, ( A )
HL PUSHqq, ( A )
;CODE
( a -- )
CODE DROP
HL POPqq,
;CODE