File:  [gforth] / gforth / ec / mirror.fs
Revision 1.3: download - view: text, annotated - select for diffs
Thu May 20 13:38:29 1999 UTC (20 years, 4 months ago) by jwilke
Branches: MAIN
CVS tags: v0-6-2, v0-6-1, v0-6-0, v0-5-0, HEAD
Updated some ec stuff.

\ mirror.fs mirrors ram in rom and copies back at startup

0 [IF]

For the romable feature:

We need to save the ram area (there might be initialized variables,
and code-fields...) into rom and copy it back at system startup.

[THEN]

\ save ram area

>rom
unlock ram-dictionary extent lock		
Constant ram-len
Constant ram-start
Variable ram-origin
ram-start ram-origin ram-len unlock tcmove lock 
ram-len allot align
>auto

: mirrorram
  ram-origin ram-start ram-len cmove ;


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>