File:  [gforth] / gforth / ec / mirror.fs
Revision 1.3: download - view: text, annotated - select for diffs
Thu May 20 13:38:29 1999 UTC (24 years, 10 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.

    1: \ mirror.fs mirrors ram in rom and copies back at startup
    2: 
    3: 0 [IF]
    4: 
    5: For the romable feature:
    6: 
    7: We need to save the ram area (there might be initialized variables,
    8: and code-fields...) into rom and copy it back at system startup.
    9: 
   10: [THEN]
   11: 
   12: \ save ram area
   13: 
   14: >rom
   15: unlock ram-dictionary extent lock		
   16: Constant ram-len
   17: Constant ram-start
   18: Variable ram-origin
   19: ram-start ram-origin ram-len unlock tcmove lock 
   20: ram-len allot align
   21: >auto
   22: 
   23: : mirrorram
   24:   ram-origin ram-start ram-len cmove ;
   25: 

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