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.
1619 Commits
4 Branches
13MB
Tree: 532bcc7e78
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '532bcc7e78'
${ noResults }
collapseos/blk/265

16 lines
391B
Raw Blame History 

  1. : X:

  2.     (xentry) 1 ( compiled ) C,

  3.     BEGIN

  4.     WORD DUP LIT" ;" S= IF

  5.         DROP LIT" EXIT" XFIND , EXIT THEN

  6.     XCURRENT @ SWAP ( xcur w ) _find ( a f )

  7.     IF   ( a )

  8.         DUP IMMED? IF ABORT THEN

  9.         _xapply ,

  10.     ELSE ( w )

  11.         0x02 RAM+ @ SWAP ( cur w ) _find ( a f )

  12.         IF DUP IMMED? NOT IF ABORT THEN EXECUTE

  13.         ELSE (parse) XLITN THEN

  14.     THEN

  15.     AGAIN ;