         Edinburgh IMP77 Compiler - Version 8.4-2024.12.18

     1  %begin
 0000 C8 00 00 01                           ENTER 0000,1
     2  
     3    %longreal x, r
     4    
     5    %integer i
     6    %longrealname rn
     7    %longrealarray rra(0:9)
 0004 C7 45 D4 01 00 00 00                  MOV DWORD PTR [%EBP-44],#1
 000B C7 45 D8 00 00 00 00                  MOV DWORD PTR [%EBP-40],#0
 0012 C7 45 DC 09 00 00 00                  MOV DWORD PTR [%EBP-36],#9
 0019 C7 45 E0 11 01 00 00                  MOV DWORD PTR [%EBP-32],#273
 0020 8D 45 D4                              LEA %EAX,[%EBP-44]
 0023 50                                    PUSH %EAX
 0024 E8 0A 00                              CALL '_IMPADEF' (EXTERN 10)
 0027 83 C4 04                              ADD %ESP,#4
 002A 8D 4D D4                              LEA %ECX,[%EBP-44]
 002D 89 E3                                 MOV %EBX,%ESP
 002F 29 D3                                 SUB %EBX,%EDX
 0031 89 5D CC                              MOV [%EBP-52],%EBX
 0034 89 4D D0                              MOV [%EBP-48],%ECX
 0037 01 C3                                 ADD %EBX,%EAX
 0039 89 DC                                 MOV %ESP,%EBX
     8    %longrealnamearray rna(0:9)
 003B C7 45 BC 01 00 00 00                  MOV DWORD PTR [%EBP-68],#1
 0042 C7 45 C0 00 00 00 00                  MOV DWORD PTR [%EBP-64],#0
 0049 C7 45 C4 09 00 00 00                  MOV DWORD PTR [%EBP-60],#9
 0050 C7 45 C8 91 00 00 00                  MOV DWORD PTR [%EBP-56],#145
 0057 8D 45 BC                              LEA %EAX,[%EBP-68]
 005A 50                                    PUSH %EAX
 005B E8 0A 00                              CALL '_IMPADEF' (EXTERN 10)
 005E 83 C4 04                              ADD %ESP,#4
 0061 8D 4D BC                              LEA %ECX,[%EBP-68]
 0064 89 E3                                 MOV %EBX,%ESP
 0066 29 D3                                 SUB %EBX,%EDX
 0068 89 5D B4                              MOV [%EBP-76],%EBX
 006B 89 4D B8                              MOV [%EBP-72],%ECX
 006E 01 C3                                 ADD %EBX,%EAX
 0070 89 DC                                 MOV %ESP,%EBX
     9    %longrealnamearrayname rnan
    10    %longrealmap rm(%integer i); %result == r; %end
 0072 EB 00                                 JMP L1001
 0074                      L1002  EQU $
 0074 C8 00 00 02                           ENTER 0000,2
 0078 8B 75 FC                              MOV %ESI,[%EBP-4]
 007B 8D 46 EC                              LEA %EAX,[%ESI-20]
 007E C9                                    LEAVE
 007F C3                                    RET
 0080                      L1001  EQU $
?I unused
    11    %longrealmap rm2(%integer i); %result == rn; %end
?I unused
    12    %longrealmap rm3(%integer i); %result == rra(i); %end
    13    %longrealmap rm4(%integer i); %result == rna(i); %end
    14    %longrealmap rm5(%integer i); %result == rnan(i); %end
    15    rn == r
    16    x = r
 0080                      L1003  EQU $
 0080 C8 00 00 02                           ENTER 0000,2
 0084 8B 7D FC                              MOV %EDI,[%EBP-4]
 0087 8B 47 E4                              MOV %EAX,[%EDI-28]
 008A C9                                    LEAVE
 008B C3                                    RET
 008C                      L1001  EQU $
 008C                      L1004  EQU $
 008C C8 00 00 02                           ENTER 0000,2
 0090 FF 75 08                              PUSH DWORD PTR [%EBP+8]
 0093 8B 5D FC                              MOV %EBX,[%EBP-4]
 0096 FF 73 D0                              PUSH DWORD PTR [%EBX-48]
 0099 89 5D F4                              MOV [%EBP-12],%EBX
 009C E8 09 00                              CALL '_IMPAREF' (EXTERN 9)
 009F 83 C4 08                              ADD %ESP,#8
 00A2 89 C6                                 MOV %ESI,%EAX
 00A4 8B 7D F4                              MOV %EDI,[%EBP-12]
 00A7 03 77 CC                              ADD %ESI,[%EDI-52]
 00AA 89 F0                                 MOV %EAX,%ESI
 00AC C9                                    LEAVE
 00AD C3                                    RET
 00AE                      L1001  EQU $
 00AE                      L1005  EQU $
 00AE C8 00 00 02                           ENTER 0000,2
 00B2 FF 75 08                              PUSH DWORD PTR [%EBP+8]
 00B5 8B 5D FC                              MOV %EBX,[%EBP-4]
 00B8 FF 73 B8                              PUSH DWORD PTR [%EBX-72]
 00BB 89 5D F4                              MOV [%EBP-12],%EBX
 00BE E8 09 00                              CALL '_IMPAREF' (EXTERN 9)
 00C1 83 C4 08                              ADD %ESP,#8
 00C4 89 C6                                 MOV %ESI,%EAX
 00C6 8B 7D F4                              MOV %EDI,[%EBP-12]
 00C9 03 77 B4                              ADD %ESI,[%EDI-76]
 00CC 8B 06                                 MOV %EAX,[%ESI]
 00CE C9                                    LEAVE
 00CF C3                                    RET
 00D0                      L1001  EQU $
 00D0                      L1006  EQU $
 00D0 C8 00 00 02                           ENTER 0000,2
 00D4 FF 75 08                              PUSH DWORD PTR [%EBP+8]
 00D7 8B 5D FC                              MOV %EBX,[%EBP-4]
 00DA FF 73 B0                              PUSH DWORD PTR [%EBX-80]
 00DD 89 5D F4                              MOV [%EBP-12],%EBX
 00E0 E8 09 00                              CALL '_IMPAREF' (EXTERN 9)
 00E3 83 C4 08                              ADD %ESP,#8
 00E6 89 C6                                 MOV %ESI,%EAX
 00E8 8B 7D F4                              MOV %EDI,[%EBP-12]
 00EB 03 77 AC                              ADD %ESI,[%EDI-84]
 00EE 8B 06                                 MOV %EAX,[%ESI]
 00F0 C9                                    LEAVE
 00F1 C3                                    RET
 00F2                      L1001  EQU $
 00F2 8D 45 EC                              LEA %EAX,[%EBP-20]
 00F5 89 45 E4                              MOV [%EBP-28],%EAX
 00F8 DD 45 EC                              FLD QWORD [%EBP-20]
 00FB DD 5D F4                              FSTP QWORD [%EBP-12]
    17    x = rn
 00FE 8B 5D E4                              MOV %EBX,[%EBP-28]
 0101 DD 03                                 FLD QWORD [%EBX]
 0103 DD 5D F4                              FSTP QWORD [%EBP-12]
    18    rn = x
 0106 8B 75 E4                              MOV %ESI,[%EBP-28]
 0109 DD 45 F4                              FLD QWORD [%EBP-12]
 010C DD 1E                                 FSTP QWORD [%ESI]
    19    x = rra(i)
 010E FF 75 E8                              PUSH DWORD PTR [%EBP-24]
 0111 FF 75 D0                              PUSH DWORD PTR [%EBP-48]
 0114 E8 09 00                              CALL '_IMPAREF' (EXTERN 9)
 0117 83 C4 08                              ADD %ESP,#8
 011A 89 C7                                 MOV %EDI,%EAX
 011C 03 7D CC                              ADD %EDI,[%EBP-52]
 011F DD 07                                 FLD QWORD [%EDI]
 0121 DD 5D F4                              FSTP QWORD [%EBP-12]
    20    rn == rra(i)
 0124 FF 75 E8                              PUSH DWORD PTR [%EBP-24]
 0127 FF 75 D0                              PUSH DWORD PTR [%EBP-48]
 012A E8 09 00                              CALL '_IMPAREF' (EXTERN 9)
 012D 83 C4 08                              ADD %ESP,#8
 0130 89 C3                                 MOV %EBX,%EAX
 0132 03 5D CC                              ADD %EBX,[%EBP-52]
 0135 89 5D E4                              MOV [%EBP-28],%EBX
    21    x = rra(i)
 0138 FF 75 E8                              PUSH DWORD PTR [%EBP-24]
 013B FF 75 D0                              PUSH DWORD PTR [%EBP-48]
 013E E8 09 00                              CALL '_IMPAREF' (EXTERN 9)
 0141 83 C4 08                              ADD %ESP,#8
 0144 89 C6                                 MOV %ESI,%EAX
 0146 03 75 CC                              ADD %ESI,[%EBP-52]
 0149 DD 06                                 FLD QWORD [%ESI]
 014B DD 5D F4                              FSTP QWORD [%EBP-12]
    22    rra(i) = x
 014E FF 75 E8                              PUSH DWORD PTR [%EBP-24]
 0151 FF 75 D0                              PUSH DWORD PTR [%EBP-48]
 0154 E8 09 00                              CALL '_IMPAREF' (EXTERN 9)
 0157 83 C4 08                              ADD %ESP,#8
 015A 89 C7                                 MOV %EDI,%EAX
 015C 03 7D CC                              ADD %EDI,[%EBP-52]
 015F DD 45 F4                              FLD QWORD [%EBP-12]
 0162 DD 1F                                 FSTP QWORD [%EDI]
    23    rn == rna(i)
 0164 FF 75 E8                              PUSH DWORD PTR [%EBP-24]
 0167 FF 75 B8                              PUSH DWORD PTR [%EBP-72]
 016A E8 09 00                              CALL '_IMPAREF' (EXTERN 9)
 016D 83 C4 08                              ADD %ESP,#8
 0170 89 C3                                 MOV %EBX,%EAX
 0172 03 5D B4                              ADD %EBX,[%EBP-76]
 0175 8B 1B                                 MOV %EBX,[%EBX]
 0177 89 5D E4                              MOV [%EBP-28],%EBX
    24    x = rna(i)
 017A FF 75 E8                              PUSH DWORD PTR [%EBP-24]
 017D FF 75 B8                              PUSH DWORD PTR [%EBP-72]
 0180 E8 09 00                              CALL '_IMPAREF' (EXTERN 9)
 0183 83 C4 08                              ADD %ESP,#8
 0186 89 C6                                 MOV %ESI,%EAX
 0188 03 75 B4                              ADD %ESI,[%EBP-76]
 018B 8B 36                                 MOV %ESI,[%ESI]
 018D DD 06                                 FLD QWORD [%ESI]
 018F DD 5D F4                              FSTP QWORD [%EBP-12]
    25    rnan == rna
 0192 8B 45 B8                              MOV %EAX,[%EBP-72]
 0195 89 45 B0                              MOV [%EBP-80],%EAX
 0198 8B 45 B4                              MOV %EAX,[%EBP-76]
 019B 89 45 AC                              MOV [%EBP-84],%EAX
    26    rn == rnan(i)
 019E FF 75 E8                              PUSH DWORD PTR [%EBP-24]
 01A1 FF 75 B0                              PUSH DWORD PTR [%EBP-80]
 01A4 E8 09 00                              CALL '_IMPAREF' (EXTERN 9)
 01A7 83 C4 08                              ADD %ESP,#8
 01AA 89 C7                                 MOV %EDI,%EAX
 01AC 03 7D AC                              ADD %EDI,[%EBP-84]
 01AF 8B 3F                                 MOV %EDI,[%EDI]
 01B1 89 7D E4                              MOV [%EBP-28],%EDI
    27    x = rnan(i)
 01B4 FF 75 E8                              PUSH DWORD PTR [%EBP-24]
 01B7 FF 75 B0                              PUSH DWORD PTR [%EBP-80]
 01BA E8 09 00                              CALL '_IMPAREF' (EXTERN 9)
 01BD 83 C4 08                              ADD %ESP,#8
 01C0 89 C3                                 MOV %EBX,%EAX
 01C2 03 5D AC                              ADD %EBX,[%EBP-84]
 01C5 8B 1B                                 MOV %EBX,[%EBX]
 01C7 DD 03                                 FLD QWORD [%EBX]
 01C9 DD 5D F4                              FSTP QWORD [%EBP-12]
    28    rnan(i) = x
 01CC FF 75 E8                              PUSH DWORD PTR [%EBP-24]
 01CF FF 75 B0                              PUSH DWORD PTR [%EBP-80]
 01D2 E8 09 00                              CALL '_IMPAREF' (EXTERN 9)
 01D5 83 C4 08                              ADD %ESP,#8
 01D8 89 C6                                 MOV %ESI,%EAX
 01DA 03 75 AC                              ADD %ESI,[%EBP-84]
 01DD 8B 36                                 MOV %ESI,[%ESI]
 01DF DD 45 F4                              FLD QWORD [%EBP-12]
 01E2 DD 1E                                 FSTP QWORD [%ESI]
    29    rn == rm(i)
 01E4 FF 75 E8                              PUSH DWORD PTR [%EBP-24]
 01E7 E8 00 00                              CALL 'RM' (INTERNAL L1002 )
 01EA 83 C4 04                              ADD %ESP,#4
 01ED 89 45 E4                              MOV [%EBP-28],%EAX
    30    x = rm(i)
 01F0 FF 75 E8                              PUSH DWORD PTR [%EBP-24]
 01F3 E8 00 00                              CALL 'RM' (INTERNAL L1002 )
 01F6 83 C4 04                              ADD %ESP,#4
 01F9 DD 00                                 FLD QWORD [%EAX]
 01FB DD 5D F4                              FSTP QWORD [%EBP-12]
    31    rm(i) = x
 01FE FF 75 E8                              PUSH DWORD PTR [%EBP-24]
 0201 E8 00 00                              CALL 'RM' (INTERNAL L1002 )
 0204 83 C4 04                              ADD %ESP,#4
 0207 DD 45 F4                              FLD QWORD [%EBP-12]
 020A DD 18                                 FSTP QWORD [%EAX]
    32  %endofprogram
 020C C9                                    LEAVE
 020D C3                                    RET
?RM5 unused
?RM4 unused
?RM3 unused
?RM2 unused

    40 Statements compiled



 ELF object file generated from IMP source file: '/home/gtoal/src/compilers101/new-parser/imps/tests/test189.imp'
 +----------+---------------------+---------+---------+---------+------------+
 | Sections |       Symbols       | Code    | Data    | Diag    | Total size |
 +----------+----------+----------+---------+---------+---------+------------+
 |  (count) | Internal | External | (bytes) | (bytes) | (bytes) | (bytes)    |
 +----------+----------+----------+---------+---------+---------+------------+
 |       11 |        9 |        8 |     563 |       0 |     192 |        755 |
 +----------+----------+----------+---------+---------+---------+------------+


