Edinburgh IMP77 Compiler - Version 8.4
    1 %recordformatspec fr
		.Ltext0:
		RECPARAMS:
		.LFB189:
    2 %recordformat rf(%integer qa, qb, %integername qc, %record(fr)%name backlink)
    3 %recordformat fr(%integer a, %integername xa, %record (rf) rec, %record (rf) %name recn)
    4
    5 %routine recparams(%integer x,y, %integername xp, %record (fr) r, %record (fr) %name rn)
				pushl	%ebp
				movl	%esp, %ebp
				subl	$32, %esp
				call	__x86.get_pc_thunk.ax
				addl	$_GLOBAL_OFFSET_TABLE_, %eax
    6   %integer i
    7   %record (rf) local
    8 !  i = x
    9 !  i = xp
   10
   11   i = r_a
				movl	20(%ebp), %eax
				movl	%eax, -20(%ebp)
   12   i = r_xa
				movl	24(%ebp), %eax
				movl	(%eax), %eax
				movl	%eax, -20(%ebp)
   13 !  i = r_rec_qa
   14 !  i = r_rec_qc
   15 !  i = r_recn_qa
   16   i = r_recn_qc
				movl	44(%ebp), %eax
				movl	8(%eax), %eax
				movl	(%eax), %eax
				movl	%eax, -20(%ebp)
   17
   18 !  i = rn_a
   19 !  i = rn_xa
   20 !  local = rn_rec
   21 !  i = rn_rec_qa
   22 !  i = rn_rec_qc
   23 !  i = rn_recn_qa
   24 !  i = rn_recn_qc
   25
   26 ! ? rn_a
   27
   28 %end
				nop
				leave
				ret
		.LFE189:
				.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:
		.LFB190:
				movl	(%esp), %eax
				ret
		.LFE190:
		.Letext0:
?LOCAL unused
?RN unused
?XP unused
?Y unused
?X unused
   29
   30 %endoffile
   11 Statements compiled