basic DUMP (should add more stuff though), .s in hex

1 files changed, 8 insertions, 2 deletions

diff --git a/jefs.fs b/jefs.fs
index e63de61..60f6a4a 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -232,8 +232,8 @@ variable hld
 \ }}}
 
 : ?  @ . ;
-: .s  sp cell+ ( skip sp itself ) begin dup s0 @ < while dup @ . cell+ repeat drop cr ;
-: .rs  rp cell+ ( skip rsp itself ) begin dup rs0 @ < while dup @ . cell+ repeat drop cr ;
+: .s  sp cell+ ( skip sp itself ) begin dup s0 @ < while dup @ .qword cell+ repeat drop cr ;
+: .rs  rp cell+ ( skip rsp itself ) begin dup rs0 @ < while dup @ .qword cell+ repeat drop cr ;
 
 \ USER MEMORY {{{
 hex
@@ -365,6 +365,12 @@ make line-buffer line-buffer-length allot
 	source-id >r string-source to source-id interpret r> to source-id ;
 : evaluate ( c-addr u -- )  tib @ >r #tib @ >r >in @ >r (evaluate) r> >in ! r> #tib ! r> tib ! ;
 
+\ DUMP {{{
+: (d+) ( a -- a+1 )  dup @ .word 1+ ;
+: (dump) ( a -- )  (d+) (d+) (d+) (d+) (d+) (d+) (d+) (d+) drop cr ; \ dump cell of memory at a
+: dump ( n a -- ) swap begin ?dup 0> while swap dup (dump) 16 + swap 1- repeat ; \ dump n lines (of 16 bytes each) of memory starting at a
+\ }}}
+
 0 constant version
 : welcome  ." welcome to Jewelforth, version " version u. cr .free ;