File:  [gforth] / gforth / ec / mirror.fs
Revision 1.1: download - view: text, annotated - select for diffs
Sat May 2 21:34:06 1998 UTC (23 years ago) by pazsan
Branches: MAIN
CVS tags: HEAD
Mega-Patch; added directories

\ 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.


\ save ram area

unlock sramdp @ lock		constant ram-start
unlock ramdp @ sramdp @ - lock	constant ram-len
variable ram-origin
ram-start ram-origin ram-len unlock tcmove lock 
ram-len allot align

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

FreeBSD-CVSweb <>