Edinburgh IMP77 Compiler - Version 8.4 1 %BEGIN .Ltext0: .section .rodata .align 32 .LC0: .byte 5 .string "ERROR" .zero 249 .align 32 .LC1: .byte 7 .string "TEST OK" .zero 247 .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 $968, %esp call __x86.get_pc_thunk.bx addl $_GLOBAL_OFFSET_TABLE_, %ebx movl %ebx, -960(%ebp) movl %ecx, %eax movl 4(%eax), %edx movl %edx, -956(%ebp) movl %gs:20, %esi movl %esi, -28(%ebp) xorl %esi, %esi subl $8, %esp pushl -956(%ebp) pushl (%eax) call _imp_initialise@PLT addl $16, %esp 2 %INTEGER I,J,K 3 I=3; J=4; K=5 movl $3, -944(%ebp) movl $4, -948(%ebp) movl $5, -952(%ebp) 4 %INTEGERARRAY A(0:3,2:4,1:5) leal -916(%ebp), %edx movl $0, %eax movl $17, %ecx movl %edx, %edi rep stosl leal -780(%ebp), %eax movl %eax, -916(%ebp) movl $4, -912(%ebp) 5 %INTEGERARRAY B(0:I,2:J,1:K) movl -952(%ebp), %ebx movl -948(%ebp), %eax leal -1(%eax), %edi movl -944(%ebp), %eax addl $1, %eax movl %eax, -972(%ebp) leal -1(%ebx), %eax movl %eax, -940(%ebp) movl %ebx, %eax leal 0(,%eax,4), %esi movl %esi, -976(%ebp) leal -1(%edi), %eax movl %eax, -936(%ebp) movl %ebx, -964(%ebp) movl %ebx, %eax movl %eax, %ebx movl $0, %esi movl %edi, -968(%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 -964(%ebp), %ebx movl %ebx, %edx movl -968(%ebp), %edi movl %edi, %eax imull %edx, %eax leal 0(,%eax,4), %esi movl %esi, -980(%ebp) movl -972(%ebp), %eax subl $1, %eax movl %eax, -932(%ebp) movl %ebx, -964(%ebp) movl %ebx, %eax movl %eax, %ebx movl $0, %esi movl %edi, -968(%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 -972(%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 -964(%ebp), %eax movl %eax, %ebx movl $0, %esi movl -968(%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 -972(%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 -964(%ebp), %edx movl -968(%ebp), %eax imull %edx, %eax movl -972(%ebp), %edx imull %edx, %eax sall $2, %eax leal 3(%eax), %edx movl $16, %eax subl $1, %eax addl %edx, %eax movl $16, %ebx movl $0, %edx divl %ebx imull $16, %eax, %eax subl %eax, %esp movl %esp, %eax addl $3, %eax shrl $2, %eax sall $2, %eax movl %eax, -928(%ebp) leal -848(%ebp), %edx movl $0, %eax movl $17, %ecx movl %edx, %edi rep stosl movl -928(%ebp), %eax movl %eax, -848(%ebp) movl $4, -844(%ebp) 6 %FOR I=0,1,3 %CYCLE movl $-1, -944(%ebp) .L2: cmpl $3, -944(%ebp) je .L30 addl $1, -944(%ebp) nop .L4: 7 %FOR J=2,1,4 %CYCLE movl $1, -948(%ebp) .L5: cmpl $4, -948(%ebp) je .L31 addl $1, -948(%ebp) nop .L7: 8 %FOR K=1,1,5 %CYCLE movl $0, -952(%ebp) .L8: cmpl $5, -952(%ebp) je .L32 addl $1, -952(%ebp) nop .L10: 9 A(I,J,K)=M'A'<<24!I<<16!J<<8!K movl -944(%ebp), %eax sall $16, %eax orl $1090519040, %eax movl %eax, %edx movl -948(%ebp), %eax sall $8, %eax orl %edx, %eax movl -948(%ebp), %edx leal -2(%edx), %ecx movl -952(%ebp), %edx leal -1(%edx), %edi orl -952(%ebp), %eax movl %eax, %esi movl -944(%ebp), %ebx movl %ecx, %edx sall $2, %edx addl %ecx, %edx movl %ebx, %eax sall $4, %eax subl %ebx, %eax addl %edx, %eax addl %edi, %eax movl %esi, -780(%ebp,%eax,4) 10 B(I,J,K)=M'B'<<24!I<<16!J<<8!K movl -944(%ebp), %eax sall $16, %eax orl $1107296256, %eax movl %eax, %edx movl -948(%ebp), %eax sall $8, %eax orl %eax, %edx movl -980(%ebp), %eax shrl $2, %eax movl %eax, -964(%ebp) movl -976(%ebp), %esi shrl $2, %esi movl %esi, -968(%ebp) movl -948(%ebp), %eax leal -2(%eax), %edi movl -952(%ebp), %eax leal -1(%eax), %esi movl %edx, %ebx orl -952(%ebp), %ebx movl -928(%ebp), %ecx movl -968(%ebp), %eax imull %edi, %eax movl -964(%ebp), %edx imull -944(%ebp), %edx addl %esi, %eax addl %edx, %eax movl %ebx, (%ecx,%eax,4) 11 %REPEAT jmp .L8 .L32: 12 %REPEAT jmp .L5 .L31: 13 %REPEAT jmp .L2 .L30: 14 %FOR I=0,1,3 %CYCLE movl $-1, -944(%ebp) .L11: cmpl $3, -944(%ebp) je .L33 addl $1, -944(%ebp) nop .L13: .LBB17: 15 %FOR J=2,1,4 %CYCLE movl $1, -948(%ebp) .L14: cmpl $4, -948(%ebp) je .L34 addl $1, -948(%ebp) nop .L16: 16 %FOR K=1,1,5 %CYCLE movl $0, -952(%ebp) .L17: cmpl $5, -952(%ebp) je .L35 addl $1, -952(%ebp) nop .L19: 17 %IF A(I,J,K)&X'FFFFFF'#B(I,J,K)&X'FFFFFF' %START movl -948(%ebp), %eax leal -2(%eax), %ecx movl -952(%ebp), %eax leal -1(%eax), %esi movl -944(%ebp), %ebx movl %ecx, %edx sall $2, %edx addl %ecx, %edx movl %ebx, %eax sall $4, %eax subl %ebx, %eax addl %edx, %eax addl %esi, %eax movl -780(%ebp,%eax,4), %eax movl %eax, -964(%ebp) movl -980(%ebp), %edi shrl $2, %edi movl -976(%ebp), %esi shrl $2, %esi movl -948(%ebp), %eax leal -2(%eax), %edx movl -952(%ebp), %eax leal -1(%eax), %ebx movl -928(%ebp), %ecx movl %esi, %eax imull %edx, %eax imull -944(%ebp), %edi movl %edi, %edx addl %ebx, %eax addl %edx, %eax movl (%ecx,%eax,4), %eax cmpl $16777215, %eax sete %al movzbl %al, %eax andl -964(%ebp), %eax andl $16777215, %eax testl %eax, %eax jne .L36 .LBB12: nop .L21: 18 PRINTSTRING("ERROR") leal -284(%ebp), %eax movl -960(%ebp), %esi leal .LC0@GOTOFF(%esi), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -540(%ebp), %eax leal -284(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -284(%ebp), %eax leal -540(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE12: .LBB13: .LBB14: subl $256, %esp movl %esp, %eax movl %eax, %ebx leal -284(%ebp), %eax movl $64, %edx movl %ebx, %edi movl %eax, %esi movl %edx, %ecx rep movsl movl -960(%ebp), %esi movl %esi, %ebx call _imp_printstring@PLT addl $256, %esp movl $0, -924(%ebp) .LBE14: .LBE13: .LBB15: .LBB16: subl $12, %esp pushl -924(%ebp) movl %esi, %ebx call exit@PLT .L36: .LBE16: .LBE15: 19 %MONITOR 20 %STOP 21 %FINISH 22 %REPEAT jmp .L17 .L35: 23 %REPEAT jmp .L14 .L34: 24 %REPEAT jmp .L11 .L33: 25 PRINTSTRING("TEST OK") leal -284(%ebp), %eax movl -960(%ebp), %esi leal .LC1@GOTOFF(%esi), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -540(%ebp), %eax leal -284(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -284(%ebp), %eax leal -540(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE17: .LBB18: .LBB19: subl $256, %esp movl %esp, %eax movl %eax, %ebx leal -284(%ebp), %eax movl $64, %edx movl %ebx, %edi movl %eax, %esi movl %edx, %ecx rep movsl movl -960(%ebp), %esi movl %esi, %ebx call _imp_printstring@PLT addl $256, %esp movl $0, -920(%ebp) .LBE19: .LBE18: .LBB20: .LBB21: subl $12, %esp pushl -920(%ebp) movl %esi, %ebx call exit@PLT .LBE21: .LBE20: .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: 26 %ENDOFPROGRAM 28 Statements compiled