Edinburgh IMP77 Compiler - Version 8.4-2024.12.18

     1  %begin
 0000 C8 00 00 01                           ENTER 0000,1
     2    %integer i, j, k
     3    %real a, b, c
     4  
     5    i = j \\ k
 0004 8B 45 F0                              MOV %EAX,[%EBP-16]
 0007 50                                    PUSH %EAX
 0008 8B 45 F4                              MOV %EAX,[%EBP-12]
 000B 50                                    PUSH %EAX
 000C E8 01 00                              CALL '_IMPIEXP' (EXTERN 1)
 000F 83 C4 08                              ADD %ESP,#8
 0012 89 45 F8                              MOV [%EBP-8],%EAX
     6    i = j // k
 0015 8B 45 F4                              MOV %EAX,[%EBP-12]
 0018 99                                    CWD
 0019 F7 7D F0                              IDIV DWORD PTR [%EBP-16]
 001C 89 45 F8                              MOV [%EBP-8],%EAX
     7    i = j << k
 001F 8B 4D F0                              MOV %ECX,[%EBP-16]
 0022 8B 45 F4                              MOV %EAX,[%EBP-12]
 0025 D3 E0                                 SHL %EAX,%ECX
 0027 89 45 F8                              MOV [%EBP-8],%EAX
     8    i = j >> k
 002A 8B 4D F0                              MOV %ECX,[%EBP-16]
 002D 8B 45 F4                              MOV %EAX,[%EBP-12]
 0030 D3 E8                                 SHR %EAX,%ECX
 0032 89 45 F8                              MOV [%EBP-8],%EAX
     9  
    10    a = b^i
 0035 D9 45 E8                              FLD DWORD [%EBP-24]
 0038 8B 45 F8                              MOV %EAX,[%EBP-8]
 003B 50                                    PUSH %EAX
 003C 83 EC 08                              SUB %ESP,#8
 003F 89 E6                                 MOV %ESI,%ESP
 0041 DD 1E                                 FSTP QWORD [%ESI]
 0043 E8 02 00                              CALL '_IMPFEXP' (EXTERN 2)
 0046 83 C4 0C                              ADD %ESP,#12
 0049 D9 5D EC                              FSTP DWORD [%EBP-20]
    11  
    12  %endofprogram
 004C C9                                    LEAVE
 004D C3                                    RET