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>