Diff for /gforth/ec/shex.fs between versions 1.1 and 1.9

version 1.1, 1998/05/02 21:34:06 version 1.9, 2007/12/31 18:40:25
Line 1 Line 1
 \ shex.fs Output Routines for Motorola S-Records                16jul97jaw  \ shex.fs Output Routines for Motorola S-Records                16jul97jaw
   
   \ Copyright (C) 1998,2000,2003,2006 Free Software Foundation, Inc.
   
   \ This file is part of Gforth.
   
   \ Gforth is free software; you can redistribute it and/or
   \ modify it under the terms of the GNU General Public License
   \ as published by the Free Software Foundation, either version 3
   \ of the License, or (at your option) any later version.
   
   \ This program is distributed in the hope that it will be useful,
   \ but WITHOUT ANY WARRANTY; without even the implied warranty of
   \ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   \ GNU General Public License for more details.
   
   \ You should have received a copy of the GNU General Public License
   \ along with this program. If not, see http://www.gnu.org/licenses/.
   
 \ this is a extention to cross.fs to save motorola s-records  \ this is a extention to cross.fs to save motorola s-records
 \ the first part is generic to output s-records from and to any  \ the first part is generic to output s-records from and to any
 \ destination  \ destination
Line 63  variable csum Line 80  variable csum
 variable start-addr  variable start-addr
   
 : save-region-shex ( adr len -- )  : save-region-shex ( adr len -- )
   bl parse w/o create-file throw to fd      bl parse w/o create-file throw to fd
   
 \ PSC1000 trick:  \ PSC1000 trick:
   'E hemit  \  'E hemit
   2dup over swap 200 min .sregion  \  2dup over swap 200 min .sregion
       0 0 0 '0 .smem
   over swap .sregion       over swap .sregion 
   start-addr @ .startaddr      start-addr @ .startaddr
   fd close-file throw ;      fd close-file throw ;
   
 >MINIMAL  >MINIMAL
   

Removed from v.1.1  
changed lines
  Added in v.1.9


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