gforth/ec/shex.fs - diff

Return to shex.fs CVS log

Up to [gforth] / gforth / ec

version 1.6, 2006/02/05 21:22:05	version 1.7, 2006/02/12 23:45:54
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