Edinburgh IMP77 Compiler - Version 8.4 1 %begin .Ltext0: .section .rodata .align 32 .LC0: .byte 5 .string "less " .zero 249 .align 32 .LC1: .byte 6 .string "equal " .zero 248 .align 32 .LC2: .byte 8 .string "Greater " .zero 246 .align 32 .LC3: .byte 7 .string " less= " .zero 247 .align 32 .LC4: .byte 6 .string "noteq " .zero 248 .align 32 .LC5: .byte 9 .string "Greater= " .zero 245 .align 32 .LC6: .byte 8 .string "Greater=" .zero 246 .globl main main: .LFB189: leal 4(%esp), %ecx andl $-16, %esp pushl -4(%ecx) pushl %ebp movl %esp, %ebp pushl %edi pushl %esi pushl %ebx pushl %ecx subl $6520, %esp call __x86.get_pc_thunk.bx addl $_GLOBAL_OFFSET_TABLE_, %ebx movl %ecx, %eax movl 4(%eax), %edx movl %edx, -6524(%ebp) movl %gs:20, %esi movl %esi, -28(%ebp) xorl %esi, %esi subl $8, %esp pushl -6524(%ebp) pushl (%eax) call _imp_initialise@PLT addl $16, %esp 2 %ownlongrealarray a(1:6)=0.99,1.0,1.01,0.99,1.0,1.01; leal -6496(%ebp), %edx movl $0, %eax movl $17, %ecx movl %edx, %edi rep stosl leal A.6021@GOTOFF(%ebx), %eax movl %eax, -6496(%ebp) movl $8, -6492(%ebp) 3 %longreal x; %integer i 4 %for i=1,1,3 %cycle movl $0, -6520(%ebp) .L2: cmpl $3, -6520(%ebp) je .L44 addl $1, -6520(%ebp) nop .L4: movl $0, -6516(%ebp) .LBB84: .LBB85: subl $12, %esp pushl -6516(%ebp) call exit@PLT .LBE85: .LBE84: .LFE189: .data .align 32 A.6021: .long 2061584302 .long 1072672276 .long 0 .long 1072693248 .long -1030792151 .long 1072703733 .long 2061584302 .long 1072672276 .long 0 .long 1072693248 .long -1030792151 .long 1072703733 .section .text.__x86.get_pc_thunk.bx,"axG",@progbits,__x86.get_pc_thunk.bx,comdat .globl __x86.get_pc_thunk.bx .hidden __x86.get_pc_thunk.bx __x86.get_pc_thunk.bx: .LFB190: movl (%esp), %ebx ret .LFE190: .Letext0: 5 x=a(i) movl -6520(%ebp), %eax subl $1, %eax fldl A.6021@GOTOFF(%ebx,%eax,8) fstpl -6512(%ebp) 6 %if x<1.0 %then printstring("less ") fld1 fldl -6512(%ebp) fucomip %st(1), %st fstp %st(0) jnb .L45 .LBB44: leal -3612(%ebp), %eax leal .LC0@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -6428(%ebp), %eax leal -3612(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -3100(%ebp), %eax leal -6428(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE44: .LBB45: .LBB46: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -3100(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp jmp .L7 .L45: .LBE46: .LBE45: nop .L7: 7 %if x=1.0 %then printstring("equal ") fldl -6512(%ebp) fld1 fucomip %st(1), %st fstp %st(0) jp .L46 fldl -6512(%ebp) fld1 fucomip %st(1), %st fstp %st(0) jne .L46 .LBB47: leal -3612(%ebp), %eax leal .LC1@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -6172(%ebp), %eax leal -3612(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -2844(%ebp), %eax leal -6172(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE47: .LBB48: .LBB49: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -2844(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp jmp .L10 .L46: .LBE49: .LBE48: nop .L10: 8 %if x>1.0 %then printstring("Greater ") fldl -6512(%ebp) fld1 fucomip %st(1), %st fstp %st(0) jnb .L47 .LBB50: leal -3612(%ebp), %eax leal .LC2@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -5916(%ebp), %eax leal -3612(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -2588(%ebp), %eax leal -5916(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE50: .LBB51: .LBB52: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -2588(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp jmp .L13 .L47: .LBE52: .LBE51: nop .L13: 9 %if x<=1.0 %then printstring(" less= ") fld1 fldl -6512(%ebp) fucomip %st(1), %st fstp %st(0) ja .L48 .LBB53: leal -3612(%ebp), %eax leal .LC3@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -5660(%ebp), %eax leal -3612(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -2332(%ebp), %eax leal -5660(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE53: .LBB54: .LBB55: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -2332(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp jmp .L16 .L48: .LBE55: .LBE54: nop .L16: 10 %if x#1.0 %then printstring("noteq ") fldl -6512(%ebp) fld1 fucomip %st(1), %st fstp %st(0) jp .L17 fldl -6512(%ebp) fld1 fucomip %st(1), %st fstp %st(0) je .L49 .L17: .LBB56: leal -3612(%ebp), %eax leal .LC4@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -5404(%ebp), %eax leal -3612(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -2076(%ebp), %eax leal -5404(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE56: .LBB57: .LBB58: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -2076(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp jmp .L19 .L49: .LBE58: .LBE57: nop .L19: 11 %if x>=1.0 %then printstring("Greater= ") fldl -6512(%ebp) fld1 fucomip %st(1), %st fstp %st(0) ja .L50 .LBB59: leal -3612(%ebp), %eax leal .LC5@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -5148(%ebp), %eax leal -3612(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -1820(%ebp), %eax leal -5148(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE59: .LBB60: .LBB61: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -1820(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp jmp .L22 .L50: .LBE61: .LBE60: nop .L22: 12 %if 1.0x %then printstring("Greater ") fld1 fldl -6512(%ebp) fucomip %st(1), %st fstp %st(0) jnb .L53 .LBB68: leal -3612(%ebp), %eax leal .LC2@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -4380(%ebp), %eax leal -3612(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -1052(%ebp), %eax leal -4380(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE68: .LBB69: .LBB70: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -1052(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp jmp .L31 .L53: .LBE70: .LBE69: nop .L31: 15 %if 1.0<=x %then printstring(" less= ") fldl -6512(%ebp) fld1 fucomip %st(1), %st fstp %st(0) ja .L54 .LBB71: leal -3612(%ebp), %eax leal .LC3@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -4124(%ebp), %eax leal -3612(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -796(%ebp), %eax leal -4124(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE71: .LBB72: .LBB73: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -796(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp jmp .L34 .L54: .LBE73: .LBE72: nop .L34: 16 %if 1.0#x %then printstring("noteq ") fldl -6512(%ebp) fld1 fucomip %st(1), %st fstp %st(0) jp .L35 fldl -6512(%ebp) fld1 fucomip %st(1), %st fstp %st(0) je .L55 .L35: .LBB74: leal -3612(%ebp), %eax leal .LC4@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -3868(%ebp), %eax leal -3612(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -540(%ebp), %eax leal -3868(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE74: .LBB75: .LBB76: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -540(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp jmp .L37 .L55: .LBE76: .LBE75: nop .L37: fld1 fstpl -6504(%ebp) .LBB77: .LBB78: fldl -6504(%ebp) .LBE78: .LBE77: 17 %if mod(1.0)>=x %then printstring("Greater=") fldl -6512(%ebp) fucomip %st(1), %st fstp %st(0) ja .L56 .LBB79: leal -3612(%ebp), %eax leal .LC6@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -3356(%ebp), %eax leal -3612(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -284(%ebp), %eax leal -3356(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE79: .LBB80: .LBB81: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -284(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp jmp .L41 .L56: .LBE81: .LBE80: nop .L41: .LBB82: .LBB83: call _imp_newline@PLT .LBE83: .LBE82: 18 newline 19 %repeat jmp .L2 .L44: 20 %endofprogram 21 Statements compiled