.file	"loop.p"
	.version	"01.01"
gcc2_compiled.:
	.local	A
	.comm	A,400,32
	.local	B
	.comm	B,400,32
	.local	I
	.comm	I,4,4
	.local	J
	.comm	J,4,4
.text
	.align 4
.globl pascal_main_program
	.type	 pascal_main_program,@function
pascal_main_program:
	pushl %ebp
	movl %esp,%ebp
	pushl %esi
	pushl %ebx
	nop
	movl $1,I
	.p2align 4,,7
.L4:
	movl $1,J
	.p2align 4,,7
.L8:
	movl J,%edx
	decl %edx
	leal 0(,%edx,4),%eax
	movl I,%ecx
	decl %ecx
	movl %ecx,%edx
	sall $2,%edx
	addl %ecx,%edx
	leal 0(,%edx,8),%ecx
	addl %ecx,%eax
	movl $A,%edx
	movl I,%ebx
	decl %ebx
	leal 0(,%ebx,4),%ecx
	movl J,%esi
	decl %esi
	movl %esi,%ebx
	sall $2,%ebx
	addl %esi,%ebx
	leal 0(,%ebx,8),%esi
	addl %esi,%ecx
	movl $B,%ebx
	movl (%ecx,%ebx),%ecx
	movl %ecx,(%eax,%edx)
.L10:
	cmpl $9,J
	jle .L11
	jmp .L6
	.p2align 4,,7
.L11:
	incl J
	jmp .L8
	.p2align 4,,7
.L9:
.L7:
.L6:
	cmpl $9,I
	jle .L12
	jmp .L3
	.p2align 4,,7
.L12:
	incl I
	jmp .L4
	.p2align 4,,7
.L5:
.L3:
.L2:
	leal -8(%ebp),%esp
	popl %ebx
	popl %esi
	movl %ebp,%esp
	popl %ebp
	ret
.Lfe1:
	.size	 pascal_main_program,.Lfe1-pascal_main_program
.data
	.type	 ctor_run_condition_0.4,@object
	.size	 ctor_run_condition_0.4,1
ctor_run_condition_0.4:
.byte 1
.globl _p_atexit
.text
	.align 4
.globl init_pascal_main_program
	.type	 init_pascal_main_program,@function
init_pascal_main_program:
	pushl %ebp
	movl %esp,%ebp
	subl $8,%esp
	cmpb $0,ctor_run_condition_0.4
	je .L14
	movb $0,ctor_run_condition_0.4
	addl $-12,%esp
	pushl $fini_pascal_main_program
	call _p_atexit
	addl $16,%esp
.L14:
.L13:
	movl %ebp,%esp
	popl %ebp
	ret
.Lfe2:
	.size	 init_pascal_main_program,.Lfe2-init_pascal_main_program
	.align 4
.globl fini_pascal_main_program
	.type	 fini_pascal_main_program,@function
fini_pascal_main_program:
	pushl %ebp
	movl %esp,%ebp
.L15:
	movl %ebp,%esp
	popl %ebp
	ret
.Lfe3:
	.size	 fini_pascal_main_program,.Lfe3-fini_pascal_main_program
.globl init_pascal_main_program
.globl pascal_main_program
.globl _p_finalize
	.align 4
.globl main
	.type	 main,@function
main:
	pushl %ebp
	movl %esp,%ebp
	subl $8,%esp
	addl $-4,%esp
	movl 16(%ebp),%eax
	pushl %eax
	movl 12(%ebp),%eax
	pushl %eax
	movl 8(%ebp),%eax
	pushl %eax
	call _p_initialize
	addl $16,%esp
	call init_pascal_main_program
	call pascal_main_program
	call _p_finalize
	xorl %eax,%eax
	jmp .L16
	.p2align 4,,7
.L16:
	movl %ebp,%esp
	popl %ebp
	ret
.Lfe4:
	.size	 main,.Lfe4-main
	.ident	"GCC: (GNU) 2.95.2 19991024 (release)"