+I=1
+while [ $I -lt $NBR ] ; do echo disable $I ; I=$((I+1)) ; done >> gdbinit
+
+RET=$(grep -w ret rrqforth.map | sed 's/ .*//')
+echo "break *$RET" >> gdbinit
+# ;; rax = cfa of called word
+# ;; rsi = cell* of next forth word
+# ;; [$rsp] = from where the call was
+
+cat <<EOF >> gdbinit
+commands $((NBR+1))
+print (void*) \$rsp
+print (((char*)(*(((void**)\$rax)-2)))+32)
+print (void*) \$rsi
+end
+EOF