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