Edinburgh IMP77 Compiler - Version 8.4
    1 %external %integer fred
		.Ltext0:
				.globl	next_free_bound_index
				.bss
				.align 4
		next_free_bound_index:
				.zero	4
				.comm	_lb,384,32
				.comm	_ub,384,32
				.comm	FRED,4,4
				.globl	BERT
		BERT:
		.LFB189:
    2 %external %routine bert(%integer i)
				pushl	%ebp
				movl	%esp, %ebp
				call	__x86.get_pc_thunk.ax
				addl	$_GLOBAL_OFFSET_TABLE_, %eax
    3   fred = i
				movl	FRED@GOT(%eax), %eax
				movl	8(%ebp), %edx
				movl	%edx, (%eax)
    4 %end
				nop
				popl	%ebp
				ret
		.LFE189:
				.globl	SHIELA
		SHIELA:
		.LFB190:
    5
    6
    7 %external %routine shiela(%integer k)
				pushl	%ebp
				movl	%esp, %ebp
				call	__x86.get_pc_thunk.ax
				addl	$_GLOBAL_OFFSET_TABLE_, %eax
    8 %own %integer local = 42
    9   k = local
				movl	LOCAL.6027@GOTOFF(%eax), %edx
				movl	%edx, 8(%ebp)
   10   local = local + 1
				movl	LOCAL.6027@GOTOFF(%eax), %edx
				addl	$1, %edx
				movl	%edx, LOCAL.6027@GOTOFF(%eax)
   11 %end
				nop
				popl	%ebp
				ret
		.LFE190:
				.globl	main
		main:
		.LFB191:
   12
   13 %begin
				leal	4(%esp), %ecx
				andl	$-16, %esp
				pushl	-4(%ecx)
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%ebx
				pushl	%ecx
				subl	$16, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ecx, %eax
				subl	$8, %esp
				pushl	4(%eax)
				pushl	(%eax)
				call	_imp_initialise@PLT
				addl	$16, %esp
   14   bert(22)
				subl	$12, %esp
				pushl	$22
				call	BERT
				addl	$16, %esp
   15   shiela(fred)
				movl	FRED@GOT(%ebx), %eax
				movl	(%eax), %eax
				subl	$12, %esp
				pushl	%eax
				call	SHIELA
				addl	$16, %esp
				movl	$0, -12(%ebp)
		.LBB4:
		.LBB5:
				subl	$12, %esp
				pushl	-12(%ebp)
				call	exit@PLT
		.LBE5:
		.LBE4:
		.LFE191:
				.data
				.align 4
		LOCAL.6027:
				.long	42
				.section	.text.__x86.get_pc_thunk.ax,"axG",@progbits,__x86.get_pc_thunk.ax,comdat
				.globl	__x86.get_pc_thunk.ax
				.hidden	__x86.get_pc_thunk.ax
		__x86.get_pc_thunk.ax:
		.LFB192:
				movl	(%esp), %eax
				ret
		.LFE192:
				.section	.text.__x86.get_pc_thunk.bx,"axG",@progbits,__x86.get_pc_thunk.bx,comdat
				.globl	__x86.get_pc_thunk.bx
				.hidden	__x86.get_pc_thunk.bx
		__x86.get_pc_thunk.bx:
		.LFB193:
				movl	(%esp), %ebx
				ret
		.LFE193:
		.Letext0:
   16 %end %of %programm
   13 Statements compiled