
compiletoflash

: reset   ( -- ) 0 $120 ! ; \ Triggers hardware Reset by writing nonsense into Watchdog register
: restart ( -- ) $FFFE @ execute ; \ Restarts Mecrisp without performing a hardware Reset.


: remove ( -- )  \ Removes the last dictionary entry from RAM.
 \ Caution: Will crash later when used while compiling into flash or if RAM is empty.

 $208 @     \ Fetch start address of current definition
 dup $206 ! \ Store it as new dictionary pointer
 1+         \ Skip flags
 skipstring \ Skip name
 @          \ Get link
 $208 !     \   and store it as current definition
; 
 
