Diff for /gforth/ec/shex.fs between versions 1.4 and 1.7

version 1.4, 2003/03/09 15:17:02 version 1.7, 2006/02/12 23:45:54
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 Free Software Foundation, Inc.  \ Copyright (C) 1998,2000,2003 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 81  variable csum Line 81  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.4  
changed lines
  Added in v.1.7


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