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    %for fred = 1, 10, jim %cycle
 0004 8B 45 F4                              MOV %EAX,[%EBP-12]
 0007 89 45 EC                              MOV [%EBP-20],%EAX
 000A C7 45 F8 F7 FF FF FF                  MOV DWORD PTR [%EBP-8],#-9
 0011                      L1001  EQU $
 0011 8B 45 F8                              MOV %EAX,[%EBP-8]
 0014 3B 45 EC                              CMP %EAX,[%EBP-20]
 0017 74 00                                 JE L1002
 0019 05 0A 00 00 00                        ADD %EAX,#10
 001E 89 45 F8                              MOV [%EBP-8],%EAX
     4      %if i = 55 %then %continue
 0021 8B 45 F0                              MOV %EAX,[%EBP-16]
 0024 3D 37 00 00 00                        CMP %EAX,#55
 0029 75 00                                 JNE L1003
 002B EB 00                                 JMP L1004
 002D                      L1003  EQU $
     5      %if i = 99 %then %exit
 002D 8B 45 F0                              MOV %EAX,[%EBP-16]
 0030 3D 63 00 00 00                        CMP %EAX,#99
 0035 75 00                                 JNE L1005
 0037 EB 00                                 JMP L1002
 0039                      L1005  EQU $
     6      i = i+1
 0039 FF 45 F0                              INC DWORD PTR [%EBP-16]
     7    %repeat
 003C                      L1004  EQU $
 003C EB 00                                 JMP L1001
 003E                      L1002  EQU $
     8  %endofprogram
 003E C9                                    LEAVE
 003F C3                                    RET