Return to mirror.fs CVS log

Up to [gforth] / gforth / ec

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: