--- gforth/ec/shex.fs	2003/08/25 14:17:50	1.5
+++ gforth/ec/shex.fs	2006/12/31 13:39:17	1.8
@@ -1,6 +1,6 @@
 \ shex.fs Output Routines for Motorola S-Records		16jul97jaw
 
-\ Copyright (C) 1998,2000,2003 Free Software Foundation, Inc.
+\ Copyright (C) 1998,2000,2003,2006 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -81,15 +81,14 @@ variable csum
 variable start-addr
 
 : 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:
-  'E hemit
-  2dup over swap 200 min .sregion
-
-  over swap .sregion 
-  start-addr @ .startaddr
-  fd close-file throw ;
+\  'E hemit
+\  2dup over swap 200 min .sregion
+    0 0 0 '0 .smem
+    over swap .sregion 
+    start-addr @ .startaddr
+    fd close-file throw ;
 
 >MINIMAL