gforth/filedump.fs - diff

Return to filedump.fs CVS log

Up to [gforth] / gforth

version 1.2, 1995/06/08 15:28:26	version 1.4, 1996/07/16 20:57:08
Line 1	Line 1
#! /usr/stud/paysan/bin/gforth	#! /usr/local/lib/gforth/0.2.0/kernal.fi
\ 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
dup /dump ! $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 ! ;