Edinburgh IMP77 Compiler - Version 8.4
    1 %begin
		.Ltext0:
				.section	.rodata
				.align 32
		.LC3:
				.byte	4
				.string	"p1: "
				.zero	250
		P1.6024:
		.LFB190:
				leal	4(%esp), %ecx
				andl	$-16, %esp
				pushl	-4(%ecx)
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%esi
				pushl	%ebx
				pushl	%ecx
				subl	$1080, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ecx, %edx
				movl	4(%edx), %eax
				movl	%eax, -1084(%ebp)
				movl	%gs:20, %eax
				movl	%eax, -28(%ebp)
				xorl	%eax, %eax
				leal	8(%ebp), %eax
				movl	%eax, -1056(%ebp)
				leal	-1076(%ebp), %eax
				addl	$10, %eax
				leal	-1076(%ebp), %ecx
				movb	$-71, (%eax)
				movl	%ecx, 1(%eax)
				movb	$-23, 5(%eax)
				leal	P1.6024@GOTOFF(%ebx), %esi
				leal	10(%eax), %ecx
				subl	%ecx, %esi
				movl	%esi, %ecx
				movl	%ecx, 6(%eax)
				leal	-1076(%ebp), %eax
				leal	-1076(%ebp), %ecx
				movb	$-71, (%eax)
				movl	%ecx, 1(%eax)
				movb	$-23, 5(%eax)
				leal	P2.6031@GOTOFF(%ebx), %esi
				leal	10(%eax), %ecx
				subl	%ecx, %esi
				movl	%esi, %ecx
				movl	%ecx, 6(%eax)
				subl	$8, %esp
				pushl	-1084(%ebp)
				pushl	(%edx)
				call	_imp_initialise@PLT
				addl	$16, %esp
		.L5:
    2   %string(255) s
    3   %integer n
    4
    5   %routine p1 (%string(*)%name k)
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%esi
				pushl	%ebx
				subl	$812, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	8(%ebp), %eax
				movl	%eax, -812(%ebp)
				movl	%ecx, -816(%ebp)
				movl	%gs:20, %eax
				movl	%eax, -28(%ebp)
				xorl	%eax, %eax
		.LBB25:
    6     print string("p1: ")
				leal	-284(%ebp), %eax
				leal	.LC3@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-796(%ebp), %eax
				leal	-284(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-284(%ebp), %eax
				leal	-796(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE25:
		.LBB26:
		.LBB27:
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-284(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_imp_printstring@PLT
				addl	$256, %esp
		.LBE27:
		.LBE26:
		.LBB28:
    7     print string(k)
				movl	-812(%ebp), %edx
				leal	-540(%ebp), %eax
				movl	%edx, %esi
				movl	$64, %edx
				movl	%eax, %edi
				movl	%edx, %ecx
				rep movsl
				leal	-540(%ebp), %edx
				leal	-540(%ebp), %eax
				movl	%edx, %esi
				movl	$64, %edx
				movl	%eax, %edi
				movl	%edx, %ecx
				rep movsl
		.LBE28:
		.LBB29:
		.LBB30:
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-540(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_imp_printstring@PLT
				addl	$256, %esp
		.LBE30:
		.LBE29:
		.LBB31:
		.LBB32:
				call	_imp_newline@PLT
		.LBE32:
		.LBE31:
    8     newline
    9   %end
				nop
				movl	-28(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L3
				call	__stack_chk_fail_local
		.L3:
				leal	-12(%ebp), %esp
				popl	%ebx
				popl	%esi
				popl	%edi
				popl	%ebp
				ret
		.LFE190:
				.section	.rodata
				.align 32
		.LC1:
				.byte	9
				.string	"test done"
				.zero	245
				.globl	main
		main:
		.LFB189:
   10
   11   %routine p2 (%string(*)%name k)
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%esi
				pushl	%ebx
				subl	$812, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	8(%ebp), %eax
				movl	%eax, -812(%ebp)
				movl	%ecx, -816(%ebp)
				movl	%gs:20, %eax
				movl	%eax, -28(%ebp)
				xorl	%eax, %eax
		.LBB38:
   12     print string("p2: ")
				leal	-284(%ebp), %eax
				leal	.LC2@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-796(%ebp), %eax
				leal	-284(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-284(%ebp), %eax
				leal	-796(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE38:
		.LBB39:
		.LBB40:
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-284(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_imp_printstring@PLT
				addl	$256, %esp
		.LBE40:
		.LBE39:
		.LBB41:
   13     print string(k)
				movl	-812(%ebp), %edx
				leal	-540(%ebp), %eax
				movl	%edx, %esi
				movl	$64, %edx
				movl	%eax, %edi
				movl	%edx, %ecx
				rep movsl
				leal	-540(%ebp), %edx
				leal	-540(%ebp), %eax
				movl	%edx, %esi
				movl	$64, %edx
				movl	%eax, %edi
				movl	%edx, %ecx
				rep movsl
		.LBE41:
		.LBB42:
		.LBB43:
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-540(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_imp_printstring@PLT
				addl	$256, %esp
		.LBE43:
		.LBE42:
		.LBB44:
		.LBB45:
				call	_imp_newline@PLT
		.LBE45:
		.LBE44:
   14     newline
   15   %end
				nop
				movl	-28(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L14
				call	__stack_chk_fail_local
		.L14:
				leal	-12(%ebp), %esp
				popl	%ebx
				popl	%esi
				popl	%edi
				popl	%ebp
				ret
		.LFE191:
		PASS.6040:
		.LFB192:
   16
   17   %routine pass (%routine p (%string(*)%name k), %string(*)%name k)
				pushl	%ebp
				movl	%esp, %ebp
				subl	$24, %esp
				call	__x86.get_pc_thunk.ax
				addl	$_GLOBAL_OFFSET_TABLE_, %eax
				movl	%ecx, -12(%ebp)
   18     p(k)
				subl	$12, %esp
				pushl	12(%ebp)
				movl	8(%ebp), %eax
				call	*%eax
		.LVL0:
				addl	$16, %esp
   19   %end
				nop
				leave
				ret
		.LFE192:
				.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:
		.LFB193:
				movl	(%esp), %eax
				ret
		.LFE193:
				.section	.text.__x86.get_pc_thunk.bx,"axG",@progbits,__x86.get_pc_thunk.bx,comdat
				.globl	__x86.get_pc_thunk.bx
				.hidden	__x86.get_pc_thunk.bx
		__x86.get_pc_thunk.bx:
		.LFB194:
				movl	(%esp), %ebx
				ret
		.LFE194:
		.Letext0:
   20
   21   %cycle
   22     read(n)
				subl	$12, %esp
				leal	-1080(%ebp), %eax
				pushl	%eax
				call	_imp_readint@PLT
				addl	$16, %esp
   23     read(s)
				subl	$12, %esp
				leal	-1052(%ebp), %eax
				pushl	%eax
				call	_imp_readitem@PLT
				addl	$16, %esp
   24     %if n = 1 %start
				movl	-1080(%ebp), %eax
				cmpl	$1, %eax
				jne	.L11
				nop
		.L7:
   25       pass(p1,s)
				leal	-1076(%ebp), %eax
				addl	$10, %eax
				movl	%eax, %ecx
				subl	$8, %esp
				leal	-1076(%ebp), %eax
				leal	-1052(%ebp), %edx
				pushl	%edx
				pushl	%ecx
				movl	%eax, %ecx
				call	PASS.6040
				addl	$16, %esp
   26     %else
				jmp	.L8
		.L11:
   27       pass(p2,s)
				leal	-1076(%ebp), %eax
				movl	%eax, %ecx
				subl	$8, %esp
				leal	-1076(%ebp), %eax
				leal	-1052(%ebp), %edx
				pushl	%edx
				pushl	%ecx
				movl	%eax, %ecx
				call	PASS.6040
				addl	$16, %esp
		.L8:
		.LBB33:
   28     %finish
   29     print string("test done")
				leal	-796(%ebp), %eax
				leal	.LC1@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-540(%ebp), %eax
				leal	-796(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-284(%ebp), %eax
				leal	-540(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE33:
		.LBB34:
		.LBB35:
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-284(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_imp_printstring@PLT
				addl	$256, %esp
		.LBE35:
		.LBE34:
		.LBB36:
		.LBB37:
				call	_imp_newline@PLT
		.LBE37:
		.LBE36:
   30     newline
   31   %repeat
				jmp	.L5
		.LFE189:
				.section	.rodata
				.align 32
		.LC2:
				.byte	4
				.string	"p2: "
				.zero	250
		P2.6031:
		.LFB191:
   32
   33 %end
   34 %end %of %file
   29 Statements compiled