mirror of https://github.com/hsoft/collapseos.git
10 lines
248 B
Plaintext
10 lines
248 B
Plaintext
|
CODE _find ( cur w -- a f )
|
||
|
|
SI POPx, ( w ) DI POPx, ( cur )
|
||
|
|
CALLn, lblfind @ RPCn,
|
||
|
|
IFNZ, ( not found )
|
||
|
|
SI PUSHx, AX AX XORxx, AX PUSHx,
|
||
|
|
JMPn, lblnext @ RPCn,
|
||
|
|
THEN, ( found )
|
||
|
|
DI PUSHx, AX 1 MOVxI, AX PUSHx,
|
||
|
|
;CODE
|