Edinburgh IMP77 Compiler - Version 8.4 1 %BEGIN .Ltext0: .section .rodata .align 4 .LC3: .string "Illegal cycle *I = FIRST, STEP, LAST" .align 32 .LC2: .byte 15 .string "test-in/rt4.imp" .zero 239 FRED.6027: .LFB190: leal 4(%esp), %ecx andl $-16, %esp pushl -4(%ecx) pushl %ebp movl %esp, %ebp pushl %edi pushl %esi pushl %ebx pushl %ecx subl $1080, %esp call __x86.get_pc_thunk.bx addl $_GLOBAL_OFFSET_TABLE_, %ebx movl %ecx, %eax movl 4(%eax), %edx movl %edx, -1084(%ebp) movl %gs:20, %esi movl %esi, -28(%ebp) xorl %esi, %esi leal 8(%ebp), %edx movl %edx, -1056(%ebp) subl $8, %esp pushl -1084(%ebp) pushl (%eax) call _imp_initialise@PLT addl $16, %esp 2 %INTEGER COUNT 3 %INTEGER I 4 %ROUTINE FRED(%INTEGERNAME I,%INTEGER FIRST,STEP,LAST) pushl %ebp movl %esp, %ebp pushl %edi pushl %esi pushl %ebx subl $828, %esp call __x86.get_pc_thunk.bx addl $_GLOBAL_OFFSET_TABLE_, %ebx movl 8(%ebp), %eax movl %eax, -828(%ebp) movl %ecx, -840(%ebp) movl %ecx, -832(%ebp) movl %gs:20, %eax movl %eax, -28(%ebp) xorl %eax, %eax .LBB10: 5 %CYCLE I=FIRST,STEP,LAST movl 12(%ebp), %eax movl %eax, -812(%ebp) movl 16(%ebp), %eax movl %eax, -808(%ebp) movl 20(%ebp), %eax movl %eax, -804(%ebp) .LBB11: movl -804(%ebp), %eax subl -812(%ebp), %eax movl %eax, -800(%ebp) movl -800(%ebp), %eax xorl -808(%ebp), %eax testl %eax, %eax js .L2 cmpl $1, -808(%ebp) je .L3 cmpl $-1, -808(%ebp) je .L3 movl -800(%ebp), %eax cltd idivl -808(%ebp) movl %edx, %eax testl %eax, %eax je .L3 .L2: movl $1, %eax jmp .L4 .L3: movl $0, %eax .L4: .LBE11: testl %eax, %eax je .L5 leal -540(%ebp), %eax subl $8, %esp leal .LC3@GOTOFF(%ebx), %edx pushl %edx pushl %eax call _imp_c2istr@PLT addl $12, %esp movl _imp_current_line@GOT(%ebx), %eax movl (%eax), %eax testl %eax, %eax je .L6 movl _imp_current_line@GOT(%ebx), %eax movl (%eax), %eax movl %eax, -836(%ebp) jmp .L7 .L6: movl $5, -836(%ebp) .L7: movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %eax testl %eax, %eax je .L8 movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %edx leal -284(%ebp), %eax subl $8, %esp pushl %edx pushl %eax call _imp_c2istr@PLT addl $12, %esp jmp .L9 .L8: .LBB12: leal -284(%ebp), %eax leal .LC2@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -796(%ebp), %eax leal -284(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE12: leal -284(%ebp), %eax leal -796(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .L9: pushl $0 pushl $1 pushl $5 subl $256, %esp movl %esp, %eax movl %eax, %edi leal -540(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl pushl -836(%ebp) 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 _signal_event@PLT addl $528, %esp .L5: movl -812(%ebp), %eax subl -808(%ebp), %eax movl %eax, %edx movl -828(%ebp), %eax movl %edx, (%eax) .L10: movl -828(%ebp), %eax movl (%eax), %eax cmpl %eax, -804(%ebp) je .L16 movl -828(%ebp), %eax movl (%eax), %edx movl -808(%ebp), %eax addl %eax, %edx movl -828(%ebp), %eax movl %edx, (%eax) nop .L12: .LBE10: 6 COUNT=COUNT+1 movl -840(%ebp), %esi movl (%esi), %eax addl $1, %eax movl %eax, (%esi) 7 %REPEAT jmp .L10 .L16: 8 %END nop movl -28(%ebp), %eax xorl %gs:20, %eax je .L14 call __stack_chk_fail_local .L14: leal -12(%ebp), %esp popl %ebx popl %esi popl %edi popl %ebp ret .LFE190: .section .rodata .align 32 .LC0: .byte 7 .string "TEST OK" .zero 247 .align 32 .LC1: .byte 5 .string "WRONG" .zero 249 .globl main main: .LFB189: 9 COUNT=0 movl $0, %eax movl %eax, -1060(%ebp) 10 FRED(I,X'9000',16,X'A000') leal -1060(%ebp), %eax pushl $40960 pushl $16 pushl $36864 leal -1068(%ebp), %edx pushl %edx movl %eax, %ecx call FRED.6027 addl $16, %esp 11 %IF COUNT=257 %AND I=X'A000' %THEN PRINTSTRING("TEST OK") %C movl -1060(%ebp), %eax cmpl $257, %eax jne .L23 movl -1068(%ebp), %eax cmpl $40960, %eax jne .L24 .LBB13: leal -284(%ebp), %eax leal .LC0@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -1052(%ebp), %eax leal -284(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -540(%ebp), %eax leal -1052(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE13: .LBB14: .LBB15: 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 .LBE15: .LBE14: jmp .L21 .L23: nop jmp .L19 .L24: nop .L19: .LBB16: leal -284(%ebp), %eax leal .LC1@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -796(%ebp), %eax leal -284(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -284(%ebp), %eax leal -796(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE16: .LBB17: .LBB18: 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 .L21: movl $0, -1064(%ebp) .LBE18: .LBE17: .LBB19: .LBB20: subl $12, %esp pushl -1064(%ebp) call exit@PLT .LBE20: .LBE19: .LFE189: .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: .LFB191: movl (%esp), %ebx ret .LFE191: .Letext0: 12 %ELSE PRINTSTRING("WRONG") %AND %MONITOR 13 %ENDOFPROGRAM 12 Statements compiled