.file "kons2_1.pas"
	.stabs "d:/pas/",100,0,0,.Ltext0
	.stabs "kons2_1.pas",100,0,0,.Ltext0
.Ltext0:
	.stabd	72,0,1

.section .text
# [kons2_1.pas]
fpc_compiled:
gcc2_compiled:
	.stabd	68,0,10
# [10] Begin
.globl	DEBUGINFO_P$KONTRL2_1
DEBUGINFO_P$KONTRL2_1:
# Begin unit SYSTEM has index 1
	.stabs "LONGINT:t6=r6;-2147483648;2147483647;",128,0,0,0
	.stabs "DOUBLE:t3=r6;8;0;",128,0,0,0
	.stabs "SMALLINT:t1=r1;-32768;32767;",128,0,0,0
	.stabs "void:t5=5",128,0,0,0
# End unit SYSTEM has index 1
# Begin unit KONTRL2_1 has index 0
	.stabs "SHORTINT:t7=r7;-128;127;",128,0,0,0
	.stabs "DARRAY:t8=ar7;0;0;3",128,0,0,0
	.stabs " :t2=*8",128,0,0,0
# End unit KONTRL2_1 has index 0

.section .text

.section .text
	.balign 4
	.balign 4
	.stabs "main:F5",36,0,4,_main
.globl	PASCALMAIN
PASCALMAIN:
.globl	_main
_main:
# Temps allocated between ebp-32 and ebp+0
	# Register ebp allocated
	pushl	%ebp
	movl	%esp,%ebp
	subl	$32,%esp
# Temp -32,12 allocated
	movl	%ebx,-32(%ebp)
	movl	%esi,-28(%ebp)
	movl	%edi,-24(%ebp)
# Temp -20,4 allocated
	# Register eax,ecx,edx allocated
	call	FPC_INITIALIZEUNITS
	# Register eax,ecx,edx released
	# Register eax,ecx,edx allocated
.Ll1:
	.stabn 68,0,11,.Ll1 - _main
# [11] writeln('....... .......... ......... . .......');
	call	fpc_get_output
	# Register ecx,edx,eax released
	# Register ebx allocated
	movl	%eax,%ebx
	# Register ecx allocated
	movl	$_$PROGRAM$_L8,%ecx
	# Register edx allocated
	movl	%ebx,%edx
	# Register eax allocated
	movl	$0,%eax
	# Register ecx,edx released
	# Register ecx,edx allocated
	call	fpc_write_text_shortstr
	# Register eax,ecx,edx released
	# Register eax,ecx,edx allocated
	call	FPC_IOCHECK
	# Register eax,ecx,edx released
	# Register eax allocated
	movl	%ebx,%eax
	# Register ecx,edx allocated
	call	fpc_writeln_end
	# Register eax,ecx,edx released
	# Register eax,ecx,edx allocated
	call	FPC_IOCHECK
	# Register eax,ecx,edx,ebx released
	# Register eax,ecx,edx allocated
.Ll2:
	.stabn 68,0,12,.Ll2 - _main
# [12] readln(n);
	call	fpc_get_input
	# Register ecx,edx,eax released
	# Register ebx allocated
	movl	%eax,%ebx
# Temp -4,4 allocated
	# Register edx allocated
	leal	-4(%ebp),%edx
	# Register eax allocated
	movl	%ebx,%eax
	# Register edx released
	# Register ecx,edx allocated
	call	fpc_read_text_sint
	# Register eax,ecx,edx released
	# Register eax,ecx,edx allocated
	call	FPC_IOCHECK
	# Register eax,ecx,edx released
	# Register eax allocated
	movl	-4(%ebp),%eax
	subl	$-32768,%eax
	# Register eax released
	cmpl	$65535,%eax
	jbe	.L23
	call	FPC_RANGEERROR
.L23:
	# Register ax allocated
	movw	-4(%ebp),%ax
	# Register ax released
	movw	%ax,U_P$KONTRL2_1_N
# Temp -4,4 released
	# Register eax allocated
	movl	%ebx,%eax
	# Register ecx,edx allocated
	call	fpc_readln_end
	# Register eax,ecx,edx released
	# Register eax,ecx,edx allocated
	call	FPC_IOCHECK
	# Register eax,ecx,edx,ebx released
	# Register edx allocated
.Ll3:
	.stabn 68,0,13,.Ll3 - _main
# [13] Getmem(x,n*SizeOf(real));{......... ...... ... ............. .......}
	movswl	U_P$KONTRL2_1_N,%edx
	imull	$8,%edx
	jno	.L28
	call	FPC_OVERFLOW
.L28:
	# Register eax allocated
	movl	$U_P$KONTRL2_1_X,%eax
	# Register edx released
	# Register ecx,edx allocated
	call	SYSTEM_GETMEM$POINTER$LONGINT
	# Register eax,ecx,edx released
	# Register eax,ecx,edx allocated
.Ll4:
	.stabn 68,0,14,.Ll4 - _main
# [14] writeln('....... ',n,' ......... .......');
	call	fpc_get_output
	# Register ecx,edx,eax released
	# Register ebx allocated
	movl	%eax,%ebx
	# Register ecx allocated
	movl	$_$PROGRAM$_L35,%ecx
	# Register edx allocated
	movl	%ebx,%edx
	# Register eax allocated
	movl	$0,%eax
	# Register ecx,edx released
	# Register ecx,edx allocated
	call	fpc_write_text_shortstr
	# Register eax,ecx,edx released
	# Register eax,ecx,edx allocated
	call	FPC_IOCHECK
	# Register eax,ecx,edx released
	# Register ecx allocated
	movswl	U_P$KONTRL2_1_N,%ecx
	# Register edx allocated
	movl	%ebx,%edx
	# Register eax allocated
	movl	$0,%eax
	# Register ecx,edx released
	# Register ecx,edx allocated
	call	fpc_write_text_sint
	# Register eax,ecx,edx released
	# Register eax,ecx,edx allocated
	call	FPC_IOCHECK
	# Register eax,ecx,edx released
	# Register ecx allocated
	movl	$_$PROGRAM$_L48,%ecx
	# Register edx allocated
	movl	%ebx,%edx
	# Register eax allocated
	movl	$0,%eax
	# Register ecx,edx released
	# Register ecx,edx allocated
	call	fpc_write_text_shortstr
	# Register eax,ecx,edx released
	# Register eax,ecx,edx allocated
	call	FPC_IOCHECK
	# Register eax,ecx,edx released
	# Register eax allocated
	movl	%ebx,%eax
	# Register ecx,edx allocated
	call	fpc_writeln_end
	# Register eax,ecx,edx released
	# Register eax,ecx,edx allocated
	call	FPC_IOCHECK
	# Register eax,ecx,edx,ebx released
	# Register esi allocated
.Ll5:
	.stabn 68,0,15,.Ll5 - _main
# [15] for i:=0 to n-1 do
	movswl	U_P$KONTRL2_1_N,%esi
	subl	$1,%esi
	jno	.L58
	call	FPC_OVERFLOW
.L58:
	# Register eax allocated
	movl	%esi,%eax
	subl	$-32768,%eax
	# Register eax released
	cmpl	$65535,%eax
	jbe	.L59
	call	FPC_RANGEERROR
.L59:
	# Register esi released
	# Register si allocated
	movw	$0,U_P$KONTRL2_1_I
	cmpw	U_P$KONTRL2_1_I,%si
	jl	.L56
	subw	$1,U_P$KONTRL2_1_I
	.balign 4
.L57:
	addw	$1,U_P$KONTRL2_1_I
	# Register eax,ecx,edx allocated
.Ll6:
	.stabn 68,0,17,.Ll6 - _main
# [17] read(b);
	call	fpc_get_input
	# Register ecx,edx,eax released
	# Register ebx allocated
	movl	%eax,%ebx
# Temp -16,12 allocated
	# Register edx allocated
	leal	-16(%ebp),%edx
	# Register eax allocated
	movl	%ebx,%eax
	# Register edx released
	# Register ecx,edx allocated
	call	fpc_read_text_float
	# Register eax,ecx,edx released
	# Register eax,ecx,edx allocated
	call	FPC_IOCHECK
	# Register eax,ecx,edx released
	fldt	-16(%ebp)
	fstpl	U_P$KONTRL2_1_B
	fwait
# Temp -16,12 released
	# Register eax allocated
	movl	%ebx,%eax
	# Register ecx,edx allocated
	call	fpc_read_end
	# Register eax,ecx,edx released
	# Register eax,ecx,edx allocated
	call	FPC_IOCHECK
	# Register eax,ecx,edx,ebx released
	# Register eax allocated
.Ll7:
	.stabn 68,0,18,.Ll7 - _main
# [18] x^[i]:=b;{.... ......... .......}
	movl	U_P$KONTRL2_1_X,%eax
	# Register edx allocated
	movswl	U_P$KONTRL2_1_I,%edx
	# Register ecx allocated
	movl	%edx,%ecx
	# Register ecx released
	testl	%ecx,%ecx
	jbe	.L72
	call	FPC_RANGEERROR
.L72:
	# Register ecx allocated
	movl	U_P$KONTRL2_1_B,%ecx
	# Register ecx released
	movl	%ecx,(%eax,%edx,8)
	# Register ecx allocated
	movl	U_P$KONTRL2_1_B+4,%ecx
	# Register eax,edx,ecx released
	movl	%ecx,4(%eax,%edx,8)
	# Register si released
.Ll8:
	.stabn 68,0,15,.Ll8 - _main
	cmpw	U_P$KONTRL2_1_I,%si
	jg	.L57
.L56:
	# Register eax allocated
.Ll9:
	.stabn 68,0,21,.Ll9 - _main
# [21] for i:=1 to n-1 do
	movswl	U_P$KONTRL2_1_N,%eax
	subl	$1,%eax
	jno	.L76
	call	FPC_OVERFLOW
.L76:
	# Register edx allocated
	movl	%eax,%edx
	subl	$-32768,%edx
	# Register edx released
	cmpl	$65535,%edx
	jbe	.L77
	call	FPC_RANGEERROR
.L77:
	# Register eax released
	# Register ax allocated
	# Register ax released
	# Register dx allocated
	movw	%ax,%dx
	movw	$1,U_P$KONTRL2_1_I
	cmpw	U_P$KONTRL2_1_I,%dx
	jl	.L74
	subw	$1,U_P$KONTRL2_1_I
	.balign 4
.L75:
	addw	$1,U_P$KONTRL2_1_I
	# Register ax allocated
.Ll10:
	.stabn 68,0,22,.Ll10 - _main
# [22] for j:=n-1 downto i do
	movw	U_P$KONTRL2_1_I,%ax
	# Register ax released
	movw	%ax,-20(%ebp)
	# Register ecx allocated
	movswl	U_P$KONTRL2_1_N,%ecx
	subl	$1,%ecx
	jno	.L81
	call	FPC_OVERFLOW
.L81:
	# Register eax allocated
	movl	%ecx,%eax
	subl	$-32768,%eax
	# Register eax released
	cmpl	$65535,%eax
	jbe	.L82
	call	FPC_RANGEERROR
.L82:
	# Register ecx released
	# Register cx allocated
	# Register cx released
	movw	%cx,U_P$KONTRL2_1_J
	# Register ax allocated
	movw	-20(%ebp),%ax
	# Register ax released
	cmpw	U_P$KONTRL2_1_J,%ax
	jg	.L79
	addw	$1,U_P$KONTRL2_1_J
	.balign 4
.L80:
	subw	$1,U_P$KONTRL2_1_J
	# Register ecx allocated
.Ll11:
	.stabn 68,0,24,.Ll11 - _main
# [24] if x^[j]<x^[j-1] then
	movl	U_P$KONTRL2_1_X,%ecx
	# Register eax allocated
	movswl	U_P$KONTRL2_1_J,%eax
	# Register eax released
	# Register ebx allocated
	movl	%eax,%ebx
	# Register eax allocated
	movl	%ebx,%eax
	# Register eax released
	testl	%eax,%eax
	jbe	.L85
	call	FPC_RANGEERROR
.L85:
	# Register esi allocated
	movl	U_P$KONTRL2_1_X,%esi
	# Register eax allocated
	movswl	U_P$KONTRL2_1_J,%eax
	subl	$1,%eax
	jno	.L86
	call	FPC_OVERFLOW
.L86:
	# Register eax released
	# Register edi allocated
	movl	%eax,%edi
	# Register eax allocated
	movl	%edi,%eax
	# Register eax released
	testl	%eax,%eax
	jbe	.L87
	call	FPC_RANGEERROR
.L87:
	# Register esi,edi released
	fldl	(%esi,%edi,8)
	# Register ecx,ebx released
	fldl	(%ecx,%ebx,8)
	fcompp
	# Register ax allocated
	fnstsw	%ax
	sahf
	# Register ax released
	jb	.L83
	jmp	.L84
.L83:
	# Register ebx allocated
.Ll12:
	.stabn 68,0,26,.Ll12 - _main
# [26] b:=x^[j];
	movl	U_P$KONTRL2_1_X,%ebx
	# Register eax allocated
	movswl	U_P$KONTRL2_1_J,%eax
	# Register ecx allocated
	movl	%eax,%ecx
	# Register ecx released
	testl	%ecx,%ecx
	jbe	.L90
	call	FPC_RANGEERROR
.L90:
	# Register ecx allocated
	movl	(%ebx,%eax,8),%ecx
	# Register ecx released
	movl	%ecx,U_P$KONTRL2_1_B
	# Register ebx released
	movl	4(%ebx,%eax,8),%eax
	# Register eax released
	movl	%eax,U_P$KONTRL2_1_B+4
	# Register ebx allocated
.Ll13:
	.stabn 68,0,27,.Ll13 - _main
# [27] a:=x^[j-1];
	movl	U_P$KONTRL2_1_X,%ebx
	# Register ecx allocated
	movswl	U_P$KONTRL2_1_J,%ecx
	subl	$1,%ecx
	jno	.L93
	call	FPC_OVERFLOW
.L93:
	# Register eax allocated
	movl	%ecx,%eax
	# Register eax released
	testl	%eax,%eax
	jbe	.L94
	call	FPC_RANGEERROR
.L94:
	# Register eax allocated
	movl	(%ebx,%ecx,8),%eax
	# Register eax released
	movl	%eax,U_P$KONTRL2_1_A
	# Register ebx,ecx released
	# Register eax allocated
	movl	4(%ebx,%ecx,8),%eax
	# Register eax released
	movl	%eax,U_P$KONTRL2_1_A+4
	# Register ecx allocated
.Ll14:
	.stabn 68,0,28,.Ll14 - _main
# [28] x^[j]:=a;
	movl	U_P$KONTRL2_1_X,%ecx
	# Register ebx allocated
	movswl	U_P$KONTRL2_1_J,%ebx
	# Register eax allocated
	movl	%ebx,%eax
	# Register eax released
	testl	%eax,%eax
	jbe	.L97
	call	FPC_RANGEERROR
.L97:
	# Register eax allocated
	movl	U_P$KONTRL2_1_A,%eax
	# Register eax released
	movl	%eax,(%ecx,%ebx,8)
	# Register eax allocated
	movl	U_P$KONTRL2_1_A+4,%eax
	# Register ecx,ebx,eax released
	movl	%eax,4(%ecx,%ebx,8)
	# Register ecx allocated
.Ll15:
	.stabn 68,0,29,.Ll15 - _main
# [29] x^[j-1]:=b;
	movl	U_P$KONTRL2_1_X,%ecx
	# Register ebx allocated
	movswl	U_P$KONTRL2_1_J,%ebx
	subl	$1,%ebx
	jno	.L100
	call	FPC_OVERFLOW
.L100:
	# Register eax allocated
	movl	%ebx,%eax
	# Register eax released
	testl	%eax,%eax
	jbe	.L101
	call	FPC_RANGEERROR
.L101:
	# Register eax allocated
	movl	U_P$KONTRL2_1_B,%eax
	# Register eax released
	movl	%eax,(%ecx,%ebx,8)
	# Register eax allocated
	movl	U_P$KONTRL2_1_B+4,%eax
	# Register ecx,ebx,eax released
	movl	%eax,4(%ecx,%ebx,8)
.L84:
	# Register ax allocated
.Ll16:
	.stabn 68,0,22,.Ll16 - _main
	movw	-20(%ebp),%ax
	# Register ax released
	cmpw	U_P$KONTRL2_1_J,%ax
	jl	.L80
.L79:
	# Register dx released
.Ll17:
	.stabn 68,0,21,.Ll17 - _main
	cmpw	U_P$KONTRL2_1_I,%dx
	jg	.L75
.L74:
	# Register esi allocated
.Ll18:
	.stabn 68,0,32,.Ll18 - _main
# [32] for i:=0 to n-1 do
	movswl	U_P$KONTRL2_1_N,%esi
	subl	$1,%esi
	jno	.L105
	call	FPC_OVERFLOW
.L105:
	# Register eax allocated
	movl	%esi,%eax
	subl	$-32768,%eax
	# Register eax released
	cmpl	$65535,%eax
	jbe	.L106
	call	FPC_RANGEERROR
.L106:
	# Register esi released
	# Register si allocated
	movw	$0,U_P$KONTRL2_1_I
	cmpw	U_P$KONTRL2_1_I,%si
	jl	.L103
	subw	$1,U_P$KONTRL2_1_I
	.balign 4
.L104:
	addw	$1,U_P$KONTRL2_1_I
	# Register ecx allocated
.Ll19:
	.stabn 68,0,34,.Ll19 - _main
# [34] b:=x^[i];
	movl	U_P$KONTRL2_1_X,%ecx
	# Register edx allocated
	movswl	U_P$KONTRL2_1_I,%edx
	# Register eax allocated
	movl	%edx,%eax
	# Register eax released
	testl	%eax,%eax
	jbe	.L109
	call	FPC_RANGEERROR
.L109:
	# Register eax allocated
	movl	(%ecx,%edx,8),%eax
	# Register eax released
	movl	%eax,U_P$KONTRL2_1_B
	# Register ecx,edx released
	# Register eax allocated
	movl	4(%ecx,%edx,8),%eax
	# Register eax released
	movl	%eax,U_P$KONTRL2_1_B+4
	# Register eax,ecx,edx allocated
.Ll20:
	.stabn 68,0,35,.Ll20 - _main
# [35] write(b:3:0,' '); {..... ......... .......}
	call	fpc_get_output
	# Register ecx,edx,eax released
	# Register ebx allocated
	movl	%eax,%ebx
	fldl	U_P$KONTRL2_1_B
	subl	$12,%esp
	fstpt	(%esp)
	pushl	%ebx
	# Register ecx allocated
	movl	$3,%ecx
	# Register edx allocated
	movl	$0,%edx
	# Register eax allocated
	movl	$1,%eax
	# Register ecx,edx released
	# Register ecx,edx allocated
	call	fpc_write_text_float
	# Register eax,ecx,edx released
	# Register eax,ecx,edx allocated
	call	FPC_IOCHECK
	# Register eax,ecx,edx released
	# Register cl allocated
	movb	$32,%cl
	# Register edx allocated
	movl	%ebx,%edx
	# Register eax allocated
	movl	$0,%eax
	# Register cl,edx released
	# Register ecx,edx allocated
	call	fpc_write_text_char
	# Register eax,ecx,edx released
	# Register eax,ecx,edx allocated
	call	FPC_IOCHECK
	# Register eax,ecx,edx released
	# Register eax allocated
	movl	%ebx,%eax
	# Register ecx,edx allocated
	call	fpc_write_end
	# Register eax,ecx,edx released
	# Register eax,ecx,edx allocated
	call	FPC_IOCHECK
	# Register eax,ecx,edx,ebx released
	# Register si released
.Ll21:
	.stabn 68,0,32,.Ll21 - _main
	cmpw	U_P$KONTRL2_1_I,%si
	jg	.L104
.L103:
	# Register edx allocated
.Ll22:
	.stabn 68,0,37,.Ll22 - _main
# [37] Freemem(x,n*SizeOf(real)); {............ ......}
	movswl	U_P$KONTRL2_1_N,%edx
	imull	$8,%edx
	jno	.L132
	call	FPC_OVERFLOW
.L132:
	# Register eax allocated
	movl	U_P$KONTRL2_1_X,%eax
	# Register edx released
	# Register ecx,edx allocated
	call	SYSTEM_FREEMEM$POINTER$LONGINT
	# Register eax,ecx,edx released
	# Register eax,ecx,edx allocated
.Ll23:
	.stabn 68,0,38,.Ll23 - _main
# [38] read;
	call	fpc_get_input
	# Register ecx,edx,eax released
	# Register ebx allocated
	movl	%eax,%ebx
	# Register eax allocated
	movl	%ebx,%eax
	# Register ecx,edx allocated
	call	fpc_read_end
	# Register eax,ecx,edx released
	# Register eax,ecx,edx allocated
	call	FPC_IOCHECK
	# Register eax,ecx,edx,ebx released
	# Register eax,ecx,edx allocated
.Ll24:
	.stabn 68,0,39,.Ll24 - _main
# [39] read;
	call	fpc_get_input
	# Register ecx,edx,eax released
	# Register ebx allocated
	movl	%eax,%ebx
	# Register eax allocated
	movl	%ebx,%eax
	# Register ecx,edx allocated
	call	fpc_read_end
	# Register eax,ecx,edx released
	# Register eax,ecx,edx allocated
	call	FPC_IOCHECK
	# Register eax,ecx,edx,ebx released
	# Register eax,ecx,edx allocated
.Ll25:
	.stabn 68,0,40,.Ll25 - _main
# [40] readln;
	call	fpc_get_input
	# Register ecx,edx,eax released
	# Register ebx allocated
	movl	%eax,%ebx
	# Register eax allocated
	movl	%ebx,%eax
	# Register ecx,edx allocated
	call	fpc_readln_end
	# Register eax,ecx,edx released
	# Register eax,ecx,edx allocated
	call	FPC_IOCHECK
	# Register eax,ecx,edx,ebx released
.Ll26:
	.stabn 68,0,41,.Ll26 - _main
# [41] End.
	call	FPC_DO_EXIT
# Temp -20,4 released
	# Register ebx allocated
	movl	-32(%ebp),%ebx
	# Register esi allocated
	movl	-28(%ebp),%esi
	# Register edi allocated
	movl	-24(%ebp),%edi
# Temp -32,12 released
	leave
	# Register ebp released
	ret
.L152:
	.stabn 192,0,0,_main-_main
	.stabn 224,0,0,.L152-_main

.section .data
	.long	DEBUGINFO_P$KONTRL2_1
	.balign 4

.section .data
	.ascii	"FPC 2.0.4 [2006/08/21] for i386 - Go32v2"
	.balign 4
	.balign 4
.globl	THREADVARLIST_P$KONTRL2_1
THREADVARLIST_P$KONTRL2_1:
	.long	0
	.balign 4
.globl	FPC_THREADVARTABLES
FPC_THREADVARTABLES:
	.long	2
	.long	THREADVARLIST_SYSTEM
	.long	THREADVARLIST_P$KONTRL2_1
	.balign 4
.globl	FPC_RESOURCESTRINGTABLES
FPC_RESOURCESTRINGTABLES:
	.long	0
	.balign 4
.globl	INITFINAL
INITFINAL:
	.long	1,0
	.long	INIT$_SYSTEM
	.long	FINALIZE$_SYSTEM

.section .data
	.balign 4
.globl	__stklen
__stklen:
	.long	262144

.section .data
	.balign 4
.globl	__heapsize
__heapsize:
	.long	0

.section .data

.section .data
	.balign 4
.globl	_$PROGRAM$_L8
_$PROGRAM$_L8:
	.stabd	70,0,11
	.ascii	"&\202\242\245\244\250\342\245 \252\256\253\250\347\245"
	.ascii	"\341\342\242\256 \355\253\245\254\245\255\342\256\242"
	.ascii	" \242 \254\240\341\341\250\242\245\000"

.section .data
	.balign 4
.globl	_$PROGRAM$_L35
_$PROGRAM$_L35:
	.stabd	70,0,14
	.ascii	"\010\202\242\245\244\250\342\245 \000"

.section .data
	.balign 4
.globl	_$PROGRAM$_L48
_$PROGRAM$_L48:
	.ascii	"\022 \355\253\245\254\245\255\342\256\242 \254\240\341"
	.ascii	"\341\250\242\240\000"

.section .data

.section .data
	.balign 4
	.stabd	70,0,5
# [5] dArray=array [0..0] of real;
.globl	_$PROGRAM$_L3
_$PROGRAM$_L3:
	.byte	4
	.ascii	"\006Double"
	.byte	1

.section .data
	.balign 4
.globl	RTTI__P$KONTRL2_1_DARRAY
RTTI__P$KONTRL2_1_DARRAY:
	.byte	12
	.ascii	"\006dArray"
	.long	8,1
	.long	_$PROGRAM$_L3
	.long	5

.section .data

.section .bss

.section .bss
	.balign 2
	.stabs "I:S1",40,0,7,U_P$KONTRL2_1_I
	.stabd	72,0,7
# [7] i,j,n: integer;
	.lcomm	U_P$KONTRL2_1_I,2

.section .bss
	.balign 2
	.stabs "J:S1",40,0,7,U_P$KONTRL2_1_J
	.lcomm	U_P$KONTRL2_1_J,2

.section .bss
	.balign 2
	.stabs "N:S1",40,0,7,U_P$KONTRL2_1_N
	.lcomm	U_P$KONTRL2_1_N,2

.section .bss
	.balign 4
	.stabs "X:S2",40,0,8,U_P$KONTRL2_1_X
	.stabd	72,0,8
# [8] x:^dArray;
	.lcomm	U_P$KONTRL2_1_X,4

.section .bss
	.balign 4
	.stabs "B:S3",40,0,9,U_P$KONTRL2_1_B
	.stabd	72,0,9
# [9] b,a:real;
	.lcomm	U_P$KONTRL2_1_B,8

.section .bss
	.balign 4
	.stabs "A:S3",40,0,9,U_P$KONTRL2_1_A
	.lcomm	U_P$KONTRL2_1_A,8

.section .text
	.stabs "",100,0,0,.Letext
.Letext: