Annotation of gforth/ec/mirror.fs, revision 1.1

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
        !            15: unlock sramdp @ lock           constant ram-start
        !            16: unlock ramdp @ sramdp @ - lock constant ram-len
        !            17: variable ram-origin
        !            18: ram-start ram-origin ram-len unlock tcmove lock 
        !            19: ram-len allot align
        !            20: >auto
        !            21: 
        !            22: : mirrorram
        !            23:   ram-origin ram-start ram-len cmove ;
        !            24: 

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