Edinburgh IMP77 Compiler - Version 8.4
    1 %begin
				.section	".text"
		.Ltext0:
				.align 4
				.global main
				.proc	04
		main:
		.LFB185:
				.register	%g2, #scratch
		.LVL0:
				save	%sp, -176, %sp
		.LVL1:
    2   %integermap wurd(%integer ad)
				mov	%i1, %o1
				call	_imp_initialise, 0
				 mov	%i0, %o0
		.LVL2:
    3     %result == integer(ad)
    4   %end
    5   %integername i,j
    6   i == integer(16_8000)
    7   j == wurd(16_8000)
    8   i=1
				sethi	%hi(32768), %g1
				mov	1, %g2
				st	%g2, [%g1]
		.LDL1:
    9   j=1
   10 fred:
   11   i == integer(16_8001)
   12   j == integer(16_8001)
   13   i=1
				sethi	%hi(33555456), %g1
				srlx	%g1, 10, %g1
				stb	%g0, [%g1]
				stb	%g0, [%g1+1]
				stb	%g0, [%g1+2]
				stb	%g2, [%g1+3]
		.LVL3:
		.LBB18:
		.LBB19:
				call	exit, 0
				 mov	0, %o0
		.LVL4:
		.LBE19:
		.LBE18:
				nop
		.LFE185:
		.Letext0:
   14   j=1
   15 %endofprogram
?FRED unused
   14 Statements compiled