izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
1
Fork 0
Code Issues 0 Releases 0 Wiki Activity
Mirror of CollapseOS
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1404 Commits
4 Branches
13MB
Tree: 4939189233
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '4939189233'
${ noResults }
collapseos/blk/330

16 lines
254B
Raw Blame History 

  1. CODE _find  ( cur w -- a f )

  2.     HL POPqq,       ( w )

  3.     DE POPqq,       ( cur )

  4.     chkPS,

  5.     lblfind @ CALLnn,

  6.     IFNZ,

  7.         ( not found )

  8.         HL PUSHqq,

  9.         PUSH0,

  10.         JPNEXT,

  11.     THEN,

  12.     ( found )

  13.     DE PUSHqq,

  14.     PUSH1,

  15. ;CODE