mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-02 10:20:55 +11:00
Compare commits
3 Commits
fca0e79da3
...
058b85686f
Author | SHA1 | Date | |
---|---|---|---|
|
058b85686f | ||
|
6f9d0a98c4 | ||
|
67d732c4be |
@ -98,6 +98,8 @@ C! c a -- Store byte c in address a
|
|||||||
CURRENT -- a Set a to wordref of last added entry.
|
CURRENT -- a Set a to wordref of last added entry.
|
||||||
HERE -- a Push HERE's address
|
HERE -- a Push HERE's address
|
||||||
H@ -- a HERE @
|
H@ -- a HERE @
|
||||||
|
MOVE a1 a2 u -- Copy u bytes from a1 to a2, starting with a1, going
|
||||||
|
up.
|
||||||
|
|
||||||
*** Arithmetic / Bits ***
|
*** Arithmetic / Bits ***
|
||||||
|
|
||||||
|
@ -118,3 +118,12 @@
|
|||||||
( Set up initial SYSVNXT value, which is 2 bytes after its
|
( Set up initial SYSVNXT value, which is 2 bytes after its
|
||||||
own address )
|
own address )
|
||||||
46 RAM+ DUP 2 + SWAP !
|
46 RAM+ DUP 2 + SWAP !
|
||||||
|
|
||||||
|
( a1 a2 u -- )
|
||||||
|
: MOVE
|
||||||
|
( u ) 0 DO
|
||||||
|
SWAP DUP I + @ ( a2 a1 x )
|
||||||
|
ROT SWAP OVER I + ( a1 a2 x a2 )
|
||||||
|
! ( a1 a2 )
|
||||||
|
LOOP
|
||||||
|
;
|
||||||
|
@ -69,7 +69,7 @@
|
|||||||
: DUMP
|
: DUMP
|
||||||
LF
|
LF
|
||||||
BEGIN
|
BEGIN
|
||||||
OVER 1 < IF DROP EXIT THEN
|
OVER 1 < IF 2DROP EXIT THEN
|
||||||
_
|
_
|
||||||
SWAP 8 - SWAP
|
SWAP 8 - SWAP
|
||||||
AGAIN
|
AGAIN
|
||||||
|
4
tests/forth/test_cmp.fs
Normal file
4
tests/forth/test_cmp.fs
Normal file
@ -0,0 +1,4 @@
|
|||||||
|
0x70 <>{ 0x70 &= 0x58 |= 0x20 |= <>} #
|
||||||
|
0x71 <>{ 0x70 &= 0x58 |= 0x20 |= <>} NOT #
|
||||||
|
0x42 <>{ 0x40 &> 0x44 &< <>} #
|
||||||
|
0x44 <>{ 0x40 &> 0x44 &< <>} NOT #
|
Loading…
Reference in New Issue
Block a user