All pastes #561479 Raw Edit

interleaving dbg code

public text v1 · immutable
·published 2007-06-12 13:57 UTC
rendered paste body
REQUIRE &DP-HOOK ~profit/lib/dp-hook.f
REQUIRE NO-INLINE{ ~profit/lib/no-inline.f
REQUIRE SEE lib/ext/disasm.f

VECT NEXT

:NONAME
HERE LAST-HERE <> IF EXIT THEN
HERE OP0 @ <> IF EXIT THEN
POSTPONE NEXT ; &DP-HOOK !

\ NO-INLINE{
: r 10 DUP * . ;
\ }NO-INLINE
SEE r