Return to simp-see.fs CVS log | Up to [gforth] / gforth |
version 1.1, 2001/03/28 09:06:57 | version 1.2, 2002/12/13 21:20:39 |
---|---|
Line 22 require see.fs | Line 22 require see.fs |
: 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 |
; | ; |