[gforth] / gforth / simp-see.fs  

gforth: gforth/simp-see.fs

Diff for /gforth/simp-see.fs between version 1.1 and 1.2

version 1.1, Wed Mar 28 09:06:57 2001 UTC version 1.2, Fri Dec 13 21:20:39 2002 UTC
Line 22 
Line 22 
   
 : simple-see-range ( addr1 addr2 -- )  : simple-see-range ( addr1 addr2 -- )
     swap u+do      swap u+do
         cr i hex. i cell+ i @ .word drop          cr xpos off i hex. i cell+ i @ .word drop
         cell +loop          cell +loop
 ;  ;
   

Generate output suitable for use with a patch program
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help