collapseos/blk/330

16 lines
244 B
Plaintext
Raw Normal View History

2020-04-22 21:19:12 -04:00
CODE _find ( cur w -- a f )
HL POP, ( w )
DE POP, ( cur )
2020-04-22 21:19:12 -04:00
chkPS,
lblfind @ CALL,
2020-04-22 21:19:12 -04:00
IFNZ,
( not found )
HL PUSH,
2020-04-22 21:19:12 -04:00
PUSH0,
JPNEXT,
THEN,
( found )
DE PUSH,
2020-04-22 21:19:12 -04:00
PUSH1,
;CODE