Edinburgh IMP77 Compiler - Version 8.4-2024.12.18

     1  %begin
 0000 C8 00 00 01                           ENTER 0000,1
     2    %integer sheila
     3    %integername bert
     4    %integermap fred
 0004 EB 00                                 JMP L1001
 0006                      L1002  EQU $
 0006 C8 00 00 02                           ENTER 0000,2
     5      %result == bert
 000A 8B 75 FC                              MOV %ESI,[%EBP-4]
 000D 8B 46 F4                              MOV %EAX,[%ESI-12]
 0010 C9                                    LEAVE
 0011 C3                                    RET
     6    %end
 0012                      L1001  EQU $
     7    sheila = 1
     8    bert == sheila
 0012 C7 45 F8 01 00 00 00                  MOV DWORD PTR [%EBP-8],#1
 0019 8D 45 F8                              LEA %EAX,[%EBP-8]
 001C 89 45 F4                              MOV [%EBP-12],%EAX
     9    fred = 1
 001F E8 00 00                              CALL 'FRED' (INTERNAL L1002 )
 0022 C7 00 01 00 00 00                     MOV DWORD PTR [%EAX],#1
    10  %endofprogram
 0028 C9                                    LEAVE
 0029 C3                                    RET