Testing the limits of recursion in Turbo Pascal 7.0 (1992)

jump.pas

(*
   TP 7.0 recursion limit test:  3965 - stack:16384 (def)
                                16249 - stack:65520 (max)
*)
program rec_test;
{$M 65520, 0, 655360} (* stack, heapmin, heapmax *)
uses crt;

const R = 16249;
var i: integer;

procedure jump;
begin
 inc(i);
 {$IFDEF output}
   writeln('Rec Nr.: ',i);
 {$ENDIF}
 if i < R then jump;
end;

begin
 jump;
 writeln(i, ' recursions done. Press Key.');
 repeat until keypressed;
end.