macro next {
lodsq ; mov rax, [rsi] + add rsi,8
+ call p_calltrace_DFA
jmp qword [rax] ; goto code of that FORTH word (64 bit jump)
}
;;; ========================================
;;; The DOFORTH lays out a single FORTH call
-macro DOFORTH label {
+macro DOFORTH [label] {
+common
FORTH
+forward
dq label
+common
ENDFORTH
}