Edinburgh IMP77 Compiler - Version 8.4
    1 %externalroutine xr1(%integer p1)
		.Ltext0:
				.globl	next_free_bound_index
				.bss
				.align 4
		next_free_bound_index:
				.zero	4
				.comm	_lb,384,32
				.comm	_ub,384,32
				.globl	XR1
		XR1:
		.LFB189:
				pushl	%ebp
				movl	%esp, %ebp
				call	__x86.get_pc_thunk.ax
				addl	$_GLOBAL_OFFSET_TABLE_, %eax
    2   %real r1
    3 %end
				nop
				popl	%ebp
				ret
		.LFE189:
				.globl	XR2
		XR2:
		.LFB190:
?R1 unused
?P1 unused
    4
    5 %externalroutine xr2(%integer p1, p2, p3, p4)
				pushl	%ebp
				movl	%esp, %ebp
				call	__x86.get_pc_thunk.ax
				addl	$_GLOBAL_OFFSET_TABLE_, %eax
    6   %real r1
    7 %end
				nop
				popl	%ebp
				ret
		.LFE190:
				.globl	XR3
		XR3:
		.LFB191:
?R1 unused
?P4 unused
?P3 unused
?P2 unused
?P1 unused
    8
    9 %externalroutine xr3(%integer p1, p2, %real r1, r2)
				pushl	%ebp
				movl	%esp, %ebp
				call	__x86.get_pc_thunk.ax
				addl	$_GLOBAL_OFFSET_TABLE_, %eax
   10   %real r3
   11 %end
				nop
				popl	%ebp
				ret
		.LFE191:
				.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:
		.Letext0:
?R3 unused
?R2 unused
?R1 unused
?P2 unused
?P1 unused
   12
   13 %endoffile
   10 Statements compiled