Add words C@- C!- and MOVE-

This commit is contained in:
Virgil Dupras 2020-05-06 20:37:08 -04:00
parent 690d9e6313
commit eaeb138a0c
5 changed files with 24 additions and 18 deletions

View File

@ -6,12 +6,11 @@ Memory
+! n a -- Increase value of addr a by n +! n a -- Increase value of addr a by n
C@ a -- c Set c to byte at address a C@ a -- c Set c to byte at address a
C@+ a -- a+1 c Fetch c from a and inc a. C@+ a -- a+1 c Fetch c from a and inc a.
C@- a -- a-1 c Fetch c from a and dec a.
C! c a -- Store byte c in address a C! c a -- Store byte c in address a
C!+ c a -- a+1 Store byte c in a and inc a. C!+ c a -- a+1 Store byte c in a and inc a.
C!- c a -- a-1 Store byte c in a and dec a.
CURRENT -- a Set a to wordref of last added entry. CURRENT -- a Set a to wordref of last added entry.
CURRENT* -- a A pointer to active CURRENT*. Useful CURRENT* -- a A pointer to active CURRENT*. Useful
when we have multiple active dicts. when we have multiple active dicts.
FILL a n b -- Fill n bytes at addr a with val b.
HERE -- a Push HERE's address
H@ -- a HERE @
(cont.) (cont.)

View File

@ -1,2 +1,7 @@
FILL a n b -- Fill n bytes at addr a with val b.
HERE -- a Push HERE's address
H@ -- a HERE @
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, going up. with a1, going up.
MOVE- a1 a2 u -- Copy u bytes from a1 to a2, starting
with a1+u, going down.

14
blk/394
View File

@ -1,12 +1,6 @@
: ABORT (resSP) QUIT ; : ABORT (resSP) QUIT ;
: = CMP NOT ; : < CMP -1 = ; : > CMP 1 = ;
: = CMP NOT ; : 0< 32767 > ; : >= < NOT ; : <= > NOT ; : 0>= 0< NOT ;
: < CMP -1 = ;
: > CMP 1 = ;
: 0< 32767 > ;
: >= < NOT ;
: <= > NOT ;
: 0>= 0< NOT ;
( n l h -- f ) ( n l h -- f )
: >< 2 PICK > ( n l f ) ROT ROT > AND ; : >< 2 PICK > ( n l f ) ROT ROT > AND ;
: =><= 2 PICK >= ( n l f ) ROT ROT >= AND ; : =><= 2 PICK >= ( n l f ) ROT ROT >= AND ;
@ -14,3 +8,7 @@
: C@+ DUP C@ SWAP 1+ SWAP ; : C@+ DUP C@ SWAP 1+ SWAP ;
( c a -- a+1 ) ( c a -- a+1 )
: C!+ SWAP OVER C! 1+ ; : C!+ SWAP OVER C! 1+ ;
( a -- a-1 c )
: C@- DUP C@ SWAP 1- SWAP ;
( c a -- a-1 )
: C!- SWAP OVER C! 1- ;

18
blk/434
View File

@ -1,9 +1,13 @@
: MOVE ( a1 a2 u -- ) : MOVE ( a1 a2 u -- )
( u ) 0 DO ( u ) 0 DO ( a1 a2 )
SWAP DUP I + C@ ( a2 a1 x ) SWAP C@+ ( a2 a1+1 x )
ROT SWAP OVER I + ( a1 a2 x a2 ) ROT C!+ ( a1+1 a2+1 )
C! ( a1 a2 ) LOOP 2DROP ;
LOOP : MOVE- ( a1 a2 u -- )
2DROP SWAP OVER + 1- ( a1 u a2+u-1 )
; ROT 2 PICK + 1- ( u a2+u-1 a1+u-1 )
ROT ( u ) 0 DO ( a2 a1 )
C@- ( a2 a1-1 x )
ROT C!- ( a1-1 a2-1 ) SWAP ( a2 a1 )
LOOP 2DROP ;
: PREV 3 - DUP @ - ; : PREV 3 - DUP @ - ;

Binary file not shown.