nasmjf

A NASM assembler port of JONESFORTH

git clone http://ratfactor.com/repos/nasmjf/nasmjf.git

nasmjf/jonesforth/test_stack_trace.f

1 ( -*- text -*- ) 2 3 : TEST4 PRINT-STACK-TRACE ; 4 5 : TEST3 TEST4 1 2 + . CR TEST4 ; 6 7 : TEST2 TEST3 TEST3 ; 8 9 : TEST TEST2 ;