.file "kontr2_2.pas" .stabs "d:/pas/",100,0,0,.Ltext0 .stabs "kontr2_2.pas",100,0,0,.Ltext0 .Ltext0: .stabd 72,0,1 .section .text # [kontr2_2.pas] fpc_compiled: gcc2_compiled: .stabd 68,0,14 # [14] Begin .globl DEBUGINFO_P$KONTRL2_2 DEBUGINFO_P$KONTRL2_2: # Begin unit SYSTEM has index 1 .stabs "SMALLINT:t1=r1;-32768;32767;",128,0,0,0 .stabs "void:t3=3",128,0,0,0 # End unit SYSTEM has index 1 # Begin unit KONTRL2_2 has index 0 # End unit KONTRL2_2 has index 0 .section .text .section .text .balign 4 .balign 4 .stabs "main:F3",36,0,8,_main .globl PASCALMAIN PASCALMAIN: .globl _main _main: # Temps allocated between ebp-8 and ebp+0 # Register ebp allocated pushl %ebp movl %esp,%ebp subl $8,%esp # Temp -8,4 allocated movl %ebx,-8(%ebp) # Register eax,ecx,edx allocated call FPC_INITIALIZEUNITS # Register eax,ecx,edx released # Register eax,ecx,edx allocated .Ll1: .stabn 68,0,15,.Ll1 - _main # [15] writeln('....... ..... .. 1 .. 100'); call fpc_get_output # Register ecx,edx,eax released # Register ebx allocated movl %eax,%ebx # Register ecx allocated movl $_$PROGRAM$_L7,%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,16,.Ll2 - _main # [16] 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 .L22 call FPC_RANGEERROR .L22: # Register ax allocated movw -4(%ebp),%ax # Register ax released movw %ax,U_P$KONTRL2_2_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 eax allocated .Ll3: .stabn 68,0,17,.Ll3 - _main # [17] if (n>=10)and (n<100) then movswl U_P$KONTRL2_2_N,%eax # Register eax released cmpl $10,%eax jge .L27 jmp .L26 .L27: # Register eax allocated movswl U_P$KONTRL2_2_N,%eax # Register eax released cmpl $100,%eax jl .L25 jmp .L26 .L25: .Ll4: .stabn 68,0,19,.Ll4 - _main # [19] k:=2; movw $2,U_P$KONTRL2_2_K # Register eax allocated .Ll5: .stabn 68,0,20,.Ll5 - _main # [20] l:=n mod 10; movswl U_P$KONTRL2_2_N,%eax # Register edx allocated cltd # Register ecx allocated movl $10,%ecx # Register ecx released idivl %ecx # Register edx,eax released # Register edx,eax allocated movl %edx,%eax subl $-32768,%eax # Register eax released cmpl $65535,%eax jbe .L32 call FPC_RANGEERROR .L32: # Register edx released # Register dx allocated # Register dx released movw %dx,U_P$KONTRL2_2_L # Register eax allocated .Ll6: .stabn 68,0,21,.Ll6 - _main # [21] m:=n div 10; movswl U_P$KONTRL2_2_N,%eax # Register edx allocated cltd # Register ecx allocated movl $10,%ecx # Register ecx released idivl %ecx movl %eax,%edx subl $-32768,%edx # Register edx released cmpl $65535,%edx jbe .L35 call FPC_RANGEERROR .L35: # Register eax released # Register ax allocated # Register ax released movw %ax,U_P$KONTRL2_2_M # Register eax allocated .Ll7: .stabn 68,0,22,.Ll7 - _main # [22] a:=l+m; movswl U_P$KONTRL2_2_L,%eax # Register edx allocated movswl U_P$KONTRL2_2_M,%edx # Register eax released addl %eax,%edx jno .L38 call FPC_OVERFLOW .L38: # Register eax allocated movl %edx,%eax subl $-32768,%eax # Register eax released cmpl $65535,%eax jbe .L39 call FPC_RANGEERROR .L39: # Register edx released # Register dx allocated # Register dx released movw %dx,U_P$KONTRL2_2_A # Register ax allocated .Ll8: .stabn 68,0,23,.Ll8 - _main # [23] b:=m; movw U_P$KONTRL2_2_M,%ax # Register ax released movw %ax,U_P$KONTRL2_2_B # Register eax,ecx,edx allocated .Ll9: .stabn 68,0,24,.Ll9 - _main # [24] writeln('. ..... ',n,' - ',k,' ....'); call fpc_get_output # Register ecx,edx,eax released # Register ebx allocated movl %eax,%ebx # Register ecx allocated movl $_$PROGRAM$_L46,%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_2_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$_L59,%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_2_K,%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$_L72,%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 .Ll10: .stabn 68,0,25,.Ll10 - _main # [25] writeln('..... .... ..... ',n,' ..... ',a); call fpc_get_output # Register ecx,edx,eax released # Register ebx allocated movl %eax,%ebx # Register ecx allocated movl $_$PROGRAM$_L83,%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_2_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$_L96,%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_2_A,%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 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 .Ll11: .stabn 68,0,26,.Ll11 - _main # [26] writeln('......... ..... ..... ',n,' - ',l); call fpc_get_output # Register ecx,edx,eax released # Register ebx allocated movl %eax,%ebx # Register ecx allocated movl $_$PROGRAM$_L113,%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_2_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$_L59,%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_2_L,%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 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 .Ll12: .stabn 68,0,27,.Ll12 - _main # [27] writeln('...... ..... ..... ',n,' - ',m); call fpc_get_output # Register ecx,edx,eax released # Register ebx allocated movl %eax,%ebx # Register ecx allocated movl $_$PROGRAM$_L142,%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_2_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$_L59,%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_2_M,%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 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 .Ll13: .stabn 68,0,28,.Ll13 - _main # [28] writeln('............. ..... ..... ',n,' - ',b); call fpc_get_output # Register ecx,edx,eax released # Register ebx allocated movl %eax,%ebx # Register ecx allocated movl $_$PROGRAM$_L171,%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_2_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$_L59,%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_2_B,%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 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 jmp .L196 .L26: # Register eax allocated .Ll14: .stabn 68,0,31,.Ll14 - _main # [31] if n=100 then movswl U_P$KONTRL2_2_N,%eax # Register eax released cmpl $100,%eax je .L197 jmp .L198 .L197: .Ll15: .stabn 68,0,33,.Ll15 - _main # [33] k:=3; movw $3,U_P$KONTRL2_2_K .Ll16: .stabn 68,0,34,.Ll16 - _main # [34] l:=1; movw $1,U_P$KONTRL2_2_L .Ll17: .stabn 68,0,35,.Ll17 - _main # [35] m:=0; movw $0,U_P$KONTRL2_2_M .Ll18: .stabn 68,0,36,.Ll18 - _main # [36] b:=1; movw $1,U_P$KONTRL2_2_B .Ll19: .stabn 68,0,37,.Ll19 - _main # [37] a:=1; movw $1,U_P$KONTRL2_2_A # Register eax,ecx,edx allocated .Ll20: .stabn 68,0,38,.Ll20 - _main # [38] writeln('. ..... ',n,' - ',k,' ....'); call fpc_get_output # Register ecx,edx,eax released # Register ebx allocated movl %eax,%ebx # Register ecx allocated movl $_$PROGRAM$_L46,%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_2_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$_L59,%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_2_K,%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$_L72,%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 .Ll21: .stabn 68,0,39,.Ll21 - _main # [39] writeln('..... .... ..... ',n,' ..... ',a); call fpc_get_output # Register ecx,edx,eax released # Register ebx allocated movl %eax,%ebx # Register ecx allocated movl $_$PROGRAM$_L83,%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_2_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$_L96,%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_2_A,%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 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 .Ll22: .stabn 68,0,40,.Ll22 - _main # [40] writeln('......... ..... ..... ',n,' - ',l); call fpc_get_output # Register ecx,edx,eax released # Register ebx allocated movl %eax,%ebx # Register ecx allocated movl $_$PROGRAM$_L113,%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_2_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$_L59,%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_2_L,%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 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 .Ll23: .stabn 68,0,41,.Ll23 - _main # [41] writeln('...... ..... ..... ',n,' - ',m); call fpc_get_output # Register ecx,edx,eax released # Register ebx allocated movl %eax,%ebx # Register ecx allocated movl $_$PROGRAM$_L142,%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_2_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$_L59,%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_2_M,%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 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 .Ll24: .stabn 68,0,42,.Ll24 - _main # [42] writeln('............. ..... ..... ',n,' - ',b); call fpc_get_output # Register ecx,edx,eax released # Register ebx allocated movl %eax,%ebx # Register ecx allocated movl $_$PROGRAM$_L171,%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_2_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$_L59,%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_2_B,%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 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 jmp .L355 .L198: # Register eax allocated .Ll25: .stabn 68,0,45,.Ll25 - _main # [45] if n<10 then movswl U_P$KONTRL2_2_N,%eax # Register eax released cmpl $10,%eax jl .L356 jmp .L357 .L356: .Ll26: .stabn 68,0,47,.Ll26 - _main # [47] k:=1; movw $1,U_P$KONTRL2_2_K # Register ax allocated .Ll27: .stabn 68,0,48,.Ll27 - _main # [48] l:=n; movw U_P$KONTRL2_2_N,%ax # Register ax released movw %ax,U_P$KONTRL2_2_L # Register ax allocated .Ll28: .stabn 68,0,49,.Ll28 - _main # [49] m:=n; movw U_P$KONTRL2_2_N,%ax # Register ax released movw %ax,U_P$KONTRL2_2_M # Register ax allocated .Ll29: .stabn 68,0,50,.Ll29 - _main # [50] a:=n; movw U_P$KONTRL2_2_N,%ax # Register ax released movw %ax,U_P$KONTRL2_2_A # Register eax,ecx,edx allocated .Ll30: .stabn 68,0,51,.Ll30 - _main # [51] writeln('. ..... ',n,' - ',k,' ....'); call fpc_get_output # Register ecx,edx,eax released # Register ebx allocated movl %eax,%ebx # Register ecx allocated movl $_$PROGRAM$_L46,%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_2_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$_L59,%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_2_K,%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$_L72,%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 .Ll31: .stabn 68,0,52,.Ll31 - _main # [52] writeln('..... .... ..... ',n,' ..... ',a); call fpc_get_output # Register ecx,edx,eax released # Register ebx allocated movl %eax,%ebx # Register ecx allocated movl $_$PROGRAM$_L83,%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_2_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$_L96,%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_2_A,%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 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 .Ll32: .stabn 68,0,53,.Ll32 - _main # [53] writeln('......... ..... ..... ',n,' - ',l); call fpc_get_output # Register ecx,edx,eax released # Register ebx allocated movl %eax,%ebx # Register ecx allocated movl $_$PROGRAM$_L113,%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_2_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$_L59,%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_2_L,%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 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 .Ll33: .stabn 68,0,54,.Ll33 - _main # [54] writeln('...... ..... ..... ',n,' - ',m); call fpc_get_output # Register ecx,edx,eax released # Register ebx allocated movl %eax,%ebx # Register ecx allocated movl $_$PROGRAM$_L142,%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_2_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$_L59,%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_2_M,%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 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 jmp .L484 .L357: # Register eax,ecx,edx allocated .Ll34: .stabn 68,0,56,.Ll34 - _main # [56] else writeln ('.. ..... ........ .....'); call fpc_get_output # Register ecx,edx,eax released # Register ebx allocated movl %eax,%ebx # Register ecx allocated movl $_$PROGRAM$_L489,%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 .L484: .L355: .L196: # Register eax,ecx,edx allocated .Ll35: .stabn 68,0,57,.Ll35 - _main # [57] 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 .Ll36: .stabn 68,0,58,.Ll36 - _main # [58] 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 .Ll37: .stabn 68,0,59,.Ll37 - _main # [59] End. call FPC_DO_EXIT # Register ebx allocated movl -8(%ebp),%ebx # Temp -8,4 released leave # Register ebp released ret .L509: .stabn 192,0,0,_main-_main .stabn 224,0,0,.L509-_main .section .data .long DEBUGINFO_P$KONTRL2_2 .balign 4 .section .data .stabd 70,0,60 # [60] .ascii "FPC 2.0.4 [2006/08/21] for i386 - Go32v2" .balign 4 .balign 4 .globl THREADVARLIST_P$KONTRL2_2 THREADVARLIST_P$KONTRL2_2: .long 0 .balign 4 .globl FPC_THREADVARTABLES FPC_THREADVARTABLES: .long 2 .long THREADVARLIST_SYSTEM .long THREADVARLIST_P$KONTRL2_2 .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$_L7 _$PROGRAM$_L7: .stabd 70,0,15 .ascii "\031\202\242\245\244\250\342\245 \347\250\341\253\256" .ascii " \256\342 1 \244\256 100\000" .section .data .balign 4 .globl _$PROGRAM$_L46 _$PROGRAM$_L46: .stabd 70,0,24 .ascii "\010\202 \347\250\341\253\245 \000" .section .data .balign 4 .globl _$PROGRAM$_L59 _$PROGRAM$_L59: .ascii "\003 - \000" .section .data .balign 4 .globl _$PROGRAM$_L72 _$PROGRAM$_L72: .ascii "\005 \346\250\344\340\000" .section .data .balign 4 .globl _$PROGRAM$_L83 _$PROGRAM$_L83: .stabd 70,0,25 .ascii "\021\221\343\254\254\240 \346\250\344\340 \347\250\341" .ascii "\253\240 \000" .section .data .balign 4 .globl _$PROGRAM$_L96 _$PROGRAM$_L96: .ascii "\007 \340\240\242\255\240 \000" .section .data .balign 4 .globl _$PROGRAM$_L113 _$PROGRAM$_L113: .stabd 70,0,26 .ascii "\026\217\256\341\253\245\244\255\357\357 \346\250\344" .ascii "\340\240 \347\250\341\253\240 \000" .section .data .balign 4 .globl _$PROGRAM$_L142 _$PROGRAM$_L142: .stabd 70,0,27 .ascii "\023\217\245\340\242\240\357 \346\250\344\340\240 \347" .ascii "\250\341\253\240 \000" .section .data .balign 4 .globl _$PROGRAM$_L171 _$PROGRAM$_L171: .stabd 70,0,28 .ascii "\032\217\340\245\244\257\256\341\253\245\244\255\357" .ascii "\357 \346\250\344\340\240 \347\250\341\253\240 \000" .section .data .balign 4 .globl _$PROGRAM$_L489 _$PROGRAM$_L489: .stabd 70,0,56 .ascii "\027\202\353 \242\242\245\253\250 \255\245\242\245\340" .ascii "\255\256\245 \347\250\341\253\256\000" .section .data .section .data .section .bss .section .bss .balign 2 .stabs "I:S1",40,0,9,U_P$KONTRL2_2_I .stabd 72,0,9 # [9] i,n,a,b,k,l,m: integer; .lcomm U_P$KONTRL2_2_I,2 .section .bss .balign 2 .stabs "N:S1",40,0,9,U_P$KONTRL2_2_N .lcomm U_P$KONTRL2_2_N,2 .section .bss .balign 2 .stabs "A:S1",40,0,9,U_P$KONTRL2_2_A .lcomm U_P$KONTRL2_2_A,2 .section .bss .balign 2 .stabs "B:S1",40,0,9,U_P$KONTRL2_2_B .lcomm U_P$KONTRL2_2_B,2 .section .bss .balign 2 .stabs "K:S1",40,0,9,U_P$KONTRL2_2_K .lcomm U_P$KONTRL2_2_K,2 .section .bss .balign 2 .stabs "L:S1",40,0,9,U_P$KONTRL2_2_L .lcomm U_P$KONTRL2_2_L,2 .section .bss .balign 2 .stabs "M:S1",40,0,9,U_P$KONTRL2_2_M .lcomm U_P$KONTRL2_2_M,2 .section .text .stabs "",100,0,0,.Letext .Letext: