check.s

This contains the following topics and more ADA versus C and Cplus plus Ada_training ADA 2005 for

	.file	"check.adb"
	.text
	.align 4
LC1:
	.long	1
	.long	19
	.align 4
LC4:
	.long	1
	.long	13
LC0:
	.ascii "price_per_kilo is :"
LC2:
	.ascii "kilos_of_apples is:"
LC3:
	.ascii " the cost is:"
.globl __ada_check
	.def	__ada_check;	.scl	2;	.type	32;	.endef
__ada_check:
	pushl	%ebp
	movl	%esp, %ebp
	subl	$24, %esp
	movl	$0x3f99999a, -4(%ebp)
	movl	$0x40a66666, -8(%ebp)
	flds	-4(%ebp)
	fmuls	-8(%ebp)
	fstps	-12(%ebp)
	subl	$8, %esp
	movl	$LC0, %eax
	movl	$LC1, %edx
	pushl	%edx
	pushl	%eax
	call	_ada__text_io__put__4
	addl	$16, %esp
	pushl	_ada__float_text_io__default_exp
	pushl	_ada__float_text_io__default_aft
	pushl	_ada__float_text_io__default_fore
	pushl	-4(%ebp)
	call	_ada__float_text_io__put__2
	addl	$16, %esp
	subl	$12, %esp
	pushl	$1
	call	_ada__text_io__new_line__2
	addl	$16, %esp
	subl	$8, %esp
	movl	$LC2, %eax
	movl	$LC1, %edx
	pushl	%edx
	pushl	%eax
	call	_ada__text_io__put__4
	addl	$16, %esp
	pushl	_ada__float_text_io__default_exp
	pushl	_ada__float_text_io__default_aft
	pushl	_ada__float_text_io__default_fore
	pushl	-8(%ebp)
	call	_ada__float_text_io__put__2
	addl	$16, %esp
	subl	$12, %esp
	pushl	$1
	call	_ada__text_io__new_line__2
	addl	$16, %esp
	subl	$8, %esp
	movl	$LC3, %eax
	movl	$LC4, %edx
	pushl	%edx
	pushl	%eax
	call	_ada__text_io__put__4
	addl	$16, %esp
	pushl	_ada__float_text_io__default_exp
	pushl	_ada__float_text_io__default_aft
	pushl	_ada__float_text_io__default_fore
	pushl	-12(%ebp)
	call	_ada__float_text_io__put__2
	addl	$16, %esp
	subl	$12, %esp
	pushl	$1
	call	_ada__text_io__new_line__2
	addl	$16, %esp
	subl	$12, %esp
	pushl	$1
	call	_ada__text_io__new_line__2
	addl	$16, %esp
	leave
	ret
	.def	_ada__text_io__new_line__2;	.scl	3;	.type	32;	.endef
	.def	_ada__float_text_io__put__2;	.scl	3;	.type	32;	.endef
	.def	_ada__text_io__put__4;	.scl	3;	.type	32;	.endef