Edinburgh IMP77 Compiler - Version 8.4-2024.12.18

     1  %begin
 0000 C8 00 00 01                           ENTER 0000,1
     2    %string (6) s
     3    %string (6) %name sp
     4    %real r
     5    %realname rp
     6    %integer i
     7    %integername ip
     8    %short %integer si
     9    %short %integer %name sip
    10    %byte %integer bi
    11    %byte %integer %name bip
    12    sp == s
 0004 8D 45 F5                              LEA %EAX,[%EBP-11]
 0007 89 45 F0                              MOV [%EBP-16],%EAX
    13    rp == r
 000A 8D 45 EC                              LEA %EAX,[%EBP-20]
 000D 89 45 E8                              MOV [%EBP-24],%EAX
    14    ip == i
 0010 8D 45 E4                              LEA %EAX,[%EBP-28]
 0013 89 45 E0                              MOV [%EBP-32],%EAX
    15    sip == si
 0016 8D 45 DE                              LEA %EAX,[%EBP-34]
 0019 89 45 D8                              MOV [%EBP-40],%EAX
    16    bip == bi
 001C 8D 45 D7                              LEA %EAX,[%EBP-41]
 001F 89 45 D0                              MOV [%EBP-48],%EAX
    17  %endofprogram
 0022 C9                                    LEAVE
 0023 C3                                    RET