Edinburgh IMP77 Compiler - Version 8.4-2024.12.18

     1  %begin
 0000 C8 00 00 01                           ENTER 0000,1
     2    %integer fred, jim, i
     3    %while fred < jim %cycle
 0004                      L1001  EQU $
 0004 8B 45 F8                              MOV %EAX,[%EBP-8]
 0007 3B 45 F4                              CMP %EAX,[%EBP-12]
 000A 7D 00                                 JGE L1002
     4      %if i = 55 %then %continue
 000C 8B 45 F0                              MOV %EAX,[%EBP-16]
 000F 3D 37 00 00 00                        CMP %EAX,#55
 0014 75 00                                 JNE L1003
 0016 EB 00                                 JMP L1004
 0018                      L1003  EQU $
     5      %if i = 99 %then %exit
 0018 8B 45 F0                              MOV %EAX,[%EBP-16]
 001B 3D 63 00 00 00                        CMP %EAX,#99
 0020 75 00                                 JNE L1005
 0022 EB 00                                 JMP L1002
 0024                      L1005  EQU $
     6      i = i+1
 0024 FF 45 F0                              INC DWORD PTR [%EBP-16]
     7    %repeat
 0027                      L1004  EQU $
 0027 EB 00                                 JMP L1001
 0029                      L1002  EQU $
     8  %endofprogram
 0029 C9                                    LEAVE
 002A C3                                    RET