Edinburgh IMP77 Compiler - Version 8.4
    1 %externalroutine fred(%real x,y)
				.section	".text"
		.Ltext0:
				.section	.rodata.cst4,"aM",@progbits,4
				.align 4
		.LC0:
				.long	0
				.section	.rodata.cst8,"aM",@progbits,8
				.align 8
		.LC1:
				.long	0
				.long	0
				.section	".text"
				.align 4
				.global FRED
				.proc	020
		FRED:
		.LFB185:
		.LVL0:
				save	%sp, -176, %sp
    2 %real z
    3
    4 %if x>0 %and y>0 %then %start
				sethi	%hi(.LC0), %g1
				ld	[%g1+%lo(.LC0)], %f8
				fcmpes	%fcc0, %f1, %f8
				fble,pn	%fcc0, .L5
				 nop
    5    z=sqrt(x+y)
				fcmpes	%fcc1, %f3, %f8
				fble,pn	%fcc1, .L5
				 sethi	%hi(.LC1), %g1
				fadds	%f1, %f3, %f0
				fstod	%f0, %f0
		.LVL1:
				ldd	[%g1+%lo(.LC1)], %f8
				fcmpd	%fcc2, %f0, %f8
				fbl,pn	%fcc2, .L4
				 nop
		.L2:
		.L3:
		.LVL2:
		.L5:
    6 %else
    7    %monitor
    8 %finish
    9 %end
				ba,pt	%xcc, .L5
				 nop
		.LFE185:
		.Letext0:
   10 %endoffile
				return	%i7+8
				 nop
		.LVL3:
		.L4:
		.LBB4:
		.LBB5:
				call	sqrt, 0
				 nop
		.LVL4:
		.LBE5:
		.LBE4:
    9 Statements compiled