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/367

14 lines
400B
Raw Blame History 

  1. : MOVE ( a1 a2 u -- )

  2.     ?DUP IF ( u ) 0 DO ( a1 a2 )

  3.         OVER I + A@ ( src dst x )

  4.         OVER I + ( src dst x dst )

  5.         A! ( src dst )

  6.     LOOP THEN 2DROP ;

  7. : MOVE- ( a1 a2 u -- )

  8.     ?DUP IF ( u ) 0 DO ( a1 a2 )

  9.         OVER I' + I - 1- A@ ( src dst x )

  10.         OVER I' + I - 1- ( src dst x dst )

  11.         A! ( src dst )

  12.     LOOP THEN 2DROP ;

  13. : MOVE, ( a u -- ) H@ OVER ALLOT SWAP MOVE ;