.file	"vars.p"
	.version	"01.01"
gcc2_compiled.:
	.local	X
	.comm	X,4,4
	.local	Y
	.comm	Y,8,8
.section	.rodata
	.align 8
.LC0:
	.long 0x0,0x40080000
.text
	.align 4
.globl Foo
	.type	 Foo,@function
Foo:
	pushl %ebp
	movl %esp,%ebp
	subl $24,%esp
	fldl .LC0
	fstpl -16(%ebp)
	movl 8(%ebp),%eax
	incl %eax
	movl %eax,-4(%ebp)
	cmpl $9,8(%ebp)
	jg .L3
	fldl -16(%ebp)
	fstpl 12(%ebp)
.L3:
	movl -4(%ebp),%edx
	movl %edx,%eax
	jmp .L2
	.p2align 4,,7
.L2:
	movl %ebp,%esp
	popl %ebp
	ret
.Lfe1:
	.size	 Foo,.Lfe1-Foo
.globl _p_read
.globl _p_check_inoutres
.globl _p_write
.section	.rodata
	.align 8
.LC1:
	.long 0x0,0x40000000
.text
	.align 4
.globl pascal_main_program
	.type	 pascal_main_program,@function
pascal_main_program:
	pushl %ebp
	movl %esp,%ebp
	subl $8,%esp
	addl $-8,%esp
	pushl $22
	pushl $X
	pushl $3
	pushl $2
	pushl $12
	pushl $_p_stdin
	call _p_read
	addl $32,%esp
	cmpl $0,_p_InOutRes
	je .L5
	call _p_check_inoutres
.L5:
	addl $-8,%esp
	pushl $22
	addl $-4,%esp
	fldl .LC1
	subl $8,%esp
	fstpl (%esp)
	movl X,%eax
	pushl %eax
	call Foo
	addl $16,%esp
	movl %eax,%eax
	pushl %eax
	pushl $3
	pushl $2
	pushl $384
	pushl $_p_stdout
	call _p_write
	addl $32,%esp
	cmpl $0,_p_InOutRes
	je .L6
	call _p_check_inoutres
.L6:
.L4:
	movl %ebp,%esp
	popl %ebp
	ret
.Lfe2:
	.size	 pascal_main_program,.Lfe2-pascal_main_program
.data
	.type	 ctor_run_condition_0.6,@object
	.size	 ctor_run_condition_0.6,1
ctor_run_condition_0.6:
.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.6
	je .L8
	movb $0,ctor_run_condition_0.6
	addl $-12,%esp
	pushl $fini_pascal_main_program
	call _p_atexit
	addl $16,%esp
.L8:
.L7:
	movl %ebp,%esp
	popl %ebp
	ret
.Lfe3:
	.size	 init_pascal_main_program,.Lfe3-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
.L9:
	movl %ebp,%esp
	popl %ebp
	ret
.Lfe4:
	.size	 fini_pascal_main_program,.Lfe4-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 .L10
	.p2align 4,,7
.L10:
	movl %ebp,%esp
	popl %ebp
	ret
.Lfe5:
	.size	 main,.Lfe5-main
	.ident	"GCC: (GNU) 2.95.2 19991024 (release)"