Edinburgh IMP77 Compiler - Version 8.4
    1 %begin
		.Ltext0:
		_imp_EVENT:
		.LFB0:
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%esi
				pushl	%ebx
				call	__x86.get_pc_thunk.ax
				addl	$_GLOBAL_OFFSET_TABLE_, %eax
				movl	8(%ebp), %edx
				movl	_imp_event@GOT(%eax), %eax
				movl	%eax, %ebx
				movl	$173, %eax
				movl	%edx, %edi
				movl	%ebx, %esi
				movl	%eax, %ecx
				rep movsl
				movl	8(%ebp), %eax
				popl	%ebx
				popl	%esi
				popl	%edi
				popl	%ebp
				ret	$4
		.LFE0:
				.globl	main
		main:
		.LFB189:
				leal	4(%esp), %ecx
				andl	$-16, %esp
				pushl	-4(%ecx)
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%esi
				pushl	%ebx
				pushl	%ecx
				subl	$828, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ebx, %esi
				movl	%esi, -832(%ebp)
				movl	%ecx, %eax
				movl	4(%eax), %edx
				movl	%edx, -828(%ebp)
				movl	%gs:20, %ecx
				movl	%ecx, -28(%ebp)
				xorl	%ecx, %ecx
				subl	$8, %esp
				pushl	-828(%ebp)
				pushl	(%eax)
				movl	%esi, %ebx
				call	_imp_initialise@PLT
				addl	$16, %esp
    2   %recordformat fredfm (%integer a, %real b, %integer c)
    3   %record (fredfm) fred = 0
				movl	$0, -796(%ebp)
				movl	$0, -792(%ebp)
				movl	$0, -788(%ebp)
				movl	$0, -812(%ebp)
		.LBB22:
		.LBB23:
				movl	-812(%ebp), %eax
		.LBE23:
		.LBE22:
    4   ! NOT ALLOWED: %record (fredfm) %name fredp == 0
    5   ! NOT ALLOWED: %record (fredfm) %name fredp = 0
    6   %record (fredfm) %name fredp == RECORD(0)
				movl	%eax, -824(%ebp)
    7
    8   %on %event * %start
				subl	$8, %esp
				pushl	$1
				movl	%esi, %ebx
				movl	_imp_event@GOT(%ebx), %eax
				leal	532(%eax), %eax
				pushl	%eax
				movl	%esi, %ebx
				call	__sigsetjmp@PLT
				addl	$16, %esp
				testl	%eax, %eax
				jne	.L6
		.LBB24:
				movl	$0, -784(%ebp)
				movl	$1, -780(%ebp)
				movl	$2, -776(%ebp)
				movl	$3, -772(%ebp)
				movl	$4, -768(%ebp)
				movl	$5, -764(%ebp)
				movl	$6, -760(%ebp)
				movl	$7, -756(%ebp)
				movl	$8, -752(%ebp)
				movl	$9, -748(%ebp)
				movl	$10, -744(%ebp)
				movl	$11, -740(%ebp)
				movl	$12, -736(%ebp)
				movl	$13, -732(%ebp)
				movl	$14, -728(%ebp)
				movl	$15, -724(%ebp)
				movl	$0, -820(%ebp)
		.LBB25:
				movl	$0, -816(%ebp)
				jmp	.L7
		.L8:
				movl	-816(%ebp), %eax
				movl	-784(%ebp,%eax,4), %eax
				movl	$1, %edx
				movl	%eax, %ecx
				sall	%cl, %edx
				movl	%edx, %eax
				orl	%eax, -820(%ebp)
				addl	$1, -816(%ebp)
		.L7:
				cmpl	$15, -816(%ebp)
				jbe	.L8
		.LBE25:
				movl	-820(%ebp), %eax
		.LBE24:
				subl	$8, %esp
				pushl	%eax
				movl	-832(%ebp), %ebx
				movl	_imp_event@GOT(%ebx), %eax
				pushl	%eax
				call	_imp_on_event_enter@PLT
				addl	$16, %esp
				testl	%eax, %eax
				jne	.L13
		.L6:
				nop
		.L9:
    9     ! does not trap SIGSEGV !
   10     write(event_event,0); newline
				leal	-720(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_EVENT
				addl	$12, %esp
				movl	-720(%ebp), %eax
				subl	$8, %esp
				pushl	$0
				pushl	%eax
				movl	-832(%ebp), %esi
				movl	%esi, %ebx
				call	_imp_writeint@PLT
				addl	$16, %esp
		.LBB26:
		.LBB27:
				movl	%esi, %ebx
				call	_imp_newline@PLT
				movl	$0, -808(%ebp)
		.LBE27:
		.LBE26:
		.LBB28:
		.LBB29:
				subl	$12, %esp
				pushl	-808(%ebp)
				movl	%esi, %ebx
				call	exit@PLT
		.L13:
		.LBE29:
		.LBE28:
   11     %stop
   12   %finish
   13
   14   fred_a = 1; fred_b = 1.1; fred_c = 1
				movl	$1, -796(%ebp)
				movl	-832(%ebp), %esi
				movl	%esi, %edx
				flds	.LC0@GOTOFF(%edx)
				fstps	-792(%ebp)
				movl	$1, -788(%ebp)
   15   write(fred_a,0); write(fred_c,3); newline
				movl	-796(%ebp), %eax
				subl	$8, %esp
				pushl	$0
				pushl	%eax
				movl	%esi, %ebx
				call	_imp_writeint@PLT
				addl	$16, %esp
				movl	-788(%ebp), %eax
				subl	$8, %esp
				pushl	$3
				pushl	%eax
				movl	%esi, %ebx
				call	_imp_writeint@PLT
				addl	$16, %esp
		.LBB30:
		.LBB31:
				movl	%esi, %ebx
				call	_imp_newline@PLT
		.LBE31:
		.LBE30:
   16   fred = 0
				movl	$0, -796(%ebp)
				movl	$0, -792(%ebp)
				movl	$0, -788(%ebp)
   17   write(fred_a,0); write(fred_c,3); newline
				movl	-796(%ebp), %eax
				subl	$8, %esp
				pushl	$0
				pushl	%eax
				movl	%esi, %ebx
				call	_imp_writeint@PLT
				addl	$16, %esp
				movl	-788(%ebp), %eax
				subl	$8, %esp
				pushl	$3
				pushl	%eax
				movl	%esi, %ebx
				call	_imp_writeint@PLT
				addl	$16, %esp
		.LBB32:
		.LBB33:
				movl	%esi, %ebx
				call	_imp_newline@PLT
		.LBE33:
		.LBE32:
   18
   19   fredp == fred
				leal	-796(%ebp), %eax
				movl	%eax, -824(%ebp)
   20   fred_a = 1; fred_b = 1.1; fred_c = 1
				movl	$1, -796(%ebp)
				movl	%esi, %ecx
				flds	.LC0@GOTOFF(%ecx)
				fstps	-792(%ebp)
				movl	$1, -788(%ebp)
   21   write(fredp_a,0); write(fredp_c,3); newline
				movl	-824(%ebp), %eax
				movl	(%eax), %eax
				subl	$8, %esp
				pushl	$0
				pushl	%eax
				movl	%esi, %ebx
				call	_imp_writeint@PLT
				addl	$16, %esp
				movl	-824(%ebp), %eax
				movl	8(%eax), %eax
				subl	$8, %esp
				pushl	$3
				pushl	%eax
				movl	%esi, %ebx
				call	_imp_writeint@PLT
				addl	$16, %esp
		.LBB34:
		.LBB35:
				movl	%esi, %ebx
				call	_imp_newline@PLT
		.LBE35:
		.LBE34:
   22
   23   fredp = 0
				movl	-824(%ebp), %eax
				movl	$0, (%eax)
				movl	$0, 4(%eax)
				movl	$0, 8(%eax)
   24   write(fred_a,0); write(fred_c,3); newline
				movl	-796(%ebp), %eax
				subl	$8, %esp
				pushl	$0
				pushl	%eax
				movl	%esi, %ebx
				call	_imp_writeint@PLT
				addl	$16, %esp
				movl	-788(%ebp), %eax
				subl	$8, %esp
				pushl	$3
				pushl	%eax
				movl	%esi, %ebx
				call	_imp_writeint@PLT
				addl	$16, %esp
		.LBB36:
		.LBB37:
				movl	%esi, %ebx
				call	_imp_newline@PLT
				movl	$0, -804(%ebp)
		.LBE37:
		.LBE36:
		.LBB38:
		.LBB39:
				movl	-804(%ebp), %eax
		.LBE39:
		.LBE38:
   25
   26 ! NOT ALLOWED: fredp == 0
   27   fredp == RECORD(0)
				movl	%eax, -824(%ebp)
				movl	$0, -800(%ebp)
		.LBB40:
		.LBB41:
				subl	$12, %esp
				pushl	-800(%ebp)
				movl	%esi, %ebx
				call	exit@PLT
		.LBE41:
		.LBE40:
		.LFE189:
				.section	.rodata
				.align 4
		.LC0:
				.long	1066192077
				.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:
				.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:
		.LFB191:
				movl	(%esp), %ebx
				ret
		.LFE191:
		.Letext0:
   28   !write(fredp_a,0); write(fredp_c,3); newline ;! "Segmentation fault" as expected
   29 %endofprogram
   32 Statements compiled