16 lines
254 B
Plaintext
16 lines
254 B
Plaintext
CODE _find ( cur w -- a f )
|
|
HL POPqq, ( w )
|
|
DE POPqq, ( cur )
|
|
chkPS,
|
|
lblfind @ CALLnn,
|
|
IFNZ,
|
|
( not found )
|
|
HL PUSHqq,
|
|
PUSH0,
|
|
JPNEXT,
|
|
THEN,
|
|
( found )
|
|
DE PUSHqq,
|
|
PUSH1,
|
|
;CODE
|