Edinburgh IMP77 Compiler - Version 8.4
    1 %BEGIN
		.Ltext0:
				.section	.rodata
				.align 32
		.LC0:
				.byte	8
				.string	"TRAPPED!"
				.zero	246
				.align 32
		.LC1:
				.byte	4
				.string	"I = "
				.zero	250
				.globl	main
		main:
		.LFB189:
				leal	4(%esp), %ecx
				andl	$-16, %esp
				pushl	-4(%ecx)
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%esi
				pushl	%ebx
				pushl	%ecx
				subl	$1416, %esp
				call	__x86.get_pc_thunk.si
				addl	$_GLOBAL_OFFSET_TABLE_, %esi
				movl	%esi, -1424(%ebp)
				movl	%ecx, %eax
				movl	4(%eax), %edx
				movl	%edx, -1420(%ebp)
				movl	%gs:20, %ebx
				movl	%ebx, -28(%ebp)
				xorl	%ebx, %ebx
				subl	$8, %esp
				pushl	-1420(%ebp)
				pushl	(%eax)
				movl	%esi, %ebx
				call	_imp_initialise@PLT
				addl	$16, %esp
    2   %INTEGERARRAY BAD(1:2)
				leal	-1376(%ebp), %edx
				movl	$0, %eax
				movl	$17, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-1384(%ebp), %eax
				movl	%eax, -1376(%ebp)
				movl	$4, -1372(%ebp)
    3   %INTEGER I,J
    4   %ON %EVENT 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 %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	.L3
		.LBB16:
				movl	$0, -1052(%ebp)
				movl	$1, -1048(%ebp)
				movl	$2, -1044(%ebp)
				movl	$3, -1040(%ebp)
				movl	$4, -1036(%ebp)
				movl	$5, -1032(%ebp)
				movl	$6, -1028(%ebp)
				movl	$7, -1024(%ebp)
				movl	$8, -1020(%ebp)
				movl	$9, -1016(%ebp)
				movl	$10, -1012(%ebp)
				movl	$11, -1008(%ebp)
				movl	$12, -1004(%ebp)
				movl	$13, -1000(%ebp)
				movl	$14, -996(%ebp)
				movl	$15, -992(%ebp)
				movl	$0, -1400(%ebp)
		.LBB17:
				movl	$0, -1396(%ebp)
				jmp	.L4
		.L5:
				movl	-1396(%ebp), %eax
				movl	-1052(%ebp,%eax,4), %eax
				movl	$1, %edx
				movl	%eax, %ecx
				sall	%cl, %edx
				movl	%edx, %eax
				orl	%eax, -1400(%ebp)
				addl	$1, -1396(%ebp)
		.L4:
				cmpl	$15, -1396(%ebp)
				jbe	.L5
		.LBE17:
				movl	-1400(%ebp), %eax
		.LBE16:
				subl	$8, %esp
				pushl	%eax
				movl	-1424(%ebp), %ebx
				movl	_imp_event@GOT(%ebx), %eax
				pushl	%eax
				call	_imp_on_event_enter@PLT
				addl	$16, %esp
				testl	%eax, %eax
				jne	.L10
		.L3:
		.LBB18:
				nop
		.L6:
    5     PRINT STRING("TRAPPED!"); NEWLINE
				leal	-1052(%ebp), %eax
				movl	-1424(%ebp), %ebx
				leal	.LC0@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-1308(%ebp), %eax
				leal	-1052(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-540(%ebp), %eax
				leal	-1308(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE18:
		.LBB19:
		.LBB20:
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-540(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				movl	%ebx, %esi
				movl	%esi, %ebx
				call	_imp_printstring@PLT
				addl	$256, %esp
		.LBE20:
		.LBE19:
		.LBB21:
		.LBB22:
				movl	%esi, %ebx
				call	_imp_newline@PLT
				movl	$0, -1388(%ebp)
		.LBE22:
		.LBE21:
		.LBB23:
		.LBB24:
				subl	$12, %esp
				pushl	-1388(%ebp)
				movl	%esi, %ebx
				call	exit@PLT
		.L10:
		.LBE24:
		.LBE23:
    6     %STOP
    7   %FINISH
    8   BAD(0) = 123
				movl	$123, -1388(%ebp)
    9   BAD(1) = 234
				movl	$234, -1384(%ebp)
   10   J = 1
				movl	$1, -1404(%ebp)
		.L7:
   11   %CYCLE
   12     I = J + BAD(J)
				movl	-1404(%ebp), %eax
				subl	$1, %eax
				movl	-1384(%ebp,%eax,4), %edx
				movl	-1404(%ebp), %eax
				addl	%edx, %eax
				movl	%eax, -1392(%ebp)
		.LBB25:
   13     PRINTSTRING("I = "); WRITE(I,0); NEWLINE
				leal	-1052(%ebp), %eax
				movl	-1424(%ebp), %ebx
				leal	.LC1@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-796(%ebp), %eax
				leal	-1052(%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
				movl	%ebx, %edi
				movl	%edi, %ebx
				call	_imp_printstring@PLT
				addl	$256, %esp
		.LBE27:
		.LBE26:
				subl	$8, %esp
				pushl	$0
				pushl	-1392(%ebp)
				movl	%edi, %ebx
				call	_imp_writeint@PLT
				addl	$16, %esp
		.LBB28:
		.LBB29:
				movl	%edi, %ebx
				call	_imp_newline@PLT
		.LBE29:
		.LBE28:
   14     I = J * BAD(1)
				movl	-1384(%ebp), %eax
				movl	-1404(%ebp), %edx
				imull	%edx, %eax
				movl	%eax, -1392(%ebp)
   15     I = BAD(J)
				movl	-1404(%ebp), %eax
				subl	$1, %eax
				movl	-1384(%ebp,%eax,4), %eax
				movl	%eax, -1392(%ebp)
   16     I = BAD(1)
				movl	-1384(%ebp), %eax
				movl	%eax, -1392(%ebp)
   17     J = J+1
				addl	$1, -1404(%ebp)
   18   %REPEAT
				jmp	.L7
		.LFE189:
				.section	.text.__x86.get_pc_thunk.si,"axG",@progbits,__x86.get_pc_thunk.si,comdat
				.globl	__x86.get_pc_thunk.si
				.hidden	__x86.get_pc_thunk.si
		__x86.get_pc_thunk.si:
		.LFB190:
				movl	(%esp), %esi
				ret
		.LFE190:
		.Letext0:
   19 %ENDOFPROGRAM
   22 Statements compiled