1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-06 10:48:06 +11:00
collapseos/blk/828

10 lines
248 B
Plaintext
Raw Normal View History

2020-06-22 00:40:09 +10:00
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