This website works better with JavaScript.
Home
Explore
lain.church
Help
Register
Sign In
izaya
/
collapseos
mirror of
https://github.com/hsoft/collapseos.git
Watch
1
Star
1
Fork
0
Code
Issues
0
Releases
0
Wiki
Activity
Browse Source
Add word MOVE,
pull/103/head
Virgil Dupras
4 years ago
parent
2d2a846b25
commit
6a507bcaac
3 changed files
with
2 additions
and
0 deletions
Split View
Diff Options
Show Stats
Download Patch File
Download Diff File
+1
-0
blk/051
+1
-0
blk/371
BIN
emul/forth.bin
+ 1
- 0
blk/051
View File
@@ -7,3 +7,4 @@ MOVE a1 a2 u -- Copy u bytes from a1 to a2, starting
with a1, going up.
MOVE- a1 a2 u -- Copy u bytes from a1 to a2, starting
with a1+u, going down.
MOVE, a u -- Copy u bytes from a to HERE.
+ 1
- 0
blk/371
View File
@@ -10,4 +10,5 @@
C@- ( a2 a1-1 x )
ROT C!- ( a1-1 a2-1 ) SWAP ( a2 a1 )
LOOP 2DROP ;
: MOVE, ( a u -- ) H@ OVER ALLOT SWAP MOVE ;
: PREV 3 - DUP @ - ;
BIN
emul/forth.bin
View File
Write
Preview
Loading…
Cancel
Save