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

version 1.2, 1998/12/08 22:03:00 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 Free Software Foundation, Inc.  \ Copyright (C) 1998,2000,2003,2006 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
 \ Gforth is free software; you can redistribute it and/or  \ Gforth is free software; you can redistribute it and/or
 \ modify it under the terms of the GNU General Public License  \ modify it under the terms of the GNU General Public License
 \ as published by the Free Software Foundation; either version 2  \ as published by the Free Software Foundation, either version 3
 \ of the License, or (at your option) any later version.  \ of the License, or (at your option) any later version.
   
 \ This program is distributed in the hope that it will be useful,  \ This program is distributed in the hope that it will be useful,
Line 15 Line 15
 \ GNU General Public License for more details.  \ GNU General Public License for more details.
   
 \ You should have received a copy of the GNU General Public License  \ You should have received a copy of the GNU General Public License
 \ along with this program; if not, write to the Free Software  \ along with this program. If not, see http://www.gnu.org/licenses/.
 \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  
   
 \ 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
Line 81  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.2  
changed lines
  Added in v.1.9


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