mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-05 21:40:56 +11:00
17 lines
263 B
Plaintext
17 lines
263 B
Plaintext
CODE _find ( cur w -- a f )
|
|
HL POPqq, ( w )
|
|
DE POPqq, ( cur )
|
|
chkPS,
|
|
( 3 == find )
|
|
3 BCALL,
|
|
IFNZ,
|
|
( not found )
|
|
HL PUSHqq,
|
|
PUSH0,
|
|
JPNEXT,
|
|
THEN,
|
|
( found )
|
|
DE PUSHqq,
|
|
PUSH1,
|
|
;CODE
|