Edinburgh IMP77 Compiler - Version 8.4
    1 %integerfnspec jim(%integer a,b)
				.machine ppc
				.section	".text"
		.Ltext0:
				.align 2
				.globl FRED
		FRED:
		.LFB185:
    2 %externalroutine fred %alias "s#go"
				stwu 1,-800(1)
				mflr 0
				stw 0,804(1)
				lwz 9,-28680(2)
				stw 9,796(1)
				li 9,0
		.LBB14:
    3 %integer x
    4 printstring("fred
				li 5,256
				lis 4,.LANCHOR0@ha
				la 4,.LANCHOR0@l(4)
				addi 3,1,540
				bl memcpy
		.LVL0:
				li 5,256
				addi 4,1,540
				addi 3,1,284
				bl memcpy
		.LVL1:
				li 5,256
				addi 4,1,284
				addi 3,1,540
				bl memcpy
		.LVL2:
		.LBE14:
		.LBB15:
		.LBB16:
				li 5,256
				addi 4,1,540
				addi 3,1,16
				bl memcpy
		.LVL3:
				addi 3,1,16
				bl _imp_printstring
		.LVL4:
		.LBE16:
		.LBE15:
    5 ")
    6 x=jim(4,5)
    7 write(x,5); newline
				li 4,5
				li 3,1
				bl _imp_writeint
		.LVL5:
		.LBB17:
		.LBB18:
				bl _imp_newline
		.LVL6:
		.LBE18:
		.LBE17:
    8
    9 %end
   10 %integerfn jim(%integer a,b)
				lwz 9,796(1)
				lwz 10,-28680(2)
				xor. 9,9,10
				li 10,0
				bne 0,.L4
				lwz 0,804(1)
				mtlr 0
				addi 1,1,800
				blr
		.L4:
				bl __stack_chk_fail
		.LVL7:
		.LFE185:
				.section	.rodata
				.set	.LANCHOR0,. + 0
		.LC0:
				.byte	5
				.string	"fred\n"
				.zero	249
				.section	".text"
		.Letext0:
   11
   12 %if a<b %then %result=1
   13 %result=0
   14 %end
   15 %endoffile
   13 Statements compiled