mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 20:48:06 +11:00
17 lines
264 B
Plaintext
17 lines
264 B
Plaintext
|
CODE _find ( cur w -- a f )
|
||
|
|
HL POPqq, ( w )
|
||
|
|
DE POPqq, ( cur )
|
||
|
|
chkPS,
|
||
|
|
( 3 == find )
|
||
|
|
3 CALLnn,
|
||
|
|
IFNZ,
|
||
|
|
( not found )
|
||
|
|
HL PUSHqq,
|
||
|
|
PUSH0,
|
||
|
|
JPNEXT,
|
||
|
|
THEN,
|
||
|
|
( found )
|
||
|
|
DE PUSHqq,
|
||
|
|
PUSH1,
|
||
|
|
;CODE
|