Edinburgh IMP77 Compiler - Version 8.4 1 ! convert with ./i2c -v -d -O --no-perms --icode test/3Darray.imp .Ltext0: .globl main main: .LFB189: 2 %begin leal 4(%esp), %ecx andl $-16, %esp pushl -4(%ecx) pushl %ebp movl %esp, %ebp pushl %edi pushl %esi pushl %ebx pushl %ecx subl $168, %esp call __x86.get_pc_thunk.bx addl $_GLOBAL_OFFSET_TABLE_, %ebx movl %ebx, -172(%ebp) movl %ecx, %eax movl 4(%eax), %edx movl %edx, -156(%ebp) movl %gs:20, %edx movl %edx, -28(%ebp) xorl %edx, %edx subl $8, %esp pushl -156(%ebp) pushl (%eax) movl %ebx, -172(%ebp) call _imp_initialise@PLT addl $16, %esp 3 %integer base1 = 50, base2 = 60, base3 = 70 movl $50, -136(%ebp) movl $60, -140(%ebp) movl $70, -144(%ebp) 4 %integer index1, index2, index3 5 %constinteger lim1 = 100, lim2 = 200, lim3 = 300 6 %integerarray threed(base1:lim1, base2:lim2, base3:lim3) movl $301, %eax movl %eax, %esi subl -144(%ebp), %esi movl $201, %eax movl %eax, %edi subl -140(%ebp), %edi movl $101, %eax subl -136(%ebp), %eax movl %eax, -168(%ebp) leal -1(%esi), %eax movl %eax, -132(%ebp) movl %esi, %eax leal 0(,%eax,4), %edx movl %edx, -176(%ebp) leal -1(%edi), %eax movl %eax, -128(%ebp) movl %esi, -164(%ebp) movl %esi, %eax movl %eax, %ebx movl $0, %esi movl %edi, -160(%ebp) movl %edi, %eax movl $0, %edx movl %esi, %ecx imull %eax, %ecx movl %ecx, %edi movl %edx, %ecx imull %ebx, %ecx addl %edi, %ecx mull %ebx addl %edx, %ecx movl %ecx, %edx movl -164(%ebp), %esi movl %esi, %edx movl -160(%ebp), %edi movl %edi, %eax imull %edx, %eax leal 0(,%eax,4), %ecx movl %ecx, -180(%ebp) movl -168(%ebp), %eax subl $1, %eax movl %eax, -124(%ebp) movl %esi, -164(%ebp) movl %esi, %eax movl %eax, %ebx movl $0, %esi movl %edi, -160(%ebp) movl %edi, %eax movl $0, %edx movl %esi, %edi imull %eax, %edi movl %edx, %ecx imull %ebx, %ecx addl %ecx, %edi mull %ebx movl %eax, %ecx movl %edx, %ebx leal (%edi,%ebx), %eax movl %eax, %ebx movl -168(%ebp), %eax movl $0, %edx movl %ebx, %esi imull %eax, %esi movl %esi, %edi movl %edx, %esi imull %ecx, %esi addl %edi, %esi mull %ecx leal (%esi,%edx), %ecx movl %ecx, %edx movl -164(%ebp), %eax movl %eax, %ebx movl $0, %esi movl -160(%ebp), %eax movl $0, %edx movl %esi, %edi imull %eax, %edi movl %edx, %ecx imull %ebx, %ecx addl %ecx, %edi mull %ebx movl %eax, %ecx movl %edx, %ebx leal (%edi,%ebx), %eax movl %eax, %ebx movl -168(%ebp), %eax movl $0, %edx movl %ebx, %esi imull %eax, %esi movl %esi, %edi movl %edx, %esi imull %ecx, %esi addl %edi, %esi mull %ecx leal (%esi,%edx), %ecx movl %ecx, %edx movl -164(%ebp), %edx movl -160(%ebp), %eax imull %edx, %eax movl -168(%ebp), %edx imull %edx, %eax sall $2, %eax leal 3(%eax), %edx movl $16, %eax subl $1, %eax addl %edx, %eax movl $16, %esi movl $0, %edx divl %esi imull $16, %eax, %eax subl %eax, %esp movl %esp, %eax addl $3, %eax shrl $2, %eax sall $2, %eax movl %eax, -120(%ebp) leal -96(%ebp), %edx movl $0, %eax movl $17, %ecx movl %edx, %edi rep stosl movl -120(%ebp), %eax movl %eax, -96(%ebp) movl $4, -92(%ebp) 7 %integer x 8 9 index1 = 4; index2 = 5; index3 = 6 movl $4, -116(%ebp) movl $5, -112(%ebp) movl $6, -108(%ebp) 10 11 x = threed(index1, index2, index3) movl -180(%ebp), %edi shrl $2, %edi movl -176(%ebp), %edx shrl $2, %edx movl %edx, -160(%ebp) movl -116(%ebp), %eax movl %eax, %esi subl -136(%ebp), %esi movl -112(%ebp), %eax subl -140(%ebp), %eax movl %eax, %edx movl -108(%ebp), %eax subl -144(%ebp), %eax movl %eax, %ebx movl -120(%ebp), %ecx imull -160(%ebp), %edx movl %edi, %eax imull %esi, %eax addl %ebx, %edx addl %edx, %eax movl (%ecx,%eax,4), %eax movl %eax, -104(%ebp) movl $0, -100(%ebp) .LBB4: .LBB5: subl $12, %esp pushl -100(%ebp) movl -172(%ebp), %ebx call exit@PLT .LBE5: .LBE4: .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: .LFB190: movl (%esp), %ebx ret .LFE190: .Letext0: 12 13 %endofprogram 11 Statements compiled