Edinburgh IMP77 Compiler - Version 8.4-2024.12.18

     1  %begin
 0000 C8 00 00 01                           ENTER 0000,1
     2    %integer i, k
     3    k = -3
 0004 C7 45 F4 FD FF FF FF                  MOV DWORD PTR [%EBP-12],#-3
     4    i = |k|
 000B 8B 45 F4                              MOV %EAX,[%EBP-12]
 000E 3D 00 00 00 00                        CMP %EAX,#0
 0013 7D 00                                 JGE L1001
 0015 F7 D8                                 NEG %EAX
 0017                      L1001  EQU $
 0017 89 45 F8                              MOV [%EBP-8],%EAX
     5  %endofprogram
 001A C9                                    LEAVE
 001B C3                                    RET