From 54df6ebd37631d9e083986cace488481b2ecdd1b Mon Sep 17 00:00:00 2001 From: kitty Date: Sat, 7 Mar 2026 00:58:53 +1100 Subject: basic DUMP (should add more stuff though), .s in hex --- jefs.fs | 10 ++++++++-- 1 file 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 ; -- cgit v1.2.3