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

17 lines
578B
Raw Blame History 

  1. : RLWORD ( ol o a1 a2 -- )

  2.     SWAP DUP C@             ( ol o a2 a1 n )

  3.     DUP 0x0e = OVER 0x2b = OR NOT IF

  4.         ( unwind all args ) 2DROP 2DROP EXIT THEN

  5.     0x2b = IF 2+ THEN ( ol o a2 a1 )

  6.     1+                          ( ol o a2 a1+1 )

  7.     BEGIN                       ( ol o a2 a1 )

  8.         2OVER SWAP              ( ol o a2 a1 o ol )

  9.         RLATOM                  ( ol o a2 a+n )

  10.         2DUP < IF ABORT THEN    ( Something is very wrong )

  11.         2DUP =                  ( ol o a2 a+n f )

  12.         IF ( unwind )

  13.             2DROP 2DROP EXIT

  14.         THEN

  15.     AGAIN

  16. ;