Annotation of gforth/ec/mirror.fs, revision 1.3
1.1 pazsan 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
1.3 ! jwilke 15: unlock ram-dictionary extent lock
! 16: Constant ram-len
! 17: Constant ram-start
! 18: Variable ram-origin
1.1 pazsan 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>