Edinburgh IMP77 Compiler - Version 8.4
    1 %begin
		.Ltext0:
		DOSOMETHING.6389:
		.LFB186:
		.LVL2:
				subq	$24, %rsp
				movq	%fs:40, %rax
				movq	%rax, 8(%rsp)
				xorl	%eax, %eax
    2   %integer i
				call	_imp_initialise@PLT
		.LVL3:
    3
    4   %routine dosomething(%integername p)
		.LVL0:
				subq	$8, %rsp
    5     p = p - 1
				movl	(%rdi), %eax
				subl	$1, %eax
				movl	%eax, (%rdi)
    6     dosomething(p) %if p>0
				testl	%eax, %eax
				jg	.L7
				rep ret
		.L7:
    7   %end
				call	DOSOMETHING.6389
		.LVL1:
		.L2:
    8
				addq	$8, %rsp
				ret
		.LFE186:
				.globl	main
		main:
		.LFB185:
    9   i = 10
				movl	$10, 4(%rsp)
   10   dosomething(i)
				leaq	4(%rsp), %rdi
				call	DOSOMETHING.6389
		.LVL4:
		.LBB4:
		.LBB5:
				movl	$0, %edi
				call	exit@PLT
		.LVL5:
		.LBE5:
		.LBE4:
		.LFE185:
		.Letext0:
   11
   12 %endofprogram
    9 Statements compiled