gforth/filedump.fs - diff

Return to filedump.fs CVS log

Up to [gforth] / gforth

version 1.1, 1994/02/11 16:30:46	version 1.3, 1995/08/27 19:56:28
Line 1	Line 1
#! /usr/stud/paysan/bin/forth	#! /usr/users/bernd/bin/gforth
\ file hex dump	\ file hex dump

Create buffer $10 allot	Create buffer $10 allot

: dumpline ( addr handle -- flag )	: dumpline ( addr handle -- flag )
buffer $10 2dup 0 fill rot read-file throw	buffer $10 rot read-file throw
$10 <> swap 6 u.r ." : " buffer .line cr ;	dup /dump ! $10 <> swap 6 u.r ." : " buffer .line cr ;

: init cr $10 base ! ;	: init cr $10 base ! ;