collapseos/blk/330

17 lines
263 B
Plaintext
Raw Permalink Normal View History

2020-04-22 21:19:12 -04:00
CODE _find ( cur w -- a f )
HL POPqq, ( w )
DE POPqq, ( cur )
chkPS,
( 3 == find )
3 BCALL,
2020-04-22 21:19:12 -04:00
IFNZ,
( not found )
HL PUSHqq,
PUSH0,
JPNEXT,
THEN,
( found )
DE PUSHqq,
PUSH1,
;CODE