diff options
| -rw-r--r-- | jefs.fs | 10 |
1 files changed, 8 insertions, 2 deletions
@@ -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 ; |