izaya/collapseos
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add word MOVE,

Browse Source
This commit is contained in:
Virgil Dupras 2020-05-24 19:55:00 -04:00
parent 2d2a846b25
commit 6a507bcaac
3 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
blk/051
View File

@ -7,3 +7,4 @@ MOVE a1 a2 u -- Copy u bytes from a1 to a2, starting
with a1, going up. with a1, going up.
MOVE- a1 a2 u -- Copy u bytes from a1 to a2, starting MOVE- a1 a2 u -- Copy u bytes from a1 to a2, starting
with a1+u, going down. with a1+u, going down.
MOVE, a u -- Copy u bytes from a to HERE.

1
blk/371
View File

@ -10,4 +10,5 @@
C@- ( a2 a1-1 x ) C@- ( a2 a1-1 x )
ROT C!- ( a1-1 a2-1 ) SWAP ( a2 a1 ) ROT C!- ( a1-1 a2-1 ) SWAP ( a2 a1 )
LOOP 2DROP ; LOOP 2DROP ;
: MOVE, ( a u -- ) H@ OVER ALLOT SWAP MOVE ;
: PREV 3 - DUP @ - ; : PREV 3 - DUP @ - ;

BIN
emul/forth.bin
View File

Binary file not shown.