[openfirmware] r1070 - cpu/arm
svn at openfirmware.info
svn at openfirmware.info
Mon Jan 12 22:07:20 CET 2009
Author: wmb
Date: 2009-01-12 22:07:19 +0100 (Mon, 12 Jan 2009)
New Revision: 1070
Added:
cpu/arm/saverom.fth
Log:
Checked in cpu/arm/saverom.fth
Added: cpu/arm/saverom.fth
===================================================================
--- cpu/arm/saverom.fth (rev 0)
+++ cpu/arm/saverom.fth 2009-01-12 21:07:19 UTC (rev 1070)
@@ -0,0 +1,42 @@
+purpose: Save the Forth dictionary image in a ROM-bootable format
+\ See license at end of file
+
+\ Save an image of the target system in a file.
+: save-rom ( str -- )
+ >r
+ make-arm-header
+
+ \ Turn off the relocation bitmap maintainer
+ ['] noop is set-relocation-bit
+ ['] 2drop is clear-relocation-bits
+
+
+ " stand-init-io" $find-name is init-io
+ " stand-init" init-save
+
+ aif-header h# 80 r> save-image
+;
+
+\ LICENSE_BEGIN
+\ Copyright (c) 1997 FirmWorks
+\
+\ Permission is hereby granted, free of charge, to any person obtaining
+\ a copy of this software and associated documentation files (the
+\ "Software"), to deal in the Software without restriction, including
+\ without limitation the rights to use, copy, modify, merge, publish,
+\ distribute, sublicense, and/or sell copies of the Software, and to
+\ permit persons to whom the Software is furnished to do so, subject to
+\ the following conditions:
+\
+\ The above copyright notice and this permission notice shall be
+\ included in all copies or substantial portions of the Software.
+\
+\ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+\ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+\ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+\ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+\ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+\ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+\ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+\
+\ LICENSE_END
More information about the openfirmware
mailing list