minimal/memory.fs at master · uho/minimal · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
\ Minimal Forth Workbench: more memory operators        uh 2015-10-15

: 2! ( d addr -- )   SWAP OVER ! CELL+ ! ;
: 2@ ( addr -- d )  DUP CELL+ @ SWAP @ ;

: +! ( x addr -- )  SWAP OVER @ + SWAP ! ;

: CMOVE ( c-addr1 c-addr2 u -- )
   BEGIN ( c-addr1 c-add2 u )
     DUP
   WHILE ( c-addr1 c-addr2 u )
      >R  OVER C@  OVER C!   SWAP CHAR+ SWAP CHAR+  R> 1 -
   REPEAT ( c-add1 c-add2 u )
   DROP DROP DROP ;

: FILL ( c-addr u x -- )
     SWAP >R SWAP
     BEGIN ( x c-addr ) ( R: u )
       R@
     WHILE ( x c-addr ) ( R: u )
       OVER OVER C!   CHAR+   R> 1 - >R
     REPEAT ( x c-addr ) ( R: u )
     R> DROP DROP DROP ;

: BLANK ( c-addr u -- )  32 FILL ;
: ERASE ( c-addr u -- )   0 FILL ;